| File |
Line number |
Procedure |
Code |
|
./model/src/calc_phi_hyd.F |
196 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
197 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
211 |
CALC_PHI_HYD |
& +dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
292 |
CALC_PHI_HYD |
dRlocM=half*drC(k) |
|
./model/src/calc_phi_hyd.F |
293 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
312 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zero,ddRloc)*rec_dRm*dRlocM |
|
./model/src/calc_phi_hyd.F |
316 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + dRlocM*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
83 |
CALC_PHI_HYD |
_RL dRlocM,dRlocP, ddRloc, locAlpha |