1 |
C $Header: /u/gcmpack/MITgcm/pkg/shap_filt/SHAP_FILT.h,v 1.7 2004/06/26 01:15:30 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 Stagger time-step, filter T,S before |
9 |
C computing PhiHyd ; |
10 |
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 |
18 |
LOGICAL Shap_alwaysExchUV, Shap_alwaysExchTr |
19 |
COMMON /SHAP_FILT_PARM_L/ |
20 |
& shap_filt_uvStar, shap_filt_TrStagg, |
21 |
& Shap_alwaysExchUV, Shap_alwaysExchTr |
22 |
|
23 |
C- Shapiro Filter integer parameters : |
24 |
C Shap_funct :: define which Shapiro Filter function is used |
25 |
C = 1 (S1) : [1 - d_xx^n - d_yy^n] |
26 |
C = 4 (S4) : [1 - d_xx^n][1- d_yy^n] |
27 |
C = 2 (S2) : [1 - (d_xx+d_yy)^n] |
28 |
C nShap_T,S,UV :: (total) power of the filter for T,S, Velocity |
29 |
C available only with Shap_funct=2 : |
30 |
C combine filter in Physical space (power of nShap_Phys) |
31 |
C and pure numerical filter (power nShap - nShap_Phys) |
32 |
|
33 |
INTEGER Shap_funct, nShapT, nShapS, nShapUV |
34 |
INTEGER nShapTrPhys, nShapUVPhys |
35 |
COMMON /SHAP_FILT_PARM_I/ |
36 |
& Shap_funct, nShapT, nShapS, nShapTrPhys, |
37 |
& nShapUV, nShapUVPhys |
38 |
|
39 |
C- Shapiro Filter (real) parameters |
40 |
C Shap_Trtau :: Time scale for tracer filter |
41 |
C Shap_TrLength :: Length scale for tracer filter |
42 |
C Shap_uvtau :: Time scale for momentum filter |
43 |
C Shap_uvLength :: Length scale for momentum filter |
44 |
C Shap_noSlip :: No-slip parameter (=0 free sleep ; =1 No-slip) |
45 |
C Shap_diagFreq :: Frequency^-1 for diagnostic output (s) |
46 |
_RL Shap_Trtau, Shap_TrLength |
47 |
_RL Shap_uvtau, Shap_uvLength |
48 |
_RL Shap_noSlip |
49 |
_RL Shap_diagFreq |
50 |
COMMON /SHAP_FILT_PARAMS/ |
51 |
& Shap_Trtau, Shap_TrLength, |
52 |
& Shap_uvtau, Shap_uvLength, Shap_noSlip, |
53 |
& Shap_diagFreq |
54 |
|
55 |
C- Shapiro Filter temporary working arrays : |
56 |
_RL Shap_tmpFld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
57 |
_RL Shap_tmpFld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
58 |
COMMON /SHAP_FILT_WRK_FLD/ |
59 |
& Shap_tmpFld1, Shap_tmpFld2 |
60 |
|
61 |
#endif /* ALLOW_SHAP_FILT */ |