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

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

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

revision 1.37 by edhill, Sun Mar 21 03:44:23 2004 UTC revision 1.38 by edhill, Wed Mar 24 15:29:33 2004 UTC
# Line 172  c       CALL WRITE_FLD_XYZ_RS('hFacS.',s Line 172  c       CALL WRITE_FLD_XYZ_RS('hFacS.',s
172  C       Write dynvars using the MNC package  C       Write dynvars using the MNC package
173          mnc_iter = myIter          mnc_iter = myIter
174          CALL MNC_CW_SET_UDIM('state', -1, myThid)          CALL MNC_CW_SET_UDIM('state', -1, myThid)
175          CALL MNC_CW_RL_W_D('state',0,0,'iter',mnc_iter, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'iter',mnc_iter, myThid)
176          CALL MNC_CW_SET_UDIM('state', 0, myThid)          CALL MNC_CW_SET_UDIM('state', 0, myThid)
177          CALL MNC_CW_RL_W_D('state',0,0,'model_time',myTime, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'model_time',myTime, myThid)
178          CALL MNC_CW_RL_W_D('state',0,0,'U', uVel, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'U', uVel, myThid)
179          CALL MNC_CW_RL_W_D('state',0,0,'V', vVel, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'V', vVel, myThid)
180          CALL MNC_CW_RL_W_D('state',0,0,'T', theta, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'T', theta, myThid)
181          CALL MNC_CW_RL_W_D('state',0,0,'S', salt, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'S', salt, myThid)
182          CALL MNC_CW_RL_W_D('state',0,0,'Eta', etaN, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'Eta', etaN, myThid)
183          CALL MNC_CW_RL_W_D('state',0,0,'W', wVel, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'W', wVel, myThid)
184          IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN          IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN
185            CALL MNC_CW_SET_UDIM('totPhiHyd', -1, myThid)            CALL MNC_CW_SET_UDIM('totPhiHyd', -1, myThid)
186            CALL MNC_CW_RL_W_R('totPhiHyd',0,0,'iter',mnc_iter,myThid)            CALL MNC_CW_RL_W('R','totPhiHyd',0,0,'iter',mnc_iter,myThid)
187            CALL MNC_CW_SET_UDIM('totPhiHyd', 0, myThid)            CALL MNC_CW_SET_UDIM('totPhiHyd', 0, myThid)
188            CALL MNC_CW_RL_W_D('totPhiHyd',0,0,'totPhiHyd',            CALL MNC_CW_RL_W('D','totPhiHyd',0,0,'totPhiHyd',
189       &         totPhiHyd, myThid)       &         totPhiHyd, myThid)
190          ENDIF          ENDIF
191          IF ((buoyancyRelation .NE. 'ATMOSPHERIC')          IF ((buoyancyRelation .NE. 'ATMOSPHERIC')
192       &       .AND. (myIter .NE. nIter0)) THEN       &       .AND. (myIter .NE. nIter0)) THEN
193            CALL MNC_CW_SET_UDIM('phiHydLow', -1, myThid)            CALL MNC_CW_SET_UDIM('phiHydLow', -1, myThid)
194            CALL MNC_CW_RL_W_D('phiHydLow',0,0,'iter',mnc_iter,myThid)            CALL MNC_CW_RL_W('D','phiHydLow',0,0,'iter',mnc_iter,myThid)
195            CALL MNC_CW_SET_UDIM('phiHydLow', 0, myThid)            CALL MNC_CW_SET_UDIM('phiHydLow', 0, myThid)
196            CALL MNC_CW_RL_W_D('phiHydLow',0,0,'phiHydLow',            CALL MNC_CW_RL_W('D','phiHydLow',0,0,'phiHydLow',
197       &         phiHydLow, myThid)       &         phiHydLow, myThid)
198          ENDIF          ENDIF
199  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
200          CALL MNC_CW_RL_W_D('state',0,0,'tr1', tr1, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'tr1', tr1, myThid)
201  #endif /*  ALLOW_PASSIVE_TRACER  */  #endif /*  ALLOW_PASSIVE_TRACER  */
202  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
203          IF (nonHydroStatic) THEN          IF (nonHydroStatic) THEN
204            CALL MNC_CW_RL_W_D('state',0,0,'phi_nh', phi_nh, myThid)            CALL MNC_CW_RL_W('D','state',0,0,'phi_nh', phi_nh, myThid)
205          ENDIF          ENDIF
206  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
207        ENDIF        ENDIF
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22