/[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.22 by jmc, Tue May 13 19:14:18 2003 UTC revision 1.31 by edhill, Thu Feb 5 05:42:07 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 78  C     !LOCAL VARIABLES: Line 80  C     !LOCAL VARIABLES:
80  C     == Local variables ==  C     == Local variables ==
81        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
82        INTEGER iRec        INTEGER iRec
83    #ifdef ALLOW_MNC
84          _RL mnc_d_iter
85    #endif
86  CEOP  CEOP
87    
88        IF (        IF (
# Line 109  C       - creates relatively few files b Line 114  C       - creates relatively few files b
114          CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid)          CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid)
115          CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid)
116  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
117    ceh3 needs an IF ( usePASSIVE_TRACER ) THEN
118          CALL WRITE_REC_XYZ_RL( 'TR1',tr1,iRec,myIter,myThid)          CALL WRITE_REC_XYZ_RL( 'TR1',tr1,iRec,myIter,myThid)
119  #endif  #endif /* ALLOW_PASSIVE_TRACER */
120  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
121          IF (nonHydroStatic) THEN          IF (nonHydroStatic) THEN
122           CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid)           CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid)
123          ENDIF          ENDIF
124  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
125  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
126          CALL WRITE_REC_XYZ_RS('hFacC.',hFacC,iRec,myIter,myThid)  c       CALL WRITE_REC_XYZ_RS('hFacC.',hFacC,iRec,myIter,myThid)
127          CALL WRITE_FLD_XYZ_RS('hFacW.',hFacW,iRec,myIter,myThid)  c       CALL WRITE_REC_XYZ_RS('hFacW.',hFacW,iRec,myIter,myThid)
128          CALL WRITE_FLD_XYZ_RS('hFacS.',hFacS,iRec,myIter,myThid)  c       CALL WRITE_REC_XYZ_RS('hFacS.',hFacS,iRec,myIter,myThid)
129  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
130    
131  #else /* MULTIPLE_RECORD_STATE_FILES */  #else /* MULTIPLE_RECORD_STATE_FILES */
# Line 136  C         transfer analyse a particular Line 142  C         transfer analyse a particular
142          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)
143          IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 )          IF ( useDynP_inEos_Zc .OR. myIter.NE.nIter0 )
144       &  CALL WRITE_FLD_XYZ_RL( 'PH.',suff,totPhiHyd,myIter,myThid)       &  CALL WRITE_FLD_XYZ_RL( 'PH.',suff,totPhiHyd,myIter,myThid)
145          IF ( buoyancyRelation .NE. 'ATMOSPHERIC' )          IF (buoyancyRelation.NE.'ATMOSPHERIC' .AND. myIter.NE.nIter0)
146       &   CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)       &   CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
147  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
148    ceh3 needs an IF ( usePASSIVE_TRACER ) THEN
149          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)
150  #endif  #endif
151  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
# Line 147  C         transfer analyse a particular Line 154  C         transfer analyse a particular
154          ENDIF          ENDIF
155  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
156  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
157          CALL WRITE_FLD_XYZ_RS('hFacC.',suff,hFacC,myIter,myThid)  c       CALL WRITE_FLD_XYZ_RS('hFacC.',suff,hFacC,myIter,myThid)
158          CALL WRITE_FLD_XYZ_RS('hFacW.',suff,hFacW,myIter,myThid)  c       CALL WRITE_FLD_XYZ_RS('hFacW.',suff,hFacW,myIter,myThid)
159          CALL WRITE_FLD_XYZ_RS('hFacS.',suff,hFacS,myIter,myThid)  c       CALL WRITE_FLD_XYZ_RS('hFacS.',suff,hFacS,myIter,myThid)
160  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
161    
162  #endif /* MULTIPLE_RECORD_STATE_FILES */  #endif /* MULTIPLE_RECORD_STATE_FILES */
# Line 160  C         transfer analyse a particular Line 167  C         transfer analyse a particular
167           _END_MASTER( myThid )           _END_MASTER( myThid )
168           _BARRIER           _BARRIER
169    
170    #ifdef ALLOW_MNC
171    C     Test the MNC package
172          mnc_d_iter = myIter
173          CALL MNC_CW_RL_W_R(myThid,'state',0,0,'iter',-1,mnc_d_iter)
174          CALL MNC_CW_RL_W_D(myThid,'state',0,0,'U', 0, uVel)
175          CALL MNC_CW_RL_W_D(myThid,'state',0,0,'V', 0, vVel)
176          CALL MNC_CW_RL_W_D(myThid,'state',0,0,'T', 0, theta)
177          CALL MNC_CW_RL_W_D(myThid,'state',0,0,'S', 0, salt)
178          CALL MNC_CW_RL_W_D(myThid,'state',0,0,'Eta', 0, etaN)
179          CALL MNC_CW_RL_W_D(myThid,'state',0,0,'W', 0, wVel)
180    #endif
181    
182        ENDIF        ENDIF
183    
184        RETURN        RETURN
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22