/[MITgcm]/MITgcm/model/src/ini_dynvars.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_dynvars.F

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

revision 1.3 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.4 by jmc, Wed Sep 19 13:53:10 2001 UTC
# Line 80  C-      2D arrays Line 80  C-      2D arrays
80          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
81           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
82            etaN(I,J,bi,bj)=0. _d 0            etaN(I,J,bi,bj)=0. _d 0
83              etaH(I,J,bi,bj)=0. _d 0
84    #ifdef INCLUDE_CD_CODE
85            etaNm1(I,J,bi,bj)=0. _d 0            etaNm1(I,J,bi,bj)=0. _d 0
86    #endif
87           ENDDO           ENDDO
88          ENDDO          ENDDO
89    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22