/[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.14 by adcroft, Mon Mar 27 22:25:44 2000 UTC
# Line 21  C     | loaded. To work well this assume Line 21  C     | loaded. To work well this assume
21  C     | reliable tool to join datasets together at the end of a  |  C     | reliable tool to join datasets together at the end of a  |
22  C     | run - see joinds.p                                       |  C     | run - see joinds.p                                       |
23  C     \==========================================================/  C     \==========================================================/
24          IMPLICIT NONE
25    
26  C     == Global variables ===  C     == Global variables ===
27  #include "SIZE.h"  #include "SIZE.h"
# Line 28  C     == Global variables === Line 29  C     == Global variables ===
29  #include "PARAMS.h"  #include "PARAMS.h"
30  #include "DYNVARS.h"  #include "DYNVARS.h"
31  #include "CG2D.h"  #include "CG2D.h"
32    #ifdef ALLOW_KPP
33    #include "KPPMIX.h"
34    #endif
35    
36        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
37        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 38  C     myIter - Iteration number Line 42  C     myIter - Iteration number
42  C     myCurrentTime - Current time of simulation ( s )  C     myCurrentTime - Current time of simulation ( s )
43        INTEGER myThid        INTEGER myThid
44        INTEGER myIter        INTEGER myIter
45        REAL    myCurrentTime        _RL    myCurrentTime
46    
47  C     == Local variables ==  C     == Local variables ==
 C     suff - Hold suffix part of a filename  
       CHARACTER*(MAX_LEN_FNAM) suff  
         
48    
49  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
50  C--   all threads fields are ready.  C--   all threads fields are ready.
# Line 64  C--    Write "text-plots" of certain fie Line 65  C--    Write "text-plots" of certain fie
65         CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' ,         CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' ,
66       &                        myIter, myThid )       &                        myIter, myThid )
67    
68    #ifdef ALLOW_KPP
69           IF (KPPmixingMaps) THEN
70            CALL PLOT_FIELD_XYRL  ( KPPhbl    , 'KPPhbl'    ,
71         &                          myIter, myThid )
72            CALL PLOT_FIELD_XYZRL ( KPPviscAz , 'KPPviscAz' ,
73         &                          Nr, myIter, myThid )
74            CALL PLOT_FIELD_XYZRL ( KPPdiffKzT, 'KPPdiffKzT',
75         &                          Nr, myIter, myThid )
76            CALL PLOT_FIELD_XYZRL ( KPPghat   , 'KPPghat'   ,
77         &                          Nr, myIter, myThid )
78           ENDIF
79    #endif
80    
81        ENDIF        ENDIF
82    
83  C--   Write model state to binary file  C--   Write model state to binary file
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22