/[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.47 by edhill, Wed Oct 13 04:37:37 2004 UTC revision 1.48 by jmc, Tue Oct 19 02:39:58 2004 UTC
# Line 129  C         easier to transfer analyse a p Line 129  C         easier to transfer analyse a p
129            IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN            IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 ) THEN
130              CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid)              CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid)
131            ENDIF            ENDIF
132            IF ((buoyancyRelation.NE.'ATMOSPHERIC')            IF ( fluidIsWater .AND. (myIter.NE.nIter0) ) THEN
      &         .AND. (myIter.NE.nIter0)) THEN  
133              CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)              CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
134            ENDIF            ENDIF
135  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
# Line 176  C         Write dynvars using the MNC pa Line 175  C         Write dynvars using the MNC pa
175              CALL MNC_CW_RL_W('D','phiHyd',0,0,'phiHyd',              CALL MNC_CW_RL_W('D','phiHyd',0,0,'phiHyd',
176       &           totPhiHyd, myThid)       &           totPhiHyd, myThid)
177            ENDIF            ENDIF
178            IF ((buoyancyRelation .NE. 'ATMOSPHERIC')            IF ( fluidIsWater .AND. (myIter .NE. nIter0) ) THEN
      &         .AND. (myIter .NE. nIter0)) THEN  
179              CALL MNC_CW_SET_UDIM('phiHydLow', -1, myThid)              CALL MNC_CW_SET_UDIM('phiHydLow', -1, myThid)
180              CALL MNC_CW_I_W_S('I','phiHydLow',0,0,'iter',myIter,myThid)              CALL MNC_CW_I_W_S('I','phiHydLow',0,0,'iter',myIter,myThid)
181              CALL MNC_CW_SET_UDIM('phiHydLow', 0, myThid)              CALL MNC_CW_SET_UDIM('phiHydLow', 0, myThid)
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48
  ViewVC Help
Powered by ViewVC 1.1.22