| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
80 |
NO PROCEDURE |
& rhos, rhoi, rhosw, rhofw, floodFac, |
|
./pkg/thsice/THSICE_PARAMS.h |
95 |
NO PROCEDURE |
_RL rhos |
|
./pkg/thsice/thsice_advdiff.F |
490 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
495 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
1032 |
THSICE_CALC_THICKN |
& (mwater0(i,j)-(rhos*hSnow1(i,j)+rhoi*hIce(i,j)))/dt, |
|
./pkg/thsice/thsice_calc_thickn.F |
1066 |
THSICE_CALC_THICKN |
rs = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
1068 |
THSICE_CALC_THICKN |
freshe=(rhos*hSnow1(i,j)+rhoi*hIce(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
395 |
THSICE_CALC_THICKN |
mwater0(i,j) = rhos*hSnow1(i,j) + rhoi*hIce(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
504 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
640 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
674 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
702 |
THSICE_CALC_THICKN |
& - (rhos*hSnow1(i,j)+rhoi*hIce(i,j)))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
722 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) + dt*snowP(i,j)/rhos |
|
./pkg/thsice/thsice_calc_thickn.F |
730 |
THSICE_CALC_THICKN |
IF (evapLoc(i,j)/rhos *dt.GT.hSnow1(i,j)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
731 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hSnow1(i,j)*rhos/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
734 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - evapLoc(i,j)/rhos *dt |
|
./pkg/thsice/thsice_calc_thickn.F |
842 |
THSICE_CALC_THICKN |
& + (rhos*hSnow1(i,j) + rhoi*hIce(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
843 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
913 |
THSICE_CALC_THICKN |
dhi = dhs * rhos / rhoi |
|
./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_check_conserv.F |
67 |
THSICE_CHECK_CONSERV |
dEnerg= -rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_check_conserv.F |
70 |
THSICE_CHECK_CONSERV |
dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
76 |
THSICE_CHECK_CONSERV |
& + compact*( rhos*hSnow*qsnow |
|
./pkg/thsice/thsice_check_conserv.F |
80 |
THSICE_CHECK_CONSERV |
& - compact*( rhos*hSnow + rhoi*hIce ) |
|
./pkg/thsice/thsice_diffusion.F |
77 |
THSICE_DIFFUSION |
iceFld(i,j) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
115 |
THSICE_DO_ADVECT |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_ini_vars.F |
179 |
THSICE_INI_VARS |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_main.F |
230 |
THSICE_MAIN |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_monitor.F |
159 |
THSICE_MONITOR |
theEnergy = -rhos*Lfresh*theMeanG |
|
./pkg/thsice/thsice_readparms.F |
108 |
THSICE_READPARMS |
rhos = 330. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
234 |
THSICE_READPARMS |
floodFac = (rhosw - rhoi)/rhos |
|
./pkg/thsice/thsice_readparms.F |
291 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'rhos =', rhos |
|
./pkg/thsice/thsice_readparms.F |
52 |
THSICE_READPARMS |
& rhos, rhoi, rhosw, rhofw, |
|
./pkg/thsice/thsice_step_fwd.F |
152 |
THSICE_STEP_FWD |
snowFac = thSIce_deltaT/(rhos*hNewSnowAge) |
|
./pkg/thsice/thsice_step_fwd.F |
416 |
THSICE_STEP_FWD |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
66 |
ATM_STORE_THSICE |
& ( snowHeight(i,j,bi,bj)*rhos |