/[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.18 by cnh, Sun Feb 4 14:38:46 2001 UTC revision 1.19 by jmc, Tue Mar 6 16:51:02 2001 UTC
# Line 30  C     == Global variables === Line 30  C     == Global variables ===
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
31  #include "PARAMS.h"  #include "PARAMS.h"
32  #include "DYNVARS.h"  #include "DYNVARS.h"
 #include "CG2D.h"  
33    
34        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
35        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 63  C--    Write "text-plots" of certain fie Line 62  C--    Write "text-plots" of certain fie
62       &                        Nr, myIter, myThid )       &                        Nr, myIter, myThid )
63         CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' ,         CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' ,
64       &                        Nr, myIter, myThid )       &                        Nr, myIter, myThid )
65         CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' ,         CALL PLOT_FIELD_XYRL( etaN  , 'Current etaN  ' ,
66       &                        myIter, myThid )       &                        myIter, myThid )
67    
68        ENDIF        ENDIF
# Line 71  C--    Write "text-plots" of certain fie Line 70  C--    Write "text-plots" of certain fie
70  C--   Write model state to binary file  C--   Write model state to binary file
71        CALL WRITE_STATE( forceOutput, myCurrentTime, myIter, myThid )        CALL WRITE_STATE( forceOutput, myCurrentTime, myIter, myThid )
72    
73  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef ALLOW_TIMEAVE
74  C--   Do time averages  C--   Do time averages
75        IF (taveFreq.GT.0.) THEN        IF (taveFreq.GT.0.) THEN
76         CALL WRITE_TIME_AVERAGES( myCurrentTime, myIter, myThid )         CALL TIMEAVE_STATV_WRITE( myCurrentTime, myIter, myThid )
77        ENDIF        ENDIF
78  #endif  #endif
79    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22