/[MITgcm]/MITgcm/model/src/do_the_model_io.F

Diff of /MITgcm/model/src/do_the_model_io.F

Parent Directory | 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.23 by cheisey,
Fri Nov 15 19:58:21 2002 UTC
 Line 3 
 C $Name$
  #include "CPP_OPTIONS.h"
-       SUBROUTINE DO_THE_MODEL_IO(
+ CBOP
-      I          forceOutput, myCurrentTime, myIter, myThid)
+ C     !ROUTINE: DO_THE_MODEL_IO
- C     /==========================================================\
+ C     !INTERFACE:
- C     | SUBROUTINE DO_THE_MODEL_IO                               |
+       SUBROUTINE DO_THE_MODEL_IO(myCurrentTime, myIter, myThid)
- C     | o Controlling routine for IO in model main time-stepping |
+ C     !DESCRIPTION: \bv
- C     |   loop.                                                  |
+ C     *==========================================================*
- C     |==========================================================|
+ C     | SUBROUTINE DO_THE_MODEL_IO
- C     | Many systems do not have thread safe IO so it is easier  |
+ C     | o Controlling routine for IO in model main time-stepping
- C     | to lump everything together and do dumping of fields     |
+ C     |   loop.
- C     | and updating of forcing terms in a single place.         |
+ C     *==========================================================*
- C     | The approach to IO used here is that writes are only     |
+ C     | Many systems do not have thread safe IO so it is easier
- C     | performed by thread 1 and that a process only writes out |
+ C     | to lump everything together and do dumping of fields
- C     | its data ( it does not know about anyone elses data!)    |
+ C     | and updating of forcing terms in a single place.
- C     | Reading on the other hand is assumed to be from a file   |
+ C     | The approach to IO used here is that writes are only
- C     | containing all the data for all the processes. Only the  |
+ C     | performed by thread 1 and that a process only writes out
- C     | portion of data of interest to this process is actually  |
+ C     | its data ( it does not know about anyone elses data!)
- C     | loaded. To work well this assumes the existence of some  |
+ C     | Reading on the other hand is assumed to be from a file
- C     | reliable tool to join datasets together at the end of a  |
+ C     | containing all the data for all the processes. Only the
- C     | run - see joinds.p                                       |
+ C     | portion of data of interest to this process is actually
- C     \==========================================================/
+ C     | loaded. To work well this assumes the existence of some
-       IMPLICIT NONE
+ C     | reliable tool to join datasets together at the end of a
+ C     | run - see joinds.p
+ C     *==========================================================*
+ C     \ev
+ C     !USES:
+       IMPLICIT NONE
  C     == Global variables ===
  #include "SIZE.h"
  #include "EEPARAMS.h"
  #include "PARAMS.h"
  #include "DYNVARS.h"
- #include "CG2D.h"
+ cswdblk --- add ---
+ #ifdef ALLOW_BULKFORMULA
+ #include "BULKF.h"
+ #include "FFIELDS.h"
+ #endif
+ cswdblk -- end add ---
+ cswdice -- add ---
+ #ifdef ALLOW_TSEAICE
+ #include "ICE.h"
+ #include "ICE_DIAGS.h"
+ #endif
+ cswdice -- end add ---
        LOGICAL  DIFFERENT_MULTIPLE
        EXTERNAL DIFFERENT_MULTIPLE
+ C     !INPUT/OUTPUT PARAMETERS:
  C     == Routine arguments ==
- C     forceOutput - If .TRUE. then force I/O, indepenent of other tests
  C     myThid - Thread number for this instance of the routine.
  C     myIter - Iteration number
  C     myCurrentTime - Current time of simulation ( s )
-       LOGICAL forceOutput
        INTEGER myThid
        INTEGER myIter
        _RL    myCurrentTime
- C     == Local variables ==
+ CEOP
  C--   Generaly only thread 1 does IO here. It can not start until
  C--   all threads fields are ready.
-Line 63 
 C--    Write "text-plots" of certain fie
+Line 80 
 C--    Write "text-plots" of certain fie
       &                        Nr, myIter, myThid )
         CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' ,
       &                        Nr, myIter, myThid )
-        CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' ,
+        CALL PLOT_FIELD_XYRL( etaN  , 'Current etaN  ' ,
       &                        myIter, myThid )
        ENDIF
  C--   Write model state to binary file
-       CALL WRITE_STATE( forceOutput, myCurrentTime, myIter, myThid )
+       CALL WRITE_STATE( myCurrentTime, myIter, myThid )
- #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
+ #ifdef ALLOW_TIMEAVE
  C--   Do time averages
        IF (taveFreq.GT.0.) THEN
-        CALL WRITE_TIME_AVERAGES( myCurrentTime, myIter, myThid )
+        CALL TIMEAVE_STATV_WRITE( myCurrentTime, myIter, myThid )
+ #ifdef ALLOW_AIM
+        IF (useAIM)
+      &  CALL AIM_WRITE_DIAGS( myCurrentTime, myIter, myThid )
+ #endif
        ENDIF
  #endif
-Line 90 
 C--   Do KPP diagnostics.
+Line 111 
 C--   Do KPP diagnostics.
       & CALL KPP_DO_DIAGS( myCurrentTime, myIter, myThid )
  #endif
+ cswdblk ---  add ---
+ #ifdef ALLOW_BULKFORMULA
+ C--   Do bulkf diagnostics.
+       IF (useBulkf)
+      & CALL BULKF_DIAGS( myCurrentTime, myIter, myThid )
+ #endif
+ cswdblk -- end add ---
+ cswdice ---  add ---
+ #ifdef ALLOW_TSEAICE
+ C--   Do seaice diagnostics.
+       IF (useSeaice)
+      & CALL ICE_DIAGS( myCurrentTime, myIter, myThid )
+ #endif
+ cswdice -- end add ---
        RETURN
        END

 Legend:



Removed from v.1.18
 


changed lines


 
Added in v.1.23
 Legend:



Removed from v.1.18
 


changed lines


 
Added in v.1.23
-Removed from v.1.18
+Added in v.1.23

	ViewVC Help
Powered by ViewVC 1.1.22