/[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.2 by cnh, Fri Apr 24 02:05:42 1998 UTC revision 1.4 by cnh, Fri Apr 24 03:24:29 1998 UTC
# Line 52  C--   Set model initial conditions Line 52  C--   Set model initial conditions
52    
53  C--   Begin time stepping loop  C--   Begin time stepping loop
54        DO I=1, nTimeSteps        DO I=1, nTimeSteps
55    
56  C--    Do IO if needed.  C--    Do IO if needed.
57         CALL DO_THE_MODEL_IO( myCurrentIter, myThid )         CALL DO_THE_MODEL_IO( myCurrentIter, myThid )
58    
# Line 85  C*P*   CALL CHECKPOINT( myThid ) Line 86  C*P*   CALL CHECKPOINT( myThid )
86    
87        RETURN        RETURN
88        END        END
   
 C $Id$  

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.22