1 |
C $Header: /u/gcmpack/MITgcm/pkg/shap_filt/SHAP_FILT.h,v 1.5 2002/03/04 01:31:02 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_SHAP_FILT |
5 |
|
6 |
C- Package flag and logical parameters : |
7 |
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 |
9 |
C computing PhiHyd ; |
10 |
C has no effect if syncr. time step is used |
11 |
|
12 |
LOGICAL shap_filt_uvStar, shap_filt_TrStagg |
13 |
COMMON /SHAP_FILT_PARM_L/ |
14 |
& shap_filt_uvStar, shap_filt_TrStagg |
15 |
|
16 |
C- Shapiro Filter integer parameters : |
17 |
C Shap_funct :: define which Shapiro Filter function is used |
18 |
C = 1 (S1) : [1 - d_xx^n - d_yy^n] |
19 |
C = 4 (S4) : [1 - d_xx^n][1- d_yy^n] |
20 |
C = 2 (S2) : [1 - (d_xx+d_yy)^n] |
21 |
C nShap_Tr,UV :: (total) power of the filter for Tracer, Velocity |
22 |
C available only with Shap_funct=2 : |
23 |
C combine filter in Physical space (power of nShap_Phys) |
24 |
C and pure numerical filter (power nShap - nShap_Phys) |
25 |
|
26 |
INTEGER Shap_funct, nShapT, nShapUV, nShapTrPhys, nShapUVPhys |
27 |
COMMON /SHAP_FILT_PARM_I/ |
28 |
& Shap_funct, nShapT, nShapTrPhys, nShapUV, nShapUVPhys |
29 |
|
30 |
C- Shapiro Filter (real) parameters |
31 |
C Shap_Trtau :: Time scale for tracer filter |
32 |
C Shap_TrLength :: Length scale for tracer filter |
33 |
C Shap_uvtau :: Time scale for momentum filter |
34 |
C Shap_TrLength :: Length scale for momentum filter |
35 |
C Shap_noSlip :: No-slip parameter (=0 free sleep ; =1 No-slip) |
36 |
C Shap_diagFreq :: Frequency^-1 for diagnostic output (s) |
37 |
_RL Shap_Trtau, Shap_TrLength |
38 |
_RL Shap_uvtau, Shap_uvLength |
39 |
_RL Shap_noSlip |
40 |
_RL Shap_diagFreq |
41 |
COMMON /SHAP_FILT_PARAMS/ |
42 |
& Shap_Trtau, Shap_TrLength, |
43 |
& Shap_uvtau, Shap_uvLength, Shap_noSlip, |
44 |
& Shap_diagFreq |
45 |
|
46 |
C- Shapiro Filter temporary working arrays : |
47 |
_RL Shap_tmpFld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
48 |
_RL Shap_tmpFld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
49 |
COMMON /SHAP_FILT_WRK_FLD/ |
50 |
& Shap_tmpFld1, Shap_tmpFld2 |
51 |
|
52 |
#endif /* ALLOW_SHAP_FILT */ |