/[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.85 by heimbach, Wed Mar 3 20:42:05 2004 UTC revision 1.86 by molod, Wed Mar 17 22:09:55 2004 UTC
# Line 485  C--   Check status of solution (statisti Line 485  C--   Check status of solution (statisti
485        CALL TIMER_STOP ('MONITOR             [FORWARD_STEP]',myThid)        CALL TIMER_STOP ('MONITOR             [FORWARD_STEP]',myThid)
486  #endif /* ALLOW_MONITOR */  #endif /* ALLOW_MONITOR */
487    
488    C AMM  -- Testing diagnostics package
489    #ifdef ALLOW_DIAGNOSTICS
490           if(usediagnostics)then
491            call diagnostics_fill_state(myThid)
492           endif
493    #endif
494    C AMM
495    
496  C--   Do IO if needed.  C--   Do IO if needed.
497        CALL TIMER_START('DO_THE_MODEL_IO     [FORWARD_STEP]',myThid)        CALL TIMER_START('DO_THE_MODEL_IO     [FORWARD_STEP]',myThid)
498        CALL DO_THE_MODEL_IO( myTime, myIter, myThid )        CALL DO_THE_MODEL_IO( myTime, myIter, myThid )
Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86
  ViewVC Help
Powered by ViewVC 1.1.22