| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
80 |
NO PROCEDURE |
& rhos, rhoi, rhosw, rhofw, floodFac, |
|
./pkg/thsice/THSICE_PARAMS.h |
98 |
NO PROCEDURE |
_RL rhofw |
|
./pkg/thsice/thsice_get_precip.F |
67 |
THSICE_GET_PRECIP |
precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw |
|
./pkg/thsice/thsice_get_precip.F |
71 |
THSICE_GET_PRECIP |
snowPrc(i,j) = rain(i,j,bi,bj)*rhofw |
|
./pkg/thsice/thsice_readparms.F |
259 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: rhofw =',rhofw |
|
./pkg/thsice/thsice_readparms.F |
49 |
THSICE_READPARMS |
& rhos, rhoi, rhosw, rhofw, |
|
./pkg/thsice/thsice_readparms.F |
90 |
THSICE_READPARMS |
rhofw = rhoConstFresh |
|
./pkg/thsice/thsice_step_fwd.F |
275 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
331 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - frw2oc(i,j)/rhofw |
|
./pkg/atm2d/pass_thsice_fluxes.F |
47 |
PASS_THSICE_FLUXES |
sum_prcIce(i,j) = sum_prcIce(i,j) - precipi_2D(i,j)*rhofw |
|
./pkg/atm2d/pass_thsice_fluxes.F |
48 |
PASS_THSICE_FLUXES |
sum_evapIce(i,j) = sum_evapIce(i,j) - evapi_2D(i,j)*rhofw |
|
./pkg/atm2d/pass_thsice_fluxes.F |
50 |
PASS_THSICE_FLUXES |
& sum_snowPrc(i,j) = sum_snowPrc(i,j) - precipi_2D(i,j)*rhofw |