/[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.13 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.14 by heimbach, Tue Aug 14 00:20:49 2001 UTC
# Line 53  C     == Global variables === Line 53  C     == Global variables ===
53  #include "EEPARAMS.h"  #include "EEPARAMS.h"
54  #include "PARAMS.h"  #include "PARAMS.h"
55  #include "DYNVARS.h"  #include "DYNVARS.h"
56    #ifdef ALLOW_PASSIVE_TRACER
57  #include "TR1.h"  #include "TR1.h"
58    #endif
59    
60        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
61        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 95  C       - creates relatively few files b Line 97  C       - creates relatively few files b
97          CALL WRITE_REC_XYZ_RL( 'S',  salt,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'S',  salt,iRec,myIter,myThid)
98          CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid)          CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid)
99          CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid)
100    #ifdef ALLOW_PASSIVE_TRACER
101          CALL WRITE_REC_XYZ_RL( 'TR1',tr1,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'TR1',tr1,iRec,myIter,myThid)
102    #endif
103  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
104          IF (nonHydroStatic) THEN          IF (nonHydroStatic) THEN
105           CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid)           CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid)
# Line 112  C         transfer analyse a particular Line 116  C         transfer analyse a particular
116          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)
117          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)
118          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)
119    #ifdef ALLOW_PASSIVE_TRACER
120          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)
121            #endif
122  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
123          IF (nonHydroStatic) THEN          IF (nonHydroStatic) THEN
124           CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid)           CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22