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

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

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

revision 1.115 by jmc, Sat May 14 20:46:35 2005 UTC revision 1.116 by molod, Mon May 16 20:22:11 2005 UTC
# Line 654  C--   Do IO if needed. Line 654  C--   Do IO if needed.
654        CALL TIMER_STOP ('DO_THE_MODEL_IO     [FORWARD_STEP]',myThid)        CALL TIMER_STOP ('DO_THE_MODEL_IO     [FORWARD_STEP]',myThid)
655  #endif  #endif
656    
657    C AMM
658    C  Update fizhi timekeeping
659    C  WARNING: This call MUST remain AFTER do the model io
660    C            and BEFORE packages write pickup
661    #ifdef ALLOW_FIZHI
662          if( useFIZHI) then
663             CALL FIZHI_UPDATE_TIME ( myIter, myThid, deltaTclock )
664          endif
665    #endif
666    C AMM
667    
668  C--   Save state for restarts  C--   Save state for restarts
669        CALL TIMER_START('WRITE_CHECKPOINT    [FORWARD_STEP]',myThid)        CALL TIMER_START('WRITE_CHECKPOINT    [FORWARD_STEP]',myThid)
670        CALL PACKAGES_WRITE_PICKUP(        CALL PACKAGES_WRITE_PICKUP(
Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116
  ViewVC Help
Powered by ViewVC 1.1.22