/[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.40 by cheisey, Thu Nov 21 19:11:42 2002 UTC revision 1.41 by jmc, Sat Nov 23 21:47:03 2002 UTC
# Line 167  cswdblk -- end add --- Line 167  cswdblk -- end add ---
167  C--   Call sea ice model to compute forcing/external data fields.  C--   Call sea ice model to compute forcing/external data fields.
168          IF ( useSEAICE ) THEN          IF ( useSEAICE ) THEN
169           CALL TIMER_START('SEAICE_MODEL       [FORWARD_STEP]',myThid)           CALL TIMER_START('SEAICE_MODEL       [FORWARD_STEP]',myThid)
170  Cxxxx         CALL SEAICE_MODEL( myTime, myIter, myThid )           CALL SEAICE_MODEL( myTime, myIter, myThid )
171           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)           CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)
172          ENDIF          ENDIF
173  #endif ALLOW_SEAICE  #endif ALLOW_SEAICE
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22