/[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.17 by adcroft, Mon Mar 4 17:26:41 2002 UTC revision 1.21 by jmc, Tue Feb 18 15:25:09 2003 UTC
# Line 56  C     == Global variables === Line 56  C     == Global variables ===
56  #include "PARAMS.h"  #include "PARAMS.h"
57  #include "DYNVARS.h"  #include "DYNVARS.h"
58  #include "GRID.h"  #include "GRID.h"
59    #include "EOS.h"
60  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
61  #include "TR1.h"  #include "TR1.h"
62  #endif  #endif
# Line 85  CEOP Line 86  CEOP
86       &     myTime.EQ.endTime .OR.       &     myTime.EQ.endTime .OR.
87       &     myTime.EQ.startTime       &     myTime.EQ.startTime
88       &     ) THEN       &     ) THEN
89           iRec = int ( (myTime-startTime) / dumpFreq +1.5 )           IF ( dumpFreq .EQ. 0.0 ) THEN
90                iRec = 1
91             ELSE
92                iRec = int ( (myTime-startTime) / dumpFreq +1.5 )
93             ENDIF
94                    
95  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.
96           _BARRIER           _BARRIER
# Line 129  C         transfer analyse a particular Line 134  C         transfer analyse a particular
134          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)
135          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)
136          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)
137            CALL WRITE_FLD_XYZ_RL( 'PH.',suff,totPhiHyd,myIter,myThid)
138            IF ( buoyancyRelation .NE. 'ATMOSPHERIC' )
139         &   CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
140  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
141          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)
142  #endif  #endif
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22