| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
80 |
NO PROCEDURE |
& rhos, rhoi, rhosw, rhofw, floodFac, |
|
./pkg/thsice/THSICE_PARAMS.h |
97 |
NO PROCEDURE |
_RL rhosw |
|
./pkg/thsice/thsice_calc_thickn.F |
387 |
THSICE_CALC_THICKN |
cpchr =cpWater*rhosw*bMeltCoef |
|
./pkg/thsice/thsice_calc_thickn.F |
911 |
THSICE_CALC_THICKN |
dhs = (hSnow1(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw |
|
./pkg/thsice/thsice_readparms.F |
110 |
THSICE_READPARMS |
rhosw = rhoConst |
|
./pkg/thsice/thsice_readparms.F |
234 |
THSICE_READPARMS |
floodFac = (rhosw - rhoi)/rhos |
|
./pkg/thsice/thsice_readparms.F |
293 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'rhosw =', rhosw |
|
./pkg/thsice/thsice_readparms.F |
52 |
THSICE_READPARMS |
& rhos, rhoi, rhosw, rhofw, |
|
./pkg/thsice/thsice_slab_ocean.F |
74 |
THSICE_SLAB_OCEAN |
dtFac = ocean_deltaT/rhosw |
|
./pkg/thsice/thsice_slab_ocean.F |
75 |
THSICE_SLAB_OCEAN |
fwFac = ocean_deltaT*sMxL_default/rhosw |
|
./pkg/thsice/thsice_slab_ocean.F |
76 |
THSICE_SLAB_OCEAN |
heatFac = ocean_deltaT/(cpwater*rhosw) |
|
./pkg/thsice/thsice_step_fwd.F |
209 |
THSICE_STEP_FWD |
cphm = cpwater*rhosw*hOceMxL(i,j,bi,bj) |