/[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.41 by edhill, Tue Apr 6 01:44:26 2004 UTC revision 1.42 by jmc, Fri Jul 2 17:43:04 2004 UTC
# Line 141  C       Read variables from the pickup f Line 141  C       Read variables from the pickup f
141          CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid)
142  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
143          IF ( nonlinFreeSurf.GE.0)          IF ( nonlinFreeSurf.GE.0)
144       &    CALL MNC_CW_RL_R('D',fn,0,0,'EtaNH', etaH, myThid)       &    CALL MNC_CW_RL_R('D',fn,0,0,'EtaH', etaH, myThid)
145  #endif  #endif
146          CALL MNC_CW_RL_R('D',fn,0,0,'Unm1',gUnm1, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'gUnm1',gUnm1, myThid)
147          CALL MNC_CW_RL_R('D',fn,0,0,'Vnm1',gVnm1, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'gVnm1',gVnm1, myThid)
148          CALL MNC_CW_RL_R('D',fn,0,0,'Tnm1',gTnm1, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'gTnm1',gTnm1, myThid)
149          CALL MNC_CW_RL_R('D',fn,0,0,'Snm1',gSnm1, myThid)          CALL MNC_CW_RL_R('D',fn,0,0,'gSnm1',gSnm1, myThid)
150  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
151          IF ( nonHydrostatic ) THEN          IF ( nonHydrostatic ) THEN
152            CALL MNC_CW_RL_R('D',fn,0,0,'phi_nh', phi_nh, myThid)            CALL MNC_CW_RL_R('D',fn,0,0,'phi_nh', phi_nh, myThid)
153            CALL MNC_CW_RL_R('D',fn,0,0,'gW', gW, myThid)            CALL MNC_CW_RL_R('D',fn,0,0,'gW', gW, myThid)
154          ENDIF          ENDIF
155  #endif  #endif
156            IF ( useDynP_inEos_Zc ) THEN
157              CALL MNC_CW_RL_R('D',fn,0,0,'phiHyd', totPhiHyd, myThid)
158            ENDIF
159        ELSE        ELSE
160  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
161    
# Line 366  C         Write dynvars using the MNC pa Line 369  C         Write dynvars using the MNC pa
369            CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid)            CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid)
370  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
371            IF ( nonlinFreeSurf .GE. 0)            IF ( nonlinFreeSurf .GE. 0)
372       &      CALL MNC_CW_RL_W('D',fn,0,0,'EtaNH', etaH, myThid)       &      CALL MNC_CW_RL_W('D',fn,0,0,'EtaH', etaH, myThid)
373  #endif  #endif
374            CALL MNC_CW_RL_W('D',fn,0,0,'Unm1', gUnm1, myThid)            CALL MNC_CW_RL_W('D',fn,0,0,'gUnm1', gUnm1, myThid)
375            CALL MNC_CW_RL_W('D',fn,0,0,'Vnm1', gVnm1, myThid)            CALL MNC_CW_RL_W('D',fn,0,0,'gVnm1', gVnm1, myThid)
376            CALL MNC_CW_RL_W('D',fn,0,0,'Tnm1', gTnm1, myThid)            CALL MNC_CW_RL_W('D',fn,0,0,'gTnm1', gTnm1, myThid)
377            CALL MNC_CW_RL_W('D',fn,0,0,'Snm1', gSnm1, myThid)            CALL MNC_CW_RL_W('D',fn,0,0,'gSnm1', gSnm1, myThid)
378  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
379            IF ( nonHydrostatic ) THEN            IF ( nonHydrostatic ) THEN
380              CALL MNC_CW_RL_W('D',fn,0,0,'phi_nh', phi_nh, myThid)              CALL MNC_CW_RL_W('D',fn,0,0,'phi_nh', phi_nh, myThid)
# Line 379  C         Write dynvars using the MNC pa Line 382  C         Write dynvars using the MNC pa
382            ENDIF            ENDIF
383  #endif  #endif
384            IF ( useDynP_inEos_Zc ) THEN            IF ( useDynP_inEos_Zc ) THEN
385              CALL MNC_CW_RL_W('D',fn,0,0,'totPhiHyd', totPhiHyd, myThid)              CALL MNC_CW_RL_W('D',fn,0,0,'phiHyd', totPhiHyd, myThid)
386            ENDIF            ENDIF
387          ELSE          ELSE
388  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22