| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
110 |
ADMTLM_DSVD2MODEL |
fmin = 0. _d 0 |
|
./pkg/admtlm/admtlm_model2dsvd.F |
95 |
ADMTLM_MODEL2DSVD |
fmin = 0. _d 0 |
|
./pkg/admtlm/admtlm_metric.F |
40 |
ADMTLM_METRIC |
myMetric = 0. _d 0 |
|
./pkg/admtlm/admtlm_metric.F |
41 |
ADMTLM_METRIC |
stdDevSST = 0.52 _d 0 |
|
./pkg/admtlm/admtlm_metric.F |
42 |
ADMTLM_METRIC |
stdDevSSS = 0.134 _d 0 |
|
./pkg/ebm/ebm_readparms.F |
84 |
EBM_READPARMS |
IF ( tauThetaZonRelax .NE. 0. _d 0 ) THEN |
|
./pkg/ebm/ebm_load_climatology.F |
55 |
EBM_LOAD_CLIMATOLOGY |
tauMax = 0.1 _d 0 |
|
./pkg/ebm/ebm_load_climatology.F |
57 |
EBM_LOAD_CLIMATOLOGY |
lY = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
101 |
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_filter_rl.F |
91 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
100 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
80 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rs.F |
90 |
EXF_FILTER_RS |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_init_runoff.F |
46 |
EXF_INIT_RUNOFF |
runoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_constants.h |
61 |
NO PROCEDURE |
parameter ( umin = 0.5 _d 0 |
|
./pkg/exf/exf_clim_readparms.F |
101 |
EXF_CLIM_READPARMS |
climsstconst = 0. _d 0 |
|
./pkg/exf/exf_clim_readparms.F |
102 |
EXF_CLIM_READPARMS |
climsssconst = 0. _d 0 |
|
./pkg/exf/exf_clim_readparms.F |
105 |
EXF_CLIM_READPARMS |
climtempfreeze = -1.9 _d 0 |
|
./pkg/exf/exf_swapffields.F |
127 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
186 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
244 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
67 |
EXF_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
239 |
EXF_BULKFORMULAE |
if ( atemp(i,j,bi,bj) .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_bulkformulae.F |
350 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
351 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
352 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
353 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
354 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsst.F |
211 |
EXF_INIT_CLIMSST |
climsst0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsst.F |
212 |
EXF_INIT_CLIMSST |
climsst1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
185 |
EXF_READPARMS |
hfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
186 |
EXF_READPARMS |
hfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
187 |
EXF_READPARMS |
hflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
188 |
EXF_READPARMS |
hflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
192 |
EXF_READPARMS |
atempperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
194 |
EXF_READPARMS |
atemp_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
195 |
EXF_READPARMS |
atemp_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
199 |
EXF_READPARMS |
aqhperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
200 |
EXF_READPARMS |
aqhconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
201 |
EXF_READPARMS |
aqh_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
202 |
EXF_READPARMS |
aqh_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
206 |
EXF_READPARMS |
sfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
207 |
EXF_READPARMS |
sfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
208 |
EXF_READPARMS |
sflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
209 |
EXF_READPARMS |
sflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
213 |
EXF_READPARMS |
evapperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
214 |
EXF_READPARMS |
evapconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
215 |
EXF_READPARMS |
evap_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
216 |
EXF_READPARMS |
evap_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
220 |
EXF_READPARMS |
precipperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
221 |
EXF_READPARMS |
precipconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
222 |
EXF_READPARMS |
precip_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
223 |
EXF_READPARMS |
precip_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
227 |
EXF_READPARMS |
snowprecipperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
228 |
EXF_READPARMS |
snowprecipconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
229 |
EXF_READPARMS |
snowprecip_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
230 |
EXF_READPARMS |
snowprecip_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
234 |
EXF_READPARMS |
runoffperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
235 |
EXF_READPARMS |
runoffconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
236 |
EXF_READPARMS |
runoff_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
237 |
EXF_READPARMS |
runoff_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
241 |
EXF_READPARMS |
ustressperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
242 |
EXF_READPARMS |
ustressconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
243 |
EXF_READPARMS |
ustress_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
244 |
EXF_READPARMS |
ustress_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
248 |
EXF_READPARMS |
vstressperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
249 |
EXF_READPARMS |
vstressconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
250 |
EXF_READPARMS |
vstress_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
251 |
EXF_READPARMS |
vstress_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
255 |
EXF_READPARMS |
uwindperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
256 |
EXF_READPARMS |
uwindconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
257 |
EXF_READPARMS |
uwind_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
258 |
EXF_READPARMS |
uwind_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
262 |
EXF_READPARMS |
vwindperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
263 |
EXF_READPARMS |
vwindconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
264 |
EXF_READPARMS |
vwind_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
265 |
EXF_READPARMS |
vwind_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
269 |
EXF_READPARMS |
wspeedperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
270 |
EXF_READPARMS |
wspeedconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
271 |
EXF_READPARMS |
wspeed_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
272 |
EXF_READPARMS |
wspeed_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
276 |
EXF_READPARMS |
swfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
277 |
EXF_READPARMS |
swfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
278 |
EXF_READPARMS |
swflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
279 |
EXF_READPARMS |
swflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
283 |
EXF_READPARMS |
lwfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
284 |
EXF_READPARMS |
lwfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
285 |
EXF_READPARMS |
lwflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
286 |
EXF_READPARMS |
lwflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
290 |
EXF_READPARMS |
swdownperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
291 |
EXF_READPARMS |
swdownconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
292 |
EXF_READPARMS |
swdown_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
293 |
EXF_READPARMS |
swdown_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
297 |
EXF_READPARMS |
lwdownperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
298 |
EXF_READPARMS |
lwdownconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
299 |
EXF_READPARMS |
lwdown_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
300 |
EXF_READPARMS |
lwdown_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
304 |
EXF_READPARMS |
apressureperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
305 |
EXF_READPARMS |
apressureconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
306 |
EXF_READPARMS |
apressure_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
307 |
EXF_READPARMS |
apressure_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
311 |
EXF_READPARMS |
obcsNperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
315 |
EXF_READPARMS |
obcsSperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
319 |
EXF_READPARMS |
obcsEperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
323 |
EXF_READPARMS |
obcsWperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
325 |
EXF_READPARMS |
repeatPeriod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
326 |
EXF_READPARMS |
exf_albedo = 0.1 _d 0 |
|
./pkg/exf/exf_readparms.F |
327 |
EXF_READPARMS |
windstressmax = 2.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
331 |
EXF_READPARMS |
ice_emissivity = 0.98 _d 0 |
|
./pkg/exf/exf_readparms.F |
332 |
EXF_READPARMS |
snow_emissivity = 0.98 _d 0 |
|
./pkg/exf/exf_readparms.F |
386 |
EXF_READPARMS |
exf_inscal_hflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
387 |
EXF_READPARMS |
exf_inscal_sflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
388 |
EXF_READPARMS |
exf_inscal_ustress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
389 |
EXF_READPARMS |
exf_inscal_vstress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
390 |
EXF_READPARMS |
exf_inscal_uwind = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
391 |
EXF_READPARMS |
exf_inscal_vwind = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
392 |
EXF_READPARMS |
exf_inscal_wspeed = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
393 |
EXF_READPARMS |
exf_inscal_swflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
394 |
EXF_READPARMS |
exf_inscal_lwflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
395 |
EXF_READPARMS |
exf_inscal_precip = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
396 |
EXF_READPARMS |
exf_inscal_snowprecip = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
397 |
EXF_READPARMS |
exf_inscal_sst = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
398 |
EXF_READPARMS |
exf_inscal_sss = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
399 |
EXF_READPARMS |
exf_inscal_atemp = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
400 |
EXF_READPARMS |
exf_offset_atemp = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
401 |
EXF_READPARMS |
exf_inscal_aqh = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
402 |
EXF_READPARMS |
exf_inscal_evap = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
403 |
EXF_READPARMS |
exf_inscal_apressure = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
404 |
EXF_READPARMS |
exf_inscal_runoff = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
405 |
EXF_READPARMS |
exf_inscal_swdown = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
406 |
EXF_READPARMS |
exf_inscal_lwdown = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
409 |
EXF_READPARMS |
exf_outscal_hflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
410 |
EXF_READPARMS |
exf_outscal_sflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
411 |
EXF_READPARMS |
exf_outscal_ustress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
412 |
EXF_READPARMS |
exf_outscal_vstress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
413 |
EXF_READPARMS |
exf_outscal_swflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
414 |
EXF_READPARMS |
exf_outscal_sst = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
415 |
EXF_READPARMS |
exf_outscal_sss = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
416 |
EXF_READPARMS |
exf_outscal_apressure= 1. _d 0 |
|
./pkg/exf/exf_wind.F |
100 |
EXF_WIND |
if ( ustmp .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_wind.F |
105 |
EXF_WIND |
ustar = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
106 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
107 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
110 |
EXF_WIND |
if ( ustar .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_wind.F |
111 |
EXF_WIND |
us(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
72 |
EXF_WIND |
us(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
73 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
74 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
75 |
EXF_WIND |
sh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
81 |
EXF_WIND |
if ( ustmp .ne. 0. _d 0 ) then |
|
./pkg/exf/exf_wind.F |
86 |
EXF_WIND |
us(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
87 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
88 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsss.F |
200 |
EXF_INIT_CLIMSSS |
climsss0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_set_climsss.F |
201 |
EXF_INIT_CLIMSSS |
climsss1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ptracers/ptracers_forcing_surf.F |
62 |
PTRACERS_FORCING_SURF |
& 0. _d 0 |
|
./pkg/ptracers/ptracers_readparms.F |
90 |
PTRACERS_READPARMS |
PTRACERS_ref (k,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_calc_diff.F |
59 |
PTRACERS_CALC_DIFF |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
101 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
61 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_diagnostics_fill.F |
81 |
PTRACERS_DIAGNOSTICS_FILL |
& 0.5 _d 0*(ptracer(i,j,K,bi,bj,N) |
|
./pkg/ptracers/ptracers_init_varia.F |
49 |
PTRACERS_INIT_VARIA |
gPtr(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
50 |
PTRACERS_INIT_VARIA |
gPtrNM1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
56 |
PTRACERS_INIT_VARIA |
surfaceForcingPtr(i,j,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
90 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/shelfice/shelfice_init.F |
45 |
SHELFICE_INIT_FIXED |
IF ( hFacC(I,J,K,bi,bj) .NE. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_init.F |
48 |
SHELFICE_INIT_FIXED |
shelficeLoadAnomaly (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init.F |
49 |
SHELFICE_INIT_FIXED |
shelficeForcingT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init.F |
50 |
SHELFICE_INIT_FIXED |
shelficeForcingS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init.F |
51 |
SHELFICE_INIT_FIXED |
shelficeHeatFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init.F |
52 |
SHELFICE_INIT_FIXED |
shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_do_diags.F |
157 |
SHELFICE_DO_DIAGS |
SHELFICE_TimeAve(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
117 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
118 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
134 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
137 |
SHELFICE_THERMODYNAMICS |
sLoc = max(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
143 |
SHELFICE_THERMODYNAMICS |
recip_aqe = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
148 |
SHELFICE_THERMODYNAMICS |
discrim = bqe*bqe - 4. _d 0*aqe*cqe |
|
./pkg/shelfice/shelfice_thermodynamics.F |
150 |
SHELFICE_THERMODYNAMICS |
IF ( discrim .LT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
176 |
SHELFICE_THERMODYNAMICS |
IF ( saltFreeze .LT. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
57 |
SHELFICE_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
58 |
SHELFICE_THERMODYNAMICS |
a1 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
59 |
SHELFICE_THERMODYNAMICS |
a2 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
60 |
SHELFICE_THERMODYNAMICS |
c0 = 0.0901 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
61 |
SHELFICE_THERMODYNAMICS |
b = -7.61 _d -4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
65 |
SHELFICE_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
66 |
SHELFICE_THERMODYNAMICS |
a1 = 1.710523 _d -3 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
67 |
SHELFICE_THERMODYNAMICS |
a2 = -2.154996 _d -4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
68 |
SHELFICE_THERMODYNAMICS |
b = -7.53 _d -4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
69 |
SHELFICE_THERMODYNAMICS |
c0 = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
84 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
87 |
SHELFICE_THERMODYNAMICS |
sLoc = max(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_readparms.F |
108 |
SHELFICE_READPARMS |
IF ( SHELFICElatentHeat .NE. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_readparms.F |
109 |
SHELFICE_READPARMS |
& recip_SHELFICElatentHeat = 1. _d 0/SHELFICElatentHeat |
|
./pkg/shelfice/shelfice_readparms.F |
112 |
SHELFICE_READPARMS |
& 5.05 _d -3 *SHELFICEheatTransCoeff |
|
./pkg/shelfice/shelfice_readparms.F |
63 |
SHELFICE_READPARMS |
SHELFICElatentHeat = 334.0 _d 3 |
|
./pkg/shelfice/shelfice_readparms.F |
64 |
SHELFICE_READPARMS |
SHELFICEHeatCapacity_Cp = 2000.0 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
65 |
SHELFICE_READPARMS |
recip_SHELFICElatentHeat = 0.0 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
66 |
SHELFICE_READPARMS |
rhoShelfIce = 917.0 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
67 |
SHELFICE_READPARMS |
SHELFICEheatTransCoeff = 1.0 _d -04 |
|
./pkg/shelfice/shelfice_readparms.F |
69 |
SHELFICE_READPARMS |
SHELFICEkappa = 1.54 _d -06 |
|
./pkg/shelfice/shelfice_readparms.F |
70 |
SHELFICE_READPARMS |
SHELFICEthetaSurface = - 20.0 _d 0 |
|
./pkg/pp81/pp81_readparms.F |
56 |
PP81_READPARMS |
PPviscMin = 0. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
57 |
PP81_READPARMS |
PPdiffMin = 0. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
58 |
PP81_READPARMS |
PPviscMax = 1. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
59 |
PP81_READPARMS |
PPnu0 = 1. _d -02 |
|
./pkg/pp81/pp81_readparms.F |
60 |
PP81_READPARMS |
PPalpha = 5. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
127 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
136 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
162 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
195 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
205 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
227 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
237 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
296 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
302 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
314 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
320 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
321 |
GMREDI_SLOPE_PSI |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
323 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
334 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
340 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
341 |
GMREDI_SLOPE_PSI |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
343 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
99 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
47 |
GMREDI_INIT |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
48 |
GMREDI_INIT |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
49 |
GMREDI_INIT |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
51 |
GMREDI_INIT |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
52 |
GMREDI_INIT |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
55 |
GMREDI_INIT |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
56 |
GMREDI_INIT |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
59 |
GMREDI_INIT |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
60 |
GMREDI_INIT |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
63 |
GMREDI_INIT |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
75 |
GMREDI_INIT |
GM_TimeAve(k,bi,bj)=0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
101 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
108 |
GMREDI_CALC_TENSOR |
Cspd = 2. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
109 |
GMREDI_CALC_TENSOR |
LrhoInf = 15. _d 3 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
110 |
GMREDI_CALC_TENSOR |
LrhoSup = 100. _d 3 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
155 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
156 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
169 |
GMREDI_CALC_TENSOR |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
170 |
GMREDI_CALC_TENSOR |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
171 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
172 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
173 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
174 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
175 |
GMREDI_CALC_TENSOR |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
176 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
177 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
178 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
180 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
181 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
184 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
185 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
188 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
189 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
312 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
313 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
330 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
435 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
455 |
GMREDI_CALC_TENSOR |
& ) ) * 0.25 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
554 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
574 |
GMREDI_CALC_TENSOR |
& ) ) * 0.25 _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
110 |
GMREDI_SLOPE_LIMIT |
gradSmod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
141 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
142 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
160 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
185 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
188 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
204 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
250 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
255 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
258 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
276 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
279 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
294 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
311 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
327 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
330 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
342 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
345 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
347 |
GMREDI_SLOPE_LIMIT |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
348 |
GMREDI_SLOPE_LIMIT |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
350 |
GMREDI_SLOPE_LIMIT |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
87 |
GMREDI_SLOPE_LIMIT |
gradSmod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
88 |
GMREDI_SLOPE_LIMIT |
tmpfld(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
67 |
GMREDI_READPARMS |
GM_Small_Number = 1. _d -12 |
|
./pkg/gmredi/gmredi_readparms.F |
68 |
GMREDI_READPARMS |
GM_slopeSqCutoff = 1. _d +48 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
83 |
GMREDI_CALC_PSI_B |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
84 |
GMREDI_CALC_PSI_B |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
85 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
86 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagstats_local.F |
181 |
DIAGSTATS_LOCAL |
drLoc = 1. _d 0 |
|
./pkg/diagnostics/diagstats_others_calc.F |
199 |
DIAGSTATS_G_CALC |
drLoc = 1. _d 0 |
|
./pkg/diagnostics/diagstats_others_calc.F |
94 |
DIAGSTATS_LM_CALC |
drLoc = 1. _d 0 |
|
./pkg/diagnostics/diagnostics_utils.F |
61 |
GETDIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/diagnostics/diagnostics_fill.F |
70 |
DIAGNOSTICS_FILL |
scaleFact = 1. _d 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
38 |
DIAGNOSTICS_INIT_VARIA |
qdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
57 |
DIAGNOSTICS_INIT_VARIA |
qSdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
256 |
DIAGNOSTICS_OUT |
qtmp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
100 |
DIAGNOSTICS_FILL_STATE |
uBarC = 0.5 _d 0 |