/[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.20 by dimitri, Tue Feb 18 05:33:54 2003 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 109  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 134  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          if ( buoyancyRelation .eq. 'OCEANIC' .and.          IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 )
141       &       (    equationOfState .eq. 'JMD95P'       &  CALL WRITE_FLD_XYZ_RL( 'PH.',suff,totPhiHyd,myIter,myThid)
142       &       .or. equationOfState .eq. 'MDJWF'          IF (buoyancyRelation.NE.'ATMOSPHERIC' .AND. myIter.NE.nIter0)
143       &       .or. equationOfState .eq. 'UNESCO' ) ) then       &   CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
            CALL WRITE_FLD_XYZ_RL( 'P.',suff,pressure,myIter,myThid)  
         end if  
         if ( buoyancyRelation .ne. 'ATMOSPHERIC' )  
      &     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 151  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 164  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.20  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22