/[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.86 by molod, Wed Mar 17 22:09:55 2004 UTC revision 1.87 by molod, Wed Mar 24 22:19:50 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  C AMM  -- Diagnostics package
489  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
490    
491         if(usediagnostics)then         if(usediagnostics)then
492          call diagnostics_fill_state(myThid)          call diagnostics_fill_state(myThid)
493         endif         endif
494    
495    # ifdef ALLOW_PTRACERS
496          if(useptracers)then
497           call diagnostics_fill_ptracers(myThid)
498          endif
499    # endif
500    
501  #endif  #endif
502  C AMM  C AMM
503    
Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87
  ViewVC Help
Powered by ViewVC 1.1.22