Symbol Description Uses
gravity Accel. due to gravity ( m/s^2 ) 152


File Line number Procedure Code
./model/inc/PARAMS.h 771 NO PROCEDURE 
     & gravity, recip_gravity, gBaro,
./model/inc/PARAMS.h 865 NO PROCEDURE 
      _RL gravity
./pkg/fizhi/fizhi_moist.F 2367 RNEVP 
     2   tmfrc,cp,gravity,alhl,gamfac,cldlz,RHCRIT,offset,alpha)
./pkg/fizhi/fizhi_moist.F 2379 RNEVP 
      _RL tmscl,tmfrc,cp,gravity,alhl,gamfac,offset,alpha
./pkg/fizhi/fizhi_moist.F 2430 RNEVP 
       CPOG    = cp/gravity
./pkg/fizhi/fizhi_step_diag.F 42 FIZHI_STEP_DIAG 
      _RL getcon, gravity
./pkg/fizhi/fizhi_step_diag.F 430 FIZHI_STEP_DIAG 
       gravity = getcon('GRAVITY')
./pkg/fizhi/fizhi_step_diag.F 446 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity
./pkg/ggl90/ggl90_calc.F 169 GGL90_CALC 
         Nsquare(i,j,k) = gravity*gravitySign*recip_rhoConst
./pkg/gmredi/gmredi_calc_psi_bvp.F 245 GMREDI_CALC_PSI_BVP 
        tmpFac = SQRT(gravity/rhoConst)
./pkg/gmredi/gmredi_calc_tensor.F 382 GMREDI_CALC_TENSOR 
             M2loc = gravity*recip_rhoConst*dSigmaH
./pkg/gmredi/gmredi_calc_tensor.F 384 GMREDI_CALC_TENSOR 
             N2loc = -gravity*recip_rhoConst*dSigmaR
./pkg/gmredi/gmredi_calc_tensor.F 479 GMREDI_CALC_TENSOR 
         N2loc = -gravity*recip_rhoConst*dSigmaDr(i,j)
./pkg/gmredi/gmredi_k3d.F 249 GMREDI_K3D 
      g_reciprho_sq = (gravity*recip_rhoConst)**2
./pkg/gmredi/gmredi_k3d.F 374 GMREDI_K3D 
         N2(i,j,k) = -gravity*recip_rhoConst*sigmaR(i,j,k)
./pkg/gmredi/gmredi_k3d.F 396 GMREDI_K3D 
      maxDRhoDz = -rhoConst*GM_K3D_minN2/gravity
./pkg/gmredi/gmredi_readparms.F 207 GMREDI_READPARMS 
        GM_BVP_cHat2Min = GM_BVP_cMin**2*rhoConst/gravity
./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/kl10/kl10_calc.F 125 KL10_CALC 
            b0 = MAX(-gravity*mass2rUnit*
./pkg/kl10/kl10_calc.F 135 KL10_CALC 
                  buoyFreqf = -gravity*mass2rUnit*
./pkg/kl10/kl10_calc.F 139 KL10_CALC 
                  buoyFreqf = -gravity*mass2rUnit*
./pkg/kpp/kpp_forcing_surf.F 209 KPP_FORCING_SURF 
        bo(I,J) = - gravity *
./pkg/kpp/kpp_forcing_surf.F 214 KPP_FORCING_SURF 
        bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) *
./pkg/kpp/kpp_forcing_surf.F 229 KPP_FORCING_SURF 
              temparray(I,J) = - gravity *
./pkg/kpp/kpp_forcing_surf.F 243 KPP_FORCING_SURF 
           boplume(I,J,1) = - gravity * SSBETA(I,J,1)
./pkg/kpp/kpp_routines.F 1721 STATEKPP 
               DBLOC(I,J,K-1) = gravity * (RHOK(I,J) - RHOKM1(I,J)) /
./pkg/kpp/kpp_routines.F 1723 STATEKPP 
               DBSFC(I,J,K)   = gravity * (RHOK(I,J) - RHO1K (I,J)) /
./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 232 CALC_PHI_HYD 
     &          + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 234 CALC_PHI_HYD 
     &                 + drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 245 CALC_PHI_HYD 
            phiHydC(i,j) = ddRloc*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 248 CALC_PHI_HYD 
     &            + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 251 CALC_PHI_HYD 
     &            + halfRL*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 273 CALC_PHI_HYD 
     &        +dRlocM*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 275 CALC_PHI_HYD 
     &        +dRlocP*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 290 CALC_PHI_HYD 
     &                    )*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 293 CALC_PHI_HYD 
     &        +dRlocM*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 296 CALC_PHI_HYD 
     &        +dRlocP*gravity*alphaRho(i,j)*recip_rhoConst
