/[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.11 by cnh, Fri Nov 6 22:44:45 1998 UTC revision 1.20 by heimbach, Tue Apr 10 22:35:25 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
# Line 21  C     | loaded. To work well this assume Line 22  C     | loaded. To work well this assume
22  C     | reliable tool to join datasets together at the end of a  |  C     | reliable tool to join datasets together at the end of a  |
23  C     | run - see joinds.p                                       |  C     | run - see joinds.p                                       |
24  C     \==========================================================/  C     \==========================================================/
25          IMPLICIT NONE
26    
27  C     == Global variables ===  C     == Global variables ===
28  #include "SIZE.h"  #include "SIZE.h"
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30  #include "PARAMS.h"  #include "PARAMS.h"
31  #include "DYNVARS.h"  #include "DYNVARS.h"
 #include "CG2D.h"  
32    
33        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
34        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 38  C     myIter - Iteration number Line 39  C     myIter - Iteration number
39  C     myCurrentTime - Current time of simulation ( s )  C     myCurrentTime - Current time of simulation ( s )
40        INTEGER myThid        INTEGER myThid
41        INTEGER myIter        INTEGER myIter
42        REAL    myCurrentTime        _RL    myCurrentTime
43    
44  C     == Local variables ==  C     == Local variables ==
 C     suff - Hold suffix part of a filename  
       CHARACTER*(MAX_LEN_FNAM) suff  
         
45    
46  C--   Generaly only thread 1 does IO here. It can not start until  C--   Generaly only thread 1 does IO here. It can not start until
47  C--   all threads fields are ready.  C--   all threads fields are ready.
# Line 61  C--    Write "text-plots" of certain fie Line 59  C--    Write "text-plots" of certain fie
59       &                        Nr, myIter, myThid )       &                        Nr, myIter, myThid )
60         CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' ,         CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' ,
61       &                        Nr, myIter, myThid )       &                        Nr, myIter, myThid )
62         CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' ,         CALL PLOT_FIELD_XYRL( etaN  , 'Current etaN  ' ,
63       &                        myIter, myThid )       &                        myIter, myThid )
64    
65        ENDIF        ENDIF
66    
67  C--   Write model state to binary file  C--   Write model state to binary file
68        CALL WRITE_STATE( .FALSE., myCurrentTime, myIter, myThid )        CALL WRITE_STATE( myCurrentTime, myIter, myThid )
69    
70    #ifdef ALLOW_TIMEAVE
71    C--   Do time averages
72          IF (taveFreq.GT.0.) THEN
73           CALL TIMEAVE_STATV_WRITE( myCurrentTime, myIter, myThid )
74          ENDIF
75    #endif
76    
77    #ifdef ALLOW_GMREDI
78    C--   Do KPP diagnostics.
79          IF (useGMRedi)
80         & CALL GMREDI_DIAGS( myCurrentTime, myIter, myThid )
81    #endif
82    
83    #ifdef ALLOW_KPP
84    C--   Do KPP diagnostics.
85          IF (useKPP)
86         & CALL KPP_DO_DIAGS( myCurrentTime, myIter, myThid )
87    #endif
88    
 C  
89        RETURN        RETURN
90        END        END
91    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22