| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_aim2sioce.F |
100 |
AIM_AIM2SIOCE |
IF (useThSIce) conv_EmP = conv_Precip / rhofw |
|
./pkg/thsice/THSICE_PARAMS.h |
70 |
NO PROCEDURE |
& rhos, rhoi, rhosw, rhofw, rhoiw, |
|
./pkg/thsice/THSICE_PARAMS.h |
87 |
NO PROCEDURE |
_RL rhofw |
|
./pkg/thsice/thsice_slab_ocean.F |
64 |
THSICE_SLAB_OCEAN |
fwFac = ocean_deltaT*sMxL_default*rhofw/rhosw |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
& + opFrac*rhofw*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
212 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
225 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = rhofw*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
254 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_readparms.F |
219 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: rhofw =',rhofw |
|
./pkg/thsice/thsice_readparms.F |
48 |
THSICE_READPARMS |
& rhos, rhoi, rhosw, rhofw, |
|
./pkg/thsice/thsice_readparms.F |
89 |
THSICE_READPARMS |
rhofw = rhoConstFresh |
|
./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 |