/[MITgcm]/MITgcm/model/src/the_model_main.F
ViewVC logotype

Diff of /MITgcm/model/src/the_model_main.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by cnh, Wed Jun 10 02:41:11 1998 UTC revision 1.11 by cnh, Mon Jun 15 05:13:56 1998 UTC
# Line 111  C--   Set model initial conditions Line 111  C--   Set model initial conditions
111  C--   Begin time stepping loop  C--   Begin time stepping loop
112        DO I=1, nTimeSteps        DO I=1, nTimeSteps
113    
114  C--    Load offline tracer fields  C--    Load forcing/external data fields
115         IF ( MOD(myCurrentIter,numStepsPerPickup) .EQ. 1 ) THEN         CALL LOAD_EXTERNAL_FIELDS( myCurrentTime, myCurrentIter, myThid )
 C       I/O  
 C       o Writes to arrays are performed by their own thread (to ensure  
 C         physical memory allocation will pair with thread).  
 C       o Thread 1 reads into a buffer.  
 C       CALL LOAD_OFFLINE_FIELDS( myCurrentTime, myCurrentIter, myThid )  
        ENDIF  
116    
117  C--    Step forward fields and calculate time tendency terms  C--    Step forward fields and calculate time tendency terms
118         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22