./pkg/my82/my82_ri_number.F 115 MY82_RI_NUMBER 
        buoyFreq(I,J) = gravity*mass2rUnit *
./model/src/config_summary.F 295 CONFIG_SUMMARY 
      CALL WRITE_0D_RL( gravity, INDEX_NONE,'gravity =',
./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 156 OCN_APPLY_IMPORT 
     &                 + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst
./pkg/opps/opps_calc.F 247 OPPS_CALC 
         wsqr = wsqr - wsqr*abs(entrainrate)+ gravity*
./pkg/opps/opps_calc.F 484 OPPS_CALC 
     &                   -rC(kRef)*gravity
./pkg/opps/opps_calc.F 487 OPPS_CALC 
        pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj)
./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 84 DIAGS_PHI_HYD 
           dPhiRef = phiRef(2*k) - gravity*topoZ(i,j,bi,bj)
./pkg/pp81/pp81_ri_number.F 119 PP81_RI_NUMBER 
        buoyFreq = - gravity*mass2rUnit *
./model/src/diags_phi_rlow.F 111 DIAGS_PHI_RLOW 
     &                   )*gravity*alphRho(i,j)*recip_rhoConst
./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 171 DIAGS_PHI_RLOW 
     &              *gravity
./model/src/diags_phi_rlow.F 91 DIAGS_PHI_RLOW 
     &            + ddRloc*gravity*alphRho(i,j)*recip_rhoConst
./model/src/external_forcing_surf.F 360 EXTERNAL_FORCING_SURF 
     &                          +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/dynsolver.F 177 DYNSOLVER 
     &                      +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/seaice_calc_ice_strength.F 165 SEAICE_CALC_ICE_STRENGTH 
       tmpscal1 = SEAICE_cf*0.5*gravity*(rhoConst-SEAICE_rhoIce)
./pkg/seaice/seaice_dynsolver.F 201 SEAICE_DYNSOLVER 
     &                      +sIceLoad(i,j,bi,bj)*gravity
./pkg/shelfice/shelfice_init_fixed.F 137 SHELFICE_INIT_FIXED 
           shelficeLoadAnomaly(i,j,bi,bj) = gravity
./pkg/shelfice/shelfice_thermodynamics.F 520 SHELFICE_THERMODYNAMICS 
           shelficeLoadAnomaly(i,j,bi,bj) = gravity
./pkg/streamice/streamice_driving_stress.F 103 STREAMICE_DRIVING_STRESS 
     &        gravity *
./pkg/streamice/streamice_driving_stress.F 115 STREAMICE_DRIVING_STRESS 
     &        streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 127 STREAMICE_DRIVING_STRESS 
     &        gravity *
./pkg/streamice/streamice_driving_stress.F 139 STREAMICE_DRIVING_STRESS 
     &        streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 156 STREAMICE_DRIVING_STRESS 
     &       streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 163 STREAMICE_DRIVING_STRESS 
     &       streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 173 STREAMICE_DRIVING_STRESS 
     &        gravity *
./pkg/streamice/streamice_driving_stress.F 185 STREAMICE_DRIVING_STRESS 
     &        streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 197 STREAMICE_DRIVING_STRESS 
     &        gravity *
./pkg/streamice/streamice_driving_stress.F 209 STREAMICE_DRIVING_STRESS 
     &        streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 229 STREAMICE_DRIVING_STRESS 
     &       streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 236 STREAMICE_DRIVING_STRESS 
     &       streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 246 STREAMICE_DRIVING_STRESS 
     &        gravity *
./pkg/streamice/streamice_driving_stress.F 258 STREAMICE_DRIVING_STRESS 
     &        streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 270 STREAMICE_DRIVING_STRESS 
     &        gravity *
./pkg/streamice/streamice_driving_stress.F 282 STREAMICE_DRIVING_STRESS 
     &        streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 299 STREAMICE_DRIVING_STRESS 
     &       streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 306 STREAMICE_DRIVING_STRESS 
     &       streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 317 STREAMICE_DRIVING_STRESS 
     &        gravity *
./pkg/streamice/streamice_driving_stress.F 329 STREAMICE_DRIVING_STRESS 
     &        streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 341 STREAMICE_DRIVING_STRESS 
     &        gravity *
./pkg/streamice/streamice_driving_stress.F 353 STREAMICE_DRIVING_STRESS 
     &        streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 86 STREAMICE_DRIVING_STRESS 
     &       streamice_density * gravity *
