| 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 |
456 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
461 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
1027 |
THSICE_CALC_THICKN |
& (mwater0(i,j)-(rhos*hSnow(i,j)+rhoi*hIce(i,j)))/dt, |
|
./pkg/thsice/thsice_calc_thickn.F |
1061 |
THSICE_CALC_THICKN |
rs = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
1063 |
THSICE_CALC_THICKN |
freshe=(rhos*hSnow(i,j)+rhoi*hIce(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
394 |
THSICE_CALC_THICKN |
mwater0(i,j) = rhos*hSnow(i,j) + rhoi*hIce(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
503 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
637 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
671 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
699 |
THSICE_CALC_THICKN |
& - (rhos*hSnow(i,j)+rhoi*hIce(i,j)))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
719 |
THSICE_CALC_THICKN |
hSnow(i,j) = hSnow(i,j) + dt*snowP(i,j)/rhos |
|
./pkg/thsice/thsice_calc_thickn.F |
727 |
THSICE_CALC_THICKN |
IF (evapLoc(i,j)/rhos *dt.GT.hSnow(i,j)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
728 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hSnow(i,j)*rhos/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
731 |
THSICE_CALC_THICKN |
hSnow(i,j) = hSnow(i,j) - evapLoc(i,j)/rhos *dt |
|
./pkg/thsice/thsice_calc_thickn.F |
836 |
THSICE_CALC_THICKN |
& + (rhos*hSnow(i,j) + rhoi*hIce(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
837 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
907 |
THSICE_CALC_THICKN |
dhi = dhs * rhos / rhoi |
|
./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_check_conserv.F |
104 |
THSICE_CHECK_CONSERV |
& hIce, hSnow, snowPrc(i,j,bi,bj)*thSIce_deltaT/rhos |
|
./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_ini_vars.F |
177 |
THSICE_INI_VARS |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_monitor.F |
158 |
THSICE_MONITOR |
theEnergy = -rhos*Lfresh*theMeanG |
|
./pkg/thsice/thsice_readparms.F |
196 |
THSICE_READPARMS |
floodFac = (rhosw - rhoi)/rhos |
|
./pkg/thsice/thsice_readparms.F |
256 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: rhos =',rhos |
|
./pkg/thsice/thsice_readparms.F |
49 |
THSICE_READPARMS |
& rhos, rhoi, rhosw, rhofw, |
|
./pkg/thsice/thsice_readparms.F |
87 |
THSICE_READPARMS |
rhos = 330. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
141 |
THSICE_STEP_FWD |
snowFac = thSIce_deltaT/(rhos*hNewSnowAge) |
|
./pkg/thsice/thsice_step_fwd.F |
375 |
THSICE_STEP_FWD |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/aim_compon_interf/atm_store_seaice.F |
63 |
ATM_STORE_SEAICE |
& ( snowHeight(i,j,bi,bj)*rhos |