-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathparameter_indices.F90
150 lines (139 loc) · 5.43 KB
/
parameter_indices.F90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
!-------------------------------------------------------------------------------
! $Id$
!===============================================================================
module parameter_indices
! Description:
! Since f90/95 lacks enumeration, we're stuck numbering each
! parameter by hand like this.
! Adding new parameters is relatively simple. First, the
! parameter should be added in the common block of the parameters
! module so it can be used in other parts of the code. Each
! variable needs a unique number in this module, and nparams must
! be incremented for the new variable. Next, the params_list
! variable in module parameters should have new variable added to
! it. The subroutines pack_parameters and uppack_parameters will
! need to have the variable added to their list, but the order
! doesn't actually matter, since the i variables in here determine
! where in the params vector the number is placed.
! Finally, the namelists clubb_params_nl and initspread will need to
! have the parameter added to them.
!-------------------------------------------------------------------------------
implicit none
private ! Default Scope
integer, parameter, public :: &
nparams = 102 ! Total tunable parameters
!***************************************************************
! ***** IMPORTANT *****
! If you change the order of these parameters, you will need to
! change the order of params_list as well or the tuner will
! break!
! ***** IMPORTANT *****
!***************************************************************
integer, parameter, public :: &
iC1 = 1, &
iC1b = 2, &
iC1c = 3, &
iC2rt = 4, &
iC2thl = 5, &
iC2rtthl = 6, &
iC4 = 7, &
iC_uu_shr = 8, &
iC_uu_buoy = 9, &
iC6rt = 10, &
iC6rtb = 11, &
iC6rtc = 12, &
iC6thl = 13, &
iC6thlb = 14, &
iC6thlc = 15, &
iC7 = 16, &
iC7b = 17, &
iC7c = 18, &
iC8 = 19, &
iC8b = 20, &
iC10 = 21, &
iC11 = 22, &
iC11b = 23, &
iC11c = 24, &
iC12 = 25, &
iC13 = 26, &
iC14 = 27, &
iC_wp2_pr_dfsn = 28, &
iC_wp3_pr_tp = 29, &
iC_wp3_pr_turb = 30, &
iC_wp3_pr_dfsn = 31, &
iC_wp2_splat = 32
integer, parameter, public :: &
iC6rt_Lscale0 = 33, &
iC6thl_Lscale0 = 34, &
iC7_Lscale0 = 35, &
iwpxp_L_thresh = 36
integer, parameter, public :: &
ic_K = 37, &
ic_K1 = 38, &
inu1 = 39, &
ic_K2 = 40, &
inu2 = 41, &
ic_K6 = 42, &
inu6 = 43, &
ic_K8 = 44, &
inu8 = 45, &
ic_K9 = 46, &
inu9 = 47, &
inu10 = 48, &
ic_K_hm = 49, &
ic_K_hmb = 50, &
iK_hm_min_coef = 51, &
inu_hm = 52
integer, parameter, public :: &
islope_coef_spread_DG_means_w = 53, &
ipdf_component_stdev_factor_w = 54, &
icoef_spread_DG_means_rt = 55, &
icoef_spread_DG_means_thl = 56, &
igamma_coef = 57, &
igamma_coefb = 58, &
igamma_coefc = 59, &
imu = 60, &
ibeta = 61, &
ilmin_coef = 62, &
iomicron = 63, &
izeta_vrnce_rat = 64, &
iupsilon_precip_frac_rat = 65, &
ilambda0_stability_coef = 66, &
imult_coef = 67, &
itaumin = 68, &
itaumax = 69, &
iLscale_mu_coef = 70, &
iLscale_pert_coef = 71, &
ialpha_corr = 72, &
iSkw_denom_coef = 73, &
ic_K10 = 74, &
ic_K10h = 75, &
ithlp2_rad_coef = 76, &
ithlp2_rad_cloud_frac_thresh = 77, &
iup2_sfc_coef = 78, &
iSkw_max_mag = 79, &
iC_invrs_tau_bkgnd = 80, &
iC_invrs_tau_sfc = 81, &
iC_invrs_tau_shear = 82, &
iC_invrs_tau_N2 = 83, &
iC_invrs_tau_N2_wp2 = 84, &
iC_invrs_tau_N2_xp2 = 85, &
iC_invrs_tau_N2_wpxp = 86, &
iC_invrs_tau_N2_clear_wp3 = 87, &
iC_invrs_tau_wpxp_Ri = 88, &
iC_invrs_tau_wpxp_N2_thresh = 89, &
ixp3_coef_base = 90, &
ixp3_coef_slope = 91, &
ialtitude_threshold = 92, &
irtp2_clip_coef = 93, &
iCx_min = 94, &
iCx_max = 95, &
iRichardson_num_min = 96, &
iRichardson_num_max = 97, &
ia3_coef_min = 98, &
ia_const = 99, &
ibv_efold = 100,&
iwpxp_Ri_exp = 101,&
iz_displace = 102
end module parameter_indices
!-----------------------------------------------------------------------