| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
739 |
NO PROCEDURE |
& rhonil, recip_rhonil, rhoConst, recip_rhoConst, |
|
./model/inc/PARAMS.h |
834 |
NO PROCEDURE |
_RL rhoConst, recip_rhoConst |
|
./pkg/ggl90/ggl90_calc.F |
176 |
GGL90_CALC |
Nsquare(i,j,k) = - gravity*recip_rhoConst*recip_drC(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
344 |
GMREDI_CALC_TENSOR |
M2loc = gravity*recip_rhoConst*dSigmaH |
|
./pkg/gmredi/gmredi_calc_tensor.F |
346 |
GMREDI_CALC_TENSOR |
N2loc = -gravity*recip_rhoConst*dSigmaR |
|
./pkg/gmredi/gmredi_calc_tensor.F |
441 |
GMREDI_CALC_TENSOR |
N2loc = -gravity*recip_rhoConst*dSigmaDr(i,j) |
|
./pkg/kpp/kpp_forcing_surf.F |
209 |
KPP_FORCING_SURF |
& recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_forcing_surf.F |
222 |
KPP_FORCING_SURF |
& * recip_rhoConst / rhoSurf(I,J) |
|
./pkg/kpp/kpp_transport_s.F |
108 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
92 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
82 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
97 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./model/src/calc_buoyancy.F |
49 |
CALC_BUOYANCY |
buoy(i,j)=-gravity*recip_rhoConst*rholoc(i,j) |
|
./model/src/calc_grad_phi_hyd.F |
166 |
CALC_GRAD_PHI_HYD |
factorZ = gravity*recip_rhoConst*recip_rhoFacC(k)*0.5 _d 0 |
|
./model/src/calc_phi_hyd.F |
198 |
CALC_PHI_HYD |
& *gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
217 |
CALC_PHI_HYD |
& + half*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
219 |
CALC_PHI_HYD |
& + drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
241 |
CALC_PHI_HYD |
& +dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
243 |
CALC_PHI_HYD |
& +dRlocP*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
291 |
CALC_PHI_HYD |
& (one/locAlpha - recip_rhoConst) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
148 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
149 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
155 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
156 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
162 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./model/src/diags_phi_rlow.F |
110 |
DIAGS_PHI_RLOW |
& )*gravity*alphRho(i,j)*recip_rhoConst |
|
./model/src/diags_phi_rlow.F |
90 |
DIAGS_PHI_RLOW |
& + ddRloc*gravity*alphRho(i,j)*recip_rhoConst |
|
./pkg/seaice/dynsolver.F |
174 |
DYNSOLVER |
& )*recip_rhoConst |
|
./pkg/seaice/dynsolver.F |
181 |
DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/seaice_dynsolver.F |
187 |
SEAICE_DYNSOLVER |
& )*recip_rhoConst |
|
./pkg/seaice/seaice_dynsolver.F |
194 |
SEAICE_DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/seaice_growth_if.F |
169 |
SEAICE_GROWTH_IF |
& recip_Cp*recip_rhoConst * recip_drF(1) |
|
./pkg/seaice/seaice_growth_if.F |
171 |
SEAICE_GROWTH_IF |
ENERGY_TO_DELTA_TEMP = recip_Cp*recip_rhoConst*recip_drF(1) |
|
./pkg/seaice/seaice_readparms.F |
318 |
SEAICE_READPARMS |
IF (ICE2WATR.EQ.UNSET_RL) ICE2WATR = SEAICE_rhoIce*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
391 |
EXTERNAL_FORCING_SURF |
& )*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
397 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
419 |
EXTERNAL_FORCING_SURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
99 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./model/src/ini_eos.F |
398 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./model/src/ini_parms.F |
1291 |
INI_PARMS |
mass2rUnit = recip_rhoConst |
|
./model/src/ini_parms.F |
581 |
INI_PARMS |
recip_rhoConst = 1. _d 0 / rhoConst |
|
./verification/rotating_tank/code/external_forcing.F |
350 |
EXTERNAL_FORCING_T |
& *recip_Cp*recip_rhoConst |
|
./verification/tidal_basin_2d/code/external_forcing.F |
338 |
EXTERNAL_FORCING_T |
& *recip_Cp*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
377 |
EXTERNAL_FORCING_SURF |
& )*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
383 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
405 |
EXTERNAL_FORCING_SURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./model/src/set_ref_state.F |
130 |
SET_REF_STATE |
& *recip_rhoConst*gravity |
|
./model/src/set_ref_state.F |
136 |
SET_REF_STATE |
& *rhoNil*recip_rhoConst*gravity |
|
./model/src/set_ref_state.F |
267 |
SET_REF_STATE |
phiRef(1) = -recip_rhoConst*rF(1) |
|
./model/src/set_ref_state.F |
269 |
SET_REF_STATE |
phiRef(2*k) = -recip_rhoConst*rC(k) |
|
./model/src/set_ref_state.F |
270 |
SET_REF_STATE |
phiRef(2*k+1) = -recip_rhoConst*rF(k+1) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
121 |
DWNSLP_CALC_FLOW |
& *DWNSLP_rec_mu*gravity*dRhoH*recip_rhoConst |
|
./pkg/down_slope/dwnslp_init_fixed.F |
254 |
DWNSLP_INIT_FIXED |
dz_bottom = dz_bottom*recip_gravity*recip_rhoConst |