| 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 |
386 |
THSICE_CALC_THICKN |
cpchr =cpWater*rhosw*bMeltCoef |
|
./pkg/thsice/thsice_calc_thickn.F |
905 |
THSICE_CALC_THICKN |
dhs = (hSnow(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw |
|
./pkg/thsice/thsice_readparms.F |
196 |
THSICE_READPARMS |
floodFac = (rhosw - rhoi)/rhos |
|
./pkg/thsice/thsice_readparms.F |
258 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: rhosw =',rhosw |
|
./pkg/thsice/thsice_readparms.F |
49 |
THSICE_READPARMS |
& rhos, rhoi, rhosw, rhofw, |
|
./pkg/thsice/thsice_readparms.F |
89 |
THSICE_READPARMS |
rhosw = rhoConst |
|
./pkg/thsice/thsice_slab_ocean.F |
73 |
THSICE_SLAB_OCEAN |
dtFac = ocean_deltaT/rhosw |
|
./pkg/thsice/thsice_slab_ocean.F |
74 |
THSICE_SLAB_OCEAN |
fwFac = ocean_deltaT*sMxL_default/rhosw |
|
./pkg/thsice/thsice_slab_ocean.F |
75 |
THSICE_SLAB_OCEAN |
heatFac = ocean_deltaT/(cpwater*rhosw) |
|
./pkg/thsice/thsice_step_fwd.F |
199 |
THSICE_STEP_FWD |
cphm = cpwater*rhosw*hOceMxL(i,j,bi,bj) |