/[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.8 by jmc, Wed Feb 14 22:50:10 2001 UTC revision 1.9 by jmc, Tue Mar 6 16:51:02 2001 UTC
# Line 54  C     == Global variables === Line 54  C     == Global variables ===
54  #include "EEPARAMS.h"  #include "EEPARAMS.h"
55  #include "PARAMS.h"  #include "PARAMS.h"
56  #include "DYNVARS.h"  #include "DYNVARS.h"
 #include "CG2D.h"  
57  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
58  #include "CG3D.h"  #include "CG3D.h"
59  #include "GW.h"  #include "GW.h"
# Line 98  C       - creates relatively few files b Line 97  C       - creates relatively few files b
97          CALL WRITE_REC_XYZ_RL( 'V',  vVel,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'V',  vVel,iRec,myIter,myThid)
98          CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid)
99          CALL WRITE_REC_XYZ_RL( 'S',  salt,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'S',  salt,iRec,myIter,myThid)
100          CALL WRITE_REC_XY_RL ('PS',cg2d_x,iRec,myIter,myThid)          CALL WRITE_REC_XY_RL ('PS',etaN,iRec,myIter,myThid)
101          CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid)
102  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
103          IF (nonHydroStatic) THEN          IF (nonHydroStatic) THEN
# Line 114  C         transfer analyse a particular Line 113  C         transfer analyse a particular
113          CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid)
114          CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid)
115          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)
116          CALL WRITE_FLD_XY_RL( 'PS.',suff,cg2d_x,myIter,myThid)          CALL WRITE_FLD_XY_RL( 'PS.',suff,etaN,myIter,myThid)
117          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)
118  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
119          IF (nonHydroStatic) THEN          IF (nonHydroStatic) THEN
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22