| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
206 |
THSICE_CALC_THICKN |
_RL frace, rs, hq |
|
./pkg/thsice/thsice_calc_thickn.F |
417 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
419 |
THSICE_CALC_THICKN |
frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin) |
|
./pkg/thsice/thsice_calc_thickn.F |
420 |
THSICE_CALC_THICKN |
frace = MIN( enFrcMlt(i,j), MAX( 0. _d 0, frace ) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
425 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
428 |
THSICE_CALC_THICKN |
frace = 1. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
430 |
THSICE_CALC_THICKN |
frace = fracEnMelt |
|
./pkg/thsice/thsice_calc_thickn.F |
436 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
438 |
THSICE_CALC_THICKN |
frace = MIN( frace, fracEnMelt ) |
|
./pkg/thsice/thsice_calc_thickn.F |
444 |
THSICE_CALC_THICKN |
etop(i,j) = (1. _d 0-frace)*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
445 |
THSICE_CALC_THICKN |
etope(i,j) = frace*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
465 |
THSICE_CALC_THICKN |
ebote(i,j) = frace*ebot(i,j) |