18 |
C = 1 (S1) : [1 - d_xx^n - d_yy^n] |
C = 1 (S1) : [1 - d_xx^n - d_yy^n] |
19 |
C = 4 (S4) : [1 - d_xx^n][1- d_yy^n] |
C = 4 (S4) : [1 - d_xx^n][1- d_yy^n] |
20 |
C = 2 (S2) : [1 - (d_xx+d_yy)^n] |
C = 2 (S2) : [1 - (d_xx+d_yy)^n] |
21 |
C nShap_Tr,UV :: (total) power of the filter for Tracer, Velocity |
C nShap_T,S,UV :: (total) power of the filter for T,S, Velocity |
22 |
C available only with Shap_funct=2 : |
C available only with Shap_funct=2 : |
23 |
C combine filter in Physical space (power of nShap_Phys) |
C combine filter in Physical space (power of nShap_Phys) |
24 |
C and pure numerical filter (power nShap - nShap_Phys) |
C and pure numerical filter (power nShap - nShap_Phys) |
25 |
|
|
26 |
INTEGER Shap_funct, nShapT, nShapUV, nShapTrPhys, nShapUVPhys |
INTEGER Shap_funct, nShapT, nShapS, nShapUV |
27 |
|
INTEGER nShapTrPhys, nShapUVPhys |
28 |
COMMON /SHAP_FILT_PARM_I/ |
COMMON /SHAP_FILT_PARM_I/ |
29 |
& Shap_funct, nShapT, nShapTrPhys, nShapUV, nShapUVPhys |
& Shap_funct, nShapT, nShapS, nShapTrPhys, |
30 |
|
& nShapUV, nShapUVPhys |
31 |
|
|
32 |
C- Shapiro Filter (real) parameters |
C- Shapiro Filter (real) parameters |
33 |
C Shap_Trtau :: Time scale for tracer filter |
C Shap_Trtau :: Time scale for tracer filter |
34 |
C Shap_TrLength :: Length scale for tracer filter |
C Shap_TrLength :: Length scale for tracer filter |
35 |
C Shap_uvtau :: Time scale for momentum filter |
C Shap_uvtau :: Time scale for momentum filter |
36 |
C Shap_TrLength :: Length scale for momentum filter |
C Shap_uvLength :: Length scale for momentum filter |
37 |
C Shap_noSlip :: No-slip parameter (=0 free sleep ; =1 No-slip) |
C Shap_noSlip :: No-slip parameter (=0 free sleep ; =1 No-slip) |
38 |
C Shap_diagFreq :: Frequency^-1 for diagnostic output (s) |
C Shap_diagFreq :: Frequency^-1 for diagnostic output (s) |
39 |
_RL Shap_Trtau, Shap_TrLength |
_RL Shap_Trtau, Shap_TrLength |