/[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.51 by heimbach, Fri Feb 28 02:20:52 2003 UTC revision 1.52 by jmc, Thu Apr 17 13:40:06 2003 UTC
# Line 268  C--   Apply Filters to u*,v* before SOLV Line 268  C--   Apply Filters to u*,v* before SOLV
268  #ifdef ALLOW_SHAP_FILT  #ifdef ALLOW_SHAP_FILT
269        IF (useSHAP_FILT .AND. shap_filt_uvStar) THEN        IF (useSHAP_FILT .AND. shap_filt_uvStar) THEN
270          CALL TIMER_START('SHAP_FILT           [FORWARD_STEP]',myThid)          CALL TIMER_START('SHAP_FILT           [FORWARD_STEP]',myThid)
271          CALL SHAP_FILT_APPLY_UV( gUnm1,gVnm1, myTime,myIter,myThid )          CALL SHAP_FILT_APPLY_UV( gU,gV, myTime,myIter,myThid )
272          IF (implicDiv2Dflow.LT.1.) THEN          IF (implicDiv2Dflow.LT.1.) THEN
273  C--   Explicit+Implicit part of the Barotropic Flow Divergence  C--   Explicit+Implicit part of the Barotropic Flow Divergence
274  C      => Filtering of uVel,vVel is necessary  C      => Filtering of uVel,vVel is necessary
# Line 280  C      => Filtering of uVel,vVel is nece Line 280  C      => Filtering of uVel,vVel is nece
280  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
281        IF (useZONAL_FILT .AND. zonal_filt_uvStar) THEN        IF (useZONAL_FILT .AND. zonal_filt_uvStar) THEN
282          CALL TIMER_START('ZONAL_FILT_APPLY    [FORWARD_STEP]',myThid)          CALL TIMER_START('ZONAL_FILT_APPLY    [FORWARD_STEP]',myThid)
283          CALL ZONAL_FILT_APPLY_UV( gUnm1, gVnm1, myThid )          CALL ZONAL_FILT_APPLY_UV( gU, gV, myThid )
284          IF (implicDiv2Dflow.LT.1.) THEN          IF (implicDiv2Dflow.LT.1.) THEN
285  C--   Explicit+Implicit part of the Barotropic Flow Divergence  C--   Explicit+Implicit part of the Barotropic Flow Divergence
286  C      => Filtering of uVel,vVel is necessary  C      => Filtering of uVel,vVel is necessary
Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22