| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
125 |
ECCO_PHYS |
IF ( useRealFreshWaterFlux ) sIceLoadFac=recip_rhoConst |
|
./model/inc/PARAMS.h |
823 |
NO PROCEDURE |
& rhoNil, rhoConst, recip_rhoConst, rho1Ref, |
|
./model/inc/PARAMS.h |
927 |
NO PROCEDURE |
_RL rhoConst, recip_rhoConst |
|
./pkg/ggl90/ggl90_calc.F |
218 |
GGL90_CALC |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/ggl90/ggl90_idemix.F |
115 |
GGL90_IDEMIX |
Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst |
|
./pkg/gmredi/gmredi_calc_tensor.F |
384 |
GMREDI_CALC_TENSOR |
M2loc = gravity*recip_rhoConst*dSigmaH |
|
./pkg/gmredi/gmredi_calc_tensor.F |
386 |
GMREDI_CALC_TENSOR |
N2loc = -gravity*recip_rhoConst*dSigmaR |
|
./pkg/gmredi/gmredi_calc_tensor.F |
482 |
GMREDI_CALC_TENSOR |
N2loc = -gravity*recip_rhoConst*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
248 |
GMREDI_K3D |
g_reciprho_sq = (gravity*recip_rhoConst)**2 |
|
./pkg/gmredi/gmredi_k3d.F |
423 |
GMREDI_K3D |
N2(i,j,k) = -gravity*recip_rhoConst*sigmaR(i,j,k) |
|
./pkg/gmredi/submeso_calc_psi.F |
128 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j)= -dBuoyX_Hu(i,j)*gravity*recip_rhoConst |
|
./pkg/gmredi/submeso_calc_psi.F |
129 |
SUBMESO_CALC_PSI |
dBuoyY_Hv(i,j)= -dBuoyY_Hv(i,j)*gravity*recip_rhoConst |
|
./pkg/gmredi/submeso_calc_psi.F |
130 |
SUBMESO_CALC_PSI |
NHmixLay(i,j) = SQRT( NHmixLay(i,j)*gravity*recip_rhoConst |
|
./pkg/kpp/kpp_forcing_surf.F |
218 |
KPP_FORCING_SURF |
& recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_forcing_surf.F |
235 |
KPP_FORCING_SURF |
& * recip_rhoConst / rhoSurf(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
248 |
KPP_FORCING_SURF |
& * recip_rhoConst / rhoSurf(I,J) |
|
./pkg/kpp/kpp_transport_s.F |
101 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
117 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
84 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./pkg/kpp/kpp_transport_t.F |
99 |
KPP_TRANSPORT_T |
& -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst |
|
./model/src/calc_grad_phi_hyd.F |
167 |
CALC_GRAD_PHI_HYD |
factorZ = gravity*recip_rhoConst*recip_rhoFacC(k)*0.5 _d 0 |
|
./model/src/calc_phi_hyd.F |
213 |
CALC_PHI_HYD |
& *gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
233 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
236 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
248 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
252 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
256 |
CALC_PHI_HYD |
& *alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
278 |
CALC_PHI_HYD |
& + dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
280 |
CALC_PHI_HYD |
& + dRlocP*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
295 |
CALC_PHI_HYD |
& )*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
298 |
CALC_PHI_HYD |
& + dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
301 |
CALC_PHI_HYD |
& + dRlocP*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
350 |
CALC_PHI_HYD |
& (oneRL/locAlpha - recip_rhoConst) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
68 |
MOM_QUASIHYDROSTATIC |
scalingFactor = recip_rhoConst*recip_gravity |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
133 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
134 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
140 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
141 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
147 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./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_rlow.F |
113 |
DIAGS_PHI_RLOW |
& )*gravity*alphRho(i,j)*recip_rhoConst |
|
./model/src/diags_phi_rlow.F |
160 |
DIAGS_PHI_RLOW |
& *recip_rhoConst |
|
./model/src/diags_phi_rlow.F |
91 |
DIAGS_PHI_RLOW |
& + ddRloc*gravFacC(k)*gravity*alphRho(i,j)*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
364 |
EXTERNAL_FORCING_SURF |
& )*recip_rhoConst |
|
./model/src/external_forcing_surf.F |
370 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/dynsolver.F |
181 |
DYNSOLVER |
& )*recip_rhoConst |
|
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/seaice_dynsolver.F |
220 |
SEAICE_DYNSOLVER |
& )*recip_rhoConst |
|
./pkg/seaice/seaice_dynsolver.F |
227 |
SEAICE_DYNSOLVER |
& + pload(i,j,bi,bj)*recip_rhoConst |
|
./pkg/seaice/seaice_growth.F |
1706 |
SEAICE_GROWTH |
& * recip_rhoConst |
|
./pkg/seaice/seaice_growth.F |
1717 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)*recip_rhoConst |
|
./pkg/seaice/seaice_readparms.F |
676 |
SEAICE_READPARMS |
IF (ICE2WATR.EQ.UNSET_RL) ICE2WATR = SEAICE_rhoIce*recip_rhoConst |
|
./pkg/shelfice/shelfice_forcing_surf.F |
128 |
SHELFICE_FORCING_SURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./model/src/ini_eos.F |
474 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_linear_phisurf.F |
101 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = recip_rhoConst |
|
./model/src/ini_parms.F |
1453 |
INI_PARMS |
mass2rUnit = recip_rhoConst |
|
./model/src/ini_parms.F |
641 |
INI_PARMS |
recip_rhoConst = 1. _d 0 |
|
./model/src/ini_parms.F |
643 |
INI_PARMS |
recip_rhoConst = 1. _d 0 / rhoConst |
|
./model/src/ini_psurf.F |
106 |
INI_PSURF |
& + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst |
|
./verification/tidal_basin_2d/code/external_forcing.F |
278 |
EXTERNAL_FORCING_T |
& *recip_Cp*recip_rhoConst |
|
./model/src/set_ref_state.F |
128 |
SET_REF_STATE |
& - recip_rhoConst*( rC(k) - rF(Nr+1) ) |
|
./model/src/set_ref_state.F |
130 |
SET_REF_STATE |
& - recip_rhoConst*( rF(k) - rF(Nr+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 |
86 |
SET_REF_STATE |
phiRef(1) = top_Pres*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
367 |
EXTERNAL_FORCING_SURF |
& )*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
367 |
EXTERNAL_FORCING_SURF |
& )*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./model/src/taueddy_tendency_apply.F |
162 |
TAUEDDY_TENDENCY_APPLY_V |
& +foFacMom*recip_rhoConst* |
|
./model/src/taueddy_tendency_apply.F |
81 |
TAUEDDY_TENDENCY_APPLY_U |
& +foFacMom*recip_rhoConst* |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
147 |
CTRL_MAP_GENTIM2D |
& *rhoConstFresh*recip_rhoConst*deltaTClock |
|
./pkg/down_slope/dwnslp_calc_flow.F |
122 |
DWNSLP_CALC_FLOW |
& *DWNSLP_rec_mu*gravity*dRhoH*recip_rhoConst |
|
./pkg/down_slope/dwnslp_init_fixed.F |
255 |
DWNSLP_INIT_FIXED |
dz_bottom = dz_bottom*recip_gravity*recip_rhoConst |
|
./pkg/ecco/cost_averagesfields.F |
222 |
COST_AVERAGESFIELDS |
& *rhoConstFresh*recip_rhoConst*deltaTClock |
|
./pkg/ecco/cost_averagesfields.F |
228 |
COST_AVERAGESFIELDS |
& +sIceLoad(i,j,bi,bj)*recip_rhoConst |