| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1062 |
THSICE_CALC_THICKN |
rqh = rq * hIce(i,j) + rs * hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1065 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1066 |
THSICE_CALC_THICKN |
icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1068 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1069 |
THSICE_CALC_THICKN |
frw2oc(i,j)=frw2oc(i,j)+extend/rqh*freshe |
|
./pkg/thsice/thsice_calc_thickn.F |
1070 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+extend/rqh*salte |
|
./pkg/thsice/thsice_calc_thickn.F |
1075 |
THSICE_CALC_THICKN |
flx2oc(i,j)=flx2oc(i,j)+(extend-rqh)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
186 |
THSICE_CALC_THICKN |
_RL rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
504 |
THSICE_CALC_THICKN |
rqh = rq * hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
505 |
THSICE_CALC_THICKN |
IF (etop(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
509 |
THSICE_CALC_THICKN |
etop(i,j) = etop(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
537 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
538 |
THSICE_CALC_THICKN |
IF (etop(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
542 |
THSICE_CALC_THICKN |
etop(i,j) = etop(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
615 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
616 |
THSICE_CALC_THICKN |
IF (ebot(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
620 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
638 |
THSICE_CALC_THICKN |
rqh = rq * hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
639 |
THSICE_CALC_THICKN |
IF (ebot(i,j) .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
643 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j) - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
908 |
THSICE_CALC_THICKN |
rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs |
|
./pkg/thsice/thsice_calc_thickn.F |
910 |
THSICE_CALC_THICKN |
qicen(i,j,1) = rqh / (rhoi*hnew(i,j,1)) |