/[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.40 by jmc, Fri Jul 2 17:43:04 2004 UTC revision 1.41 by edhill, Mon Jul 5 16:39:29 2004 UTC
# Line 78  C     myTime - Current time of simulatio Line 78  C     myTime - Current time of simulatio
78  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
79        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
80        INTEGER iRec        INTEGER iRec
 #ifdef ALLOW_MNC  
       _RL mnc_iter  
 #endif  
81  CEOP  CEOP
82    
83        IF (        IF (
# Line 168  c       CALL WRITE_FLD_XYZ_RS('hFacS.',s Line 165  c       CALL WRITE_FLD_XYZ_RS('hFacS.',s
165  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
166        IF (useMNC) THEN        IF (useMNC) THEN
167  C       Write dynvars using the MNC package  C       Write dynvars using the MNC package
         mnc_iter = myIter  
168          CALL MNC_CW_SET_UDIM('state', -1, myThid)          CALL MNC_CW_SET_UDIM('state', -1, myThid)
169          CALL MNC_CW_RL_W('D','state',0,0,'iter',mnc_iter, myThid)          CALL MNC_CW_I_W('I','state',0,0,'iter', myIter, myThid)
170          CALL MNC_CW_SET_UDIM('state', 0, myThid)          CALL MNC_CW_SET_UDIM('state', 0, myThid)
171          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)
172          CALL MNC_CW_RL_W('D','state',0,0,'U', uVel, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'U', uVel, myThid)
# Line 181  C       Write dynvars using the MNC pack Line 177  C       Write dynvars using the MNC pack
177          CALL MNC_CW_RL_W('D','state',0,0,'W', wVel, myThid)          CALL MNC_CW_RL_W('D','state',0,0,'W', wVel, myThid)
178          IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN          IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN
179            CALL MNC_CW_SET_UDIM('phiHyd', -1, myThid)            CALL MNC_CW_SET_UDIM('phiHyd', -1, myThid)
180            CALL MNC_CW_RL_W('R','phiHyd',0,0,'iter',mnc_iter,myThid)            CALL MNC_CW_I_W('I','phiHyd',0,0,'iter',myIter,myThid)
181            CALL MNC_CW_SET_UDIM('phiHyd', 0, myThid)            CALL MNC_CW_SET_UDIM('phiHyd', 0, myThid)
182            CALL MNC_CW_RL_W('D','phiHyd',0,0,'phiHyd',            CALL MNC_CW_RL_W('D','phiHyd',0,0,'phiHyd',
183       &         totPhiHyd, myThid)       &         totPhiHyd, myThid)
# Line 189  C       Write dynvars using the MNC pack Line 185  C       Write dynvars using the MNC pack
185          IF ((buoyancyRelation .NE. 'ATMOSPHERIC')          IF ((buoyancyRelation .NE. 'ATMOSPHERIC')
186       &       .AND. (myIter .NE. nIter0)) THEN       &       .AND. (myIter .NE. nIter0)) THEN
187            CALL MNC_CW_SET_UDIM('phiHydLow', -1, myThid)            CALL MNC_CW_SET_UDIM('phiHydLow', -1, myThid)
188            CALL MNC_CW_RL_W('D','phiHydLow',0,0,'iter',mnc_iter,myThid)            CALL MNC_CW_I_W('I','phiHydLow',0,0,'iter',myIter,myThid)
189            CALL MNC_CW_SET_UDIM('phiHydLow', 0, myThid)            CALL MNC_CW_SET_UDIM('phiHydLow', 0, myThid)
190            CALL MNC_CW_RL_W('D','phiHydLow',0,0,'phiHydLow',            CALL MNC_CW_RL_W('D','phiHydLow',0,0,'phiHydLow',
191       &         phiHydLow, myThid)       &         phiHydLow, myThid)
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22