| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1002 |
THSICE_CALC_THICKN |
& esurp(i,j)/dt,etop(i,j)/dt,ebot(i,j)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
175 |
THSICE_CALC_THICKN |
_RL etop (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/thsice/thsice_calc_thickn.F |
277 |
THSICE_CALC_THICKN |
etop (i,j) = 0. _d 0 |
|
./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 |
446 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
472 |
THSICE_CALC_THICKN |
& etop(i,j),etope(i,j),ebot(i,j),ebote(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
496 |
THSICE_CALC_THICKN |
& etop(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
505 |
THSICE_CALC_THICKN |
IF (etop(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
506 |
THSICE_CALC_THICKN |
hSnow(i,j) = hSnow(i,j) - etop(i,j)/rq |
|
./pkg/thsice/thsice_calc_thickn.F |
507 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
509 |
THSICE_CALC_THICKN |
etop(i,j) = etop(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
535 |
THSICE_CALC_THICKN |
IF (etop(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
538 |
THSICE_CALC_THICKN |
IF (etop(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
539 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
540 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
542 |
THSICE_CALC_THICKN |
etop(i,j) = etop(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
546 |
THSICE_CALC_THICKN |
etop(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
665 |
THSICE_CALC_THICKN |
& etop(i,j), ebot(i,j), hIce(i,j), hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
998 |
THSICE_CALC_THICKN |
& + (Fbot(i,j)+(esurp(i,j)+etop(i,j)+ebot(i,j))/dt) |