| File |
Line number |
Procedure |
Code |
|
./model/src/calc_phi_hyd.F |
267 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k)*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
268 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM = (rF(k)-rC(k))*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
278 |
CALC_PHI_HYD |
& + dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
293 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
298 |
CALC_PHI_HYD |
& + dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k) |
|
./model/src/calc_phi_hyd.F |
398 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
417 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zeroRL,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
421 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + dRlocM*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
95 |
CALC_PHI_HYD |
_RL dRlocM,dRlocP, ddRloc |
|
./model/src/find_hyd_press_1d.F |
101 |
FIND_HYD_PRESS_1D |
IF (k.EQ.1) dRlocM = drC(k) |
|
./model/src/find_hyd_press_1d.F |
104 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacF(k)*dRlocM |
|
./model/src/find_hyd_press_1d.F |
62 |
FIND_HYD_PRESS_1D |
_RL dRlocM, dRlocP, dRho |
|
./model/src/find_hyd_press_1d.F |
99 |
FIND_HYD_PRESS_1D |
dRlocM = halfRL*drC(k) |