./pkg/streamice/streamice_driving_stress.F 93 STREAMICE_DRIVING_STRESS 
     &       streamice_density * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 101 STREAMICE_DRIVING_STRESS_PPM 
     &          0.25 * streamice_density * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 129 STREAMICE_DRIVING_STRESS_PPM 
     &          0.25 * streamice_density * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 147 STREAMICE_DRIVING_STRESS_PPM 
     &          streamice_density * gravity * (1./6.) *
./pkg/streamice/streamice_driving_stress_ppm.F 160 STREAMICE_DRIVING_STRESS_PPM 
     &          streamice_density * gravity * (1./6.) *
./pkg/streamice/streamice_driving_stress_ppm.F 192 STREAMICE_DRIVING_STRESS_PPM 
     &           0.25 * streamice_density * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 226 STREAMICE_DRIVING_STRESS_PPM 
     &          0.25 * streamice_density * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 255 STREAMICE_DRIVING_STRESS_PPM 
     &          0.25 * streamice_density * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 273 STREAMICE_DRIVING_STRESS_PPM 
     &          streamice_density * gravity * (1./6.) *
./pkg/streamice/streamice_driving_stress_ppm.F 286 STREAMICE_DRIVING_STRESS_PPM 
     &          streamice_density * gravity * (1./6.) *
./pkg/streamice/streamice_driving_stress_ppm.F 318 STREAMICE_DRIVING_STRESS_PPM 
     &           0.25 * streamice_density * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 347 STREAMICE_DRIVING_STRESS_PPM 
            neu_val = .5 * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 351 STREAMICE_DRIVING_STRESS_PPM 
            neu_val = .5 * gravity *
./pkg/streamice/streamice_driving_stress_ppm.F 356 STREAMICE_DRIVING_STRESS_PPM 
            neu_val = .5 * gravity *
./pkg/streamice/streamice_forced_buttress.F 56 STREAMICE_FORCED_BUTTRESS 
              unconf_stress = gravity *
./pkg/streamice/streamice_forced_buttress.F 66 STREAMICE_FORCED_BUTTRESS 
              unconf_stress = streamice_density * 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 343 INI_P_GROUND 
           phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj))
./model/src/ini_parms.F 1340 INI_PARMS 
         mass2rUnit = gravity
./model/src/ini_parms.F 174 INI_PARMS 
     & gravity, gBaro, rhonil, tAlpha, sBeta,
./model/src/ini_parms.F 432 INI_PARMS 
      IF ( gBaro .EQ. UNSET_RL ) gBaro=gravity
./model/src/ini_parms.F 617 INI_PARMS 
      IF ( gravity .LE. 0. ) THEN
./model/src/ini_parms.F 624 INI_PARMS 
       recip_gravity = 1. _d 0 / gravity
./verification/dome/code/obcs_calc.F 62 OBCS_CALC 
      gp_inflow=tAlpha*gravity*dTemp
./verification/internal_wave/code/obcs_calc.F 136 OBCS_CALC 
     & *sqrt(strat/(tAlpha*gravity))
./verification/internal_wave/code/obcs_calc.F 59 OBCS_CALC 
      strat = 1.0 _d -6 / (gravity*tAlpha)
./model/src/pressure_for_eos.F 61 PRESSURE_FOR_EOS 
     &                  -rC(k)*gravity )
./model/src/pressure_for_eos.F 68 PRESSURE_FOR_EOS 
            locPres(i,j) = -rhoConst*rC(k)*gravity
./verification/tidal_basin_2d/code/external_forcing.F 97 EXTERNAL_FORCING_U 
     &   +gravity*tidal_Hscale*
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 355 EXTERNAL_FORCING_SURF 
     &                          +sIceLoad(i,j,bi,bj)*gravity
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 355 EXTERNAL_FORCING_SURF 
     &                          +sIceLoad(i,j,bi,bj)*gravity
./model/src/set_defaults.F 102 SET_DEFAULTS 
      gravity             = 9.81 _d 0
./model/src/set_ref_state.F 113 SET_REF_STATE 
          pLoc = -rhoConst*rC(k)*gravity
./model/src/set_ref_state.F 122 SET_REF_STATE 
          pLoc = -rhoConst*rF(k)*gravity
./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 174 SET_REF_STATE 
          wUnit2rVel(k) = gravity*rhoLoc
./model/src/set_ref_state.F 208 SET_REF_STATE 
            wUnit2rVel(k) = gravity
./model/src/set_ref_state.F 271 SET_REF_STATE 
          phiRef(2*k)   = gravitySign*gravity*(rC(k) - Ro_SeaLevel)
