| File |
Line number |
Procedure |
Code |
|
./model/src/diags_phi_hyd.F |
100 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst |
|
./model/src/diags_phi_hyd.F |
103 |
DIAGS_PHI_HYD |
& + MAX( dPhiRef, 0. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
112 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*gravity |
|
./model/src/diags_phi_hyd.F |
115 |
DIAGS_PHI_HYD |
& + MAX( dPhiRef, 0. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
58 |
DIAGS_PHI_HYD |
_RL facP, dPhiRef |
|
./model/src/diags_phi_hyd.F |
84 |
DIAGS_PHI_HYD |
dPhiRef = phiRef(2*k) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
88 |
DIAGS_PHI_HYD |
& + MAX( dPhiRef, 0. _d 0 )*( facP - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
146 |
DIAGS_PHI_RLOW |
dPhiRef = phiRef(2*k+1) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
150 |
DIAGS_PHI_RLOW |
& + MAX( dPhiRef, zeroRL )*( facP - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
159 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
163 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
172 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
176 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
64 |
DIAGS_PHI_RLOW |
_RL facP, dPhiRef |