| File |
Line number |
Procedure |
Code |
|
./model/src/calc_phi_hyd.F |
269 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
271 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
273 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
308 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
310 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./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 |
313 |
CALC_PHI_HYD |
& +MIN(zero,ddRloc)*rec_dRp*dRlocP |
|
./model/src/calc_phi_hyd.F |
391 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
393 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
395 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*recip_drF(k)*2. _d 0 |
|
./model/src/calc_phi_hyd.F |
435 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
437 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
439 |
CALC_PHI_HYD |
phiHydC(i,j) =( MAX(zero,ddRloc)*rec_dRm*ddPIm |
|
./model/src/calc_phi_hyd.F |
440 |
CALC_PHI_HYD |
& +MIN(zero,ddRloc)*rec_dRp*ddPIp ) |
|
./model/src/calc_phi_hyd.F |
83 |
CALC_PHI_HYD |
_RL dRlocM,dRlocP, ddRloc, locAlpha |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
& +MAX(zero,ddRloc)*ratioRp |
|
./model/src/diags_phi_rlow.F |
63 |
DIAGS_PHI_RLOW |
_RL ddRloc, ratioRm, ratioRp |
|
./model/src/diags_phi_rlow.F |
79 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
81 |
DIAGS_PHI_RLOW |
& + ddRloc*gravity*alphRho(i,j)*recip_rhoConst |
|
./model/src/diags_phi_rlow.F |
97 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
99 |
DIAGS_PHI_RLOW |
& +( MIN(zero,ddRloc)*ratioRm |