/[MITgcm]/MITgcm/model/src/do_the_model_io.F
ViewVC logotype

Diff of /MITgcm/model/src/do_the_model_io.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.25 by jmc, Fri Nov 22 03:01:18 2002 UTC revision 1.31 by heimbach, Fri Jun 27 01:51:10 2003 UTC
# Line 73  C--   all threads fields are ready. Line 73  C--   all threads fields are ready.
73    
74         _BARRIER         _BARRIER
75    
76           IF (debugMode) THEN
77  C--    Write "text-plots" of certain fields  C--    Write "text-plots" of certain fields
78         CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel  ' ,         CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel  ' ,
79       &                        Nr, myIter, myThid )       &                        Nr, myIter, myThid )
# Line 82  C--    Write "text-plots" of certain fie Line 83  C--    Write "text-plots" of certain fie
83       &                        Nr, myIter, myThid )       &                        Nr, myIter, myThid )
84         CALL PLOT_FIELD_XYRL( etaN  , 'Current etaN  ' ,         CALL PLOT_FIELD_XYRL( etaN  , 'Current etaN  ' ,
85       &                        myIter, myThid )       &                        myIter, myThid )
86           ENDIF
87    
88        ENDIF        ENDIF
89    
# Line 92  C--   Write model state to binary file Line 94  C--   Write model state to binary file
94  C--   Do time averages  C--   Do time averages
95        IF (taveFreq.GT.0.) THEN        IF (taveFreq.GT.0.) THEN
96         CALL TIMEAVE_STATV_WRITE( myCurrentTime, myIter, myThid )         CALL TIMEAVE_STATV_WRITE( myCurrentTime, myIter, myThid )
97    cswdptr -- add ---
98    #ifdef ALLOW_PTRACERS
99           CALL PTRACERS_STATV_WRITE( myCurrentTime, myIter, myThid )
100    #endif
101    cswdptr -- end add ---
102          ENDIF
103    #endif
104  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
105         IF (useAIM)  C--   Do AIM time averages
106          IF (useAIM)
107       &  CALL AIM_WRITE_TAVE( myCurrentTime, myIter, myThid )       &  CALL AIM_WRITE_TAVE( myCurrentTime, myIter, myThid )
108  #endif                                                              #endif                                                            
109        ENDIF  #ifdef ALLOW_LAND
110    C--   Do LAND time averages
111          IF (useLAND)
112         &  CALL LAND_WRITE_TAVE( myCurrentTime, myIter, myThid )
113    #endif                                                            
114    
115    #ifdef ALLOW_OBCS
116          IF (useOBCS)
117         & CALL OBCS_DIAGS( myCurrentTime, myIter, myThid )
118  #endif  #endif
119    
120  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
# Line 111  C--   Do KPP diagnostics. Line 129  C--   Do KPP diagnostics.
129       & CALL KPP_DO_DIAGS( myCurrentTime, myIter, myThid )       & CALL KPP_DO_DIAGS( myCurrentTime, myIter, myThid )
130  #endif  #endif
131    
132    #ifdef ALLOW_SBO
133    C--   Do SBO diagnostics.
134          IF (useSBO) THEN
135             CALL SBO_CALC ( myCurrentTime, myIter, myThid )
136             CALL SBO_DIAGS( myCurrentTime, myIter, myThid )
137          ENDIF
138    #endif
139    
140  cswdblk ---  add ---  cswdblk ---  add ---
141  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
142  C--   Do bulkf diagnostics.  C--   Do bulkf diagnostics.
# Line 127  C--   Do seaice diagnostics. Line 153  C--   Do seaice diagnostics.
153  #endif  #endif
154  cswdice -- end add ---  cswdice -- end add ---
155    
156    cswdptr ---  add ---
157    #ifdef ALLOW_GCHEM
158    C--   Do ptracer diagnostics.
159          IF (usePTRACERS)
160         & CALL GCHEM_DIAGS( myCurrentTime, myIter, myThid )
161    #endif
162    cswdptr -- end add ---
163    
164    
165        RETURN        RETURN
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22