/[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.19 by jmc, Tue Mar 6 16:51:02 2001 UTC revision 1.20 by heimbach, Tue Apr 10 22:35:25 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6        SUBROUTINE DO_THE_MODEL_IO(        SUBROUTINE DO_THE_MODEL_IO(myCurrentTime, myIter, myThid)
      I          forceOutput, myCurrentTime, myIter, myThid)  
7  C     /==========================================================\  C     /==========================================================\
8  C     | SUBROUTINE DO_THE_MODEL_IO                               |  C     | SUBROUTINE DO_THE_MODEL_IO                               |
9  C     | o Controlling routine for IO in model main time-stepping |  C     | o Controlling routine for IO in model main time-stepping |
# Line 35  C     == Global variables === Line 34  C     == Global variables ===
34        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
35    
36  C     == Routine arguments ==  C     == Routine arguments ==
 C     forceOutput - If .TRUE. then force I/O, indepenent of other tests  
37  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
38  C     myIter - Iteration number  C     myIter - Iteration number
39  C     myCurrentTime - Current time of simulation ( s )  C     myCurrentTime - Current time of simulation ( s )
       LOGICAL forceOutput  
40        INTEGER myThid        INTEGER myThid
41        INTEGER myIter        INTEGER myIter
42        _RL    myCurrentTime        _RL    myCurrentTime
# Line 68  C--    Write "text-plots" of certain fie Line 65  C--    Write "text-plots" of certain fie
65        ENDIF        ENDIF
66    
67  C--   Write model state to binary file  C--   Write model state to binary file
68        CALL WRITE_STATE( forceOutput, myCurrentTime, myIter, myThid )        CALL WRITE_STATE( myCurrentTime, myIter, myThid )
69    
70  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
71  C--   Do time averages  C--   Do time averages
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22