/[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.12 by adcroft, Wed Dec 9 16:11:51 1998 UTC revision 1.13 by adcroft, Tue May 18 18:01:12 1999 UTC
# Line 29  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 39  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 ==
48  C     suff - Hold suffix part of a filename  C     suff - Hold suffix part of a filename
# Line 65  C--    Write "text-plots" of certain fie Line 68  C--    Write "text-plots" of certain fie
68         CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' ,         CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' ,
69       &                        myIter, myThid )       &                        myIter, myThid )
70    
71    #ifdef ALLOW_KPP
72           IF (KPPmixingMaps) THEN
73            CALL PLOT_FIELD_XYRL  ( KPPhbl    , 'KPPhbl'    ,
74         &                          myIter, myThid )
75            CALL PLOT_FIELD_XYZRL ( KPPviscAz , 'KPPviscAz' ,
76         &                          Nr, myIter, myThid )
77            CALL PLOT_FIELD_XYZRL ( KPPdiffKzT, 'KPPdiffKzT',
78         &                          Nr, myIter, myThid )
79            CALL PLOT_FIELD_XYZRL ( KPPghat   , 'KPPghat'   ,
80         &                          Nr, myIter, myThid )
81           ENDIF
82    #endif
83    
84        ENDIF        ENDIF
85    
86  C--   Write model state to binary file  C--   Write model state to binary file
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22