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

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

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

revision 1.35 by edhill, Tue Mar 9 03:57:25 2004 UTC revision 1.36 by edhill, Wed Mar 10 05:50:16 2004 UTC
# Line 177  C     Write dynvars using the MNC packag Line 177  C     Write dynvars using the MNC packag
177        IF ( nonlinFreeSurf.GE.0)        IF ( nonlinFreeSurf.GE.0)
178       &CALL MNC_CW_RL_W_D(myThid,'pickup',0,0,'EtaNH', 0, etaH)       &CALL MNC_CW_RL_W_D(myThid,'pickup',0,0,'EtaNH', 0, etaH)
179  #endif  #endif
180          CALL MNC_CW_RL_W_D(myThid,'pickup',0,0,'Unm1', 0, gUnm1)
181          CALL MNC_CW_RL_W_D(myThid,'pickup',0,0,'Vnm1', 0, gVnm1)
182          CALL MNC_CW_RL_W_D(myThid,'pickup',0,0,'Tnm1', 0, gTnm1)
183          CALL MNC_CW_RL_W_D(myThid,'pickup',0,0,'Snm1', 0, gSnm1)
184    
185        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
186          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
# Line 193  C     Write dynvars using the MNC packag Line 197  C     Write dynvars using the MNC packag
197                  vVel(i,j,k,bi,bj)  = 0.0D0                  vVel(i,j,k,bi,bj)  = 0.0D0
198                  theta(i,j,k,bi,bj) = 0.0D0                  theta(i,j,k,bi,bj) = 0.0D0
199                  salt(i,j,k,bi,bj)  = 0.0D0                  salt(i,j,k,bi,bj)  = 0.0D0
200    C               g?nm1 variables
201                    gUnm1(i,j,k,bi,bj) = 0.0D0
202                    gVnm1(i,j,k,bi,bj) = 0.0D0
203                    gTnm1(i,j,k,bi,bj) = 0.0D0
204                    gSnm1(i,j,k,bi,bj) = 0.0D0
205    C               g? variables
206                    gU(i,j,k,bi,bj) = 0.0D0
207                    gV(i,j,k,bi,bj) = 0.0D0
208                    gT(i,j,k,bi,bj) = 0.0D0
209                    gS(i,j,k,bi,bj) = 0.0D0
210                ENDDO                ENDDO
211              ENDDO              ENDDO
212            ENDDO            ENDDO
# Line 211  C     Read variables from the pickup fil Line 225  C     Read variables from the pickup fil
225        IF ( nonlinFreeSurf.GE.0)        IF ( nonlinFreeSurf.GE.0)
226       &CALL MNC_CW_RL_R_D(myThid,'pickup',0,0,'EtaNH', 1, etaH)       &CALL MNC_CW_RL_R_D(myThid,'pickup',0,0,'EtaNH', 1, etaH)
227  #endif  #endif
228          CALL MNC_CW_RL_R_D(myThid,'pickup',0,0,'Unm1',1,gUnm1)
229          CALL MNC_CW_RL_R_D(myThid,'pickup',0,0,'Vnm1',1,gVnm1)
230          CALL MNC_CW_RL_R_D(myThid,'pickup',0,0,'Tnm1',1,gTnm1)
231          CALL MNC_CW_RL_R_D(myThid,'pickup',0,0,'Snm1',1,gSnm1)
232    
233  #endif /* ALLOW_MNC */  #endif /* ALLOW_MNC */
234    
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22