/[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.15 by adcroft, Wed Apr 5 19:04:13 2000 UTC revision 1.16 by adcroft, Wed Jun 21 19:09:47 2000 UTC
# Line 30  C     == Global variables === Line 30  C     == Global variables ===
30  #include "PARAMS.h"  #include "PARAMS.h"
31  #include "DYNVARS.h"  #include "DYNVARS.h"
32  #include "CG2D.h"  #include "CG2D.h"
 #ifdef ALLOW_KPP  
 #include "KPPMIX.h"  
 #endif  
33    
34        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
35        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 68  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    
 #ifdef ALLOW_KPP  
        IF (KPPmixingMaps) THEN  
         CALL PLOT_FIELD_XYRL  ( KPPhbl    , 'KPPhbl'    ,  
      &                          myIter, myThid )  
         CALL PLOT_FIELD_XYZRL ( KPPviscAz , 'KPPviscAz' ,  
      &                          Nr, myIter, myThid )  
         CALL PLOT_FIELD_XYZRL ( KPPdiffKzT, 'KPPdiffKzT',  
      &                          Nr, myIter, myThid )  
         CALL PLOT_FIELD_XYZRL ( KPPghat   , 'KPPghat'   ,  
      &                          Nr, myIter, myThid )  
        ENDIF  
 #endif  
   
68        ENDIF        ENDIF
69    
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  C  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
74    C--   Do time averages
75          IF (taveFreq.GT.0.) THEN
76           CALL WRITE_TIME_AVERAGES( myCurrentTime, myIter, myThid )
77          ENDIF
78    #endif
79    
80    #ifdef ALLOW_GMREDI
81    C--   Do KPP diagnostics.
82          IF (use_GMRedi)
83         & CALL GMREDI_DIAGS( myCurrentTime, myIter, myThid )
84    #endif
85    
86    #ifdef ALLOW_KPP
87    C--   Do KPP diagnostics.
88          IF (use_KPPmixing)
89         & CALL KPP_DO_DIAGS( myCurrentTime, myIter, myThid )
90    #endif
91    
92        RETURN        RETURN
93        END        END
94    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22