| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
181 |
THSICE_CALC_THICKN |
_RL hnew (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nlyr) |
|
./pkg/thsice/thsice_calc_thickn.F |
293 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
485 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hIce(i,j) * rec_nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
537 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./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 |
543 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
577 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)*qicen(i,j,nlyr)+dhi*qbot) / |
|
./pkg/thsice/thsice_calc_thickn.F |
578 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)+dhi) |
|
./pkg/thsice/thsice_calc_thickn.F |
579 |
THSICE_CALC_THICKN |
hnew(i,j,nlyr) = hnew(i,j,nlyr) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
613 |
THSICE_CALC_THICKN |
& hnew(i,j,k) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
615 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
617 |
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 |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
661 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
672 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,1)*hnew(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
673 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,2)*hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
788 |
THSICE_CALC_THICKN |
IF (dhi.GE.hnew(i,j,k)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
789 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
791 |
THSICE_CALC_THICKN |
& - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
792 |
THSICE_CALC_THICKN |
hnew(i,j,k)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
797 |
THSICE_CALC_THICKN |
hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
798 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,1) - dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
799 |
THSICE_CALC_THICKN |
qicen(i,j,k)=hq/hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
832 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
838 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,1)*hnew(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
839 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,2)*hnew(i,j,2) |
|
./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 |
909 |
THSICE_CALC_THICKN |
hnew(i,j,1) = hnew(i,j,1) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
910 |
THSICE_CALC_THICKN |
qicen(i,j,1) = rqh / (rhoi*hnew(i,j,1)) |
|
./pkg/thsice/thsice_calc_thickn.F |
922 |
THSICE_CALC_THICKN |
hnew(i,j,1)=hnew(i,j,1)-chi/2. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
923 |
THSICE_CALC_THICKN |
hnew(i,j,2)=hnew(i,j,2)-chi/2. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
934 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
939 |
THSICE_CALC_THICKN |
& hnew(i,j,1), hnew(i,j,2), |
|
./pkg/thsice/thsice_calc_thickn.F |
952 |
THSICE_CALC_THICKN |
if (hnew(i,j,1).gt.hnew(i,j,2)) then |
|
./pkg/thsice/thsice_calc_thickn.F |
954 |
THSICE_CALC_THICKN |
f1 = (hnew(i,j,1)-hlyr)/hlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
961 |
THSICE_CALC_THICKN |
qhtot = hnew(i,j,1)*qicen(i,j,1) + hnew(i,j,2)*qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
967 |
THSICE_CALC_THICKN |
f1 = hnew(i,j,1)/hlyr |
|
./pkg/thsice/thsice_reshape_layers.F |
11 |
THSICE_RESHAPE_LAYERS |
I hlyr, hnew, myThid ) |
|
./pkg/thsice/thsice_reshape_layers.F |
37 |
THSICE_RESHAPE_LAYERS |
_RL hnew(*) |
|
./pkg/thsice/thsice_reshape_layers.F |
55 |
THSICE_RESHAPE_LAYERS |
if (hnew(1).gt.hnew(2)) then |
|
./pkg/thsice/thsice_reshape_layers.F |
57 |
THSICE_RESHAPE_LAYERS |
f1 = (hnew(1)-hlyr)/hlyr |
|
./pkg/thsice/thsice_reshape_layers.F |
64 |
THSICE_RESHAPE_LAYERS |
qhtot = hnew(1)*qicen(1) + hnew(2)*qicen(2) |
|
./pkg/thsice/thsice_reshape_layers.F |
70 |
THSICE_RESHAPE_LAYERS |
f1 = hnew(1)/hlyr |
|
./pkg/dic/carbon_chem.F |
389 |
CALC_PCO2_APPROX_CO3 |
_RL hnew |
|
./pkg/dic/carbon_chem.F |
445 |
CALC_PCO2_APPROX_CO3 |
hnew = 0.5*( (gamm-1.0)*k1local + sqrt(stuff) ) |
|
./pkg/dic/carbon_chem.F |
448 |
CALC_PCO2_APPROX_CO3 |
& (1.0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew))) |
|
./pkg/dic/carbon_chem.F |
450 |
CALC_PCO2_APPROX_CO3 |
phlocal = -log10(hnew) |
|
./pkg/dic/carbon_chem.F |
456 |
CALC_PCO2_APPROX_CO3 |
& (hnew*hnew + k1local*hnew + k1local*k2local) |
|
./pkg/dic/carbon_chem.F |
536 |
CALC_PCO2_APPROX |
_RL hnew |
|
./pkg/dic/carbon_chem.F |
592 |
CALC_PCO2_APPROX |
hnew = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) ) |
|
./pkg/dic/carbon_chem.F |
595 |
CALC_PCO2_APPROX |
& (1.0 _d 0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew))) |
|
./pkg/dic/carbon_chem.F |
597 |
CALC_PCO2_APPROX |
phlocal = -log10(hnew) |