/[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.58 by jmc, Thu Jul 10 16:09:01 2003 UTC revision 1.59 by jmc, Sun Aug 3 03:17:39 2003 UTC
# Line 269  C--   do exchanges (needed for DYNAMICS) Line 269  C--   do exchanges (needed for DYNAMICS)
269       &    CALL DEBUG_CALL('SHAP_FILT_APPLY_TS',myThid)       &    CALL DEBUG_CALL('SHAP_FILT_APPLY_TS',myThid)
270  #endif  #endif
271          CALL TIMER_START('SHAP_FILT           [FORWARD_STEP]',myThid)          CALL TIMER_START('SHAP_FILT           [FORWARD_STEP]',myThid)
272          CALL SHAP_FILT_APPLY_TS( gT, gS, myTime, myIter, myThid )          CALL SHAP_FILT_APPLY_TS(gT,gS,myTime+deltaT,myIter+1,myThid)
273          CALL TIMER_STOP ('SHAP_FILT           [FORWARD_STEP]',myThid)          CALL TIMER_STOP ('SHAP_FILT           [FORWARD_STEP]',myThid)
274        ENDIF        ENDIF
275  #endif  #endif
# Line 335  C--   Apply Filters to u*,v* before SOLV Line 335  C--   Apply Filters to u*,v* before SOLV
335  #ifdef ALLOW_SHAP_FILT  #ifdef ALLOW_SHAP_FILT
336        IF (useSHAP_FILT .AND. shap_filt_uvStar) THEN        IF (useSHAP_FILT .AND. shap_filt_uvStar) THEN
337          CALL TIMER_START('SHAP_FILT           [FORWARD_STEP]',myThid)          CALL TIMER_START('SHAP_FILT           [FORWARD_STEP]',myThid)
         CALL SHAP_FILT_APPLY_UV( gU,gV, myTime,myIter,myThid )  
338          IF (implicDiv2Dflow.LT.1.) THEN          IF (implicDiv2Dflow.LT.1.) THEN
339  C--   Explicit+Implicit part of the Barotropic Flow Divergence  C--   Explicit+Implicit part of the Barotropic Flow Divergence
340  C      => Filtering of uVel,vVel is necessary  C      => Filtering of uVel,vVel is necessary
341            CALL SHAP_FILT_APPLY_UV( uVel,vVel, myTime,myIter,myThid )            CALL SHAP_FILT_APPLY_UV( uVel,vVel,
342         &                             myTime+deltaT, myIter+1, myThid )
343          ENDIF          ENDIF
344            CALL SHAP_FILT_APPLY_UV( gU,gV,myTime+deltaT,myIter+1,myThid)
345          CALL TIMER_STOP ('SHAP_FILT           [FORWARD_STEP]',myThid)          CALL TIMER_STOP ('SHAP_FILT           [FORWARD_STEP]',myThid)
346        ENDIF        ENDIF
347  #endif  #endif
348  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
349        IF (useZONAL_FILT .AND. zonal_filt_uvStar) THEN        IF (useZONAL_FILT .AND. zonal_filt_uvStar) THEN
350          CALL TIMER_START('ZONAL_FILT_APPLY    [FORWARD_STEP]',myThid)          CALL TIMER_START('ZONAL_FILT_APPLY    [FORWARD_STEP]',myThid)
         CALL ZONAL_FILT_APPLY_UV( gU, gV, myThid )  
351          IF (implicDiv2Dflow.LT.1.) THEN          IF (implicDiv2Dflow.LT.1.) THEN
352  C--   Explicit+Implicit part of the Barotropic Flow Divergence  C--   Explicit+Implicit part of the Barotropic Flow Divergence
353  C      => Filtering of uVel,vVel is necessary  C      => Filtering of uVel,vVel is necessary
354            CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid )            CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid )
355          ENDIF          ENDIF
356            CALL ZONAL_FILT_APPLY_UV( gU, gV, myThid )
357          CALL TIMER_STOP ('ZONAL_FILT_APPLY    [FORWARD_STEP]',myThid)          CALL TIMER_STOP ('ZONAL_FILT_APPLY    [FORWARD_STEP]',myThid)
358        ENDIF        ENDIF
359  #endif    #endif  
Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59
  ViewVC Help
Powered by ViewVC 1.1.22