| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1003 |
THSICE_CALC_THICKN |
& + (Fbot(i,j)+(esurp(i,j)+etop(i,j)+ebot(i,j))/dt) |
|
./pkg/thsice/thsice_calc_thickn.F |
1007 |
THSICE_CALC_THICKN |
& esurp(i,j)/dt,etop(i,j)/dt,ebot(i,j)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
178 |
THSICE_CALC_THICKN |
_RL ebot (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
278 |
THSICE_CALC_THICKN |
ebot (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
463 |
THSICE_CALC_THICKN |
ebot(i,j) = (flxCnB(i,j)-Fbot(i,j)) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
464 |
THSICE_CALC_THICKN |
IF (ebot(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
465 |
THSICE_CALC_THICKN |
ebote(i,j) = frace*ebot(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
466 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j)-ebote(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
473 |
THSICE_CALC_THICKN |
& etop(i,j),etope(i,j),ebot(i,j),ebote(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
567 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0 .AND. ebot(i,j) .LT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
570 |
THSICE_CALC_THICKN |
dhi = -ebot(i,j) / (qbot * rhoi) |
|
./pkg/thsice/thsice_calc_thickn.F |
571 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
615 |
THSICE_CALC_THICKN |
& ebot(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
619 |
THSICE_CALC_THICKN |
IF (ebot(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
620 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - ebot(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
621 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
623 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
638 |
THSICE_CALC_THICKN |
& ebot(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
642 |
THSICE_CALC_THICKN |
IF (ebot(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
643 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - ebot(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
644 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
646 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
668 |
THSICE_CALC_THICKN |
& etop(i,j), ebot(i,j), hIce(i,j), hSnow1(i,j) |