/[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.9 by cnh, Sat Aug 22 17:51:07 1998 UTC revision 1.10 by cnh, Wed Oct 28 03:11:37 1998 UTC
# Line 13  C     | to lump everything together and Line 13  C     | to lump everything together and
13  C     | and updating of forcing terms in a single place.         |  C     | and updating of forcing terms in a single place.         |
14  C     | The approach to IO used here is that writes are only     |  C     | The approach to IO used here is that writes are only     |
15  C     | performed by thread 1 and that a process only writes out |  C     | performed by thread 1 and that a process only writes out |
16  C     | its data ( since it doen't know about anyone elses data!)|  C     | its data ( it does not know about anyone elses data!)    |
17  C     | Reading on the other hand is assumed to be from a file   |  C     | Reading on the other hand is assumed to be from a file   |
18  C     | containing all the data for all the processes. Only the  |  C     | containing all the data for all the processes. Only the  |
19  C     | portion of data of interest to this process is actually  |  C     | portion of data of interest to this process is actually  |
20  C     | loaded. To work well this assumes the existence of some  |  C     | loaded. To work well this assumes the existence of some  |
21  C     | reliable tool to join datasets together at the end of a  |  C     | reliable tool to join datasets together at the end of a  |
22  C     | run.                                                     |  C     | run - see joinds.p                                       |
 C     | Notes                                                    |  
 C     | =====                                                    |  
 C     | We allow thread 2-nThreads to continue whilst thread 1   |  
 C     | does IO. The assumption is that the other threads won't  |  
 C     | do anything to update their interior regions before      |  
 C     | thread 1 has finished writing them out.                  |  
23  C     \==========================================================/  C     \==========================================================/
24    
25  C     == Global variables ===  C     == Global variables ===
# Line 51  C     suff - Hold suffix part of a filen Line 45  C     suff - Hold suffix part of a filen
45        CHARACTER*(MAX_LEN_FNAM) suff        CHARACTER*(MAX_LEN_FNAM) suff
46                
47    
48  C--   Generaly only thread 1 does IO here. It can't start until everyone's  C--   Generaly only thread 1 does IO here. It can not start until
49  C--   fields are ready.  C--   all threads fields are ready.
50        IF (        IF (
51       &  DIFFERENT_MULTIPLE(dumpFreq,myCurrentTime,myCurrentTime-deltaTClock)       &  DIFFERENT_MULTIPLE(dumpFreq,myCurrentTime,
52         &                     myCurrentTime-deltaTClock)
53       & ) THEN       & ) THEN
54    
55         _BARRIER         _BARRIER
56    
57  C--    Write "text-plots" of certain fields  C--    Write "text-plots" of certain fields
58         CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel  ' , Nr, myIter, myThid )         CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel  ' ,
59         CALL PLOT_FIELD_XYZRL( vVel , 'Current vVel  ' , Nr, myIter, myThid )       &                        Nr, myIter, myThid )
60         CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' , Nr, myIter, myThid )         CALL PLOT_FIELD_XYZRL( vVel , 'Current vVel  ' ,
61         CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' , myIter, myThid )       &                        Nr, myIter, myThid )
62           CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' ,
63         &                        Nr, myIter, myThid )
64           CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' ,
65         &                        myIter, myThid )
66    
67        ENDIF        ENDIF
68    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22