| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
822 |
NO PROCEDURE |
& gravFacC, recip_gravFacC, gravFacF, recip_gravFacF, |
|
./model/inc/PARAMS.h |
925 |
NO PROCEDURE |
_RL gravFacF(Nr+1), recip_gravFacF(Nr+1) |
|
./model/src/calc_phi_hyd.F |
267 |
CALC_PHI_HYD |
dRlocM = halfRL*drC(k)*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
268 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM = (rF(k)-rC(k))*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
270 |
CALC_PHI_HYD |
dRlocP = (rC(k)-rF(k+1))*gravFacF(k+1) |
|
./model/src/calc_phi_hyd.F |
272 |
CALC_PHI_HYD |
dRlocP = halfRL*drC(k+1)*gravFacF(k+1) |
|
./model/src/config_summary.F |
323 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( gravFacF, Nr+1, INDEX_K, 'gravFacF = ', |
|
./model/src/diags_phi_rlow.F |
103 |
DIAGS_PHI_RLOW |
ratioRm = ratioRm*gravFacF(k) |
|
./model/src/diags_phi_rlow.F |
104 |
DIAGS_PHI_RLOW |
ratioRp = ratioRp*gravFacF(k+1) |
|
./model/src/find_hyd_press_1d.F |
104 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacF(k)*dRlocM |
|
./model/src/find_hyd_press_1d.F |
106 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacF(k+1)*dRlocP |
|
./model/src/load_ref_files.F |
136 |
LOAD_REF_FILES |
gravFacF(1) = 1. _d 0 |
|
./model/src/load_ref_files.F |
143 |
LOAD_REF_FILES |
gravFacF(k) = ( gravFacC(k-1)*(rF(k)-rC(k)) |
|
./model/src/load_ref_files.F |
147 |
LOAD_REF_FILES |
gravFacF(Nr+1) = ( gravFacC(Nr)*(rF(Nr+1)-rF(Nr)) |
|
./model/src/load_ref_files.F |
148 |
LOAD_REF_FILES |
& + gravFacF(Nr)*(rC(Nr)-rF(Nr+1)) |
|
./model/src/load_ref_files.F |
155 |
LOAD_REF_FILES |
recip_gravFacF(k) = 1. _d 0/gravFacF(k) |
|
./model/src/load_ref_files.F |
165 |
LOAD_REF_FILES |
gravFacF(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
111 |
SET_REF_STATE |
phiRef(2) = phiRef(1) + drC(1)*gravity*gravFacF(1) |
|
./model/src/set_ref_state.F |
114 |
SET_REF_STATE |
& + halfRL*drC(k)*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
115 |
SET_REF_STATE |
phiRef(2*k) = phiRef(2*k-2) + drC(k)*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
118 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + drC(k+1)*gravity*gravFacF(k+1) |
|
./model/src/set_ref_state.F |
199 |
SET_REF_STATE |
& *recip_rhoConst*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
205 |
SET_REF_STATE |
& *rhoNil*recip_rhoConst*gravity*gravFacF(k) |
|
./model/src/set_ref_state.F |
370 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'GravFacF',' ',gravFacF,Nr+1,-1, myThid ) |