/[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.19 by adcroft, Tue Sep 4 14:44:54 2001 UTC revision 1.20 by adcroft, Thu Sep 13 17:43:55 2001 UTC
# Line 182  C--   Do "blocking" sends and receives f Line 182  C--   Do "blocking" sends and receives f
182        CALL DO_FIELDS_BLOCKING_EXCHANGES( myThid )        CALL DO_FIELDS_BLOCKING_EXCHANGES( myThid )
183        CALL TIMER_STOP ('BLOCKING_EXCHANGES  [THE_MAIN_LOOP]',myThid)        CALL TIMER_STOP ('BLOCKING_EXCHANGES  [THE_MAIN_LOOP]',myThid)
184    
185    #ifdef ALLOW_FLT
186    C--   Calculate float trajectories
187          IF (useFLT) THEN
188            CALL TIMER_START('FLOATS            [THE_MAIN_LOOP]',myThid)
189            CALL FLT_MAIN(myIter,myTime, myThid)
190            CALL TIMER_STOP ('FLOATS            [THE_MAIN_LOOP]',myThid)
191          ENDIF
192    #endif
193    
194  #ifndef EXCLUDE_MONITOR  #ifndef EXCLUDE_MONITOR
195  C--   Check status of solution (statistics, cfl, etc...)  C--   Check status of solution (statistics, cfl, etc...)
196        CALL MONITOR( myIter, myTime, myThid )        CALL MONITOR( myIter, myTime, myThid )
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22