| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
100 |
ECCO_COST_INIT_VARIA |
objf_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
101 |
ECCO_COST_INIT_VARIA |
objf_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
102 |
ECCO_COST_INIT_VARIA |
objf_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
103 |
ECCO_COST_INIT_VARIA |
objf_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
104 |
ECCO_COST_INIT_VARIA |
objf_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
105 |
ECCO_COST_INIT_VARIA |
objf_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
106 |
ECCO_COST_INIT_VARIA |
objf_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
107 |
ECCO_COST_INIT_VARIA |
objf_temp0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
108 |
ECCO_COST_INIT_VARIA |
objf_salt0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
109 |
ECCO_COST_INIT_VARIA |
objf_etan0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
110 |
ECCO_COST_INIT_VARIA |
objf_uvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
111 |
ECCO_COST_INIT_VARIA |
objf_vvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
112 |
ECCO_COST_INIT_VARIA |
objf_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
113 |
ECCO_COST_INIT_VARIA |
objf_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
114 |
ECCO_COST_INIT_VARIA |
objf_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
115 |
ECCO_COST_INIT_VARIA |
objf_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
116 |
ECCO_COST_INIT_VARIA |
objf_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
117 |
ECCO_COST_INIT_VARIA |
objf_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
118 |
ECCO_COST_INIT_VARIA |
objf_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
119 |
ECCO_COST_INIT_VARIA |
objf_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
120 |
ECCO_COST_INIT_VARIA |
objf_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
121 |
ECCO_COST_INIT_VARIA |
objf_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
122 |
ECCO_COST_INIT_VARIA |
objf_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
123 |
ECCO_COST_INIT_VARIA |
objf_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
124 |
ECCO_COST_INIT_VARIA |
objf_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
125 |
ECCO_COST_INIT_VARIA |
objf_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
126 |
ECCO_COST_INIT_VARIA |
objf_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
127 |
ECCO_COST_INIT_VARIA |
objf_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
128 |
ECCO_COST_INIT_VARIA |
objf_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
129 |
ECCO_COST_INIT_VARIA |
objf_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
130 |
ECCO_COST_INIT_VARIA |
objf_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
131 |
ECCO_COST_INIT_VARIA |
objf_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
132 |
ECCO_COST_INIT_VARIA |
objf_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
133 |
ECCO_COST_INIT_VARIA |
objf_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
134 |
ECCO_COST_INIT_VARIA |
objf_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
135 |
ECCO_COST_INIT_VARIA |
objf_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
136 |
ECCO_COST_INIT_VARIA |
objf_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
137 |
ECCO_COST_INIT_VARIA |
objf_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
138 |
ECCO_COST_INIT_VARIA |
objf_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
139 |
ECCO_COST_INIT_VARIA |
objf_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
140 |
ECCO_COST_INIT_VARIA |
objf_lwflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
141 |
ECCO_COST_INIT_VARIA |
objf_lwdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
142 |
ECCO_COST_INIT_VARIA |
objf_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
143 |
ECCO_COST_INIT_VARIA |
objf_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
145 |
ECCO_COST_INIT_VARIA |
objf_atl(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
147 |
ECCO_COST_INIT_VARIA |
objf_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
148 |
ECCO_COST_INIT_VARIA |
objf_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
149 |
ECCO_COST_INIT_VARIA |
objf_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
150 |
ECCO_COST_INIT_VARIA |
objf_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
151 |
ECCO_COST_INIT_VARIA |
objf_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
152 |
ECCO_COST_INIT_VARIA |
objf_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
153 |
ECCO_COST_INIT_VARIA |
objf_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
154 |
ECCO_COST_INIT_VARIA |
objf_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
156 |
ECCO_COST_INIT_VARIA |
objf_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
159 |
ECCO_COST_INIT_VARIA |
objf_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
161 |
ECCO_COST_INIT_VARIA |
num_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
162 |
ECCO_COST_INIT_VARIA |
num_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
163 |
ECCO_COST_INIT_VARIA |
num_hfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
164 |
ECCO_COST_INIT_VARIA |
num_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
165 |
ECCO_COST_INIT_VARIA |
num_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
166 |
ECCO_COST_INIT_VARIA |
num_sfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
167 |
ECCO_COST_INIT_VARIA |
num_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
168 |
ECCO_COST_INIT_VARIA |
num_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
169 |
ECCO_COST_INIT_VARIA |
num_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
170 |
ECCO_COST_INIT_VARIA |
num_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
171 |
ECCO_COST_INIT_VARIA |
num_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
172 |
ECCO_COST_INIT_VARIA |
num_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
173 |
ECCO_COST_INIT_VARIA |
num_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
174 |
ECCO_COST_INIT_VARIA |
num_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
175 |
ECCO_COST_INIT_VARIA |
num_etan0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
176 |
ECCO_COST_INIT_VARIA |
num_uvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
177 |
ECCO_COST_INIT_VARIA |
num_vvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
178 |
ECCO_COST_INIT_VARIA |
num_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
179 |
ECCO_COST_INIT_VARIA |
num_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
180 |
ECCO_COST_INIT_VARIA |
num_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
181 |
ECCO_COST_INIT_VARIA |
num_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
182 |
ECCO_COST_INIT_VARIA |
num_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
183 |
ECCO_COST_INIT_VARIA |
num_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
184 |
ECCO_COST_INIT_VARIA |
num_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
185 |
ECCO_COST_INIT_VARIA |
num_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
186 |
ECCO_COST_INIT_VARIA |
num_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
187 |
ECCO_COST_INIT_VARIA |
num_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
188 |
ECCO_COST_INIT_VARIA |
num_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
189 |
ECCO_COST_INIT_VARIA |
num_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
190 |
ECCO_COST_INIT_VARIA |
num_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
191 |
ECCO_COST_INIT_VARIA |
num_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
192 |
ECCO_COST_INIT_VARIA |
num_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
193 |
ECCO_COST_INIT_VARIA |
num_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
194 |
ECCO_COST_INIT_VARIA |
num_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
195 |
ECCO_COST_INIT_VARIA |
num_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
196 |
ECCO_COST_INIT_VARIA |
num_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
197 |
ECCO_COST_INIT_VARIA |
num_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
198 |
ECCO_COST_INIT_VARIA |
num_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
199 |
ECCO_COST_INIT_VARIA |
num_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
200 |
ECCO_COST_INIT_VARIA |
num_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
201 |
ECCO_COST_INIT_VARIA |
num_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
202 |
ECCO_COST_INIT_VARIA |
num_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
203 |
ECCO_COST_INIT_VARIA |
num_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
204 |
ECCO_COST_INIT_VARIA |
num_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
205 |
ECCO_COST_INIT_VARIA |
num_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
206 |
ECCO_COST_INIT_VARIA |
num_lwflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
207 |
ECCO_COST_INIT_VARIA |
num_lwdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
208 |
ECCO_COST_INIT_VARIA |
num_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
209 |
ECCO_COST_INIT_VARIA |
num_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
210 |
ECCO_COST_INIT_VARIA |
num_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
211 |
ECCO_COST_INIT_VARIA |
num_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
212 |
ECCO_COST_INIT_VARIA |
num_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
213 |
ECCO_COST_INIT_VARIA |
num_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
214 |
ECCO_COST_INIT_VARIA |
num_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
215 |
ECCO_COST_INIT_VARIA |
num_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
217 |
ECCO_COST_INIT_VARIA |
num_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
220 |
ECCO_COST_INIT_VARIA |
num_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
222 |
ECCO_COST_INIT_VARIA |
num_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
223 |
ECCO_COST_INIT_VARIA |
num_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
228 |
ECCO_COST_INIT_VARIA |
objf_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
229 |
ECCO_COST_INIT_VARIA |
num_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
234 |
ECCO_COST_INIT_VARIA |
objf_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
235 |
ECCO_COST_INIT_VARIA |
objf_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
236 |
ECCO_COST_INIT_VARIA |
objf_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
237 |
ECCO_COST_INIT_VARIA |
objf_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
238 |
ECCO_COST_INIT_VARIA |
objf_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
239 |
ECCO_COST_INIT_VARIA |
num_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
240 |
ECCO_COST_INIT_VARIA |
num_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
241 |
ECCO_COST_INIT_VARIA |
num_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
242 |
ECCO_COST_INIT_VARIA |
num_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
243 |
ECCO_COST_INIT_VARIA |
num_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
248 |
ECCO_COST_INIT_VARIA |
frame(i,j) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
249 |
ECCO_COST_INIT_VARIA |
cosphi(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
265 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
267 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
269 |
ECCO_COST_INIT_VARIA |
mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
273 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
275 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
277 |
ECCO_COST_INIT_VARIA |
tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
281 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
283 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
285 |
ECCO_COST_INIT_VARIA |
ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
289 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
291 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
293 |
ECCO_COST_INIT_VARIA |
gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
297 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
299 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
304 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
306 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
311 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
313 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
318 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
320 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
322 |
ECCO_COST_INIT_VARIA |
bpdat(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
335 |
ECCO_COST_INIT_VARIA |
tbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
336 |
ECCO_COST_INIT_VARIA |
sbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
346 |
ECCO_COST_INIT_VARIA |
objf_hmean = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
347 |
ECCO_COST_INIT_VARIA |
objf_hfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
348 |
ECCO_COST_INIT_VARIA |
objf_sfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
349 |
ECCO_COST_INIT_VARIA |
objf_transp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
350 |
ECCO_COST_INIT_VARIA |
num_hmean = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
351 |
ECCO_COST_INIT_VARIA |
num_transp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
359 |
ECCO_COST_INIT_VARIA |
objf_obcsvol = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
360 |
ECCO_COST_INIT_VARIA |
num_obcsvol = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
95 |
ECCO_COST_INIT_VARIA |
objf_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
96 |
ECCO_COST_INIT_VARIA |
objf_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
97 |
ECCO_COST_INIT_VARIA |
objf_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
98 |
ECCO_COST_INIT_VARIA |
objf_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
99 |
ECCO_COST_INIT_VARIA |
objf_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1003 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1034 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1072 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1104 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1139 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1172 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1207 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
120 |
ECCO_COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
121 |
ECCO_COST_WEIGHTS |
wsi(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
122 |
ECCO_COST_WEIGHTS |
wui(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1239 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
123 |
ECCO_COST_WEIGHTS |
wvi(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1271 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
129 |
ECCO_COST_WEIGHTS |
whflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1303 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
130 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
131 |
ECCO_COST_WEIGHTS |
wsflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
132 |
ECCO_COST_WEIGHTS |
wsfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1335 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
133 |
ECCO_COST_WEIGHTS |
wtauu (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
134 |
ECCO_COST_WEIGHTS |
wtauum (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
135 |
ECCO_COST_WEIGHTS |
wtauv (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1367 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
136 |
ECCO_COST_WEIGHTS |
wtauvm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
137 |
ECCO_COST_WEIGHTS |
watemp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
138 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1399 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
139 |
ECCO_COST_WEIGHTS |
wprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
140 |
ECCO_COST_WEIGHTS |
wswflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
wswdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wsnowprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1432 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
143 |
ECCO_COST_WEIGHTS |
wlwflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wlwdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
145 |
ECCO_COST_WEIGHTS |
wevap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1464 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
147 |
ECCO_COST_WEIGHTS |
wrunoff (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1497 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
149 |
ECCO_COST_WEIGHTS |
wvwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsst (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
151 |
ECCO_COST_WEIGHTS |
wsss (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1521 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
152 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
153 |
ECCO_COST_WEIGHTS |
wers (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1544 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
154 |
ECCO_COST_WEIGHTS |
wgfo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
155 |
ECCO_COST_WEIGHTS |
wetan (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1568 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
157 |
ECCO_COST_WEIGHTS |
wsshv4 (i,j,num_var,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1592 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
159 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
160 |
ECCO_COST_WEIGHTS |
wudrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1616 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
161 |
ECCO_COST_WEIGHTS |
wvdrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1638 |
ECCO_COST_WEIGHTS |
wetan(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
163 |
ECCO_COST_WEIGHTS |
whflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
164 |
ECCO_COST_WEIGHTS |
wsflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
wtauu2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
166 |
ECCO_COST_WEIGHTS |
wtauv2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1679 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1685 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1725 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1731 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1737 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1742 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1748 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1754 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1760 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1766 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1772 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1778 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1784 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
178 |
ECCO_COST_WEIGHTS |
wuvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1790 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1796 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
179 |
ECCO_COST_WEIGHTS |
wvvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1802 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1808 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1814 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1820 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1826 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1832 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1838 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1844 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1850 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1856 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1862 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1876 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1882 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1888 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1894 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
189 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1909 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
190 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1917 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1925 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1933 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1950 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1955 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1960 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1965 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
196 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1970 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1978 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
197 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1986 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1994 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2002 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2010 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
205 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
206 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
223 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
227 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
231 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
235 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
254 |
ECCO_COST_WEIGHTS |
frame(i,j) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
261 |
ECCO_COST_WEIGHTS |
factor = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
263 |
ECCO_COST_WEIGHTS |
factor = 1. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
335 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
340 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
390 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
433 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
480 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
527 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
544 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
689 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
690 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
691 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
727 |
ECCO_COST_WEIGHTS |
& wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
729 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
731 |
ECCO_COST_WEIGHTS |
& wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
802 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
894 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
901 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
931 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
937 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
965 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_init_varia.F |
43 |
ECCO_INIT_VARIA |
RHOsumGlob_0=0. _d 0 |
|
./pkg/ecco/ecco_init_varia.F |
44 |
ECCO_INIT_VARIA |
VOLsumGlob_0=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
110 |
ECCO_PHYS |
if (RHOsumGlob_0.GT.0. _d 0) then |
|
./pkg/ecco/ecco_phys.F |
112 |
ECCO_PHYS |
& *(1. _d 0 - RHOsumGlob/RHOsumGlob_0) |
|
./pkg/ecco/ecco_phys.F |
114 |
ECCO_PHYS |
sterGloH=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
150 |
ECCO_PHYS |
m_UE(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
151 |
ECCO_PHYS |
m_VN(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
181 |
ECCO_PHYS |
trVolW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
182 |
ECCO_PHYS |
trVolS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
183 |
ECCO_PHYS |
trHeatW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
184 |
ECCO_PHYS |
trHeatS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
185 |
ECCO_PHYS |
trSaltW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
186 |
ECCO_PHYS |
trSaltS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
237 |
ECCO_PHYS |
areavolTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
240 |
ECCO_PHYS |
areavolGlob=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
250 |
ECCO_PHYS |
tmpmsk=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
261 |
ECCO_PHYS |
tmpfld=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
262 |
ECCO_PHYS |
tmpmsk2=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
265 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
269 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
274 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
287 |
ECCO_PHYS |
tmpfld=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
288 |
ECCO_PHYS |
tmpmsk2=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
291 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
302 |
ECCO_PHYS |
tmpmskW=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
303 |
ECCO_PHYS |
tmpmskS=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
89 |
ECCO_PHYS |
RHOsumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
90 |
ECCO_PHYS |
VOLsumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
91 |
ECCO_PHYS |
VOLsumGlob=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
92 |
ECCO_PHYS |
RHOsumGlob=0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
275 |
ECCO_READPARMS |
topexperiod = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
276 |
ECCO_READPARMS |
topexintercept = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
277 |
ECCO_READPARMS |
topexslope = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
290 |
ECCO_READPARMS |
ersperiod = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
291 |
ECCO_READPARMS |
ersintercept = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
292 |
ECCO_READPARMS |
ersslope = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
297 |
ECCO_READPARMS |
gfoperiod = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
298 |
ECCO_READPARMS |
gfointercept = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
299 |
ECCO_READPARMS |
gfoslope = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
303 |
ECCO_READPARMS |
scatperiod = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
389 |
ECCO_READPARMS |
sshv4cost_errfactor(k) = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
395 |
ECCO_READPARMS |
mult_hflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
396 |
ECCO_READPARMS |
mult_sflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
397 |
ECCO_READPARMS |
mult_hfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
398 |
ECCO_READPARMS |
mult_sfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
399 |
ECCO_READPARMS |
mult_tauu = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
400 |
ECCO_READPARMS |
mult_tauv = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
401 |
ECCO_READPARMS |
mult_atemp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
402 |
ECCO_READPARMS |
mult_aqh = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
403 |
ECCO_READPARMS |
mult_precip = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
404 |
ECCO_READPARMS |
mult_swflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
405 |
ECCO_READPARMS |
mult_swdown = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
406 |
ECCO_READPARMS |
mult_lwflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
407 |
ECCO_READPARMS |
mult_lwdown = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
408 |
ECCO_READPARMS |
mult_evap = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
409 |
ECCO_READPARMS |
mult_snowprecip = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
410 |
ECCO_READPARMS |
mult_apressure = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
411 |
ECCO_READPARMS |
mult_uwind = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
412 |
ECCO_READPARMS |
mult_vwind = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
413 |
ECCO_READPARMS |
mult_hmean = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
414 |
ECCO_READPARMS |
mult_h = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
415 |
ECCO_READPARMS |
mult_tp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
416 |
ECCO_READPARMS |
mult_ers = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
417 |
ECCO_READPARMS |
mult_gfo = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
418 |
ECCO_READPARMS |
mult_temp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
419 |
ECCO_READPARMS |
mult_salt = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
420 |
ECCO_READPARMS |
mult_temp0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
421 |
ECCO_READPARMS |
mult_salt0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
422 |
ECCO_READPARMS |
mult_etan0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
423 |
ECCO_READPARMS |
mult_uvel0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
424 |
ECCO_READPARMS |
mult_vvel0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
425 |
ECCO_READPARMS |
mult_tmi = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
426 |
ECCO_READPARMS |
mult_sst = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
427 |
ECCO_READPARMS |
mult_sss = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
428 |
ECCO_READPARMS |
mult_bp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
429 |
ECCO_READPARMS |
mult_ies = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
430 |
ECCO_READPARMS |
mult_ctdt = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
431 |
ECCO_READPARMS |
mult_ctds = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
432 |
ECCO_READPARMS |
mult_ctdtclim = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
433 |
ECCO_READPARMS |
mult_ctdsclim = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
434 |
ECCO_READPARMS |
mult_xbt = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
435 |
ECCO_READPARMS |
mult_argot = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
436 |
ECCO_READPARMS |
mult_argos = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
437 |
ECCO_READPARMS |
mult_drift = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
438 |
ECCO_READPARMS |
mult_tdrift = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
439 |
ECCO_READPARMS |
mult_sdrift = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
440 |
ECCO_READPARMS |
mult_wdrift = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
441 |
ECCO_READPARMS |
mult_scatx = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
442 |
ECCO_READPARMS |
mult_scaty = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
444 |
ECCO_READPARMS |
mult_obcsn = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
445 |
ECCO_READPARMS |
mult_obcss = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
446 |
ECCO_READPARMS |
mult_obcsw = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
447 |
ECCO_READPARMS |
mult_obcse = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
448 |
ECCO_READPARMS |
mult_obcsvol = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
449 |
ECCO_READPARMS |
mult_ageos = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
451 |
ECCO_READPARMS |
mult_curmtr = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
452 |
ECCO_READPARMS |
mult_kapgm = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
453 |
ECCO_READPARMS |
mult_kapredi = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
454 |
ECCO_READPARMS |
mult_diffkr = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
455 |
ECCO_READPARMS |
mult_edtau = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
456 |
ECCO_READPARMS |
mult_bottomdrag = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
458 |
ECCO_READPARMS |
mult_usercost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
461 |
ECCO_READPARMS |
mult_sshv4cost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
463 |
ECCO_READPARMS |
mult_smooth_ic = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
464 |
ECCO_READPARMS |
mult_smooth_bc = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
465 |
ECCO_READPARMS |
mult_transp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
466 |
ECCO_READPARMS |
watemp0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
467 |
ECCO_READPARMS |
waqh0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
468 |
ECCO_READPARMS |
wprecip0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
469 |
ECCO_READPARMS |
wswflux0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
470 |
ECCO_READPARMS |
wswdown0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
471 |
ECCO_READPARMS |
wlwflux0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
472 |
ECCO_READPARMS |
wlwdown0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
473 |
ECCO_READPARMS |
wevap0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
474 |
ECCO_READPARMS |
wsnowprecip0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
475 |
ECCO_READPARMS |
wapressure0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
476 |
ECCO_READPARMS |
wwind0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
477 |
ECCO_READPARMS |
wdiffkr0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
478 |
ECCO_READPARMS |
wkapgm0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
479 |
ECCO_READPARMS |
wkapredi0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
480 |
ECCO_READPARMS |
wedtau0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
481 |
ECCO_READPARMS |
whflux0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
482 |
ECCO_READPARMS |
wsflux0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
483 |
ECCO_READPARMS |
wtau0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
484 |
ECCO_READPARMS |
wbottomdrag0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
485 |
ECCO_READPARMS |
wmean_atemp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
486 |
ECCO_READPARMS |
wmean_aqh = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
487 |
ECCO_READPARMS |
wmean_precip = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
488 |
ECCO_READPARMS |
wmean_swflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
489 |
ECCO_READPARMS |
wmean_swdown = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
490 |
ECCO_READPARMS |
wmean_lwflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
491 |
ECCO_READPARMS |
wmean_lwdown = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
492 |
ECCO_READPARMS |
wmean_evap = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
493 |
ECCO_READPARMS |
wmean_snowprecip = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
494 |
ECCO_READPARMS |
wmean_apressure = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
495 |
ECCO_READPARMS |
wmean_wind = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
496 |
ECCO_READPARMS |
wmean_hflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
497 |
ECCO_READPARMS |
wmean_sflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
498 |
ECCO_READPARMS |
wmean_tau = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
559 |
ECCO_READPARMS |
no_preproc_r(k2) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
563 |
ECCO_READPARMS |
no_posproc_r(k2) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
592 |
ECCO_READPARMS |
gencost_preproc_r(k2,k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
596 |
ECCO_READPARMS |
gencost_posproc_r(k2,k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
603 |
ECCO_READPARMS |
gencost_spmin(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
604 |
ECCO_READPARMS |
gencost_spmax(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
605 |
ECCO_READPARMS |
gencost_spzero(k) = 9876. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
606 |
ECCO_READPARMS |
gencost_wei1d(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
607 |
ECCO_READPARMS |
mult_gencost(k) = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
621 |
ECCO_READPARMS |
gencost_mskVertical(k2,k)= 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
838 |
ECCO_READPARMS |
if ( gencost_spmin(k) .EQ. 0. _d 0 .AND. |
|
./pkg/ecco/ecco_readparms.F |
839 |
ECCO_READPARMS |
& gencost_spmax(k) .EQ. 0. _d 0 ) then |
|
./pkg/ecco/ecco_readparms.F |
850 |
ECCO_READPARMS |
if ( gencost_spzero(k) .EQ. 9876. _d 0 ) then |
|
./pkg/ecco/ecco_toolbox.F |
1240 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
167 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
263 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
356 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
582 |
ECCO_ADDCOST |
localwww = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
587 |
ECCO_ADDCOST |
localcost = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
600 |
ECCO_ADDCOST |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
823 |
ECCO_ADDMASK |
if(fldInmask(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
827 |
ECCO_ADDMASK |
& + 1. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
952 |
ECCO_DIVFIELD |
if(flddenom(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
956 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exch2/w2_readparms.F |
100 |
W2_READPARMS |
e2FillValue_RS = 0. _d 0 |
|
./pkg/exch2/w2_readparms.F |
99 |
W2_READPARMS |
e2FillValue_RL = 0. _d 0 |
|
./pkg/exf/EXF_CONSTANTS.h |
33 |
NO PROCEDURE |
& exf_half = 0.5 _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
34 |
NO PROCEDURE |
& exf_one = 1.0 _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
35 |
NO PROCEDURE |
& exf_two = 2.0 _d 0 |
|
./pkg/exf/EXF_CONSTANTS.h |
48 |
NO PROCEDURE |
PARAMETER ( stefanBoltzmann = 5.670 _d -8 ) |
|
./pkg/exf/EXF_CONSTANTS.h |
49 |
NO PROCEDURE |
PARAMETER ( karman = 0.4 _d 0 ) |
|
./pkg/exf/EXF_CONSTANTS.h |
75 |
NO PROCEDURE |
& ustofu11 = 0.381800 _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
76 |
NO PROCEDURE |
& u11 = 11. _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
77 |
NO PROCEDURE |
& clindrag_1 = 0.000065 _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
78 |
NO PROCEDURE |
& clindrag_2 = 0.000490 _d 0 , |
|
./pkg/exf/exf_bulkformulae.F |
247 |
EXF_BULKFORMULAE |
recip_rhoConstFresh = 1. _d 0/rhoConstFresh |
|
./pkg/exf/exf_bulkformulae.F |
283 |
EXF_BULKFORMULAE |
deltap(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
284 |
EXF_BULKFORMULAE |
delq(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
288 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
291 |
EXF_BULKFORMULAE |
IF ( Nr.GE.2 .AND. sstExtrapol.GT.0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
295 |
EXF_BULKFORMULAE |
Tsf = Tsf + MAX( SSTtmp, 0. _d 0 ) |
|
./pkg/exf/exf_bulkformulae.F |
301 |
EXF_BULKFORMULAE |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
302 |
EXF_BULKFORMULAE |
& *(1. _d 0 + humid_fac*aqh(i,j,bi,bj))) |
|
./pkg/exf/exf_bulkformulae.F |
310 |
EXF_BULKFORMULAE |
IF ( noNegativeEvap ) delq(i,j) = MIN( 0. _d 0, delq(i,j) ) |
|
./pkg/exf/exf_bulkformulae.F |
327 |
EXF_BULKFORMULAE |
rdn(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
348 |
EXF_BULKFORMULAE |
tstar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
349 |
EXF_BULKFORMULAE |
qstar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
350 |
EXF_BULKFORMULAE |
ustar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
351 |
EXF_BULKFORMULAE |
tau (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
352 |
EXF_BULKFORMULAE |
rdn (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
359 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
384 |
EXF_BULKFORMULAE |
tmpbulk = MIN(abs(huol),10. _d 0) |
|
./pkg/exf/exf_bulkformulae.F |
398 |
EXF_BULKFORMULAE |
xsq = SQRT( ABS(exf_one - huol*16. _d 0) ) |
|
./pkg/exf/exf_bulkformulae.F |
407 |
EXF_BULKFORMULAE |
& (exf_one+xsq)*.125 _d 0 ) |
|
./pkg/exf/exf_bulkformulae.F |
410 |
EXF_BULKFORMULAE |
psimh = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
414 |
EXF_BULKFORMULAE |
xsq = SQRT( ABS(exf_one - htol*16. _d 0) ) |
|
./pkg/exf/exf_bulkformulae.F |
476 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
514 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
515 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
516 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
517 |
EXF_BULKFORMULAE |
evap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
518 |
EXF_BULKFORMULAE |
hs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
519 |
EXF_BULKFORMULAE |
hl (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
65 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
73 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
81 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffieldrec.F |
100 |
EXF_GETFFIELDREC |
if ( fldPeriod .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_getffieldrec.F |
106 |
EXF_GETFFIELDREC |
fac = 1. _d 0 |
|
./pkg/exf/exf_getffieldrec.F |
122 |
EXF_GETFFIELDREC |
if ( fldRepeatCycle .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_getffieldrec.F |
124 |
EXF_GETFFIELDREC |
if ( fldsectot .lt. 0. _d 0 ) then |
|
./pkg/exf/exf_getffieldrec.F |
141 |
EXF_GETFFIELDREC |
if (fldsectot.lt.0. _d 0) |
|
./pkg/exf/exf_getffieldrec.F |
199 |
EXF_GETFFIELDREC |
if ( fldsecs - modelstep .lt. 0. _d 0 ) changed = .TRUE. |
|
./pkg/exf/exf_getffieldrec.F |
212 |
EXF_GETFFIELDREC |
IF ( fldPeriod .EQ. 0. _d 0 ) THEN |
|
./pkg/exf/exf_getffieldrec.F |
213 |
EXF_GETFFIELDREC |
fac = 1. _d 0 |
|
./pkg/exf/exf_getffields.F |
101 |
EXF_GETFFIELDS |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
102 |
EXF_GETFFIELDS |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
150 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
152 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
165 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
166 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
482 |
EXF_GETFFIELDS |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
483 |
EXF_GETFFIELDS |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
484 |
EXF_GETFFIELDS |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
485 |
EXF_GETFFIELDS |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
93 |
EXF_GETSURFACEFLUXES |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
94 |
EXF_GETSURFACEFLUXES |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
95 |
EXF_GETSURFACEFLUXES |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
96 |
EXF_GETSURFACEFLUXES |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_interp.F |
223 |
EXF_INTERP |
symSign = 1. _d 0 |
|
./pkg/exf/exf_interp.F |
224 |
EXF_INTERP |
IF ( method.GE.10 ) symSign = -1. _d 0 |
|
./pkg/exf/exf_interp.F |
397 |
EXF_INTERP |
tmpVar = nyIn + 1. _d -3 |
|
./pkg/exf/exf_interp.F |
398 |
EXF_INTERP |
nLoop = 1 + INT( LOG(tmpVar)/LOG(2. _d 0) ) |
|
./pkg/exf/exf_interp_uv.F |
239 |
EXF_INTERP_UV |
symSign = -1. _d 0 |
|
./pkg/exf/exf_interp_uv.F |
423 |
EXF_INTERP_UV |
tmpVar = nyIn + 1. _d -3 |
|
./pkg/exf/exf_interp_uv.F |
424 |
EXF_INTERP_UV |
nLoop = 1 + INT( LOG(tmpVar)/LOG(2. _d 0) ) |
|
./pkg/exf/exf_interpolate.F |
39 |
NO PROCEDURE |
numer = 1. _d 0 |
|
./pkg/exf/exf_interpolate.F |
40 |
NO PROCEDURE |
denom = 1. _d 0 |
|
./pkg/exf/exf_radiation.F |
149 |
EXF_RADIATION |
zen_albedo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
150 |
EXF_RADIATION |
zen_fsol_diurnal (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
151 |
EXF_RADIATION |
zen_fsol_daily (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
72 |
EXF_RADIATION |
IF ( Nr.GE.2 .AND. sstExtrapol.GT.0. _d 0 ) THEN |
|
./pkg/exf/exf_radiation.F |
79 |
EXF_RADIATION |
Tsf = Tsf + MAX( SSTtmp, 0. _d 0 ) |
|
./pkg/exf/exf_readparms.F |
1082 |
EXF_READPARMS |
IF ( tauThetaClimRelax.NE.0. _d 0 ) THEN |
|
./pkg/exf/exf_readparms.F |
1096 |
EXF_READPARMS |
IF ( tauSaltClimRelax.NE.0. _d 0 ) THEN |
|
./pkg/exf/exf_readparms.F |
341 |
EXF_READPARMS |
cen2kel = 273.150 _d 0 |
|
./pkg/exf/exf_readparms.F |
342 |
EXF_READPARMS |
gravity_mks = 9.81 _d 0 |
|
./pkg/exf/exf_readparms.F |
343 |
EXF_READPARMS |
atmrho = 1.200 _d 0 |
|
./pkg/exf/exf_readparms.F |
344 |
EXF_READPARMS |
atmcp = 1005.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
345 |
EXF_READPARMS |
flamb = 2500000.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
346 |
EXF_READPARMS |
flami = 334000.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
347 |
EXF_READPARMS |
cvapor_fac = 640380.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
348 |
EXF_READPARMS |
cvapor_exp = 5107.400 _d 0 |
|
./pkg/exf/exf_readparms.F |
349 |
EXF_READPARMS |
cvapor_fac_ice = 11637800.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
350 |
EXF_READPARMS |
cvapor_exp_ice = 5897.800 _d 0 |
|
./pkg/exf/exf_readparms.F |
351 |
EXF_READPARMS |
humid_fac = 0.606 _d 0 |
|
./pkg/exf/exf_readparms.F |
352 |
EXF_READPARMS |
gamma_blk = 0.010 _d 0 |
|
./pkg/exf/exf_readparms.F |
353 |
EXF_READPARMS |
saltsat = 0.980 _d 0 |
|
./pkg/exf/exf_readparms.F |
354 |
EXF_READPARMS |
sstExtrapol = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
355 |
EXF_READPARMS |
cdrag_1 = 0.0027000 _d 0 |
|
./pkg/exf/exf_readparms.F |
356 |
EXF_READPARMS |
cdrag_2 = 0.0001420 _d 0 |
|
./pkg/exf/exf_readparms.F |
357 |
EXF_READPARMS |
cdrag_3 = 0.0000764 _d 0 |
|
./pkg/exf/exf_readparms.F |
358 |
EXF_READPARMS |
cstanton_1 = 0.0327 _d 0 |
|
./pkg/exf/exf_readparms.F |
359 |
EXF_READPARMS |
cstanton_2 = 0.0180 _d 0 |
|
./pkg/exf/exf_readparms.F |
360 |
EXF_READPARMS |
cdalton = 0.0346 _d 0 |
|
./pkg/exf/exf_readparms.F |
361 |
EXF_READPARMS |
zolmin = -100.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
362 |
EXF_READPARMS |
psim_fac = 5.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
363 |
EXF_READPARMS |
zref = 10.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
364 |
EXF_READPARMS |
hu = 10.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
365 |
EXF_READPARMS |
ht = 2.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
366 |
EXF_READPARMS |
umin = 0.5 _d 0 |
|
./pkg/exf/exf_readparms.F |
368 |
EXF_READPARMS |
exf_iceCd = 1.63 _d -3 |
|
./pkg/exf/exf_readparms.F |
369 |
EXF_READPARMS |
exf_iceCe = 1.63 _d -3 |
|
./pkg/exf/exf_readparms.F |
370 |
EXF_READPARMS |
exf_iceCh = 1.63 _d -3 |
|
./pkg/exf/exf_readparms.F |
371 |
EXF_READPARMS |
exf_albedo = 0.1 _d 0 |
|
./pkg/exf/exf_readparms.F |
374 |
EXF_READPARMS |
ocean_emissivity = 5.50 _d -8 / 5.670 _d -8 |
|
./pkg/exf/exf_readparms.F |
375 |
EXF_READPARMS |
ice_emissivity = 0.95 _d 0 |
|
./pkg/exf/exf_readparms.F |
376 |
EXF_READPARMS |
snow_emissivity = 0.95 _d 0 |
|
./pkg/exf/exf_readparms.F |
381 |
EXF_READPARMS |
hfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
382 |
EXF_READPARMS |
hfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
383 |
EXF_READPARMS |
hflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
384 |
EXF_READPARMS |
hflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
388 |
EXF_READPARMS |
atempperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
390 |
EXF_READPARMS |
atemp_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
391 |
EXF_READPARMS |
atemp_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
395 |
EXF_READPARMS |
aqhperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
396 |
EXF_READPARMS |
aqhconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
397 |
EXF_READPARMS |
aqh_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
398 |
EXF_READPARMS |
aqh_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
402 |
EXF_READPARMS |
hs_period = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
403 |
EXF_READPARMS |
hs_const = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
404 |
EXF_READPARMS |
hs_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
405 |
EXF_READPARMS |
hs_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
409 |
EXF_READPARMS |
hl_period = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
410 |
EXF_READPARMS |
hl_const = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
411 |
EXF_READPARMS |
hl_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
412 |
EXF_READPARMS |
hl_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
416 |
EXF_READPARMS |
sfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
417 |
EXF_READPARMS |
sfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
418 |
EXF_READPARMS |
sflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
419 |
EXF_READPARMS |
sflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
423 |
EXF_READPARMS |
evapperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
424 |
EXF_READPARMS |
evapconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
425 |
EXF_READPARMS |
evap_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
426 |
EXF_READPARMS |
evap_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
430 |
EXF_READPARMS |
precipperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
431 |
EXF_READPARMS |
precipconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
432 |
EXF_READPARMS |
precip_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
433 |
EXF_READPARMS |
precip_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
437 |
EXF_READPARMS |
snowprecipperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
438 |
EXF_READPARMS |
snowprecipconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
439 |
EXF_READPARMS |
snowprecip_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
440 |
EXF_READPARMS |
snowprecip_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
444 |
EXF_READPARMS |
runoffperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
445 |
EXF_READPARMS |
runoffconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
446 |
EXF_READPARMS |
runoff_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
447 |
EXF_READPARMS |
runoff_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
449 |
EXF_READPARMS |
runoftempconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
450 |
EXF_READPARMS |
runoftemp_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
451 |
EXF_READPARMS |
runoftemp_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
455 |
EXF_READPARMS |
saltflxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
456 |
EXF_READPARMS |
saltflxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
457 |
EXF_READPARMS |
saltflx_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
458 |
EXF_READPARMS |
saltflx_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
462 |
EXF_READPARMS |
ustressperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
463 |
EXF_READPARMS |
ustressconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
464 |
EXF_READPARMS |
ustress_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
465 |
EXF_READPARMS |
ustress_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
469 |
EXF_READPARMS |
vstressperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
470 |
EXF_READPARMS |
vstressconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
471 |
EXF_READPARMS |
vstress_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
472 |
EXF_READPARMS |
vstress_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
476 |
EXF_READPARMS |
uwindperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
477 |
EXF_READPARMS |
uwindconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
478 |
EXF_READPARMS |
uwind_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
479 |
EXF_READPARMS |
uwind_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
483 |
EXF_READPARMS |
vwindperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
484 |
EXF_READPARMS |
vwindconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
485 |
EXF_READPARMS |
vwind_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
486 |
EXF_READPARMS |
vwind_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
490 |
EXF_READPARMS |
wspeedperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
491 |
EXF_READPARMS |
wspeedconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
492 |
EXF_READPARMS |
wspeed_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
493 |
EXF_READPARMS |
wspeed_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
497 |
EXF_READPARMS |
swfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
498 |
EXF_READPARMS |
swfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
499 |
EXF_READPARMS |
swflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
500 |
EXF_READPARMS |
swflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
504 |
EXF_READPARMS |
lwfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
505 |
EXF_READPARMS |
lwfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
506 |
EXF_READPARMS |
lwflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
507 |
EXF_READPARMS |
lwflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
511 |
EXF_READPARMS |
swdownperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
512 |
EXF_READPARMS |
swdownconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
513 |
EXF_READPARMS |
swdown_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
514 |
EXF_READPARMS |
swdown_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
518 |
EXF_READPARMS |
lwdownperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
519 |
EXF_READPARMS |
lwdownconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
520 |
EXF_READPARMS |
lwdown_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
521 |
EXF_READPARMS |
lwdown_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
525 |
EXF_READPARMS |
apressureperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
526 |
EXF_READPARMS |
apressureconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
527 |
EXF_READPARMS |
apressure_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
528 |
EXF_READPARMS |
apressure_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
532 |
EXF_READPARMS |
tidePotPeriod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
533 |
EXF_READPARMS |
tidePotConst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
534 |
EXF_READPARMS |
tidePot_exfremo_intercept = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
535 |
EXF_READPARMS |
tidePot_exfremo_slope = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
539 |
EXF_READPARMS |
areamaskperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
540 |
EXF_READPARMS |
areamaskTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
541 |
EXF_READPARMS |
areamaskconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
542 |
EXF_READPARMS |
areamask_exfremo_intercept = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
543 |
EXF_READPARMS |
areamask_exfremo_slope = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
548 |
EXF_READPARMS |
climsstTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
549 |
EXF_READPARMS |
climsstconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
550 |
EXF_READPARMS |
climsst_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
551 |
EXF_READPARMS |
climsst_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
556 |
EXF_READPARMS |
climsssTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
557 |
EXF_READPARMS |
climsssconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
558 |
EXF_READPARMS |
climsss_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
559 |
EXF_READPARMS |
climsss_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
564 |
EXF_READPARMS |
climustrTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
565 |
EXF_READPARMS |
climustrconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
566 |
EXF_READPARMS |
climustr_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
567 |
EXF_READPARMS |
climustr_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
572 |
EXF_READPARMS |
climvstrTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
573 |
EXF_READPARMS |
climvstrconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
574 |
EXF_READPARMS |
climvstr_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
575 |
EXF_READPARMS |
climvstr_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
580 |
EXF_READPARMS |
obcsNperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
583 |
EXF_READPARMS |
obcsSperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
586 |
EXF_READPARMS |
obcsEperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
589 |
EXF_READPARMS |
obcsWperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
604 |
EXF_READPARMS |
repeatPeriod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
605 |
EXF_READPARMS |
windstressmax = 2.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
607 |
EXF_READPARMS |
exf_scal_BulkCdn = 1.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
610 |
EXF_READPARMS |
climtempfreeze = -1.9 _d 0 |
|
./pkg/exf/exf_readparms.F |
687 |
EXF_READPARMS |
exf_inscal_hflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
688 |
EXF_READPARMS |
exf_inscal_sflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
689 |
EXF_READPARMS |
exf_inscal_ustress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
690 |
EXF_READPARMS |
exf_inscal_vstress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
691 |
EXF_READPARMS |
exf_inscal_uwind = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
692 |
EXF_READPARMS |
exf_inscal_vwind = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
693 |
EXF_READPARMS |
exf_inscal_wspeed = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
694 |
EXF_READPARMS |
exf_inscal_swflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
695 |
EXF_READPARMS |
exf_inscal_lwflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
696 |
EXF_READPARMS |
exf_inscal_precip = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
697 |
EXF_READPARMS |
exf_inscal_snowprecip= 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
700 |
EXF_READPARMS |
exf_inscal_atemp = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
701 |
EXF_READPARMS |
exf_offset_atemp = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
702 |
EXF_READPARMS |
exf_inscal_aqh = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
703 |
EXF_READPARMS |
exf_inscal_hs = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
704 |
EXF_READPARMS |
exf_inscal_hl = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
705 |
EXF_READPARMS |
exf_inscal_evap = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
706 |
EXF_READPARMS |
exf_inscal_apressure = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
707 |
EXF_READPARMS |
exf_inscal_runoff = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
708 |
EXF_READPARMS |
exf_inscal_runoftemp = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
709 |
EXF_READPARMS |
exf_inscal_saltflx = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
710 |
EXF_READPARMS |
exf_inscal_swdown = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
711 |
EXF_READPARMS |
exf_inscal_lwdown = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
712 |
EXF_READPARMS |
exf_inscal_climsst = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
713 |
EXF_READPARMS |
exf_inscal_climsss = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
714 |
EXF_READPARMS |
exf_inscal_climustr = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
715 |
EXF_READPARMS |
exf_inscal_climvstr = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
716 |
EXF_READPARMS |
exf_inscal_tidePot = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
717 |
EXF_READPARMS |
exf_inscal_areamask = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
720 |
EXF_READPARMS |
exf_outscal_hflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
721 |
EXF_READPARMS |
exf_outscal_sflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
722 |
EXF_READPARMS |
exf_outscal_ustress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
723 |
EXF_READPARMS |
exf_outscal_vstress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
724 |
EXF_READPARMS |
exf_outscal_swflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
725 |
EXF_READPARMS |
exf_outscal_sst = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
726 |
EXF_READPARMS |
exf_outscal_sss = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
727 |
EXF_READPARMS |
exf_outscal_apressure= 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
728 |
EXF_READPARMS |
exf_outscal_tidePot = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
729 |
EXF_READPARMS |
exf_outscal_areamask = 1. _d 0 |
|
./pkg/exf/exf_swapffields.F |
114 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
167 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
219 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
63 |
EXF_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
100 |
EXF_WIND |
sh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
101 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
118 |
EXF_WIND |
IF ( wsSq .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_wind.F |
123 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
124 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
125 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
150 |
EXF_WIND |
& )*0.5 _d 0 |
|
./pkg/exf/exf_wind.F |
155 |
EXF_WIND |
IF ( usSq .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_wind.F |
161 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
162 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
163 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
176 |
EXF_WIND |
recip_sqrtRhoA = 1. _d 0 / SQRT(atmrho) |
|
./pkg/exf/exf_wind.F |
180 |
EXF_WIND |
IF ( ustar .EQ. 0. _d 0 ) THEN |
|
./pkg/exf/exf_wind.F |
181 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
191 |
EXF_WIND |
& (ustar*ustar/clindrag_1*0.25 _d 0 - tmp1*tmp1*tmp1 ) |
|
./pkg/exf/exf_wind.F |
97 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
98 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
99 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
104 |
EXF_ZENITHANGLE |
secondsInYear = 86400. _d 0 * 365.25 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
106 |
EXF_ZENITHANGLE |
TDAY = myTime / 86400 . _d 0 |
|
./pkg/exf/exf_zenithangle.F |
136 |
EXF_ZENITHANGLE |
wTyear2= 1.0 _d 0 - wTyear1 |
|
./pkg/exf/exf_zenithangle.F |
140 |
EXF_ZENITHANGLE |
IF ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) THEN |
|
./pkg/exf/exf_zenithangle.F |
142 |
EXF_ZENITHANGLE |
wLat1=0.5 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
144 |
EXF_ZENITHANGLE |
wLat2=0.5 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
147 |
EXF_ZENITHANGLE |
wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
149 |
EXF_ZENITHANGLE |
wLat2= 1. _d 0 - wLat1 |
|
./pkg/exf/exf_zenithangle.F |
159 |
EXF_ZENITHANGLE |
& 0.5 _d 0 * exf_albedo + 0.5 _d 0 * ALBSEA1 |
|
./pkg/exf/exf_zenithangle.F |
169 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
170 |
EXF_ZENITHANGLE |
DECLI = 0.006918 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
171 |
EXF_ZENITHANGLE |
& - 0.399912 _d 0 * COS ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
172 |
EXF_ZENITHANGLE |
& + 0.070257 _d 0 * SIN ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
173 |
EXF_ZENITHANGLE |
& - 0.006758 _d 0 * COS ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
174 |
EXF_ZENITHANGLE |
& + 0.000907 _d 0 * SIN ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
175 |
EXF_ZENITHANGLE |
& - 0.002697 _d 0 * COS ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
176 |
EXF_ZENITHANGLE |
& + 0.001480 _d 0 * SIN ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
202 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
204 |
EXF_ZENITHANGLE |
IF ( CZENdiurnal .LE.0 ) CZENdiurnal = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
212 |
EXF_ZENITHANGLE |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./pkg/exf/exf_zenithangle.F |
213 |
EXF_ZENITHANGLE |
CZEN = 0.0 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
214 |
EXF_ZENITHANGLE |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./pkg/exf/exf_zenithangle.F |
215 |
EXF_ZENITHANGLE |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/exf/exf_zenithangle.F |
216 |
EXF_ZENITHANGLE |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./pkg/exf/exf_zenithangle.F |
220 |
EXF_ZENITHANGLE |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./pkg/exf/exf_zenithangle.F |
221 |
EXF_ZENITHANGLE |
CZEN2= 2.0 _d 0*TMPA*TMPA*hlim |
|
./pkg/exf/exf_zenithangle.F |
222 |
EXF_ZENITHANGLE |
& + 4.0 _d 0*TMPA*TMPB*SIN(hlim) |
|
./pkg/exf/exf_zenithangle.F |
223 |
EXF_ZENITHANGLE |
& + TMPB*TMPB*( hlim + 0.5 _d 0*SIN(2.0 _d 0*hlim) ) |
|
./pkg/exf/exf_zenithangle.F |
251 |
EXF_ZENITHANGLE |
& ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/exf/exf_zenithangle.F |
252 |
EXF_ZENITHANGLE |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/exf/exf_zenithangle.F |
253 |
EXF_ZENITHANGLE |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
259 |
EXF_ZENITHANGLE |
& 0.5 _d 0 * exf_albedo + 0.5 _d 0 * ALBSEA1 |
|
./pkg/exf/exf_zenithangle.F |
283 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
284 |
EXF_ZENITHANGLE |
DECLI = 0.006918 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
285 |
EXF_ZENITHANGLE |
& - 0.399912 _d 0 * COS ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
286 |
EXF_ZENITHANGLE |
& + 0.070257 _d 0 * SIN ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
287 |
EXF_ZENITHANGLE |
& - 0.006758 _d 0 * COS ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
288 |
EXF_ZENITHANGLE |
& + 0.000907 _d 0 * SIN ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
289 |
EXF_ZENITHANGLE |
& - 0.002697 _d 0 * COS ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
290 |
EXF_ZENITHANGLE |
& + 0.001480 _d 0 * SIN ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
291 |
EXF_ZENITHANGLE |
dD0dDsq = 1.000110 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
292 |
EXF_ZENITHANGLE |
& + 0.034221 _d 0 * COS ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
293 |
EXF_ZENITHANGLE |
& + 0.001280 _d 0 * SIN ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
294 |
EXF_ZENITHANGLE |
& + 0.000719 _d 0 * COS ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
295 |
EXF_ZENITHANGLE |
& + 0.000077 _d 0 * SIN ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
307 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI*TDAY + xC(i,j,bi,bj)*deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
308 |
EXF_ZENITHANGLE |
IF ( CZEN .LE.0 ) CZEN = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
309 |
EXF_ZENITHANGLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle.F |
314 |
EXF_ZENITHANGLE |
IF ( H0.LT.-1. _d 0 ) H0 = -1. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
315 |
EXF_ZENITHANGLE |
IF ( H0.GT. 1. _d 0 ) H0 = 1. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
67 |
EXF_ZENITHANGLE |
SOLC = 1368. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
97 |
EXF_ZENITHANGLE |
TDAY= myDateSeconds / ( 86400 . _d 0 ) |
|
./pkg/exf/exf_zenithangle_table.F |
100 |
EXF_ZENITHANGLE_TABLE |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
103 |
EXF_ZENITHANGLE_TABLE |
tmpINT1=tmpINT1+FSOL*ALBSEA1/100. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
104 |
EXF_ZENITHANGLE_TABLE |
tmpINT2=tmpINT2+FSOL/100. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
108 |
EXF_ZENITHANGLE_TABLE |
IF ( 0.5 _d 0 * tmpINT2 .GT. tmpINT1) THEN |
|
./pkg/exf/exf_zenithangle_table.F |
111 |
EXF_ZENITHANGLE_TABLE |
zen_albedo_table(iTyear,iLat)=0.5 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
126 |
EXF_ZENITHANGLE_TABLE |
LLLAT=yC(i,j,bi,bj)+91. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
128 |
EXF_ZENITHANGLE_TABLE |
LLLAT=max(LLLAT, 1. _d 0) |
|
./pkg/exf/exf_zenithangle_table.F |
129 |
EXF_ZENITHANGLE_TABLE |
LLLAT=min(LLLAT, 181. _d 0) |
|
./pkg/exf/exf_zenithangle_table.F |
47 |
EXF_ZENITHANGLE_TABLE |
SOLC = 1368. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
52 |
EXF_ZENITHANGLE_TABLE |
LLLAT=(iLat-91. _d 0) |
|
./pkg/exf/exf_zenithangle_table.F |
53 |
EXF_ZENITHANGLE_TABLE |
TYEAR=(iTyear-1. _d 0)/365. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
58 |
EXF_ZENITHANGLE_TABLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle_table.F |
59 |
EXF_ZENITHANGLE_TABLE |
DECLI = 0.006918 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
60 |
EXF_ZENITHANGLE_TABLE |
& - 0.399912 _d 0 * cos ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
61 |
EXF_ZENITHANGLE_TABLE |
& + 0.070257 _d 0 * sin ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
62 |
EXF_ZENITHANGLE_TABLE |
& - 0.006758 _d 0 * cos ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
63 |
EXF_ZENITHANGLE_TABLE |
& + 0.000907 _d 0 * sin ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
64 |
EXF_ZENITHANGLE_TABLE |
& - 0.002697 _d 0 * cos ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
65 |
EXF_ZENITHANGLE_TABLE |
& + 0.001480 _d 0 * sin ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
77 |
EXF_ZENITHANGLE_TABLE |
dD0dDsq = 1.000110 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
78 |
EXF_ZENITHANGLE_TABLE |
& + 0.034221 _d 0 * cos ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
79 |
EXF_ZENITHANGLE_TABLE |
& + 0.001280 _d 0 * sin ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
80 |
EXF_ZENITHANGLE_TABLE |
& + 0.000719 _d 0 * cos ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
81 |
EXF_ZENITHANGLE_TABLE |
& + 0.000077 _d 0 * sin ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
83 |
EXF_ZENITHANGLE_TABLE |
tmpINT1=0. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
84 |
EXF_ZENITHANGLE_TABLE |
tmpINT2=0. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
86 |
EXF_ZENITHANGLE_TABLE |
TDAY=iTday/100. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
90 |
EXF_ZENITHANGLE_TABLE |
& cos( 2. _d 0 *PI* TDAY + 0. _d 0 * deg2rad ) |
|
./pkg/exf/exf_zenithangle_table.F |
91 |
EXF_ZENITHANGLE_TABLE |
IF ( CZEN .LE.0 ) CZEN = 0. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
94 |
EXF_ZENITHANGLE_TABLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle_table.F |
98 |
EXF_ZENITHANGLE_TABLE |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/exf/exf_zenithangle_table.F |
99 |
EXF_ZENITHANGLE_TABLE |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/fizhi/fizhi_fillnegs.F |
41 |
QCHECK |
if( qz(i,j,LM1,bi,bj).lt.0.0 _d 0) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
43 |
QCHECK |
qz(i,j,LM1,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
51 |
QCHECK |
if(qz(i,j,Ldim,bi,bj).lt.0.0 _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
128 |
GWDRAG |
phis_std(i,j) = min( 400.0 _d 0, sqrt( max(0.0 _d 0, |
|
./pkg/fizhi/fizhi_gwdrag.F |
187 |
GWDRAG |
dragu(i,j,L) = sign( min(0.006 _d 0,abs(dragu(i,j,L))), dragu(i |
|
./pkg/fizhi/fizhi_gwdrag.F |
189 |
GWDRAG |
dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i |
|
./pkg/fizhi/fizhi_gwdrag.F |
530 |
GWDD |
if( l.eq.2 ) crif2 = min(0.7 _d 0,crif2) |
|
./pkg/fizhi/fizhi_lsm.F |
1112 |
FLUXES |
EA(CHNO) = MAX(EA(CHNO), 0.0 _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
1222 |
TMPFAC |
FTEMP(CHNO) = MIN( 1. _d 0, MAX( FTEMP(ChNo), 1. _d -10 ) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1276 |
SMFAC |
RSTFAC = MIN( 1. _d 0, MAX( 0.001 _d 0, RSTFAC ) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1316 |
RSURFP |
HESAT = ESATTC(CHNO) * MIN( 1. _d 0, WET(CHNO)*2. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
1519 |
WUPDAT |
SWET(ChNo,SFCLY) = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,SFCLY) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1521 |
WUPDAT |
SWET(ChNo,ROOTLY) = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,ROOTLY) |
|
./pkg/fizhi/fizhi_lsm.F |
1625 |
GWATER |
FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1664 |
GWATER |
FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1682 |
GWATER |
FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) ) |
|
./pkg/fizhi/fizhi_lsm.F |
189 |
TILE |
DEDQA(CHNO) = MAX( DEDQA(CHNO), 500. _d 0/ALHE ) |
|
./pkg/fizhi/fizhi_lsm.F |
190 |
TILE |
DEDTC(CHNO) = MAX( DEDTC(CHNO), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
191 |
TILE |
DHSDQA(CHNO) = MAX( DHSDQA(CHNO), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
192 |
TILE |
DHSDTC(CHNO) = MAX( DHSDTC(CHNO), -10. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
208 |
TILE |
SWET(ChNo,SFCLY ) = max( min(SWET1(ChNo),1. _d 0), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
209 |
TILE |
SWET(ChNo,ROOTLY) = max( min(SWET2(ChNo),1. _d 0), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
210 |
TILE |
SWET(ChNo,RECHLY) = max( min(SWET3(ChNo),1. _d 0), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
211 |
TILE |
CAPAC(CHNO) = max( min(CAPAC(ChNo),SATCAP(CHNO)), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
215 |
TILE |
FCAN(CHNO) = MIN( 1. _d 0, MAX(0. _d 0,CAPAC(ChNo)/SATCAP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
536 |
INTERC |
& MAX( 0. _d 0, (TC(ChNo)-TF)*CSOIL(ChNo)/ALHM ) ) |
|
./pkg/fizhi/fizhi_lsm.F |
557 |
INTERC |
XTCORR= (1.-TIMFRL) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/ |
|
./pkg/fizhi/fizhi_lsm.F |
592 |
INTERC |
XTCORR= (1.-TIMFRC) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/ |
|
./pkg/fizhi/fizhi_lsm.F |
747 |
RCUNST |
ZK = PDIR(ChNo) *MIN( EXTK1, 50. _d 0/ZLAI(ChNo) ) + |
|
./pkg/fizhi/fizhi_lsm.F |
748 |
RCUNST |
& (ONE-PDIR(ChNo))*MIN( EXTK2, 50. _d 0/ZLAI(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
799 |
SOIL |
WET0 = MAX(WET(CHNO),0.01 _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
924 |
FLUXES |
& max(0. _d 0, CONST*DESDTC(ChNo) - EHARMN*DRCDTC(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
926 |
FLUXES |
& max( 0. _d 0, CONST + EHARMN*DRCDEA(ChNo) ) ) |
|
./pkg/fizhi/fizhi_lsm.F |
929 |
FLUXES |
DETERM = MIN( A12*A21/(A11*A22) - 1., -0.1 _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
100 |
LWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldlw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_lwrad.F |
102 |
LWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0, clwmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1100 |
IRRAD |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
1101 |
IRRAD |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
111 |
LWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldlw(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
112 |
LWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0,clwmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
155 |
LWRIO |
CLRO(I,L) = min( 1.0 _d 0,clro(i,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
156 |
LWRIO |
CLMO(I,L) = min( 1.0 _d 0,clmo(i,L) ) |
|
./pkg/fizhi/fizhi_moist.F |
1053 |
MOISTIO |
$ 1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
1058 |
MOISTIO |
$ 1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
1076 |
MOISTIO |
$ 1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
1081 |
MOISTIO |
$ 1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
2554 |
RNEVP |
fact = min( 1.0 _d 0, alpha + (1.0-alpha)*( rh-rhcrit(i,L)) / |
|
./pkg/fizhi/fizhi_moist.F |
2660 |
SRCLOUDS |
cloud(i,L) = min( ratio,1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
2706 |
CTEI |
if (s.GT.0. ) f = max( 0.0 _d 0, min( 1.0 _d 0, exp(-s)) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
446 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity |
|
./pkg/fizhi/fizhi_swrad.F |
1094 |
CLDSCALE |
taux=min(taux,32. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1130 |
CLDSCALE |
xai=max(xai,0.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1145 |
CLDSCALE |
xai=max(xai,0.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1356 |
SOLIR |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1357 |
SOLIR |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1444 |
SOLIR |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1453 |
SOLIR |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1747 |
SOLUV |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1748 |
SOLUV |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1799 |
SOLUV |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
180 |
SWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_swrad.F |
1821 |
SOLUV |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1829 |
SOLUV |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
182 |
SWRIO |
cldmxo(i,j,L)=min(1.0 _d 0,cswmo(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
191 |
SWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldsw(i,j,L) ) |
|
./pkg/fizhi/fizhi_swrad.F |
192 |
SWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0,cswmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_swrad.F |
438 |
SWRIO |
alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
598 |
OPTHK |
alf = min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
618 |
OPTHK |
tauice = max( 0.0002 _d 0, 0.002*min(500*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
619 |
OPTHK |
$ 1.0 _d 0) ) |
|
./pkg/fizhi/fizhi_swrad.F |
626 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.200*min(200*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
627 |
OPTHK |
$ 1.0 _d 0) ) |
|
./pkg/fizhi/fizhi_swrad.F |
636 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.120*min( 20*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
637 |
OPTHK |
$ 1.0 _d 0) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
162 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
79 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./pkg/fizhi/fizhi_turb.F |
2070 |
TRBFLX |
qxlm(i,L) = min(qxlm(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2085 |
TRBFLX |
1 FLXFCE(1,LMINQ1),DTHS,DELTHS,NLEVMQ,1,1.0 _d -20,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2128 |
TRBFLX |
kh(i,L) = min(kh(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2129 |
TRBFLX |
km(i,L) = min(km(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2145 |
TRBFLX |
CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2172 |
TRBFLX |
& 2,0. _d 0,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2209 |
TRBFLX |
CALL TRBDIF(U,V,RHOKDZ,FLXFAC,DTHS,DELTHS,NLEV,3,0. _d 0,irun) |
|
./pkg/fizhi/fizhi_turb.F |
287 |
TURBIO |
dtfac = min( 1.0 _d 0, timstp/timstp2 ) |
|
./pkg/fizhi/fizhi_turb.F |
628 |
TURBIO |
cosz(i) = max(cosz(i),0.0001 _d 0) |
|
./pkg/fizhi/fizhi_utils.F |
370 |
QSAT |
Q = MIN(QX * D,1.0 _d 0) |
|
./pkg/fizhi/getpwhere.F |
110 |
GETPWHERE |
dpTop = 1. _d 0 |
|
./pkg/fizhi/getpwhere.F |
111 |
GETPWHERE |
IF (Nr.EQ.70) dpTop = 1. _d -2 |
|
./pkg/fizhi/getpwhere.F |
117 |
GETPWHERE |
rC_dyn(L) = rC(L)*1. _d -2 |
|
./pkg/fizhi/getpwhere.F |
88 |
GETPWHERE |
dptry_pedge(1) = rF(1)*1. _d -2 |
|
./pkg/fizhi/step_fizhi_corr.F |
288 |
STEP_FIZHI_CORR |
. * 86400. _d 0 * dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
300 |
STEP_FIZHI_CORR |
. * 86400. _d 0 * dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
312 |
STEP_FIZHI_CORR |
. * 86400. _d 0 * dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
324 |
STEP_FIZHI_CORR |
. * 86400. _d 0 * dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
398 |
STEP_FIZHI_CORR |
. - duphy(i,j,L,bi,bj) - uphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
401 |
STEP_FIZHI_CORR |
. - dvphy(i,j,L,bi,bj) - vphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
454 |
STEP_FIZHI_CORR |
. ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
500 |
STEP_FIZHI_CORR |
. - dsphy(i,j,L,bi,bj) - sphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
72 |
STEP_FIZHI_CORR |
dtfake = 1. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
73 |
STEP_FIZHI_CORR |
dtinv = 1. _d 0 / dt |
|
./pkg/flt/flt_exch2.F |
192 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
214 |
FLT_EXCH2 |
jlo = 0.5 _d 0 |
|
./pkg/flt/flt_exch2.F |
215 |
FLT_EXCH2 |
jhi = 0.5 _d 0 + DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
329 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
91 |
FLT_EXCH2 |
ilo = 0.5 _d 0 |
|
./pkg/flt/flt_exch2.F |
92 |
FLT_EXCH2 |
ihi = 0.5 _d 0 + DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
188 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
322 |
FLT_EXCHG |
jlo = 0.5 _d 0 |
|
./pkg/flt/flt_exchg.F |
323 |
FLT_EXCHG |
jhi = 0.5 _d 0 + DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
431 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
89 |
FLT_EXCHG |
ilo = 0.5 _d 0 |
|
./pkg/flt/flt_exchg.F |
90 |
FLT_EXCHG |
ihi = 0.5 _d 0 + DFLOAT(sNx) |
|
./pkg/flt/flt_init_varia.F |
203 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = -1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
206 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = 1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
207 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
208 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
209 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
210 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = -1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
72 |
FLT_INIT_VARIA |
iLo = 0.5 _d 0 |
|
./pkg/flt/flt_init_varia.F |
73 |
FLT_INIT_VARIA |
iHi = 0.5 _d 0 + DFLOAT(sNx) |
|
./pkg/flt/flt_init_varia.F |
74 |
FLT_INIT_VARIA |
jLo = 0.5 _d 0 |
|
./pkg/flt/flt_init_varia.F |
75 |
FLT_INIT_VARIA |
jHi = 0.5 _d 0 + DFLOAT(sNy) |
|
./pkg/flt/flt_interp_linear.F |
156 |
FLT_TRILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
164 |
FLT_TRILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
172 |
FLT_TRILINEAR |
ddz = 0.5 _d 0 + kz - DFLOAT(k1) |
|
./pkg/flt/flt_interp_linear.F |
248 |
FLT_BILINEAR2D |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
256 |
FLT_BILINEAR2D |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
65 |
FLT_BILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
73 |
FLT_BILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
90 |
FLT_BILINEAR |
u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
91 |
FLT_BILINEAR |
u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
92 |
FLT_BILINEAR |
u22 = ( var(i2,j2,kl,bi,bj)+var(i2,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
93 |
FLT_BILINEAR |
u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
133 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./pkg/flt/flt_mapping.F |
134 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./pkg/flt/flt_mapping.F |
143 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./pkg/flt/flt_mapping.F |
144 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./pkg/flt/flt_mapping.F |
212 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_R2K = 0. _d 0 |
|
./pkg/flt/flt_mapping.F |
214 |
FLT_MAP_IJLOCAL2XY |
IF ( FLT_MAP_R2K .EQ. 0. _d 0 ) THEN |
|
./pkg/flt/flt_mapping.F |
218 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_R2K = DFLOAT(k)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
265 |
FLT_MAP_IJLOCAL2XY |
ddz = 0.5 _d 0 + kr - DFLOAT(k) |
|
./pkg/flt/flt_mapping.F |
54 |
FLT_MAP_XY2IJLOCAL |
ix = -1. _d 0 |
|
./pkg/flt/flt_mapping.F |
55 |
FLT_MAP_XY2IJLOCAL |
jy = -1. _d 0 |
|
./pkg/flt/flt_mapping.F |
59 |
FLT_MAP_XY2IJLOCAL |
IF ( ix.EQ.-1. _d 0 ) THEN |
|
./pkg/flt/flt_mapping.F |
63 |
FLT_MAP_XY2IJLOCAL |
ix = DFLOAT(i)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
70 |
FLT_MAP_XY2IJLOCAL |
IF ( jy.EQ.-1. _d 0 ) THEN |
|
./pkg/flt/flt_mapping.F |
74 |
FLT_MAP_XY2IJLOCAL |
jy = DFLOAT(j)+fm-0.5 _d 0 |
|
./pkg/flt/flt_runga2.F |
74 |
FLT_RUNGA2 |
kzlo = 0.5 _d 0 |
|
./pkg/flt/flt_runga2.F |
75 |
FLT_RUNGA2 |
kzhi = 0.5 _d 0 + DFLOAT(Nr) |
|
./pkg/flt/flt_runga4.F |
74 |
FLT_RUNGA4 |
kzlo = 0.5 _d 0 |
|
./pkg/flt/flt_runga4.F |
75 |
FLT_RUNGA4 |
kzhi = 0.5 _d 0 + DFLOAT(Nr) |
|
./pkg/frazil/frazil_calc_rhs.F |
45 |
FRAZIL_CALC_RHS |
PARAMETER( a0 = -0.0575 _d 0 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
46 |
FRAZIL_CALC_RHS |
PARAMETER( a1 = 1.710523 _d -3 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
47 |
FRAZIL_CALC_RHS |
PARAMETER( a2 = -2.154996 _d -4 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
48 |
FRAZIL_CALC_RHS |
PARAMETER( b = -7.53 _d -4 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
60 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_calc_rhs.F |
69 |
FRAZIL_CALC_RHS |
IF ( maskC(i,j,k-1,bi,bj) .NE. 0. _d 0 .AND. |
|
./pkg/frazil/frazil_calc_rhs.F |
70 |
FRAZIL_CALC_RHS |
& maskC(i,j,k, bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/frazil/frazil_calc_rhs.F |
73 |
FRAZIL_CALC_RHS |
sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
74 |
FRAZIL_CALC_RHS |
tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0) |
|
./pkg/frazil/frazil_init_varia.F |
40 |
FRAZIL_INIT_VARIA |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_tendency_apply.F |
56 |
FRAZIL_TENDENCY_APPLY_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/gchem/gchem_calc_tendency.F |
68 |
GCHEM_CALC_TENDENCY |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
100 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
101 |
GCHEM_FORCING_SEP |
gsm_dic = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
102 |
GCHEM_FORCING_SEP |
gsm_alk = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
116 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
117 |
GCHEM_FORCING_SEP |
gsm_dic = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
118 |
GCHEM_FORCING_SEP |
gsm_alk = 0. _d 0 |
|
./pkg/gchem/gchem_init_vari.F |
55 |
GCHEM_INIT_VARI |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
90 |
GCHEM_READPARMS |
gchem_rl1=0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
91 |
GCHEM_READPARMS |
gchem_rl2=0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
92 |
GCHEM_READPARMS |
gchem_rl3=0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
93 |
GCHEM_READPARMS |
gchem_rl4=0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
94 |
GCHEM_READPARMS |
gchem_rl5=0. _d 0 |
|
./pkg/gchem/gchem_surfmean.F |
46 |
GCHEM_SURFMEAN |
sumTracerTile(bi,bj) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
229 |
GAD_ADVECTION |
rTrans(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
230 |
GAD_ADVECTION |
fVerT(i,j,1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
231 |
GAD_ADVECTION |
fVerT(i,j,2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
234 |
GAD_ADVECTION |
localVol(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
236 |
GAD_ADVECTION |
localTij(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
847 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
876 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
65 |
GAD_C2_ADV_R |
& (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
55 |
GAD_C2_ADV_X |
& uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
55 |
GAD_C2_ADV_Y |
& vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
65 |
GAD_C2_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
84 |
GAD_C4_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
85 |
GAD_C4_ADV_R |
& -oneSixth*(Rjjm+Rjjp)*0.5 _d 0 ) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
87 |
GAD_C4_ADV_R |
& oneSixth*(Rjjm-Rjjp)*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
88 |
GAD_C4_ADV_R |
& *(1. _d 0 - maskBound) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
73 |
GAD_C4_ADV_X |
& )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
74 |
GAD_C4_ADV_X |
& +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
75 |
GAD_C4_ADV_X |
& *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
73 |
GAD_C4_ADV_Y |
& )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
74 |
GAD_C4_ADV_Y |
& +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
75 |
GAD_C4_ADV_Y |
& *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
168 |
GAD_CALC_RHS |
advFac = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
169 |
GAD_CALC_RHS |
IF (calcAdvection) advFac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
175 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
176 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
177 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
178 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
179 |
GAD_CALC_RHS |
df4(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
210 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
304 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
350 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
612 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
661 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
725 |
GAD_CALC_RHS |
& *( MAX(0. _d 0,fZon(i+1,j)) + MAX(0. _d 0,-fZon(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
726 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fMer(i,j+1)) + MAX(0. _d 0,-fMer(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
727 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
728 |
GAD_CALC_RHS |
& +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
733 |
GAD_CALC_RHS |
IF (outFlux.GT.0. _d 0 .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
736 |
GAD_CALC_RHS |
fac = MAX(0. _d 0,SmolarkiewiczMaxFrac*trac/outFlux) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
738 |
GAD_CALC_RHS |
IF (fZon(i+1,j).GT.0. _d 0) fZon(i+1,j)=fac*fZon(i+1,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
739 |
GAD_CALC_RHS |
IF (-fZon(i,j) .GT.0. _d 0) fZon(i,j) =fac*fZon(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
740 |
GAD_CALC_RHS |
IF (fMer(i,j+1).GT.0. _d 0) fMer(i,j+1)=fac*fMer(i,j+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
741 |
GAD_CALC_RHS |
IF (-fMer(i,j) .GT.0. _d 0) fMer(i,j) =fac*fMer(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
742 |
GAD_CALC_RHS |
IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
745 |
GAD_CALC_RHS |
IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_del2.F |
50 |
GAD_DEL2 |
del2(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
52 |
GAD_DIAGNOSTICS_STATE |
oneThird = 1. _d 0 / 3. _d 0 |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
53 |
GAD_DIAGNOSTICS_STATE |
oneFifth = 1. _d 0 / 5. _d 0 |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
54 |
GAD_DIAGNOSTICS_STATE |
oneNinth = 1. _d 0 / 9. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
60 |
GAD_DST2U1_ADV_R |
rLimit = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
61 |
GAD_DST2U1_ADV_R |
IF ( advectionScheme.EQ.ENUM_DST2 ) rLimit = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
89 |
GAD_DST2U1_ADV_R |
& *( 1. _d 0 - rLimit*(1. _d 0 - wCFL) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
91 |
GAD_DST2U1_ADV_R |
& ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
92 |
GAD_DST2U1_ADV_R |
& + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
60 |
GAD_DST2U1_ADV_X |
xLimit = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
61 |
GAD_DST2U1_ADV_X |
IF ( advectionScheme.EQ.ENUM_DST2 ) xLimit = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
82 |
GAD_DST2U1_ADV_X |
& *( 1. _d 0 - xLimit*(1. _d 0 - uCFL) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
83 |
GAD_DST2U1_ADV_X |
uT(i,j) = ( uTrans(i,j)+uAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
84 |
GAD_DST2U1_ADV_X |
& + ( uTrans(i,j)-uAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
59 |
GAD_DST2U1_ADV_Y |
yLimit = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
60 |
GAD_DST2U1_ADV_Y |
IF ( advectionScheme.EQ.ENUM_DST2 ) yLimit = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
81 |
GAD_DST2U1_ADV_Y |
& *( 1. _d 0 - yLimit*(1. _d 0 - vCFL) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
82 |
GAD_DST2U1_ADV_Y |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
83 |
GAD_DST2U1_ADV_Y |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
72 |
GAD_DST2U1_IMPL_R |
rLimit = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
73 |
GAD_DST2U1_IMPL_R |
IF ( advectionScheme.EQ.ENUM_DST2 ) rLimit = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
87 |
GAD_DST2U1_IMPL_R |
& * ( 1. _d 0 - rLimit ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
107 |
GAD_DST3FL_ADV_R |
psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
108 |
GAD_DST3FL_ADV_R |
& thetaP*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
110 |
GAD_DST3FL_ADV_R |
psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
111 |
GAD_DST3FL_ADV_R |
& thetaM*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
70 |
GAD_DST3FL_ADV_R |
thetaP = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
71 |
GAD_DST3FL_ADV_R |
thetaM = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
82 |
GAD_DST3FL_ADV_R |
d0=(2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
83 |
GAD_DST3FL_ADV_R |
d1=(1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
46 |
GAD_DST3FL_ADV_X |
uT(1-OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
47 |
GAD_DST3FL_ADV_X |
uT(2-OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
48 |
GAD_DST3FL_ADV_X |
uT(sNx+OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
54 |
GAD_DST3FL_ADV_X |
thetaP = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
55 |
GAD_DST3FL_ADV_X |
thetaM = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
64 |
GAD_DST3FL_ADV_X |
d0=(2. _d 0 -uCFL)*(1. _d 0 -uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
65 |
GAD_DST3FL_ADV_X |
d1=(1. _d 0 -uCFL*uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
89 |
GAD_DST3FL_ADV_X |
psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
90 |
GAD_DST3FL_ADV_X |
& thetaP*(1. _d 0 -uCFL)/(uCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
92 |
GAD_DST3FL_ADV_X |
psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
93 |
GAD_DST3FL_ADV_X |
& thetaM*(1. _d 0 -uCFL)/(uCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
42 |
GAD_DST3FL_ADV_Y |
vT(i,1-OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
43 |
GAD_DST3FL_ADV_Y |
vT(i,2-OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
44 |
GAD_DST3FL_ADV_Y |
vT(i,sNy+OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
50 |
GAD_DST3FL_ADV_Y |
thetaP = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
51 |
GAD_DST3FL_ADV_Y |
thetaM = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
60 |
GAD_DST3FL_ADV_Y |
d0=(2. _d 0 -vCFL)*(1. _d 0 -vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
61 |
GAD_DST3FL_ADV_Y |
d1=(1. _d 0 -vCFL*vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
85 |
GAD_DST3FL_ADV_Y |
psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
86 |
GAD_DST3FL_ADV_Y |
& thetaP*(1. _d 0 -vCFL)/(vCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
88 |
GAD_DST3FL_ADV_Y |
psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
89 |
GAD_DST3FL_ADV_Y |
& thetaM*(1. _d 0 -vCFL)/(vCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
105 |
GAD_DST3FL_IMPL_R |
cL1 = (2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
106 |
GAD_DST3FL_IMPL_R |
cH3 = (1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
108 |
GAD_DST3FL_IMPL_R |
cM2 = (1. _d 0 + wCFL)/( wCFL +1. _d -20) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
111 |
GAD_DST3FL_IMPL_R |
IF ( rTrans(i,j).GT.0. _d 0 ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
116 |
GAD_DST3FL_IMPL_R |
IF ( Rj*Rjh.LE.0. _d 0 ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
118 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
119 |
GAD_DST3FL_IMPL_R |
highFac(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
131 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
135 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
136 |
GAD_DST3FL_IMPL_R |
highFac(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
145 |
GAD_DST3FL_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
148 |
GAD_DST3FL_IMPL_R |
rUpwind= (0.5 _d 0 -lowFac(i,j))*ABS(rCenter)*2. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
88 |
GAD_DST3FL_IMPL_R |
maskP1 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
89 |
GAD_DST3FL_IMPL_R |
maskM2 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
90 |
GAD_DST3FL_IMPL_R |
IF ( k.LE.2 ) maskM2 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
91 |
GAD_DST3FL_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
109 |
GAD_FLUXLIMIT_ADV_R |
& (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
111 |
GAD_FLUXLIMIT_ADV_R |
& *Rj*0.5 _d 0 ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
100 |
GAD_FLUXLIMIT_ADV_X |
& *Rj*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
98 |
GAD_FLUXLIMIT_ADV_X |
& uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
100 |
GAD_FLUXLIMIT_ADV_Y |
& *Rj*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
98 |
GAD_FLUXLIMIT_ADV_Y |
& vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
100 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
101 |
GAD_FLUXLIMIT_IMPL_R |
& - Limiter(Cr) * ( 1. _d 0 + ABS(w_CFL) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
102 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = MAX( -1. _d 0, upwindFac(i,j) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
104 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
112 |
GAD_FLUXLIMIT_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
94 |
GAD_FLUXLIMIT_IMPL_R |
IF ( Rj.NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
95 |
GAD_FLUXLIMIT_IMPL_R |
IF (rTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
111 |
GAD_IMPLICIT_R |
a5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
112 |
GAD_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
113 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
114 |
GAD_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
115 |
GAD_IMPLICIT_R |
e5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
152 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - ( b5d(i,j,k) + d5d(i,j,k) ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
192 |
GAD_IMPLICIT_R |
rTrans(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
301 |
GAD_IMPLICIT_R |
flx(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
325 |
GAD_IMPLICIT_R |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
365 |
GAD_IMPLICIT_R |
div(i,j) = gTracer(i,j,k)*( c5d(i,j,k) - 1. _d 0 ) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
169 |
GAD_INIT_FIXED |
SmolarkiewiczMaxFrac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
49 |
GAD_INIT_VARIA |
som_T(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
51 |
GAD_INIT_VARIA |
som_S(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
100 |
GAD_OS7MP_ADV_R |
Qim = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
101 |
GAD_OS7MP_ADV_R |
Qimm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
102 |
GAD_OS7MP_ADV_R |
Qimmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
104 |
GAD_OS7MP_ADV_R |
MskIpp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
105 |
GAD_OS7MP_ADV_R |
MskIp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
106 |
GAD_OS7MP_ADV_R |
MskI = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
107 |
GAD_OS7MP_ADV_R |
MskIm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
108 |
GAD_OS7MP_ADV_R |
MskImm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
109 |
GAD_OS7MP_ADV_R |
MskImmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
112 |
GAD_OS7MP_ADV_R |
IF (wTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
114 |
GAD_OS7MP_ADV_R |
Fac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
118 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
123 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
129 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
136 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
144 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
157 |
GAD_OS7MP_ADV_R |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
164 |
GAD_OS7MP_ADV_R |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
175 |
GAD_OS7MP_ADV_R |
A = 4. _d 0*d2 - d2p1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
176 |
GAD_OS7MP_ADV_R |
B = 4. _d 0*d2p1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
179 |
GAD_OS7MP_ADV_R |
dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
180 |
GAD_OS7MP_ADV_R |
A = 4. _d 0*d2m1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
181 |
GAD_OS7MP_ADV_R |
B = 4. _d 0*d2 - d2m1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
184 |
GAD_OS7MP_ADV_R |
dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
192 |
GAD_OS7MP_ADV_R |
PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
193 |
GAD_OS7MP_ADV_R |
PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
195 |
GAD_OS7MP_ADV_R |
PhiMin = max(min(0. _d 0,PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
196 |
GAD_OS7MP_ADV_R |
& min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
197 |
GAD_OS7MP_ADV_R |
PhiMax = min(max(2. _d 0/(1. _d 0-cfl),PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
198 |
GAD_OS7MP_ADV_R |
& max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
201 |
GAD_OS7MP_ADV_R |
Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
204 |
GAD_OS7MP_ADV_R |
wT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
49 |
GAD_OS7MP_ADV_R |
Eps = 1. _d -20 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
65 |
GAD_OS7MP_ADV_R |
IF (wTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
80 |
GAD_OS7MP_ADV_R |
ELSEIF (wTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
96 |
GAD_OS7MP_ADV_R |
Qippp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
97 |
GAD_OS7MP_ADV_R |
Qipp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
98 |
GAD_OS7MP_ADV_R |
Qip = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
99 |
GAD_OS7MP_ADV_R |
Qi = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
100 |
GAD_OS7MP_ADV_X |
Qippp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
101 |
GAD_OS7MP_ADV_X |
Qipp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
102 |
GAD_OS7MP_ADV_X |
Qip = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
103 |
GAD_OS7MP_ADV_X |
Qi = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
104 |
GAD_OS7MP_ADV_X |
Qim = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
105 |
GAD_OS7MP_ADV_X |
Qimm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
106 |
GAD_OS7MP_ADV_X |
Qimmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
108 |
GAD_OS7MP_ADV_X |
MskIpp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
109 |
GAD_OS7MP_ADV_X |
MskIp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
110 |
GAD_OS7MP_ADV_X |
MskI = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
111 |
GAD_OS7MP_ADV_X |
MskIm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
112 |
GAD_OS7MP_ADV_X |
MskImm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
113 |
GAD_OS7MP_ADV_X |
MskImmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
116 |
GAD_OS7MP_ADV_X |
IF (uTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
118 |
GAD_OS7MP_ADV_X |
Fac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
122 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
127 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
133 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
140 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
148 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
161 |
GAD_OS7MP_ADV_X |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
168 |
GAD_OS7MP_ADV_X |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
179 |
GAD_OS7MP_ADV_X |
A = 4. _d 0*d2 - d2p1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
180 |
GAD_OS7MP_ADV_X |
B = 4. _d 0*d2p1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
183 |
GAD_OS7MP_ADV_X |
dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
184 |
GAD_OS7MP_ADV_X |
A = 4. _d 0*d2m1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
185 |
GAD_OS7MP_ADV_X |
B = 4. _d 0*d2 - d2m1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
188 |
GAD_OS7MP_ADV_X |
dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
196 |
GAD_OS7MP_ADV_X |
PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
197 |
GAD_OS7MP_ADV_X |
PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
199 |
GAD_OS7MP_ADV_X |
PhiMin = max( min(0. _d 0,PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
200 |
GAD_OS7MP_ADV_X |
& min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
201 |
GAD_OS7MP_ADV_X |
PhiMax = min( max(2. _d 0/(1. _d 0-cfl),PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
202 |
GAD_OS7MP_ADV_X |
& max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
205 |
GAD_OS7MP_ADV_X |
Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
208 |
GAD_OS7MP_ADV_X |
uT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
51 |
GAD_OS7MP_ADV_X |
Eps = 1. _d -20 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
54 |
GAD_OS7MP_ADV_X |
uT(1-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
55 |
GAD_OS7MP_ADV_X |
uT(2-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
56 |
GAD_OS7MP_ADV_X |
uT(3-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
57 |
GAD_OS7MP_ADV_X |
uT(4-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
58 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx-2,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
59 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx-1,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
60 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
69 |
GAD_OS7MP_ADV_X |
IF (uTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
84 |
GAD_OS7MP_ADV_X |
ELSEIF (uTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
100 |
GAD_OS7MP_ADV_Y |
Qippp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
101 |
GAD_OS7MP_ADV_Y |
Qipp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
102 |
GAD_OS7MP_ADV_Y |
Qip = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
103 |
GAD_OS7MP_ADV_Y |
Qi = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
104 |
GAD_OS7MP_ADV_Y |
Qim = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
105 |
GAD_OS7MP_ADV_Y |
Qimm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
106 |
GAD_OS7MP_ADV_Y |
Qimmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
108 |
GAD_OS7MP_ADV_Y |
MskIpp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
109 |
GAD_OS7MP_ADV_Y |
MskIp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
110 |
GAD_OS7MP_ADV_Y |
MskI = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
111 |
GAD_OS7MP_ADV_Y |
MskIm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
112 |
GAD_OS7MP_ADV_Y |
MskImm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
113 |
GAD_OS7MP_ADV_Y |
MskImmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
116 |
GAD_OS7MP_ADV_Y |
IF (vTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
118 |
GAD_OS7MP_ADV_Y |
Fac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
122 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
127 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
133 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
140 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
148 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
161 |
GAD_OS7MP_ADV_Y |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
168 |
GAD_OS7MP_ADV_Y |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
179 |
GAD_OS7MP_ADV_Y |
A = 4. _d 0*d2 - d2p1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
180 |
GAD_OS7MP_ADV_Y |
B = 4. _d 0*d2p1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
183 |
GAD_OS7MP_ADV_Y |
dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
184 |
GAD_OS7MP_ADV_Y |
A = 4. _d 0*d2m1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
185 |
GAD_OS7MP_ADV_Y |
B = 4. _d 0*d2 - d2m1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
188 |
GAD_OS7MP_ADV_Y |
dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
196 |
GAD_OS7MP_ADV_Y |
PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
197 |
GAD_OS7MP_ADV_Y |
PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
199 |
GAD_OS7MP_ADV_Y |
PhiMin = max( min(0. _d 0,PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
200 |
GAD_OS7MP_ADV_Y |
& min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
201 |
GAD_OS7MP_ADV_Y |
PhiMax = min( max(2. _d 0/(1. _d 0-cfl),PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
202 |
GAD_OS7MP_ADV_Y |
& max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
205 |
GAD_OS7MP_ADV_Y |
Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
208 |
GAD_OS7MP_ADV_Y |
vT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
51 |
GAD_OS7MP_ADV_Y |
Eps = 1. _d -20 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
54 |
GAD_OS7MP_ADV_Y |
vT(i,1-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
55 |
GAD_OS7MP_ADV_Y |
vT(i,2-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
56 |
GAD_OS7MP_ADV_Y |
vT(i,3-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
57 |
GAD_OS7MP_ADV_Y |
vT(i,4-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
58 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly-2)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
59 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly-1)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
60 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
69 |
GAD_OS7MP_ADV_Y |
IF (vTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
84 |
GAD_OS7MP_ADV_Y |
ELSEIF (vTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
44 |
GAD_OSC_LOC_R |
ohat(+1,ir) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
45 |
GAD_OSC_LOC_R |
& - floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
47 |
GAD_OSC_LOC_R |
ohat(+2,ir) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
48 |
GAD_OSC_LOC_R |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
49 |
GAD_OSC_LOC_R |
& + floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
64 |
GAD_OSC_LOC_R |
ohat(+1,ir) = floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
65 |
GAD_OSC_LOC_R |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
67 |
GAD_OSC_LOC_R |
ohat(+2,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
82 |
GAD_OSC_LOC_R |
ohat(+1,ir) = floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
83 |
GAD_OSC_LOC_R |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
85 |
GAD_OSC_LOC_R |
ohat(+2,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
44 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
45 |
GAD_OSC_LOC_X |
& - floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
47 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
48 |
GAD_OSC_LOC_X |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
49 |
GAD_OSC_LOC_X |
& + floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
66 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
67 |
GAD_OSC_LOC_X |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
69 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
70 |
GAD_OSC_LOC_X |
& - floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
71 |
GAD_OSC_LOC_X |
& + floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
88 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
89 |
GAD_OSC_LOC_X |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
91 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
92 |
GAD_OSC_LOC_X |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
93 |
GAD_OSC_LOC_X |
& + floc(-2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
44 |
GAD_OSC_LOC_Y |
ohat(+1,iy) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
45 |
GAD_OSC_LOC_Y |
& - floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
47 |
GAD_OSC_LOC_Y |
ohat(+2,iy) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
48 |
GAD_OSC_LOC_Y |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
49 |
GAD_OSC_LOC_Y |
& + floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
66 |
GAD_OSC_LOC_Y |
ohat(+1,iy) = floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
67 |
GAD_OSC_LOC_Y |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
69 |
GAD_OSC_LOC_Y |
ohat(+2,iy) = floc(+2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
70 |
GAD_OSC_LOC_Y |
& - floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
71 |
GAD_OSC_LOC_Y |
& + floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
88 |
GAD_OSC_LOC_Y |
ohat(+1,iy) = floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
89 |
GAD_OSC_LOC_Y |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
91 |
GAD_OSC_LOC_Y |
ohat(+2,iy) = floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
92 |
GAD_OSC_LOC_Y |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
93 |
GAD_OSC_LOC_Y |
& + floc(-2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
30 |
GAD_OSC_MUL_R |
omin = +1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
31 |
GAD_OSC_MUL_R |
omax = -1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
33 |
GAD_OSC_MUL_R |
zero = 1. _d -20 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
34 |
GAD_OSC_MUL_R |
mval = 1. _d + 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
39 |
GAD_OSC_MUL_R |
dels = (ii - ir) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
47 |
GAD_OSC_MUL_R |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
48 |
GAD_OSC_MUL_R |
& + (4. _d 0 * dfs2)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
58 |
GAD_OSC_MUL_R |
if (mval .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
61 |
GAD_OSC_MUL_R |
scal(1) = 1. _d 5 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
63 |
GAD_OSC_MUL_R |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
73 |
GAD_OSC_MUL_R |
scal(1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
74 |
GAD_OSC_MUL_R |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
30 |
GAD_OSC_MUL_X |
omin = +1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
31 |
GAD_OSC_MUL_X |
omax = -1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
33 |
GAD_OSC_MUL_X |
zero = 1. _d -20 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
34 |
GAD_OSC_MUL_X |
mval = 1. _d + 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
39 |
GAD_OSC_MUL_X |
dels = (ii - ix) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
47 |
GAD_OSC_MUL_X |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
48 |
GAD_OSC_MUL_X |
& + (4. _d 0 * dfs2)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
58 |
GAD_OSC_MUL_X |
if (mval .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
61 |
GAD_OSC_MUL_X |
scal(1) = 1. _d 5 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
63 |
GAD_OSC_MUL_X |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
73 |
GAD_OSC_MUL_X |
scal(1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
74 |
GAD_OSC_MUL_X |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
30 |
GAD_OSC_MUL_Y |
omin = +1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
31 |
GAD_OSC_MUL_Y |
omax = -1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
33 |
GAD_OSC_MUL_Y |
zero = 1. _d -20 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
34 |
GAD_OSC_MUL_Y |
mval = 1. _d + 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
39 |
GAD_OSC_MUL_Y |
dels = (ii - iy) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
47 |
GAD_OSC_MUL_Y |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
48 |
GAD_OSC_MUL_Y |
& + (4. _d 0 * dfs2)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
58 |
GAD_OSC_MUL_Y |
if (mval .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
61 |
GAD_OSC_MUL_Y |
scal(1) = 1. _d 5 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
63 |
GAD_OSC_MUL_Y |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
73 |
GAD_OSC_MUL_Y |
scal(1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
74 |
GAD_OSC_MUL_Y |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_plm_fun.F |
105 |
GAD_PLM_FUN_V |
& 0.5 _d 0 * (ferr - fell) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
112 |
GAD_PLM_FUN_V |
scal = min(scal, 1.0 _d 0) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
119 |
GAD_PLM_FUN_V |
dfds(+0) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_plm_fun.F |
30 |
GAD_PLM_FUN_U |
PARAMETER( epsil = 1. _d -16 ) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
35 |
GAD_PLM_FUN_U |
if (dfds(-1) * dfds(+1) .gt. 0.0 _d 0) then |
|
./pkg/generic_advdiff/gad_plm_fun.F |
38 |
GAD_PLM_FUN_U |
fell = 0.5 _d 0 * (ffll + ff00) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
39 |
GAD_PLM_FUN_U |
ferr = 0.5 _d 0 * (ff00 + ffrr) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
43 |
GAD_PLM_FUN_U |
& 0.5 _d 0 * (ferr - fell) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
50 |
GAD_PLM_FUN_U |
scal = min(scal, 1.0 _d 0) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
57 |
GAD_PLM_FUN_U |
dfds(+0) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_plm_fun.F |
61 |
GAD_PLM_FUN_U |
dfds(-1) = 0.5 _d 0 * dfds(-1) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
62 |
GAD_PLM_FUN_U |
dfds(+1) = 0.5 _d 0 * dfds(+1) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
90 |
GAD_PLM_FUN_V |
PARAMETER( epsil = 1. _d -16 ) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
95 |
GAD_PLM_FUN_V |
if (dfds(-1) * dfds(+1) .gt. 0.0 _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
100 |
GAD_PPM_ADV_R |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
107 |
GAD_PPM_ADV_R |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
153 |
GAD_PPM_ADV_R |
flux(ix,iy,ir) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
70 |
GAD_PPM_ADV_R |
mloc( -2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
71 |
GAD_PPM_ADV_R |
mloc( -1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
72 |
GAD_PPM_ADV_R |
mloc( +0) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
73 |
GAD_PPM_ADV_R |
mloc(Nr+1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
74 |
GAD_PPM_ADV_R |
mloc(Nr+2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
75 |
GAD_PPM_ADV_R |
mloc(Nr+3) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
92 |
GAD_PPM_ADV_R |
flux(ix,iy,+1) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
102 |
GAD_PPM_ADV_X |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
141 |
GAD_PPM_ADV_X |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
72 |
GAD_PPM_ADV_X |
flux( +1-OLx+0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
73 |
GAD_PPM_ADV_X |
flux( +1-OLx+1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
74 |
GAD_PPM_ADV_X |
flux( +1-OLx+2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
75 |
GAD_PPM_ADV_X |
flux( +1-OLx+3,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
76 |
GAD_PPM_ADV_X |
flux(sNx+OLx-0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
77 |
GAD_PPM_ADV_X |
flux(sNx+OLx-1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
78 |
GAD_PPM_ADV_X |
flux(sNx+OLx-2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
95 |
GAD_PPM_ADV_X |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
102 |
GAD_PPM_ADV_Y |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
141 |
GAD_PPM_ADV_Y |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
72 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
73 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
74 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
75 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
76 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
77 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
78 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
95 |
GAD_PPM_ADV_Y |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
103 |
GAD_PPM_FLX_R |
ss11 = -1. _d 0 + 2. _d 0 * wCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
104 |
GAD_PPM_FLX_R |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
109 |
GAD_PPM_FLX_R |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
111 |
GAD_PPM_FLX_R |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
69 |
GAD_PPM_FLX_R |
if (wvel(ix,iy,ir) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
71 |
GAD_PPM_FLX_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
75 |
GAD_PPM_FLX_R |
if (wvel(ix,iy,ir) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
81 |
GAD_PPM_FLX_R |
ss11 = +1. _d 0 + 2. _d 0 * wCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
82 |
GAD_PPM_FLX_R |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
87 |
GAD_PPM_FLX_R |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
89 |
GAD_PPM_FLX_R |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
112 |
GAD_PPM_FLX_X |
ss11 = -1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
113 |
GAD_PPM_FLX_X |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
118 |
GAD_PPM_FLX_X |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
120 |
GAD_PPM_FLX_X |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
68 |
GAD_PPM_FLX_X |
if (uvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
70 |
GAD_PPM_FLX_X |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
74 |
GAD_PPM_FLX_X |
if (uvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
85 |
GAD_PPM_FLX_X |
ss11 = +1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
86 |
GAD_PPM_FLX_X |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
91 |
GAD_PPM_FLX_X |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
93 |
GAD_PPM_FLX_X |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
112 |
GAD_PPM_FLX_Y |
ss11 = -1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
113 |
GAD_PPM_FLX_Y |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
118 |
GAD_PPM_FLX_Y |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
120 |
GAD_PPM_FLX_Y |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
68 |
GAD_PPM_FLX_Y |
if (vvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
70 |
GAD_PPM_FLX_Y |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
74 |
GAD_PPM_FLX_Y |
if (vvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
85 |
GAD_PPM_FLX_Y |
ss11 = +1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
86 |
GAD_PPM_FLX_Y |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
91 |
GAD_PPM_FLX_Y |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
93 |
GAD_PPM_FLX_Y |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
101 |
GAD_PPM_FUN_MONO |
& (ferr-ff00) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
111 |
GAD_PPM_FUN_MONO |
& +(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
112 |
GAD_PPM_FUN_MONO |
& -(1. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
114 |
GAD_PPM_FUN_MONO |
& +(1. _d 0 / 2. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
116 |
GAD_PPM_FUN_MONO |
& -(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
117 |
GAD_PPM_FUN_MONO |
& +(3. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
120 |
GAD_PPM_FUN_MONO |
& abs(fhat(2))*.5 _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
122 |
GAD_PPM_FUN_MONO |
turn = -0.5 _d 0 * fhat(2) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
125 |
GAD_PPM_FUN_MONO |
if ((turn .ge. -1. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
126 |
GAD_PPM_FUN_MONO |
& .and.(turn .le. +0. _d 0)) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
131 |
GAD_PPM_FUN_MONO |
ferr = +3. _d 0 * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
132 |
GAD_PPM_FUN_MONO |
& -2. _d 0 * fell |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
136 |
GAD_PPM_FUN_MONO |
if ((turn .gt. +0. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
137 |
GAD_PPM_FUN_MONO |
& .and.(turn .le. +1. _d 0)) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
142 |
GAD_PPM_FUN_MONO |
fell = +3. _d 0 * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
143 |
GAD_PPM_FUN_MONO |
& -2. _d 0 * ferr |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
153 |
GAD_PPM_FUN_MONO |
& +(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
154 |
GAD_PPM_FUN_MONO |
& -(1. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
156 |
GAD_PPM_FUN_MONO |
& +(1. _d 0 / 2. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
158 |
GAD_PPM_FUN_MONO |
& -(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
159 |
GAD_PPM_FUN_MONO |
& +(3. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
34 |
GAD_PPM_FUN_NULL |
& +(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
35 |
GAD_PPM_FUN_NULL |
& -(1. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
37 |
GAD_PPM_FUN_NULL |
& +(1. _d 0 / 2. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
39 |
GAD_PPM_FUN_NULL |
& -(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
40 |
GAD_PPM_FUN_NULL |
& +(3. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
77 |
GAD_PPM_FUN_MONO |
& (ff00-ffll) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
83 |
GAD_PPM_FUN_MONO |
fhat(2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
84 |
GAD_PPM_FUN_MONO |
fhat(3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
92 |
GAD_PPM_FUN_MONO |
& (fell-ff00) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
110 |
GAD_PPM_HAT_R |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
111 |
GAD_PPM_HAT_X |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
112 |
GAD_PPM_HAT_Y |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
46 |
GAD_PPM_P3E_R |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
52 |
GAD_PPM_P3E_R |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
58 |
GAD_PPM_P3E_R |
& -(1. _d 0 / 12. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
59 |
GAD_PPM_P3E_R |
& +(7. _d 0 / 12. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
46 |
GAD_PPM_P3E_X |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
52 |
GAD_PPM_P3E_X |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
58 |
GAD_PPM_P3E_X |
& -(1. _d 0 / 12. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
59 |
GAD_PPM_P3E_X |
& +(7. _d 0 / 12. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
47 |
GAD_PPM_P3E_Y |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
53 |
GAD_PPM_P3E_Y |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
59 |
GAD_PPM_P3E_Y |
& -(1. _d 0 / 12. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
60 |
GAD_PPM_P3E_Y |
& +(7. _d 0 / 12. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
100 |
GAD_PQM_ADV_R |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
111 |
GAD_PQM_ADV_R |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
150 |
GAD_PQM_ADV_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
70 |
GAD_PQM_ADV_R |
mloc( -2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
71 |
GAD_PQM_ADV_R |
mloc( -1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
72 |
GAD_PQM_ADV_R |
mloc( +0) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
73 |
GAD_PQM_ADV_R |
mloc(Nr+1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
74 |
GAD_PQM_ADV_R |
mloc(Nr+2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
75 |
GAD_PQM_ADV_R |
mloc(Nr+3) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
92 |
GAD_PQM_ADV_R |
flux(ix,iy,+1) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
107 |
GAD_PQM_ADV_X |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
139 |
GAD_PQM_ADV_X |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
73 |
GAD_PQM_ADV_X |
flux( +1-OLx+0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
74 |
GAD_PQM_ADV_X |
flux( +1-OLx+1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
75 |
GAD_PQM_ADV_X |
flux( +1-OLx+2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
76 |
GAD_PQM_ADV_X |
flux( +1-OLx+3,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
77 |
GAD_PQM_ADV_X |
flux(sNx+OLx-0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
78 |
GAD_PQM_ADV_X |
flux(sNx+OLx-1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
79 |
GAD_PQM_ADV_X |
flux(sNx+OLx-2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
96 |
GAD_PQM_ADV_X |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
107 |
GAD_PQM_ADV_Y |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
139 |
GAD_PQM_ADV_Y |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
73 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
74 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
75 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
76 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
77 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
78 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
79 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
96 |
GAD_PQM_ADV_Y |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
109 |
GAD_PQM_FLX_R |
ss11 = -1. _d 0 + 2. _d 0 * wCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
110 |
GAD_PQM_FLX_R |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
115 |
GAD_PQM_FLX_R |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
117 |
GAD_PQM_FLX_R |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
119 |
GAD_PQM_FLX_R |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
121 |
GAD_PQM_FLX_R |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
69 |
GAD_PQM_FLX_R |
if (wfac(ix,iy,ir) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
71 |
GAD_PQM_FLX_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
75 |
GAD_PQM_FLX_R |
if (wfac(ix,iy,ir) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
81 |
GAD_PQM_FLX_R |
ss11 = +1. _d 0 + 2. _d 0 * wCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
82 |
GAD_PQM_FLX_R |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
87 |
GAD_PQM_FLX_R |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
89 |
GAD_PQM_FLX_R |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
91 |
GAD_PQM_FLX_R |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
93 |
GAD_PQM_FLX_R |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
118 |
GAD_PQM_FLX_X |
ss11 = -1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
119 |
GAD_PQM_FLX_X |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
124 |
GAD_PQM_FLX_X |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
126 |
GAD_PQM_FLX_X |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
128 |
GAD_PQM_FLX_X |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
130 |
GAD_PQM_FLX_X |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
68 |
GAD_PQM_FLX_X |
if (uvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
70 |
GAD_PQM_FLX_X |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
74 |
GAD_PQM_FLX_X |
if (uvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
85 |
GAD_PQM_FLX_X |
ss11 = +1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
86 |
GAD_PQM_FLX_X |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
91 |
GAD_PQM_FLX_X |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
93 |
GAD_PQM_FLX_X |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
95 |
GAD_PQM_FLX_X |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
97 |
GAD_PQM_FLX_X |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
118 |
GAD_PQM_FLX_Y |
ss11 = -1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
119 |
GAD_PQM_FLX_Y |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
124 |
GAD_PQM_FLX_Y |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
126 |
GAD_PQM_FLX_Y |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
128 |
GAD_PQM_FLX_Y |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
130 |
GAD_PQM_FLX_Y |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
68 |
GAD_PQM_FLX_Y |
if (vvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
70 |
GAD_PQM_FLX_Y |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
74 |
GAD_PQM_FLX_Y |
if (vvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
85 |
GAD_PQM_FLX_Y |
ss11 = +1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
86 |
GAD_PQM_FLX_Y |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
91 |
GAD_PQM_FLX_Y |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
93 |
GAD_PQM_FLX_Y |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
95 |
GAD_PQM_FLX_Y |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
97 |
GAD_PQM_FLX_Y |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
102 |
GAD_PQM_FUN_NULL |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
103 |
GAD_PQM_FUN_NULL |
& - ( 7. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
104 |
GAD_PQM_FUN_NULL |
& + ( 1. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
106 |
GAD_PQM_FUN_NULL |
& + ( 3. _d 0 / 4. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
107 |
GAD_PQM_FUN_NULL |
& - ( 1. _d 0 / 4. _d 0) *(derr+dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
109 |
GAD_PQM_FUN_NULL |
& - (30. _d 0 / 8. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
110 |
GAD_PQM_FUN_NULL |
& + (15. _d 0 / 8. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
111 |
GAD_PQM_FUN_NULL |
& - ( 3. _d 0 / 8. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
113 |
GAD_PQM_FUN_NULL |
& - ( 1. _d 0 / 4. _d 0) *(ferr-fell-derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
115 |
GAD_PQM_FUN_NULL |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
116 |
GAD_PQM_FUN_NULL |
& - (15. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
117 |
GAD_PQM_FUN_NULL |
& + ( 5. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
161 |
GAD_PQM_FUN_MONO |
& (ff00-ffll) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
167 |
GAD_PQM_FUN_MONO |
fhat(2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
168 |
GAD_PQM_FUN_MONO |
fhat(3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
169 |
GAD_PQM_FUN_MONO |
fhat(4) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
170 |
GAD_PQM_FUN_MONO |
fhat(5) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
178 |
GAD_PQM_FUN_MONO |
& (fell - ff00) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
187 |
GAD_PQM_FUN_MONO |
& (ferr - ff00) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
196 |
GAD_PQM_FUN_MONO |
if((dell * dfds(-1)) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
204 |
GAD_PQM_FUN_MONO |
if((derr * dfds(+1)) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
214 |
GAD_PQM_FUN_MONO |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
215 |
GAD_PQM_FUN_MONO |
& - ( 7. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
216 |
GAD_PQM_FUN_MONO |
& + ( 1. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
218 |
GAD_PQM_FUN_MONO |
& + ( 3. _d 0 / 4. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
219 |
GAD_PQM_FUN_MONO |
& - ( 1. _d 0 / 4. _d 0) *(derr+dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
221 |
GAD_PQM_FUN_MONO |
& - (30. _d 0 / 8. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
222 |
GAD_PQM_FUN_MONO |
& + (15. _d 0 / 8. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
223 |
GAD_PQM_FUN_MONO |
& - ( 3. _d 0 / 8. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
225 |
GAD_PQM_FUN_MONO |
& - ( 1. _d 0 / 4. _d 0) *(ferr-fell-derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
227 |
GAD_PQM_FUN_MONO |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
228 |
GAD_PQM_FUN_MONO |
& - (15. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
229 |
GAD_PQM_FUN_MONO |
& + ( 5. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
232 |
GAD_PQM_FUN_MONO |
aval = 12. _d 0 * fhat(5) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
233 |
GAD_PQM_FUN_MONO |
bval = 6. _d 0 * fhat(4) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
234 |
GAD_PQM_FUN_MONO |
cval = 2. _d 0 * fhat(3) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
240 |
GAD_PQM_FUN_MONO |
if ( ( iflx(1) .gt. -1. _d 0 ) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
241 |
GAD_PQM_FUN_MONO |
& .and. ( iflx(1) .lt. +1. _d 0 ) ) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
245 |
GAD_PQM_FUN_MONO |
& + iflx(1) * fhat(3) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
246 |
GAD_PQM_FUN_MONO |
& +(iflx(1) ** 2) * fhat(4) * 3. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
247 |
GAD_PQM_FUN_MONO |
& +(iflx(1) ** 3) * fhat(5) * 4. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
249 |
GAD_PQM_FUN_MONO |
if (dflx(1)*dfds(+0) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
266 |
GAD_PQM_FUN_MONO |
if ( ( iflx(2) .gt. -1. _d 0 ) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
267 |
GAD_PQM_FUN_MONO |
& .and. ( iflx(2) .lt. +1. _d 0 ) ) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
271 |
GAD_PQM_FUN_MONO |
& + iflx(2) * fhat(3) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
272 |
GAD_PQM_FUN_MONO |
& +(iflx(2) ** 2) * fhat(4) * 3. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
273 |
GAD_PQM_FUN_MONO |
& +(iflx(2) ** 3) * fhat(5) * 4. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
275 |
GAD_PQM_FUN_MONO |
if (dflx(2)*dfds(+0) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
300 |
GAD_PQM_FUN_MONO |
& -( 5. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
301 |
GAD_PQM_FUN_MONO |
& +( 3. _d 0 / 1. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
302 |
GAD_PQM_FUN_MONO |
& +( 2. _d 0 / 1. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
304 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 3. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
305 |
GAD_PQM_FUN_MONO |
& -( 1. _d 0 / 3. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
306 |
GAD_PQM_FUN_MONO |
& -( 4. _d 0 / 3. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
308 |
GAD_PQM_FUN_MONO |
if (dell*dfds(-1) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
310 |
GAD_PQM_FUN_MONO |
dell = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
313 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
314 |
GAD_PQM_FUN_MONO |
& -( 4. _d 0 / 1. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
316 |
GAD_PQM_FUN_MONO |
& +(10. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
317 |
GAD_PQM_FUN_MONO |
& -(10. _d 0 / 1. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
31 |
NO PROCEDURE |
sq = bb * bb - 4. _d 0 * aa * cc |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
321 |
GAD_PQM_FUN_MONO |
if (derr*dfds(+1) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
323 |
GAD_PQM_FUN_MONO |
derr = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
326 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
327 |
GAD_PQM_FUN_MONO |
& -( 3. _d 0 / 2. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
329 |
GAD_PQM_FUN_MONO |
& -( 5. _d 0 / 3. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
330 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 3. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
33 |
NO PROCEDURE |
if (a0 .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
342 |
GAD_PQM_FUN_MONO |
& -( 5. _d 0 / 3. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
343 |
GAD_PQM_FUN_MONO |
& +( 4. _d 0 / 3. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
344 |
GAD_PQM_FUN_MONO |
& +( 1. _d 0 / 3. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
346 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
347 |
GAD_PQM_FUN_MONO |
& -( 2. _d 0 / 1. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
348 |
GAD_PQM_FUN_MONO |
& -( 3. _d 0 / 1. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
350 |
GAD_PQM_FUN_MONO |
if (dell*dfds(-1) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
352 |
GAD_PQM_FUN_MONO |
dell = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
355 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
356 |
GAD_PQM_FUN_MONO |
& -( 3. _d 0 / 2. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
358 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 3. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
359 |
GAD_PQM_FUN_MONO |
& -( 5. _d 0 / 3. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
35 |
NO PROCEDURE |
if (sq .ge. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
363 |
GAD_PQM_FUN_MONO |
if (derr*dfds(+1) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
365 |
GAD_PQM_FUN_MONO |
derr = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
368 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
369 |
GAD_PQM_FUN_MONO |
& -( 4. _d 0 / 1. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
371 |
GAD_PQM_FUN_MONO |
& -(10. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
372 |
GAD_PQM_FUN_MONO |
& +(10. _d 0 / 1. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
384 |
GAD_PQM_FUN_MONO |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
385 |
GAD_PQM_FUN_MONO |
& - ( 7. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
386 |
GAD_PQM_FUN_MONO |
& + ( 1. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
388 |
GAD_PQM_FUN_MONO |
& + ( 3. _d 0 / 4. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
389 |
GAD_PQM_FUN_MONO |
& - ( 1. _d 0 / 4. _d 0) *(derr+dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
391 |
GAD_PQM_FUN_MONO |
& - (30. _d 0 / 8. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
392 |
GAD_PQM_FUN_MONO |
& + (15. _d 0 / 8. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
393 |
GAD_PQM_FUN_MONO |
& - ( 3. _d 0 / 8. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
395 |
GAD_PQM_FUN_MONO |
& - ( 1. _d 0 / 4. _d 0) *(ferr-fell-derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
397 |
GAD_PQM_FUN_MONO |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
398 |
GAD_PQM_FUN_MONO |
& - (15. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
399 |
GAD_PQM_FUN_MONO |
& + ( 5. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
44 |
NO PROCEDURE |
aa = 0.5 _d 0 / aa |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
57 |
NO PROCEDURE |
if (b0 .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
130 |
GAD_PQM_HAT_R |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
78 |
GAD_PQM_HAT_R |
rhat = drF(ir) * .5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
132 |
GAD_PQM_HAT_X |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
159 |
GAD_PQM_HAT_X |
fhat(ii,ix) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
77 |
GAD_PQM_HAT_X |
if (mask(ix) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
80 |
GAD_PQM_HAT_X |
xhat = dxF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
133 |
GAD_PQM_HAT_Y |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
160 |
GAD_PQM_HAT_Y |
fhat(ii,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
78 |
GAD_PQM_HAT_Y |
if (mask(iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
81 |
GAD_PQM_HAT_Y |
yhat = dyF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
48 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
51 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
58 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
61 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
67 |
GAD_PQM_P5E_R |
& +( 1. _d 0/60. _d 0)*(floc(-3)+floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
68 |
GAD_PQM_P5E_R |
& -( 8. _d 0/60. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
69 |
GAD_PQM_P5E_R |
& +(37. _d 0/60. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
72 |
GAD_PQM_P5E_R |
& -( 1. _d 0/90. _d 0)*(floc(-3)-floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
73 |
GAD_PQM_P5E_R |
& +( 5. _d 0/36. _d 0)*(floc(-2)-floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
74 |
GAD_PQM_P5E_R |
& -(49. _d 0/36. _d 0)*(floc(-1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
48 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
51 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
58 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
61 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
67 |
GAD_PQM_P5E_X |
& +( 1. _d 0/60. _d 0)*(floc(-3)+floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
68 |
GAD_PQM_P5E_X |
& -( 8. _d 0/60. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
69 |
GAD_PQM_P5E_X |
& +(37. _d 0/60. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
72 |
GAD_PQM_P5E_X |
& -( 1. _d 0/90. _d 0)*(floc(-3)-floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
73 |
GAD_PQM_P5E_X |
& +( 5. _d 0/36. _d 0)*(floc(-2)-floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
74 |
GAD_PQM_P5E_X |
& -(49. _d 0/36. _d 0)*(floc(-1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
49 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
52 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
59 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
62 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
68 |
GAD_PQM_P5E_Y |
& +( 1. _d 0/60. _d 0)*(floc(-3)+floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
69 |
GAD_PQM_P5E_Y |
& -( 8. _d 0/60. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
70 |
GAD_PQM_P5E_Y |
& +(37. _d 0/60. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
73 |
GAD_PQM_P5E_Y |
& -( 1. _d 0/90. _d 0)*(floc(-3)-floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
74 |
GAD_PQM_P5E_Y |
& +( 5. _d 0/36. _d 0)*(floc(-2)-floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
75 |
GAD_PQM_P5E_Y |
& -(49. _d 0/36. _d 0)*(floc(-1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
110 |
GAD_SOM_ADV_R |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
148 |
GAD_SOM_ADV_R |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
163 |
GAD_SOM_ADV_R |
alp1 = 1. _d 0 - alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
195 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - aln(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
222 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - aln(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
285 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
316 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
317 |
GAD_SOM_ADV_R |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
318 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - alfn |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
324 |
GAD_SOM_ADV_R |
& - 5. _d 0*(-alpmn*alf1*sm_z(i,j,k) + alfp*alp1*fp_z(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
124 |
GAD_SOM_ADV_X |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
161 |
GAD_SOM_ADV_X |
s1max = slpmax*1.5 _d 0 |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
182 |
GAD_SOM_ADV_X |
alp1 = 1. _d 0 - alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
201 |
GAD_SOM_ADV_X |
aln1 = 1. _d 0 - aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
235 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - aln(i,j) - alp(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
266 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
267 |
GAD_SOM_ADV_X |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
268 |
GAD_SOM_ADV_X |
aln1 = 1. _d 0 - alfn |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
274 |
GAD_SOM_ADV_X |
& - 5. _d 0*(-alpmn*alf1*sm_x(i,j) + alfp*alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
88 |
GAD_SOM_ADV_X |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
124 |
GAD_SOM_ADV_Y |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
161 |
GAD_SOM_ADV_Y |
s1max = slpmax*1.5 _d 0 |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
182 |
GAD_SOM_ADV_Y |
alp1 = 1. _d 0 - alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
202 |
GAD_SOM_ADV_Y |
aln1 = 1. _d 0 - aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
236 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - aln(i,j) - alp(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
267 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
268 |
GAD_SOM_ADV_Y |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
269 |
GAD_SOM_ADV_Y |
aln1 = 1. _d 0 - alfn |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
275 |
GAD_SOM_ADV_Y |
& - 5. _d 0*(-alpmn*alf1*sm_y(i,j) + alfp*alp1*fp_y(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
88 |
GAD_SOM_ADV_Y |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
270 |
GAD_SOM_ADVECT |
& + (1. _d 0 - maskC(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_som_advect.F |
481 |
GAD_SOM_ADVECT |
alp (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
482 |
GAD_SOM_ADVECT |
aln (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
483 |
GAD_SOM_ADVECT |
fp_v (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
484 |
GAD_SOM_ADVECT |
fn_v (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
485 |
GAD_SOM_ADVECT |
fp_o (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
486 |
GAD_SOM_ADVECT |
fn_o (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
487 |
GAD_SOM_ADVECT |
fp_x (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
488 |
GAD_SOM_ADVECT |
fn_x (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
489 |
GAD_SOM_ADVECT |
fp_y (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
490 |
GAD_SOM_ADVECT |
fn_y (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
491 |
GAD_SOM_ADVECT |
fp_z (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
492 |
GAD_SOM_ADVECT |
fn_z (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
493 |
GAD_SOM_ADVECT |
fp_xx(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
494 |
GAD_SOM_ADVECT |
fn_xx(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
495 |
GAD_SOM_ADVECT |
fp_yy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
496 |
GAD_SOM_ADVECT |
fn_yy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
497 |
GAD_SOM_ADVECT |
fp_zz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
498 |
GAD_SOM_ADVECT |
fn_zz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
499 |
GAD_SOM_ADVECT |
fp_xy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
500 |
GAD_SOM_ADVECT |
fn_xy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
501 |
GAD_SOM_ADVECT |
fp_xz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
502 |
GAD_SOM_ADVECT |
fn_xz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
503 |
GAD_SOM_ADVECT |
fp_yz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
504 |
GAD_SOM_ADVECT |
fn_yz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
58 |
GAD_SOM_LIM_R |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
71 |
GAD_SOM_LIM_R |
s1max = slpmax*1.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
77 |
GAD_U3_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
78 |
GAD_U3_ADV_R |
& -oneSixth*(Rjjm+Rjjp)*0.5 _d 0 ) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
80 |
GAD_U3_ADV_R |
& oneSixth*(Rjjm-Rjjp)*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
72 |
GAD_U3_ADV_X |
& )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
73 |
GAD_U3_ADV_X |
& +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
72 |
GAD_U3_ADV_Y |
& )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
73 |
GAD_U3_ADV_Y |
& +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
103 |
GAD_U3C4_IMPL_R |
& 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
106 |
GAD_U3C4_IMPL_R |
IF ( flagC4 .AND. mskM*mskP.GT.0. _d 0 ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
107 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
114 |
GAD_U3C4_IMPL_R |
rHigh = (1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
116 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = (2. _d 0*rHigh )*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
120 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = 2. _d 0*oneSixth*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
135 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
138 |
GAD_U3C4_IMPL_R |
IF ( flagC4 .AND. mskM*mskP.GT.0. _d 0 ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
139 |
GAD_U3C4_IMPL_R |
rUpwind= 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
146 |
GAD_U3C4_IMPL_R |
rHigh = (1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
148 |
GAD_U3C4_IMPL_R |
rUpwind= (2. _d 0*rHigh )*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
152 |
GAD_U3C4_IMPL_R |
rUpwind= 2. _d 0*oneSixth*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
90 |
GAD_U3C4_IMPL_R |
maskP1 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
91 |
GAD_U3C4_IMPL_R |
maskM2 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
92 |
GAD_U3C4_IMPL_R |
IF ( k.LE.2 ) maskM2 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
93 |
GAD_U3C4_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
101 |
SALT_FILL |
if(salt(i,j,1,bi,bj).lt.0.0 _d 0) |
|
./pkg/generic_advdiff/salt_fill.F |
102 |
SALT_FILL |
. salt(i,j,1,bi,bj) = 0.0 _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
75 |
SALT_FILL |
tmpFac = -1. _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
90 |
SALT_FILL |
if( salt(i,j,L,bi,bj).lt.0.0 _d 0) then |
|
./pkg/generic_advdiff/salt_fill.F |
93 |
SALT_FILL |
salt(i,j,L,bi,bj) = 0.0 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
135 |
GGL90_CALC |
p4 = 0.25 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
136 |
GGL90_CALC |
p8 = 0.125 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
137 |
GGL90_CALC |
p16 = 0.0625 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
145 |
GGL90_CALC |
explDissFac = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
146 |
GGL90_CALC |
implDissFac = 1. _d 0 - explDissFac |
|
./pkg/ggl90/ggl90_calc.F |
156 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,km1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
157 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
158 |
GGL90_CALC |
recip_hFacI(I,J,K)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
159 |
GGL90_CALC |
IF ( hFac .NE. 0. _d 0 ) |
|
./pkg/ggl90/ggl90_calc.F |
160 |
GGL90_CALC |
& recip_hFacI(I,J,K)=1. _d 0/hFac |
|
./pkg/ggl90/ggl90_calc.F |
172 |
GGL90_CALC |
rMixingLength(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
mxLength_Dn(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
174 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
175 |
GGL90_CALC |
KappaE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
176 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
178 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
180 |
GGL90_CALC |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
181 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
182 |
GGL90_CALC |
c3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
184 |
GGL90_CALC |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
185 |
GGL90_CALC |
SQRTTKE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
191 |
GGL90_CALC |
KappaM(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
192 |
GGL90_CALC |
verticalShear(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
194 |
GGL90_CALC |
rMixingLength(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
198 |
GGL90_CALC |
xA(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
199 |
GGL90_CALC |
yA(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
200 |
GGL90_CALC |
dfx(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
201 |
GGL90_CALC |
dfy(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
202 |
GGL90_CALC |
gTKE(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
257 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
280 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
315 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
352 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / tmpmlx |
|
./pkg/ggl90/ggl90_calc.F |
367 |
GGL90_CALC |
IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_calc.F |
374 |
GGL90_CALC |
& (min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
375 |
GGL90_CALC |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
377 |
GGL90_CALC |
& (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
378 |
GGL90_CALC |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
384 |
GGL90_CALC |
dfx(1-OLx,j)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
396 |
GGL90_CALC |
dfy(i,1-OLy)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
471 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
474 |
GGL90_CALC |
IDEMIX_RiNumber = MAX( KappaM(i,j)*Nsquare(i,j,k), 0. _d 0)/ |
|
./pkg/ggl90/ggl90_calc.F |
476 |
GGL90_CALC |
prTemp = MIN(5.*RiNumber, 6.6 _d 0*IDEMIX_RiNumber) |
|
./pkg/ggl90/ggl90_calc.F |
477 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
478 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MAX( 1. _d 0,TKEPrandtlNumber(i,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
487 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
489 |
GGL90_CALC |
prTemp = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
490 |
GGL90_CALC |
IF ( RiNumber .GE. 0.2 _d 0 ) prTemp = 5. _d 0 * RiNumber |
|
./pkg/ggl90/ggl90_calc.F |
491 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
531 |
GGL90_CALC |
IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_calc.F |
553 |
GGL90_CALC |
a3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
565 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1)) |
|
./pkg/ggl90/ggl90_calc.F |
573 |
GGL90_CALC |
c3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
585 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
609 |
GGL90_CALC |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
619 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 - c3d(i,j,k) - a3d(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
634 |
GGL90_CALC |
& ( .5 _d 0*( surfaceForcingU(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
636 |
GGL90_CALC |
& + ( .5 _d 0*( surfaceForcingV(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
644 |
GGL90_CALC |
a3d(i,j,kp1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
655 |
GGL90_CALC |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
727 |
GGL90_CALC |
& p4 * 2. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
757 |
GGL90_CALC |
& p4 * 2. _d 0 |
|
./pkg/ggl90/ggl90_calc_visc.F |
43 |
GGL90_CALC_VISC |
p4=0.25 _d 0 |
|
./pkg/ggl90/ggl90_calc_visc.F |
44 |
GGL90_CALC_VISC |
p8=0.125 _d 0 |
|
./pkg/ggl90/ggl90_calc_visc.F |
45 |
GGL90_CALC_VISC |
p16=0.0625 _d 0 |
|
./pkg/ggl90/ggl90_check.F |
51 |
GGL90_CHECK |
IF ( GGL90diffTKEh .NE. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_check.F |
59 |
GGL90_CHECK |
IF ( GGL90diffTKEh .NE. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_exchanges.F |
37 |
GGL90_EXCHANGES |
IF (GGL90isON .AND. GGL90diffTKEh .GT. 0. _d 0) THEN |
|
./pkg/ggl90/ggl90_idemix.F |
103 |
GGL90_IDEMIX |
dfx(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
104 |
GGL90_IDEMIX |
dfy(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
105 |
GGL90_IDEMIX |
bN0(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
106 |
GGL90_IDEMIX |
gm_forc(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
117 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
141 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
144 |
GGL90_IDEMIX |
c0(i,j,k)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
146 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
148 |
GGL90_IDEMIX |
fxc = max( 1. _d 0 , fxa ) |
|
./pkg/ggl90/ggl90_idemix.F |
155 |
GGL90_IDEMIX |
IF ( IDEMIX_tau_h .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_idemix.F |
160 |
GGL90_IDEMIX |
fxa = sqrt( 1. _d 0/( deltaTggl90 * IDEMIX_tau_h ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
191 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
206 |
GGL90_IDEMIX |
& +.5 _d 0*(GM_EG_diss(i,j,k,bi,bj)+ |
|
./pkg/ggl90/ggl90_idemix.F |
216 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
241 |
GGL90_IDEMIX |
dfx(1-OLx,j)=0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
243 |
GGL90_IDEMIX |
fxa = IDEMIX_tau_h*0.5 _d 0*( |
|
./pkg/ggl90/ggl90_idemix.F |
247 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
248 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
256 |
GGL90_IDEMIX |
dfy(i,1-OLy)=0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
260 |
GGL90_IDEMIX |
fxa = IDEMIX_tau_h*0.5 _d 0*( |
|
./pkg/ggl90/ggl90_idemix.F |
264 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
265 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
306 |
GGL90_IDEMIX |
& *.5 _d 0*(c0(i,j,k)+c0(i,j,k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
312 |
GGL90_IDEMIX |
delta(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
313 |
GGL90_IDEMIX |
delta(i,j,Nr) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
315 |
GGL90_IDEMIX |
delta(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
322 |
GGL90_IDEMIX |
a3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
323 |
GGL90_IDEMIX |
a3d(i,j,2) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
353 |
GGL90_IDEMIX |
c3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
355 |
GGL90_IDEMIX |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
362 |
GGL90_IDEMIX |
b3d(i,j,1) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
369 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
389 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
397 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
445 |
GGL90_IDEMIX |
& /max(1. _d -12,Nsquare(i,j,k))*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
90 |
GGL90_IDEMIX |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
91 |
GGL90_IDEMIX |
delta(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
92 |
GGL90_IDEMIX |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
93 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
94 |
GGL90_IDEMIX |
c3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
95 |
GGL90_IDEMIX |
osborn_diff(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
96 |
GGL90_IDEMIX |
c0(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
97 |
GGL90_IDEMIX |
forc(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_fixed.F |
54 |
GGL90_INIT_FIXED |
mskCor(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
106 |
GGL90_INIT_VARIA |
IDEMIX_F_b(i,j,bi,bj) = -MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
107 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_b(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
111 |
GGL90_INIT_VARIA |
& IDEMIX_F_b(i,j,bi,bj)/1024. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
125 |
GGL90_INIT_VARIA |
IDEMIX_F_s(i,j,bi,bj) = MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
126 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_s(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
50 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
51 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
52 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
79 |
GGL90_INIT_VARIA |
IDEMIX_E(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
80 |
GGL90_INIT_VARIA |
IDEMIX_V0(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
81 |
GGL90_INIT_VARIA |
IDEMIX_tau_d(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
88 |
GGL90_INIT_VARIA |
IDEMIX_F_B(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
89 |
GGL90_INIT_VARIA |
IDEMIX_F_S(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_output.F |
108 |
GGL90_OUTPUT |
IF ( GGL90taveFreq .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
100 |
GGL90_READPARMS |
GGL90alpha = 1.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
102 |
GGL90_READPARMS |
GGL90m2 = 3.75 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
103 |
GGL90_READPARMS |
GGL90TKEmin = 1.0 _d -11 |
|
./pkg/ggl90/ggl90_readparms.F |
105 |
GGL90_READPARMS |
GGL90TKEsurfMin = 1.0 _d -04 |
|
./pkg/ggl90/ggl90_readparms.F |
107 |
GGL90_READPARMS |
GGL90viscMax = 1. _d 2 |
|
./pkg/ggl90/ggl90_readparms.F |
108 |
GGL90_READPARMS |
GGL90diffMax = 1. _d 2 |
|
./pkg/ggl90/ggl90_readparms.F |
109 |
GGL90_READPARMS |
GGL90diffTKEh = 0.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
110 |
GGL90_READPARMS |
GGL90mixingLengthMin = 1.0 _d -08 |
|
./pkg/ggl90/ggl90_readparms.F |
122 |
GGL90_READPARMS |
IDEMIX_tau_v = 1.0*86400.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
123 |
GGL90_READPARMS |
IDEMIX_tau_h = 10.0*86400.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
124 |
GGL90_READPARMS |
IDEMIX_gamma = 1.57 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
125 |
GGL90_READPARMS |
IDEMIX_jstar = 10.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
126 |
GGL90_READPARMS |
IDEMIX_mu0 = 4.0 _d 0/3.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
127 |
GGL90_READPARMS |
IDEMIX_mixing_efficiency = 0.1666 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
128 |
GGL90_READPARMS |
IDEMIX_diff_max = 1.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
129 |
GGL90_READPARMS |
IDEMIX_diff_min = 1.0 _d -9 |
|
./pkg/ggl90/ggl90_readparms.F |
130 |
GGL90_READPARMS |
IDEMIX_frac_F_b = 1.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
131 |
GGL90_READPARMS |
IDEMIX_frac_F_s = 0.2 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
98 |
GGL90_READPARMS |
GGL90ck = 0.1 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
99 |
GGL90_READPARMS |
GGL90ceps = 0.7 _d 0 |
|
./pkg/gmredi/GMREDI.h |
11 |
NO PROCEDURE |
PARAMETER( op5 = 0.5 _d 0 ) |
|
./pkg/gmredi/GMREDI.h |
12 |
NO PROCEDURE |
PARAMETER( op25 = 0.25 _d 0 ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
100 |
GMREDI_CALC_PSI_B |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
101 |
GMREDI_CALC_PSI_B |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
102 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
103 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
100 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
118 |
GMREDI_CALC_PSI_BVP |
& + SQRT(MAX( -dSigmaDrW, 0. _d 0 )) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
153 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
178 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
179 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
180 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
197 |
GMREDI_CALC_PSI_BVP |
& + SQRT(MAX( -dSigmaDrS, 0. _d 0 )) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
225 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
66 |
GMREDI_CALC_PSI_BVP |
PARAMETER ( rPI = 0.318309886183791 _d 0 ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
81 |
GMREDI_CALC_PSI_BVP |
wkb_cW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
82 |
GMREDI_CALC_PSI_BVP |
wkb_cS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
89 |
GMREDI_CALC_PSI_BVP |
GM_PsiX(i,j,1,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
90 |
GMREDI_CALC_PSI_BVP |
GM_PsiY(i,j,1,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
98 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
99 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1031 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1054 |
GMREDI_CALC_TENSOR |
& ) ) * 0.25 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
148 |
GMREDI_CALC_TENSOR |
recipMaxSlope = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
149 |
GMREDI_CALC_TENSOR |
IF ( GM_Visbeck_maxSlope.GT.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
150 |
GMREDI_CALC_TENSOR |
recipMaxSlope = 1. _d 0 / GM_Visbeck_maxSlope |
|
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
162 |
GMREDI_CALC_TENSOR |
Cspd = 2. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
163 |
GMREDI_CALC_TENSOR |
LrhoInf = 15. _d 3 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
164 |
GMREDI_CALC_TENSOR |
LrhoSup = 100. _d 3 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
212 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
213 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
214 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
223 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
224 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
233 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
234 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
235 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
237 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
238 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
241 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
242 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
253 |
GMREDI_CALC_TENSOR |
baseSlope(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
254 |
GMREDI_CALC_TENSOR |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
255 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
300 |
GMREDI_CALC_TENSOR |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
301 |
GMREDI_CALC_TENSOR |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
302 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
303 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
304 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
305 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
306 |
GMREDI_CALC_TENSOR |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
331 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
363 |
GMREDI_CALC_TENSOR |
dSigmaR = ( dSigmaDr(i,j)*4. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
368 |
GMREDI_CALC_TENSOR |
& )/( 4. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
376 |
GMREDI_CALC_TENSOR |
IF ( dSigmaH .GT. 0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
388 |
GMREDI_CALC_TENSOR |
IF ( N2loc.GT.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
391 |
GMREDI_CALC_TENSOR |
SNloc = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
394 |
GMREDI_CALC_TENSOR |
SNloc = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
477 |
GMREDI_CALC_TENSOR |
deltaH=max(deltaH, 0. _d 0) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
555 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
559 |
GMREDI_CALC_TENSOR |
& *(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
669 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
670 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
813 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
836 |
GMREDI_CALC_TENSOR |
& ) ) * 0.25 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
887 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
888 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
50 |
GMREDI_INIT_FIXED |
GM_isoFac2d(i,j,bi,bj) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
51 |
GMREDI_INIT_FIXED |
GM_bolFac2d(i,j,bi,bj) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
71 |
GMREDI_INIT_FIXED |
GM_isoFac1d(k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
72 |
GMREDI_INIT_FIXED |
GM_bolFac1d(k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
146 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = .5 _d 0*angleSinC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_init_varia.F |
149 |
GMREDI_INIT_VARIA |
& + .5 _d 0*angleCosC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_init_varia.F |
152 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj)=max(1. _d -18, gradf(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
48 |
GMREDI_INIT_VARIA |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
49 |
GMREDI_INIT_VARIA |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
50 |
GMREDI_INIT_VARIA |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
52 |
GMREDI_INIT_VARIA |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
53 |
GMREDI_INIT_VARIA |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
56 |
GMREDI_INIT_VARIA |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
57 |
GMREDI_INIT_VARIA |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
60 |
GMREDI_INIT_VARIA |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
61 |
GMREDI_INIT_VARIA |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
64 |
GMREDI_INIT_VARIA |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
67 |
GMREDI_INIT_VARIA |
K3D(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
78 |
GMREDI_INIT_VARIA |
GM_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
378 |
GMREDI_K3D |
tmpU(i,j) = 0.5 _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
380 |
GMREDI_K3D |
tmpV(i,j) = 0.5 _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
465 |
GMREDI_K3D |
Req = SQRT(BVint(i,j)/(2. _d 0*pi*gradf(i,j,bi,bj))) |
|
./pkg/gmredi/gmredi_readparms.F |
100 |
GMREDI_READPARMS |
GM_Kmin_horiz = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
101 |
GMREDI_READPARMS |
GM_Small_Number = 1. _d -20 |
|
./pkg/gmredi/gmredi_readparms.F |
102 |
GMREDI_READPARMS |
GM_slopeSqCutoff = 1. _d +48 |
|
./pkg/gmredi/gmredi_readparms.F |
107 |
GMREDI_READPARMS |
GM_Scrit = 0.004 _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
108 |
GMREDI_READPARMS |
GM_Sd = 0.001 _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
122 |
GMREDI_READPARMS |
GM_Visbeck_alpha = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
123 |
GMREDI_READPARMS |
GM_Visbeck_length = 200. _d 3 |
|
./pkg/gmredi/gmredi_readparms.F |
124 |
GMREDI_READPARMS |
GM_Visbeck_depth = 1000. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
125 |
GMREDI_READPARMS |
GM_Visbeck_minDepth = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
127 |
GMREDI_READPARMS |
GM_Visbeck_minVal_K = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
128 |
GMREDI_READPARMS |
GM_Visbeck_maxVal_K = 2500. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
133 |
GMREDI_READPARMS |
GM_BVP_cMin = 1. _d -1 |
|
./pkg/gmredi/gmredi_readparms.F |
137 |
GMREDI_READPARMS |
subMeso_invTau = 2.0 _d -6 |
|
./pkg/gmredi/gmredi_readparms.F |
138 |
GMREDI_READPARMS |
subMeso_LfMin = 1.0 _d +3 |
|
./pkg/gmredi/gmredi_readparms.F |
139 |
GMREDI_READPARMS |
subMeso_Ceff = 7.0 _d -2 |
|
./pkg/gmredi/gmredi_readparms.F |
140 |
GMREDI_READPARMS |
subMeso_Lmax = 110. _d +3 |
|
./pkg/gmredi/gmredi_readparms.F |
197 |
GMREDI_READPARMS |
if (GM_maxSlope.NE.0.) GM_rMaxSlope = 1. _d 0 / GM_maxSlope |
|
./pkg/gmredi/gmredi_readparms.F |
214 |
GMREDI_READPARMS |
GM_BVP_rModeNumber = 1. _d 0/DBLE(GM_BVP_ModeNumber) |
|
./pkg/gmredi/gmredi_readparms.F |
98 |
GMREDI_READPARMS |
GM_background_K = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
99 |
GMREDI_READPARMS |
GM_maxSlope = 1. _d -2 |
|
./pkg/gmredi/gmredi_slope_limit.F |
124 |
GMREDI_SLOPE_LIMIT |
GM_bigSlope = 1. _d +02 |
|
./pkg/gmredi/gmredi_slope_limit.F |
146 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
147 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
169 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
200 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
201 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
203 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0/( dSigmaDr(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
219 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
240 |
GMREDI_SLOPE_LIMIT |
SlopeX (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
241 |
GMREDI_SLOPE_LIMIT |
SlopeY (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
242 |
GMREDI_SLOPE_LIMIT |
SlopeMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
243 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
255 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
257 |
GMREDI_SLOPE_LIMIT |
SlopeX (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
258 |
GMREDI_SLOPE_LIMIT |
SlopeY (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
259 |
GMREDI_SLOPE_LIMIT |
SlopeMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
260 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
274 |
GMREDI_SLOPE_LIMIT |
IF ( hTransLay(i,j).LE.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
284 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
297 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
301 |
GMREDI_SLOPE_LIMIT |
rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
319 |
GMREDI_SLOPE_LIMIT |
IF ( hTransLay(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
327 |
GMREDI_SLOPE_LIMIT |
& *( 2. _d 0 + DoverLamb ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
332 |
GMREDI_SLOPE_LIMIT |
& * 2. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
333 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + DoverLamb ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
339 |
GMREDI_SLOPE_LIMIT |
& *( 2. _d 0 + DoverLamb ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
344 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
349 |
GMREDI_SLOPE_LIMIT |
& * 2. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
350 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + DoverLamb ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
355 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j)*2. _d 0 ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
408 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
411 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
427 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
473 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
478 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
481 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
499 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
502 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
517 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
535 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
551 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
554 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
566 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
569 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
571 |
GMREDI_SLOPE_LIMIT |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
572 |
GMREDI_SLOPE_LIMIT |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
574 |
GMREDI_SLOPE_LIMIT |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
593 |
GMREDI_SLOPE_LIMIT |
slopeMax= 2. _d -3 |
|
./pkg/gmredi/gmredi_slope_limit.F |
610 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
107 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
135 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
144 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
170 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
207 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
218 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
241 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
252 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
312 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
318 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
330 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
336 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
337 |
GMREDI_SLOPE_PSI |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
339 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
350 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
356 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
357 |
GMREDI_SLOPE_PSI |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
359 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
377 |
GMREDI_SLOPE_PSI |
slopeMaxSpec=1. _d -4 |
|
./pkg/gmredi/submeso_calc_psi.F |
105 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
111 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
122 |
SUBMESO_CALC_PSI |
& + dzLoc*MAX( -sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
158 |
SUBMESO_CALC_PSI |
& *2. _d 0/(lengthScaleF(i-1,j)+lengthScaleF(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
159 |
SUBMESO_CALC_PSI |
& *2. _d 0/(fcorLoc(i-1,j)+fcorLoc(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
166 |
SUBMESO_CALC_PSI |
IF ( mixLayerU(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
167 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerU(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
169 |
SUBMESO_CALC_PSI |
z2H = 0. _d 0 |
|
./pkg/gmredi/submeso_calc_psi.F |
171 |
SUBMESO_CALC_PSI |
mu_z = ( z2H + 1. _d 0 )*( z2H + 1. _d 0 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
172 |
SUBMESO_CALC_PSI |
mu_z = ( 1. _d 0 - mu_z )*(1. _d 0 + mu_z*five_ov21 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
173 |
SUBMESO_CALC_PSI |
mu_z = MAX( 0. _d 0, mu_z ) |
|
./pkg/gmredi/submeso_calc_psi.F |
201 |
SUBMESO_CALC_PSI |
& *2. _d 0/(lengthScaleF(i,j-1)+lengthScaleF(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
202 |
SUBMESO_CALC_PSI |
& *2. _d 0/(fcorLoc(i,j-1)+fcorLoc(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
209 |
SUBMESO_CALC_PSI |
IF ( mixLayerV(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
210 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerV(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
212 |
SUBMESO_CALC_PSI |
z2H = 0. _d 0 |
|
./pkg/gmredi/submeso_calc_psi.F |
214 |
SUBMESO_CALC_PSI |
mu_z = ( z2H + 1. _d 0 )*( z2H + 1. _d 0 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
215 |
SUBMESO_CALC_PSI |
mu_z = ( 1. _d 0 - mu_z )*(1. _d 0 + mu_z*five_ov21 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
216 |
SUBMESO_CALC_PSI |
mu_z = MAX( 0. _d 0, mu_z ) |
|
./pkg/gmredi/submeso_calc_psi.F |
65 |
SUBMESO_CALC_PSI |
PARAMETER( five_ov21 = 5. _d 0 / 21. _d 0 ) |
|
./pkg/grdchk/grdchk_getadxx.F |
94 |
GRDCHK_GETADXX |
dumtime = 0. _d 0 |
|
./pkg/grdchk/grdchk_getxx.F |
685 |
GRDCHK_GETXX |
xx_comp_ref=0. _d 0 |
|
./pkg/grdchk/grdchk_getxx.F |
686 |
GRDCHK_GETXX |
xx_comp_pert=0. _d 0 |
|
./pkg/grdchk/grdchk_getxx.F |
98 |
GRDCHK_GETXX |
dumtime = 0. _d 0 |
|
./model/src/adams_bashforth2.F |
65 |
ADAMS_BASHFORTH2 |
abFac = 0. _d 0 |
|
./model/src/adams_bashforth2.F |
67 |
ADAMS_BASHFORTH2 |
abFac = 0.5 _d 0 + abEps |
|
./pkg/grdchk/grdchk_main.F |
182 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
183 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
184 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
192 |
GRDCHK_MAIN |
grdchk_epsfac = 2. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
194 |
GRDCHK_MAIN |
grdchk_epsfac = 1. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
277 |
GRDCHK_MAIN |
localEps = 1. _d 0 |
|
./pkg/grdchk/grdchk_readparms.F |
107 |
GRDCHK_READPARMS |
grdchk_eps = 1. _d 0 |
|
./pkg/grdchk/grdchk_setxx.F |
95 |
GRDCHK_SETXX |
dumtime = 0. _d 0 |
|
./model/src/adams_bashforth3.F |
88 |
ADAMS_BASHFORTH3 |
ab0 = 0. _d 0 |
|
./model/src/adams_bashforth3.F |
89 |
ADAMS_BASHFORTH3 |
ab1 = 0. _d 0 |
|
./model/src/adams_bashforth3.F |
90 |
ADAMS_BASHFORTH3 |
ab2 = 0. _d 0 |
|
./model/src/adams_bashforth3.F |
95 |
ADAMS_BASHFORTH3 |
ab2 = 0. _d 0 |
|
./pkg/gridalt/gridalt_update.F |
76 |
GRIDALT_UPDATE |
temparr(i,j,L,bi,bj) = dpphys(i,j,L,bi,bj) * 1. _d -2 |
|
./pkg/icefront/icefront_init_fixed.F |
113 |
ICEFRONT_INIT_FIXED |
IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/icefront/icefront_init_varia.F |
39 |
ICEFRONT_INIT_VARIA |
icefront_TendT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_init_varia.F |
40 |
ICEFRONT_INIT_VARIA |
icefront_TendS (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_readparms.F |
104 |
ICEFRONT_READPARMS |
SGRunOffperiod = 0.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
105 |
ICEFRONT_READPARMS |
SGRunOffconst = 0.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
106 |
ICEFRONT_READPARMS |
SGRunOff_remov_intercept = 0.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
107 |
ICEFRONT_READPARMS |
SGRunOff_remov_slope = 0.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
108 |
ICEFRONT_READPARMS |
SGRunOff_inscal = 1.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
151 |
ICEFRONT_READPARMS |
IF ( ICEFRONTlatentHeat .NE. 0. _d 0 ) |
|
./pkg/icefront/icefront_readparms.F |
152 |
ICEFRONT_READPARMS |
& recip_ICEFRONTlatentHeat = 1. _d 0/ICEFRONTlatentHeat |
|
./pkg/icefront/icefront_readparms.F |
87 |
ICEFRONT_READPARMS |
ICEFRONTlatentHeat = 334.0 _d 3 |
|
./pkg/icefront/icefront_readparms.F |
88 |
ICEFRONT_READPARMS |
ICEFRONTHeatCapacity_Cp = 2000.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
89 |
ICEFRONT_READPARMS |
rhoIcefront = 917.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
90 |
ICEFRONT_READPARMS |
ICEFRONTkappa = 1.54 _d -06 |
|
./pkg/icefront/icefront_readparms.F |
91 |
ICEFRONT_READPARMS |
ICEFRONTthetaSurface = - 20.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
94 |
ICEFRONT_READPARMS |
recip_ICEFRONTlatentHeat = 0.0 _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
109 |
ICEFRONT_THERMODYNAMICS |
recip_aqe = 0.5 _d 0/aqe |
|
./pkg/icefront/icefront_thermodynamics.F |
114 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
136 |
ICEFRONT_THERMODYNAMICS |
discrim = bqe*bqe - 4. _d 0*aqe*cqe |
|
./pkg/icefront/icefront_thermodynamics.F |
138 |
ICEFRONT_THERMODYNAMICS |
IF ( saltFreeze .LT. 0. _d 0 ) |
|
./pkg/icefront/icefront_thermodynamics.F |
181 |
ICEFRONT_THERMODYNAMICS |
HeatFlux (I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
182 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
80 |
ICEFRONT_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
81 |
ICEFRONT_THERMODYNAMICS |
c0 = 0.0901 _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
82 |
ICEFRONT_THERMODYNAMICS |
b = -7.61 _d -4 |
|
./pkg/icefront/icefront_thermodynamics.F |
92 |
ICEFRONT_THERMODYNAMICS |
IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
94 |
ICEFRONT_THERMODYNAMICS |
ICEFRONTheatTransCoeff(I,J) = 1.0 _d -02 |
|
./pkg/icefront/icefront_thermodynamics.F |
96 |
ICEFRONT_THERMODYNAMICS |
& *sqrt(1.5 _d -03) |
|
./pkg/icefront/icefront_thermodynamics.F |
98 |
ICEFRONT_THERMODYNAMICS |
& (ICEFRONTheatTransCoeff(I,J),1. _d -04) |
|
./pkg/icefront/icefront_thermodynamics.F |
99 |
ICEFRONT_THERMODYNAMICS |
ICEFRONTsaltTransCoeff(I,J) = 5.05 _d -3 |
|
./pkg/kl10/kl10_calc.F |
130 |
KL10_CALC |
& (rhoS(1) - rhoS(2))*recip_drC(2),0. _d 0) |
|
./pkg/kl10/kl10_calc.F |
147 |
KL10_CALC |
buoyFreqf = MAX(buoyFreqf,0. _d 0) ! not < 0 |
|
./model/src/apply_forcing.F |
461 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
484 |
APPLY_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./model/src/apply_forcing.F |
516 |
APPLY_FORCING_T |
& .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN |
|
./model/src/apply_forcing.F |
592 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./model/src/apply_forcing.F |
605 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./model/src/apply_forcing.F |
685 |
APPLY_FORCING_T |
swfracb(2)=0. _d 0 |
|
./model/src/apply_forcing.F |
827 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
881 |
APPLY_FORCING_S |
& .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN |
|
./pkg/kl10/kl10_output.F |
105 |
KL10_OUTPUT |
IF ( KLtaveFreq.GT.0. _d 0 ) THEN |
|
./pkg/kl10/kl10_readparms.F |
62 |
KL10_READPARMS |
KLviscMax = 300. _d 0 |
|
./model/src/calc_3d_diffusivity.F |
277 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_3d_diffusivity.F |
324 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_3d_diffusivity.F |
86 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
89 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./pkg/kpp/kpp_calc.F |
417 |
KPP_CALC |
temp2(i,j,1) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
419 |
KPP_CALC |
temp1(i,j,k) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
420 |
KPP_CALC |
temp2(i,j,k) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
666 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
672 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/kpp/kpp_forcing_surf.F |
163 |
KPP_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/kpp/kpp_forcing_surf.F |
244 |
KPP_FORCING_SURF |
boplume(I,J,k) = 0. _d 0 |
|
./pkg/kpp/kpp_init_fixed.F |
121 |
KPP_INIT_FIXED |
p25 = 0.25 _d 0 |
|
./pkg/kpp/kpp_init_fixed.F |
122 |
KPP_INIT_FIXED |
p33 = 1. _d 0 / 3. _d 0 |
|
./pkg/kpp/kpp_init_fixed.F |
128 |
KPP_INIT_FIXED |
Vtc = concv * SQRT(0.2 _d 0 /concs/epsilon) / vonk**2 / Ricr |
|
./pkg/kpp/kpp_init_fixed.F |
153 |
KPP_INIT_FIXED |
wst(i,j) = vonk*usta*SQRT(1. _d 0 - conc3*zeta) |
|
./model/src/calc_adv_flow.F |
120 |
CALC_ADV_FLOW |
maskUp(i,j) = 0. _d 0 |
|
./model/src/calc_adv_flow.F |
121 |
CALC_ADV_FLOW |
rTrans(i,j) = 0. _d 0 |
|
./model/src/calc_adv_flow.F |
86 |
CALC_ADV_FLOW |
rTransKp(i,j) = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
203 |
KPP_OUTPUT |
IF ( KPP_taveFreq .GT. 0. _d 0 ) THEN |
|
./pkg/kpp/kpp_output.F |
224 |
KPP_OUTPUT |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_output.F |
226 |
KPP_OUTPUT |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
382 |
KPP_OUTPUT |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_output.F |
384 |
KPP_OUTPUT |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
390 |
KPP_OUTPUT |
tmpLoc(i,j,1) = 0. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
100 |
KPP_READPARMS |
dB_dz = 5.2 _d -5 |
|
./pkg/kpp/kpp_readparms.F |
101 |
KPP_READPARMS |
conc1 = 5. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
102 |
KPP_READPARMS |
conam = 1.257 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
103 |
KPP_READPARMS |
concm = 8.380 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
104 |
KPP_READPARMS |
conc2 = 16. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
105 |
KPP_READPARMS |
zetam = -0.2 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
106 |
KPP_READPARMS |
conas = -28.86 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
107 |
KPP_READPARMS |
concs = 98.96 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
108 |
KPP_READPARMS |
conc3 = 16. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
109 |
KPP_READPARMS |
zetas = -1. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
113 |
KPP_READPARMS |
Ricr = 0.3 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
114 |
KPP_READPARMS |
cekman = 0.7 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
115 |
KPP_READPARMS |
cmonob = 1. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
116 |
KPP_READPARMS |
concv = 1.8 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
117 |
KPP_READPARMS |
hbf = 1. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
122 |
KPP_READPARMS |
zmin = -4. _d -7 |
|
./pkg/kpp/kpp_readparms.F |
123 |
KPP_READPARMS |
zmax = 0. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
124 |
KPP_READPARMS |
umin = 0. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
125 |
KPP_READPARMS |
umax = 4. _d -2 |
|
./pkg/kpp/kpp_readparms.F |
130 |
KPP_READPARMS |
Riinfty = 0.7 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
131 |
KPP_READPARMS |
BVSQcon = -0.2 _d -4 |
|
./pkg/kpp/kpp_readparms.F |
133 |
KPP_READPARMS |
difm0 = 5. _d -3 |
|
./pkg/kpp/kpp_readparms.F |
134 |
KPP_READPARMS |
difs0 = 5. _d -3 |
|
./pkg/kpp/kpp_readparms.F |
135 |
KPP_READPARMS |
dift0 = 5. _d -3 |
|
./pkg/kpp/kpp_readparms.F |
137 |
KPP_READPARMS |
difmcon = 0.1 |