/[MITgcm]/MITgcm/pkg/shap_filt/SHAP_FILT.h
ViewVC logotype

Diff of /MITgcm/pkg/shap_filt/SHAP_FILT.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by jmc, Sat Jun 26 01:15:30 2004 UTC revision 1.8 by jmc, Fri Oct 7 00:24:01 2005 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #ifdef ALLOW_SHAP_FILT  #ifdef ALLOW_SHAP_FILT
5    
6  C-    Package flag and logical parameters :  C-    Package flag and logical parameters :
7  C     shap_filt_uvStar  :: filter applied to u*,v* (before SOLVE_FOR_P)  C     shap_filt_uvStar  :: filter applied to u*,v* (before SOLVE_FOR_P)
8  C     shap_filt_TrStagg :: if using a Stager time-step, filter T,S before  C     shap_filt_TrStagg :: if using a Stagger time-step, filter T,S before
9  C                           computing PhiHyd ;  C                           computing PhiHyd ;
10  C                           has no effect if syncr. time step is used  C                           has no effect if syncr. time step is used
11    C     Shap_alwaysExchUV :: always call exch(U,V)    nShapUV times
12    C     Shap_alwaysExchTr :: always call exch(Tracer) nShapTr times
13    C               Note :: those exchanges are part of the filtering itself and
14    C                       are not dealing with the validity of the output field
15    C                       in the overlap region.
16    
17        LOGICAL shap_filt_uvStar, shap_filt_TrStagg        LOGICAL shap_filt_uvStar, shap_filt_TrStagg
18        COMMON /SHAP_FILT_PARM_L/        LOGICAL Shap_alwaysExchUV, Shap_alwaysExchTr
19       &        shap_filt_uvStar, shap_filt_TrStagg        COMMON /SHAP_FILT_PARM_L/
20         &        shap_filt_uvStar, shap_filt_TrStagg,
21         &        Shap_alwaysExchUV, Shap_alwaysExchTr
22    
23  C-    Shapiro Filter integer parameters :    C-    Shapiro Filter integer parameters :
24  C     Shap_funct :: define which Shapiro Filter function is used  C     Shap_funct :: define which Shapiro Filter function is used
25  C        = 1  (S1) : [1 - d_xx^n - d_yy^n]  C        = 1  (S1) : [1 - d_xx^n - d_yy^n]
26  C        = 4  (S4) : [1 - d_xx^n][1- d_yy^n]  C        = 4  (S4) : [1 - d_xx^n][1- d_yy^n]
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22