/[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.8 by jmc, Tue Feb 20 15:10:15 2001 UTC revision 1.9 by jmc, Tue Feb 20 22:08:57 2001 UTC
# Line 102  C--   Step forward all tiles, filter and Line 102  C--   Step forward all tiles, filter and
102        CALL SHAP_FILT_APPLY(        CALL SHAP_FILT_APPLY(
103       I                     gUnm1, gVnm1, gTnm1, gSnm1,       I                     gUnm1, gVnm1, gTnm1, gSnm1,
104       I                     myCurrentTime, myCurrentIter, myThid )       I                     myCurrentTime, myCurrentIter, myThid )
105          IF (implicDiv2Dflow.LT.1.) THEN
106    C--   Explicit+Implicit part of the Barotropic Flow Divergence
107    C      => Filtering of uVel,vVel is necessary
108             CALL SHAP_FILT_UV( uVel, vVel, myCurrentTime, myThid )
109          ENDIF
110        CALL TIMER_STOP ('SHAP_FILT          [FORWARD_STEP]',myThid)        CALL TIMER_STOP ('SHAP_FILT          [FORWARD_STEP]',myThid)
111  #endif  #endif
112    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22