| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
204 |
THSICE_CALC_THICKN |
_RL frace, rs, hq |
|
./pkg/thsice/thsice_calc_thickn.F |
416 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
418 |
THSICE_CALC_THICKN |
frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin) |
|
./pkg/thsice/thsice_calc_thickn.F |
419 |
THSICE_CALC_THICKN |
frace = MIN( enFrcMlt(i,j), MAX( 0. _d 0, frace ) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
424 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
427 |
THSICE_CALC_THICKN |
frace = 1. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
429 |
THSICE_CALC_THICKN |
frace = fracEnMelt |
|
./pkg/thsice/thsice_calc_thickn.F |
435 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
437 |
THSICE_CALC_THICKN |
frace = MIN( frace, fracEnMelt ) |
|
./pkg/thsice/thsice_calc_thickn.F |
443 |
THSICE_CALC_THICKN |
etop(i,j) = (1. _d 0-frace)*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
444 |
THSICE_CALC_THICKN |
etope(i,j) = frace*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
464 |
THSICE_CALC_THICKN |
ebote(i,j) = frace*ebot(i,j) |