| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1067 |
THSICE_CALC_THICKN |
rqh = rq * hIce(i,j) + rs * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1070 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1071 |
THSICE_CALC_THICKN |
icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1073 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1074 |
THSICE_CALC_THICKN |
frw2oc(i,j)=frw2oc(i,j)+extend/rqh*freshe |
|
./pkg/thsice/thsice_calc_thickn.F |
1075 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+extend/rqh*salte |
|
./pkg/thsice/thsice_calc_thickn.F |
1080 |
THSICE_CALC_THICKN |
flx2oc(i,j)=flx2oc(i,j)+(extend-rqh)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
188 |
THSICE_CALC_THICKN |
_RL rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
505 |
THSICE_CALC_THICKN |
rqh = rq * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
506 |
THSICE_CALC_THICKN |
IF (etop(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
510 |
THSICE_CALC_THICKN |
etop(i,j) = etop(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
538 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
539 |
THSICE_CALC_THICKN |
IF (etop(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
543 |
THSICE_CALC_THICKN |
etop(i,j) = etop(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
618 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
619 |
THSICE_CALC_THICKN |
IF (ebot(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
623 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
641 |
THSICE_CALC_THICKN |
rqh = rq * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
642 |
THSICE_CALC_THICKN |
IF (ebot(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
646 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
914 |
THSICE_CALC_THICKN |
rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs |
|
./pkg/thsice/thsice_calc_thickn.F |
916 |
THSICE_CALC_THICKN |
qicen(i,j,1) = rqh / (rhoi*hnew(i,j,1)) |