8 |
C-- Numerical Constant |
C-- Numerical Constant |
9 |
_RL op5 |
_RL op5 |
10 |
_RL op25 |
_RL op25 |
11 |
PARAMETER( op5 = 0.5D0 ) |
PARAMETER( op5 = 0.5 _d 0 ) |
12 |
PARAMETER( op25 = 0.25D0 ) |
PARAMETER( op25 = 0.25 _d 0 ) |
13 |
|
|
14 |
C-- GM/Redi Logical-type parameters |
C-- GM/Redi Logical-type parameters |
15 |
LOGICAL GM_AdvForm |
LOGICAL GM_AdvForm |
49 |
_RL GM_Visbeck_alpha |
_RL GM_Visbeck_alpha |
50 |
_RL GM_Visbeck_length |
_RL GM_Visbeck_length |
51 |
_RL GM_Visbeck_depth |
_RL GM_Visbeck_depth |
52 |
_RL GM_Visbeck_maxval_K |
_RL GM_Visbeck_minDepth |
53 |
|
_RL GM_Visbeck_maxSlope |
54 |
|
_RL GM_Visbeck_minVal_K |
55 |
|
_RL GM_Visbeck_maxVal_K |
56 |
_RL GM_facTrL2dz |
_RL GM_facTrL2dz |
57 |
_RL GM_facTrL2ML |
_RL GM_facTrL2ML |
58 |
_RL GM_maxTransLay |
_RL GM_maxTransLay |
63 |
& GM_maxSlope, |
& GM_maxSlope, |
64 |
& GM_Kmin_horiz, |
& GM_Kmin_horiz, |
65 |
& GM_Small_Number, GM_slopeSqCutoff, |
& GM_Small_Number, GM_slopeSqCutoff, |
66 |
& GM_Visbeck_alpha, |
& GM_Visbeck_alpha, GM_Visbeck_length, |
|
& GM_Visbeck_length, |
|
67 |
& GM_Visbeck_depth, |
& GM_Visbeck_depth, |
68 |
& GM_Visbeck_maxval_K, |
& GM_Visbeck_minDepth, GM_Visbeck_maxSlope, |
69 |
|
& GM_Visbeck_minVal_K, GM_Visbeck_maxVal_K, |
70 |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay, |
71 |
& GM_Scrit, GM_Sd |
& GM_Scrit, GM_Sd |
72 |
|
|