| File |
Line number |
Procedure |
Code |
|
./model/src/calc_phi_hyd.F |
270 |
CALC_PHI_HYD |
dRlocP = (rC(k)-rF(k+1))*gravFacF(k+1) |
|
./model/src/calc_phi_hyd.F |
272 |
CALC_PHI_HYD |
dRlocP = halfRL*drC(k+1)*gravFacF(k+1) |
|
./model/src/calc_phi_hyd.F |
280 |
CALC_PHI_HYD |
& + dRlocP*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
294 |
CALC_PHI_HYD |
& +MIN(zeroRL,ddRloc)*rec_dRp*dRlocP |
|
./model/src/calc_phi_hyd.F |
301 |
CALC_PHI_HYD |
& + dRlocP*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
402 |
CALC_PHI_HYD |
dRlocP=halfRL*drC(k+1) |
|
./model/src/calc_phi_hyd.F |
418 |
CALC_PHI_HYD |
& +MIN(zeroRL,ddRloc)*rec_dRp*dRlocP |
|
./model/src/calc_phi_hyd.F |
423 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + dRlocP*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
95 |
CALC_PHI_HYD |
_RL dRlocM,dRlocP, ddRloc |
|
./model/src/find_hyd_press_1d.F |
100 |
FIND_HYD_PRESS_1D |
dRlocP = halfRL*drC(k+1) |
|
./model/src/find_hyd_press_1d.F |
102 |
FIND_HYD_PRESS_1D |
IF (k.EQ.Nr) dRlocP = drC(k+1) |
|
./model/src/find_hyd_press_1d.F |
106 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacF(k+1)*dRlocP |
|
./model/src/find_hyd_press_1d.F |
62 |
FIND_HYD_PRESS_1D |
_RL dRlocM, dRlocP, dRho |