/[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.27 by dimitri, Tue Feb 18 05:33:53 2003 UTC revision 1.28 by jmc, Thu Jun 12 18:29:35 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 99  C--   Do AIM time averages Line 101  C--   Do AIM time averages
101        IF (useAIM)        IF (useAIM)
102       &  CALL AIM_WRITE_TAVE( myCurrentTime, myIter, myThid )       &  CALL AIM_WRITE_TAVE( myCurrentTime, myIter, myThid )
103  #endif                                                              #endif                                                            
104    #ifdef ALLOW_LAND
105    C--   Do LAND time averages
106          IF (useLAND)
107         &  CALL LAND_WRITE_TAVE( myCurrentTime, myIter, myThid )
108    #endif                                                            
109    
110  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
111  C--   Do KPP diagnostics.  C--   Do KPP diagnostics.
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22