13 |
& GM_ExtraDiag |
& GM_ExtraDiag |
14 |
|
|
15 |
C GM/Redi parameters |
C GM/Redi parameters |
16 |
|
C GM_Small_Number :: epsilon used in computing the slope |
17 |
|
C GM_slopeSqCutoff :: slope^2 cut-off value |
18 |
_RL GM_isopycK |
_RL GM_isopycK |
19 |
_RL GM_background_K |
_RL GM_background_K |
20 |
_RL GM_maxSlope |
_RL GM_maxSlope |
21 |
_RL GM_Kmin_horiz |
_RL GM_Kmin_horiz |
22 |
|
_RL GM_Small_Number |
23 |
|
_RL GM_slopeSqCutoff |
24 |
_RL GM_Visbeck_alpha |
_RL GM_Visbeck_alpha |
25 |
_RL GM_Visbeck_length |
_RL GM_Visbeck_length |
26 |
_RL GM_Visbeck_depth |
_RL GM_Visbeck_depth |
31 |
COMMON /GM_PARAMS/ GM_isopycK, GM_background_K, |
COMMON /GM_PARAMS/ GM_isopycK, GM_background_K, |
32 |
& GM_maxSlope, |
& GM_maxSlope, |
33 |
& GM_Kmin_horiz, |
& GM_Kmin_horiz, |
34 |
|
& GM_Small_Number, GM_slopeSqCutoff, |
35 |
& GM_Visbeck_alpha, |
& GM_Visbeck_alpha, |
36 |
& GM_Visbeck_length, |
& GM_Visbeck_length, |
37 |
& GM_Visbeck_depth, |
& GM_Visbeck_depth, |
40 |
& GM_Scrit, |
& GM_Scrit, |
41 |
& GM_Sd |
& GM_Sd |
42 |
|
|
43 |
_RL GM_Small_Number |
_RL op5 |
44 |
PARAMETER( GM_Small_Number= 1. _d -8 ) |
_RL op25 |
45 |
_RL GM_adjointRescale |
PARAMETER( op5 = 0.5 _d 0 ) |
46 |
PARAMETER( GM_adjointRescale= 1. _d 0 ) |
PARAMETER( op25 = 0.25 _d 0 ) |
47 |
|
|
48 |
C More GM/Redi parameters diagnosed from previous block |
C More GM/Redi parameters diagnosed from previous block |
49 |
C (not directly user configured) |
C (not directly user configured) |