/[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.11 by cnh,
Fri Nov  6 22:44:45 1998 UTC
+revision 1.26 by jmc,
Fri Jan  3 03:52:44 2003 UTC
 Line 1
  C $Header$
+ C $Name$
  #include "CPP_OPTIONS.h"
+ CBOP
+ C     !ROUTINE: DO_THE_MODEL_IO
+ C     !INTERFACE:
        SUBROUTINE DO_THE_MODEL_IO(myCurrentTime, myIter, myThid)
- C     /==========================================================\
+ C     !DESCRIPTION: \bv
- C     | SUBROUTINE DO_THE_MODEL_IO                               |
+ C     *==========================================================*
- C     | o Controlling routine for IO in model main time-stepping |
+ C     | SUBROUTINE DO_THE_MODEL_IO
- C     |   loop.                                                  |
+ C     | o Controlling routine for IO in model main time-stepping
- C     |==========================================================|
+ C     |   loop.
- C     | Many systems do not have thread safe IO so it is easier  |
+ C     *==========================================================*
- C     | to lump everything together and do dumping of fields     |
+ C     | Many systems do not have thread safe IO so it is easier
- C     | and updating of forcing terms in a single place.         |
+ C     | to lump everything together and do dumping of fields
- C     | The approach to IO used here is that writes are only     |
+ C     | and updating of forcing terms in a single place.
- C     | performed by thread 1 and that a process only writes out |
+ C     | The approach to IO used here is that writes are only
- C     | its data ( it does not know about anyone elses data!)    |
+ C     | performed by thread 1 and that a process only writes out
- C     | Reading on the other hand is assumed to be from a file   |
+ C     | its data ( it does not know about anyone elses data!)
- C     | containing all the data for all the processes. Only the  |
+ C     | Reading on the other hand is assumed to be from a file
- C     | portion of data of interest to this process is actually  |
+ C     | containing all the data for all the processes. Only the
- C     | loaded. To work well this assumes the existence of some  |
+ C     | portion of data of interest to this process is actually
- C     | reliable tool to join datasets together at the end of a  |
+ C     | loaded. To work well this assumes the existence of some
- C     | run - see joinds.p                                       |
+ C     | reliable tool to join datasets together at the end of a
- C     \==========================================================/
+ 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_BULK_FORCE
+ #include "BULKF.h"
+ #include "FFIELDS.h"
+ #endif
+ cswdblk -- end add ---
+ cswdice -- add ---
+ #ifdef ALLOW_THERM_SEAICE
+ #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     myThid - Thread number for this instance of the routine.
  C     myIter - Iteration number
  C     myCurrentTime - Current time of simulation ( s )
        INTEGER myThid
        INTEGER myIter
-       REAL    myCurrentTime
+       _RL    myCurrentTime
- C     == Local variables ==
+ CEOP
- C     suff - Hold suffix part of a filename
-       CHARACTER*(MAX_LEN_FNAM) suff
  C--   Generaly only thread 1 does IO here. It can not start until
  C--   all threads fields are ready.
-Line 61 
 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( .FALSE., myCurrentTime, myIter, myThid )
+       CALL WRITE_STATE( myCurrentTime, myIter, myThid )
+ #ifdef ALLOW_TIMEAVE
+ C--   Do time averages
+       IF (taveFreq.GT.0.) THEN
+        CALL TIMEAVE_STATV_WRITE( myCurrentTime, myIter, myThid )
+       ENDIF
+ #endif
+ #ifdef ALLOW_AIM
+ C--   Do AIM time averages
+       IF (useAIM)
+      &  CALL AIM_WRITE_TAVE( myCurrentTime, myIter, myThid )
+ #endif
+ #ifdef ALLOW_GMREDI
+ C--   Do KPP diagnostics.
+       IF (useGMRedi)
+      & CALL GMREDI_DIAGS( myCurrentTime, myIter, myThid )
+ #endif
+ #ifdef ALLOW_KPP
+ C--   Do KPP diagnostics.
+       IF (useKPP)
+      & CALL KPP_DO_DIAGS( myCurrentTime, myIter, myThid )
+ #endif
+ cswdblk ---  add ---
+ #ifdef ALLOW_BULK_FORCE
+ C--   Do bulkf diagnostics.
+       IF (useBulkforce)
+      & CALL BULKF_DIAGS( myCurrentTime, myIter, myThid )
+ #endif
+ cswdblk -- end add ---
+ cswdice ---  add ---
+ #ifdef ALLOW_THERM_SEAICE
+ C--   Do seaice diagnostics.
+       IF (useThermSeaice)
+      & CALL ICE_DIAGS( myCurrentTime, myIter, myThid )
+ #endif
+ cswdice -- end add ---
- C
        RETURN
        END

 Legend:



Removed from v.1.11
 


changed lines


 
Added in v.1.26
 Legend:



Removed from v.1.11
 


changed lines


 
Added in v.1.26
-Removed from v.1.11
+Added in v.1.26

	ViewVC Help
Powered by ViewVC 1.1.22