/[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.14 by jmc, Thu Jul 1 21:45:11 2004 UTC revision 1.15 by jmc, Fri Apr 15 14:02:54 2005 UTC
# Line 61  C-      3D arrays Line 61  C-      3D arrays
61             gV(I,J,K,bi,bj)=0. _d 0             gV(I,J,K,bi,bj)=0. _d 0
62             gT(I,J,K,bi,bj)=0. _d 0             gT(I,J,K,bi,bj)=0. _d 0
63             gS(I,J,K,bi,bj)=0. _d 0             gS(I,J,K,bi,bj)=0. _d 0
64             gUnm1(I,J,K,bi,bj)=0. _d 0  #ifdef ALLOW_ADAMSBASHFORTH_3
65             gVnm1(I,J,K,bi,bj)=0. _d 0             guNm(I,J,K,bi,bj,1)=0. _d 0
66             gTnm1(I,J,K,bi,bj)=0. _d 0             gvNm(I,J,K,bi,bj,1)=0. _d 0
67             gSnm1(I,J,K,bi,bj)=0. _d 0             gtNm(I,J,K,bi,bj,1)=0. _d 0
68               gsNm(I,J,K,bi,bj,1)=0. _d 0
69               guNm(I,J,K,bi,bj,2)=0. _d 0
70               gvNm(I,J,K,bi,bj,2)=0. _d 0
71               gtNm(I,J,K,bi,bj,2)=0. _d 0
72               gsNm(I,J,K,bi,bj,2)=0. _d 0
73    #else
74               guNm1(I,J,K,bi,bj) =0. _d 0
75               gvNm1(I,J,K,bi,bj) =0. _d 0
76               gtNm1(I,J,K,bi,bj) =0. _d 0
77               gsNm1(I,J,K,bi,bj) =0. _d 0
78    #endif
79    
80  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
81  ceh3 needs an IF ( useNONHYDROSTATIC ) THEN  ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22