./model/src/set_ref_state.F 272 SET_REF_STATE 
          phiRef(2*k+1) = gravitySign*gravity*(rF(k+1)-Ro_SeaLevel)
./pkg/aim_v23/aim_do_physics.F 135 AIM_DO_PHYSICS 
           PHI0(I2) = gravity*topoZ(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 114 AIM_TENDENCY_APPLY_U 
     &                + uStr_tmp*gravity*recip_drF(k)
./pkg/aim_v23/aim_tendency_apply.F 137 AIM_TENDENCY_APPLY_U 
     &                + uStr_tmp*gravity*recip_drF(k)
./pkg/aim_v23/aim_tendency_apply.F 301 AIM_TENDENCY_APPLY_V 
     &                + vStr_tmp*gravity*recip_drF(k)
./pkg/aim_v23/aim_tendency_apply.F 324 AIM_TENDENCY_APPLY_V 
     &                + vStr_tmp*gravity*recip_drF(k)
./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/cheapaml/cheapaml.F 564 CHEAPAML 
     &         **(gravity/gamma_blk/gasR)
./pkg/cheapaml/cheapaml_coare3_flux.F 113 CHEAPAML_COARE3_FLUX 
      cwave=gravity*wavesp(i,j,bi,bj)/twoPI
./pkg/cheapaml/cheapaml_coare3_flux.F 133 CHEAPAML_COARE3_FLUX 
      zo10= 0.011 _d 0*usr*usr/gravity+0.11 _d 0*visa/usr
./pkg/cheapaml/cheapaml_coare3_flux.F 148 CHEAPAML_COARE3_FLUX 
      Ribu=-gravity*zu*(Dt+0.61 _d 0*tta*Dq)/(tta*Du**2)
./pkg/cheapaml/cheapaml_coare3_flux.F 177 CHEAPAML_COARE3_FLUX 
        zo=charn*usr*usr/gravity + 0.11 _d 0*visa/usr    !after Smith 1988
./pkg/cheapaml/cheapaml_coare3_flux.F 209 CHEAPAML_COARE3_FLUX 
       zL=xkar*gravity*zu*( tsr*(1.+0.61 _d 0*q)+0.61 _d 0*tta*qsr )
./pkg/cheapaml/cheapaml_coare3_flux.F 217 CHEAPAML_COARE3_FLUX 
       Bf=-gravity/tta*usr*(tsr+0.61 _d 0*tta*qsr)
./pkg/cheapaml/cheapaml_lanl_flux.F 134 CHEAPAML_LANL_FLUX 
     &     **(gravity/gamma_blk/gasR)
./pkg/cheapaml/cheapaml_lanl_flux.F 211 CHEAPAML_LANL_FLUX 
                 z100ol   = 100. _d 0 *xkar*gravity/ustar**2 *(tstar/t0
./pkg/cheapaml/cheapaml_lanl_flux.F 92 CHEAPAML_LANL_FLUX 
              czol = zref*xkar*gravity
./pkg/down_slope/dwnslp_calc_flow.F 122 DWNSLP_CALC_FLOW 
     &             *DWNSLP_rec_mu*gravity*dRhoH*recip_rhoConst
./pkg/ebm/ebm_atmosphere.F 188 EBM_ATMOSPHERE 
     &        (gravity*f0*DTDy35(no_so))
./pkg/ebm/ebm_atmosphere.F 191 EBM_ATMOSPHERE 
          C = 0.6 _d 0 *gravity*kappa*kappa*Nw/
./pkg/ecco/cost_averagesfields.F 610 COST_AVERAGESFIELDS 
                  prmm = totPhiHyd(i,j,k,bi,bj)/gravity
./pkg/ecco/cost_averagesfields.F 616 COST_AVERAGESFIELDS 
     &                  -rC(k)*gravity )
./pkg/ecco/cost_averagesfields.F 618 COST_AVERAGESFIELDS 
                  prmm = prmm*0.0001/gravity
./pkg/ecco/cost_obcs_ageos.F 265 COST_OBCS_AGEOS 
     &                        * gravity / f0 / rhonil
./pkg/ecco/cost_obcs_ageos.F 336 COST_OBCS_AGEOS 
     &                        * gravity / f0 /rhonil
./pkg/ecco/cost_obcs_ageos.F 404 COST_OBCS_AGEOS 
     &                        * gravity / f0 / rhonil
./pkg/ecco/cost_obcs_ageos.F 471 COST_OBCS_AGEOS 
     &                        * gravity / f0 /rhonil