| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
183 |
THSICE_CALC_THICKN |
_RL hnew (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nlyr) |
|
./pkg/thsice/thsice_calc_thickn.F |
294 |
THSICE_CALC_THICKN |
hnew (i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
486 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hIce(i,j) * rec_nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
538 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
540 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
544 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
578 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)*qicen(i,j,nlyr)+dhi*qbot) / |
|
./pkg/thsice/thsice_calc_thickn.F |
579 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)+dhi) |
|
./pkg/thsice/thsice_calc_thickn.F |
580 |
THSICE_CALC_THICKN |
hnew(i,j,nlyr) = hnew(i,j,nlyr) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
616 |
THSICE_CALC_THICKN |
& hnew(i,j,k) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
618 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./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 |
624 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
664 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
675 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,1)*hnew(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
676 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,2)*hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
794 |
THSICE_CALC_THICKN |
IF (dhi.GE.hnew(i,j,k)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
795 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
797 |
THSICE_CALC_THICKN |
& - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
798 |
THSICE_CALC_THICKN |
hnew(i,j,k)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
803 |
THSICE_CALC_THICKN |
hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
804 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
805 |
THSICE_CALC_THICKN |
qicen(i,j,k)=hq/hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
838 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
844 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,1)*hnew(i,j,1) |
|
./pkg/thsice/thsice_calc_thickn.F |
845 |
THSICE_CALC_THICKN |
& - rhoi*qicen(i,j,2)*hnew(i,j,2) |
|
./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 |
915 |
THSICE_CALC_THICKN |
hnew(i,j,1) = hnew(i,j,1) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
916 |
THSICE_CALC_THICKN |
qicen(i,j,1) = rqh / (rhoi*hnew(i,j,1)) |
|
./pkg/thsice/thsice_calc_thickn.F |
927 |
THSICE_CALC_THICKN |
hnew(i,j,1)=hnew(i,j,1)-chi/2. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
928 |
THSICE_CALC_THICKN |
hnew(i,j,2)=hnew(i,j,2)-chi/2. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
939 |
THSICE_CALC_THICKN |
hIce(i,j) = hnew(i,j,1) + hnew(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
944 |
THSICE_CALC_THICKN |
& hnew(i,j,1), hnew(i,j,2), |
|
./pkg/thsice/thsice_calc_thickn.F |
957 |
THSICE_CALC_THICKN |
if (hnew(i,j,1).gt.hnew(i,j,2)) then |
|
./pkg/thsice/thsice_calc_thickn.F |
959 |
THSICE_CALC_THICKN |
f1 = (hnew(i,j,1)-hlyr)/hlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
966 |
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 |
972 |
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/bling/bling_carbon_chem.F |
388 |
CALC_PCO2_APPROX |
_RL hnew |
|
./pkg/bling/bling_carbon_chem.F |
447 |
CALC_PCO2_APPROX |
hnew = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) ) |
|
./pkg/bling/bling_carbon_chem.F |
450 |
CALC_PCO2_APPROX |
& (1.0 _d 0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew))) |
|
./pkg/bling/bling_carbon_chem.F |
452 |
CALC_PCO2_APPROX |
phlocal = -log10(hnew) |
|
./pkg/bling/bling_carbon_chem.F |
458 |
CALC_PCO2_APPROX |
& (hnew*hnew + k1local*hnew + k1local*k2local) |
|
./pkg/dic/carbon_chem.F |
402 |
CALC_PCO2_APPROX |
_RL hnew |
|
./pkg/dic/carbon_chem.F |
457 |
CALC_PCO2_APPROX |
hnew = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) ) |
|
./pkg/dic/carbon_chem.F |
460 |
CALC_PCO2_APPROX |
& (1.0 _d 0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew))) |
|
./pkg/dic/carbon_chem.F |
462 |
CALC_PCO2_APPROX |
phlocal = -log10(hnew) |
|
./pkg/dic/carbon_chem.F |
468 |
CALC_PCO2_APPROX |
& (hnew*hnew + k1local*hnew + k1local*k2local) |