/[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.21 by adcroft, Tue May 29 14:01:37 2001 UTC revision 1.22 by cnh, Wed Sep 26 18:09:14 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: DO_THE_MODEL_IO
8    C     !INTERFACE:
9        SUBROUTINE DO_THE_MODEL_IO(myCurrentTime, myIter, myThid)        SUBROUTINE DO_THE_MODEL_IO(myCurrentTime, myIter, myThid)
10  C     /==========================================================\  C     !DESCRIPTION: \bv
11  C     | SUBROUTINE DO_THE_MODEL_IO                               |  C     *==========================================================*
12  C     | o Controlling routine for IO in model main time-stepping |  C     | SUBROUTINE DO_THE_MODEL_IO                                
13  C     |   loop.                                                  |  C     | o Controlling routine for IO in model main time-stepping  
14  C     |==========================================================|  C     |   loop.                                                  
15  C     | Many systems do not have thread safe IO so it is easier  |  C     *==========================================================*
16  C     | to lump everything together and do dumping of fields     |  C     | Many systems do not have thread safe IO so it is easier  
17  C     | and updating of forcing terms in a single place.         |  C     | to lump everything together and do dumping of fields      
18  C     | The approach to IO used here is that writes are only     |  C     | and updating of forcing terms in a single place.          
19  C     | performed by thread 1 and that a process only writes out |  C     | The approach to IO used here is that writes are only      
20  C     | its data ( it does not know about anyone elses data!)    |  C     | performed by thread 1 and that a process only writes out  
21  C     | Reading on the other hand is assumed to be from a file   |  C     | its data ( it does not know about anyone elses data!)    
22  C     | containing all the data for all the processes. Only the  |  C     | Reading on the other hand is assumed to be from a file    
23  C     | portion of data of interest to this process is actually  |  C     | containing all the data for all the processes. Only the  
24  C     | loaded. To work well this assumes the existence of some  |  C     | portion of data of interest to this process is actually  
25  C     | reliable tool to join datasets together at the end of a  |  C     | loaded. To work well this assumes the existence of some  
26  C     | run - see joinds.p                                       |  C     | reliable tool to join datasets together at the end of a  
27  C     \==========================================================/  C     | run - see joinds.p                                        
28        IMPLICIT NONE  C     *==========================================================*
29    C     \ev
30    
31    C     !USES:
32          IMPLICIT NONE
33  C     == Global variables ===  C     == Global variables ===
34  #include "SIZE.h"  #include "SIZE.h"
35  #include "EEPARAMS.h"  #include "EEPARAMS.h"
36  #include "PARAMS.h"  #include "PARAMS.h"
37  #include "DYNVARS.h"  #include "DYNVARS.h"
   
38        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
39        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
40    
41    C     !INPUT/OUTPUT PARAMETERS:
42  C     == Routine arguments ==  C     == Routine arguments ==
43  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
44  C     myIter - Iteration number  C     myIter - Iteration number
# Line 41  C     myCurrentTime - Current time of si Line 47  C     myCurrentTime - Current time of si
47        INTEGER myIter        INTEGER myIter
48        _RL    myCurrentTime        _RL    myCurrentTime
49    
50  C     == Local variables ==  CEOP
51    
52  C--   Generaly only thread 1 does IO here. It can not start until  C--   Generaly only thread 1 does IO here. It can not start until
53  C--   all threads fields are ready.  C--   all threads fields are ready.
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22