/[MITgcm]/MITgcm/pkg/cd_code/cd_code_ini_vars.F
ViewVC logotype

Diff of /MITgcm/pkg/cd_code/cd_code_ini_vars.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by heimbach, Thu Oct 30 18:44:26 2003 UTC revision 1.3 by jmc, Sun Dec 14 23:28:24 2003 UTC
# Line 37  C-      3D arrays Line 37  C-      3D arrays
37          DO K=1,Nr          DO K=1,Nr
38           DO J=1-Oly,sNy+Oly           DO J=1-Oly,sNy+Oly
39            DO I=1-Olx,sNx+Olx            DO I=1-Olx,sNx+Olx
   
40             uNM1(I,J,K,bi,bj)=0. _d 0             uNM1(I,J,K,bi,bj)=0. _d 0
41             vNM1(I,J,K,bi,bj)=0. _d 0             vNM1(I,J,K,bi,bj)=0. _d 0
42             uVeld(I,J,K,bi,bj)=0. _d 0             uVeld(I,J,K,bi,bj)=0. _d 0
43             vVeld(I,J,K,bi,bj)=0. _d 0             vVeld(I,J,K,bi,bj)=0. _d 0
   
44            ENDDO            ENDDO
45           ENDDO           ENDDO
46          ENDDO          ENDDO
# Line 50  C-      3D arrays Line 48  C-      3D arrays
48  C-      2D arrays  C-      2D arrays
49          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
50           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
   
51            etaNm1(I,J,bi,bj)=0. _d 0            etaNm1(I,J,bi,bj)=0. _d 0
   
52           ENDDO           ENDDO
53          ENDDO          ENDDO
54    
55         ENDDO         ENDDO
56        ENDDO        ENDDO
57    
58          IF ( nIter0.NE.0 ) THEN
59            CALL CD_CODE_READ_CHECKPOINT( nIter0, myThid )
60          ENDIF
61    
62  #endif /*  ALLOW_CD_CODE  */  #endif /*  ALLOW_CD_CODE  */
63    
64        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22