/[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.18 by mlosch, Wed Aug 7 16:55:52 2002 UTC revision 1.26 by edhill, Thu Jan 15 04:31:24 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  #undef  MULTIPLE_RECORD_STATE_FILES  #undef  MULTIPLE_RECORD_STATE_FILES
# Line 86  CEOP Line 88  CEOP
88       &     myTime.EQ.endTime .OR.       &     myTime.EQ.endTime .OR.
89       &     myTime.EQ.startTime       &     myTime.EQ.startTime
90       &     ) THEN       &     ) THEN
91           iRec = int ( (myTime-startTime) / dumpFreq +1.5 )           IF ( dumpFreq .EQ. 0.0 ) THEN
92                iRec = 1
93             ELSE
94                iRec = int ( (myTime-startTime) / dumpFreq +1.5 )
95             ENDIF
96                    
97  C--   Going to really do some IO. Make everyone except master thread wait.  C--   Going to really do some IO. Make everyone except master thread wait.
98           _BARRIER           _BARRIER
# Line 105  C       - creates relatively few files b Line 111  C       - creates relatively few files b
111          CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid)          CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid)
112          CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid)
113  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
114    ceh3 needs an IF ( usePASSIVE_TRACER ) THEN
115          CALL WRITE_REC_XYZ_RL( 'TR1',tr1,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'TR1',tr1,iRec,myIter,myThid)
116  #endif  #endif /* ALLOW_PASSIVE_TRACER */
117  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
118          IF (nonHydroStatic) THEN          IF (nonHydroStatic) THEN
119           CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid)           CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid)
120          ENDIF          ENDIF
121  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
122  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
123          CALL WRITE_REC_XYZ_RS('hFacC.',hFacC,iRec,myIter,myThid)  c       CALL WRITE_REC_XYZ_RS('hFacC.',hFacC,iRec,myIter,myThid)
124          CALL WRITE_FLD_XYZ_RS('hFacW.',hFacW,iRec,myIter,myThid)  c       CALL WRITE_REC_XYZ_RS('hFacW.',hFacW,iRec,myIter,myThid)
125          CALL WRITE_FLD_XYZ_RS('hFacS.',hFacS,iRec,myIter,myThid)  c       CALL WRITE_REC_XYZ_RS('hFacS.',hFacS,iRec,myIter,myThid)
126  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
127    
128  #else /* MULTIPLE_RECORD_STATE_FILES */  #else /* MULTIPLE_RECORD_STATE_FILES */
# Line 130  C         transfer analyse a particular Line 137  C         transfer analyse a particular
137          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)
138          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)
139          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)
140          CALL WRITE_FLD_XYZ_RL( 'P.',suff,pressure,myIter,myThid)          IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 )
141         &  CALL WRITE_FLD_XYZ_RL( 'PH.',suff,totPhiHyd,myIter,myThid)
142            IF (buoyancyRelation.NE.'ATMOSPHERIC' .AND. myIter.NE.nIter0)
143         &   CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
144  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
145    ceh3 needs an IF ( usePASSIVE_TRACER ) THEN
146          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)
147  #endif  #endif
148  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
# Line 140  C         transfer analyse a particular Line 151  C         transfer analyse a particular
151          ENDIF          ENDIF
152  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
153  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
154          CALL WRITE_FLD_XYZ_RS('hFacC.',suff,hFacC,myIter,myThid)  c       CALL WRITE_FLD_XYZ_RS('hFacC.',suff,hFacC,myIter,myThid)
155          CALL WRITE_FLD_XYZ_RS('hFacW.',suff,hFacW,myIter,myThid)  c       CALL WRITE_FLD_XYZ_RS('hFacW.',suff,hFacW,myIter,myThid)
156          CALL WRITE_FLD_XYZ_RS('hFacS.',suff,hFacS,myIter,myThid)  c       CALL WRITE_FLD_XYZ_RS('hFacS.',suff,hFacS,myIter,myThid)
157  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
158    
159  #endif /* MULTIPLE_RECORD_STATE_FILES */  #endif /* MULTIPLE_RECORD_STATE_FILES */
# Line 153  C         transfer analyse a particular Line 164  C         transfer analyse a particular
164           _END_MASTER( myThid )           _END_MASTER( myThid )
165           _BARRIER           _BARRIER
166    
167    #ifdef ALLOW_MNC
168    C      CALL MNC_W_...
169    #endif
170    
171        ENDIF        ENDIF
172    
173        RETURN        RETURN
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22