| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
170 |
EBM_ATMOSPHERE |
< (gravity*f0*DTDy35(no_so)) |
|
./pkg/ebm/ebm_atmosphere.F |
173 |
EBM_ATMOSPHERE |
C = 0.6*gravity*kappa*kappa*Nw/ |
|
./model/inc/PARAMS.h |
643 |
NO PROCEDURE |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
|
./model/inc/PARAMS.h |
727 |
NO PROCEDURE |
_RL gravity |
|
./pkg/pp81/pp81_ri_number.F |
121 |
PP81_RI_NUMBER |
buoyFreq = - gravity*recip_rhoConst*horiVertRatio * |
|
./pkg/aim_v23/aim_tendency_apply.F |
190 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
206 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
77 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
93 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_do_physics.F |
97 |
AIM_DO_PHYSICS |
PHI0(I2) = gravity*topoZ(i,j,bi,bj) |
|
./pkg/aim_v23/phy_inphys.F |
65 |
INPHYS |
GG = gravity |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
132 |
BULKF_FORMULA_LANL |
czol = zref*xkar*gravity |
|
./pkg/bulk_force/bulkf_formula_lay.F |
142 |
BULKF_FORMULA_LAY |
czol = zref*xkar*gravity |
|
./pkg/fizhi/fizhi_step_diag.F |
42 |
FIZHI_STEP_DIAG |
_RL getcon, gravity |
|
./pkg/fizhi/fizhi_step_diag.F |
433 |
FIZHI_STEP_DIAG |
gravity = getcon('GRAVITY') |
|
./pkg/fizhi/fizhi_step_diag.F |
449 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity |
|
./pkg/fizhi/fizhi_moist.F |
2295 |
RNEVP |
2 tmfrc,cp,gravity,alhl,gamfac,cldlz,RHCRIT,offset,alpha) |
|
./pkg/fizhi/fizhi_moist.F |
2307 |
RNEVP |
_RL tmscl,tmfrc,cp,gravity,alhl,gamfac,offset,alpha |
|
./pkg/fizhi/fizhi_moist.F |
2357 |
RNEVP |
CPOG = cp/gravity |
|
./verification/tidal_basin_2d/code/external_forcing.F |
109 |
EXTERNAL_FORCING_U |
& +gravity*tidal_Hscale* |
|
./verification/internal_wave/code/obcs_calc.F |
125 |
OBCS_CALC |
& *sqrt(strat/(tAlpha*gravity)) |
|
./verification/internal_wave/code/obcs_calc.F |
50 |
OBCS_CALC |
strat = 1.0 _d -6 / (gravity*tAlpha) |
|
./model/src/ini_parms.F |
151 |
INI_PARMS |
& gravity, gBaro, rhonil, tAlpha, sBeta, |
|
./model/src/ini_parms.F |
448 |
INI_PARMS |
IF ( gBaro .EQ. UNSET_RL ) gBaro=gravity |
|
./model/src/ini_parms.F |
601 |
INI_PARMS |
IF ( gravity .LE. 0. ) THEN |
|
./model/src/ini_parms.F |
607 |
INI_PARMS |
recip_gravity = 1.D0 / gravity |
|
./verification/dome/code/obcs_calc.F |
57 |
OBCS_CALC |
gp_inflow=Talpha*gravity*dTemp |
|
./model/src/calc_phi_hyd.F |
181 |
CALC_PHI_HYD |
& *gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
200 |
CALC_PHI_HYD |
& + half*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
202 |
CALC_PHI_HYD |
& + drF(k)*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
224 |
CALC_PHI_HYD |
& +dRlocM*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_phi_hyd.F |
226 |
CALC_PHI_HYD |
& +dRlocP*gravity*alphaRho(i,j)*recip_rhoConst |
|
./model/src/calc_grad_phi_hyd.F |
156 |
CALC_GRAD_PHI_HYD |
factorZ = gravity*recip_rhoConst*0.5 _d 0 |
|
./model/src/external_forcing_surf.F |
294 |
EXTERNAL_FORCING_SURF |
& +sIceLoad(i,j,bi,bj)*gravity |
|
./model/src/solve_for_pressure.F |
211 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*horiVertRatio/gravity ) |
|
./model/src/solve_for_pressure.F |
215 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*horiVertRatio/gravity ) |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
& )*gravity*alphRho(i,j)*recip_rhoConst |
|
./model/src/diags_phi_rlow.F |
81 |
DIAGS_PHI_RLOW |
& + ddRloc*gravity*alphRho(i,j)*recip_rhoConst |
|
./model/src/config_summary.F |
218 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( gravity, INDEX_NONE,'gravity =', |
|
./model/src/ini_p_ground.F |
193 |
INI_P_GROUND |
& - gravity*(Hfld(i,j,bi,bj)-zLoc)/thetaHvR(k) |
|
./model/src/ini_p_ground.F |
337 |
INI_P_GROUND |
phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj)) |
|
./model/src/ini_phiref.F |
105 |
INI_PHIREF |
& *recip_rhoConst*gravity |
|
./model/src/ini_phiref.F |
111 |
INI_PHIREF |
& *rhoNil*recip_rhoConst*gravity |
|
./model/src/ini_phiref.F |
87 |
INI_PHIREF |
pLoc = -rhoConst*rC(k)*gravity |
|
./model/src/ini_phiref.F |
97 |
INI_PHIREF |
pLoc = -rhoConst*rF(k)*gravity |
|
./model/src/pressure_for_eos.F |
62 |
PRESSURE_FOR_EOS |
& -rC(k)*gravity |
|
./model/src/pressure_for_eos.F |
69 |
PRESSURE_FOR_EOS |
locPres(i,j) = -rhoConst*rC(k)*gravity |
|
./model/src/set_defaults.F |
83 |
SET_DEFAULTS |
gravity = 9.81 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
166 |
GGL90_CALC |
Nsquare = - gravity*recip_rhoConst*recip_drC(K) |
|
./pkg/kpp/kpp_calc.F |
386 |
KPP_CALC |
bo(I,J) = - gravity * |
|
./pkg/kpp/kpp_calc.F |
392 |
KPP_CALC |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_routines.F |
1550 |
STATEKPP |
DBLOC(I,J,K-1) = gravity * (RHOK(I,J) - RHOKM1(I,J)) / |
|
./pkg/kpp/kpp_routines.F |
1552 |
STATEKPP |
DBSFC(I,J,K) = gravity * (RHOK(I,J) - RHO1K (I,J)) / |
|
./pkg/opps/opps_calc.F |
246 |
OPPS_CALC |
wsqr = wsqr - wsqr*abs(entrainrate)+ gravity* |
|
./pkg/opps/opps_calc.F |
493 |
OPPS_CALC |
& -rC(kRef)*gravity |
|
./pkg/opps/opps_calc.F |
496 |
OPPS_CALC |
pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
123 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
130 |
OCN_APPLY_IMPORT |
& + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ecco/cost_obcs_ageos.F |
259 |
COST_OBCS_AGEOS |
& * gravity / f0 / rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
320 |
COST_OBCS_AGEOS |
& * gravity / f0 /rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
380 |
COST_OBCS_AGEOS |
& * gravity / f0 / rhonil |
|
./pkg/ecco/cost_obcs_ageos.F |
439 |
COST_OBCS_AGEOS |
& * gravity / f0 /rhonil |
|
./pkg/my82/my82_ri_number.F |
121 |
MY82_RI_NUMBER |
buoyFreq(I,J) = gravity*recip_rhoConst*horiVertRatio * |
|
./pkg/seaice/seaice_dynsolver.F |
187 |
SEAICE_DYNSOLVER |
& +sIceLoad(i,j,bi,bj)*gravity |