| 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 |
144 |
DIAGS_PHI_RLOW |
dPhiRef = phiRef(2*k+1) - gravity*topoZ(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
148 |
DIAGS_PHI_RLOW |
& + MAX( dPhiRef, zeroRL )*( facP - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
157 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
161 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
170 |
DIAGS_PHI_RLOW |
dPhiRef = ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/diags_phi_rlow.F |
174 |
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 |