/[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.49 by heimbach, Thu Feb 6 22:42:11 2003 UTC revision 1.50 by dimitri, Tue Feb 18 05:33:54 2003 UTC
# Line 77  C     mythid - thread number for this in Line 77  C     mythid - thread number for this in
77        _RL     mytime        _RL     mytime
78  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
79        INTEGER bi,bj        INTEGER bi,bj
80  #endif ALLOW_BULK_FORCE  #endif
81    
82  CEOP  CEOP
83    
# Line 197  C     theta is dumped or time-averaged. Line 197  C     theta is dumped or time-averaged.
197           CALL SEAICE_MODEL( myTime, myIter, myThid )           CALL SEAICE_MODEL( myTime, myIter, myThid )
198           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)
199        ENDIF        ENDIF
200  # endif ALLOW_SEAICE  # endif /* ALLOW_SEAICE */
201  #endif ALLOW_BULK_FORCE  #endif /* ALLOW_BULK_FORCE */
202    
203  C--     Step forward fields and calculate time tendency terms.  C--     Step forward fields and calculate time tendency terms.
204          CALL TIMER_START('THERMODYNAMICS      [FORWARD_STEP]',mythid)          CALL TIMER_START('THERMODYNAMICS      [FORWARD_STEP]',mythid)
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22