/[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.14 by adcroft, Mon Mar 27 22:25:44 2000 UTC revision 1.15 by adcroft, Wed Apr 5 19:04:13 2000 UTC
# Line 2  C $Header$ Line 2  C $Header$
2    
3  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5        SUBROUTINE DO_THE_MODEL_IO(myCurrentTime, myIter, myThid)        SUBROUTINE DO_THE_MODEL_IO(
6         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 37  C     == Global variables === Line 38  C     == Global variables ===
38        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
39    
40  C     == Routine arguments ==  C     == Routine arguments ==
41    C     forceOutput - If .TRUE. then force I/O, indepenent of other tests
42  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
43  C     myIter - Iteration number  C     myIter - Iteration number
44  C     myCurrentTime - Current time of simulation ( s )  C     myCurrentTime - Current time of simulation ( s )
45          LOGICAL forceOutput
46        INTEGER myThid        INTEGER myThid
47        INTEGER myIter        INTEGER myIter
48        _RL    myCurrentTime        _RL    myCurrentTime
# Line 81  C--    Write "text-plots" of certain fie Line 84  C--    Write "text-plots" of certain fie
84        ENDIF        ENDIF
85    
86  C--   Write model state to binary file  C--   Write model state to binary file
87        CALL WRITE_STATE( .FALSE., myCurrentTime, myIter, myThid )        CALL WRITE_STATE( forceOutput, myCurrentTime, myIter, myThid )
88    
89  C  C
90        RETURN        RETURN
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22