| File |
Line number |
Procedure |
Code |
|
./model/src/calc_grad_phi_hyd.F |
101 |
CALC_GRAD_PHI_HYD |
factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
103 |
CALC_GRAD_PHI_HYD |
& *(rStarFacC(i,j,bi,bj)**atm_kappa - factPI) |
|
./model/src/calc_grad_phi_hyd.F |
104 |
CALC_GRAD_PHI_HYD |
& /(1. _d 0 -factPI) |
|
./model/src/calc_grad_phi_hyd.F |
63 |
CALC_GRAD_PHI_HYD |
_RL factPI |
|
./model/src/calc_grad_phi_hyd.F |
96 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
99 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = factPI*alphRho(i,j) |