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


File Line number Procedure Code
./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 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
./model/inc/PARAMS.h 738 NO PROCEDURE 
     & gravity, recip_gravity, gBaro,
./model/inc/PARAMS.h 830 NO PROCEDURE 
      _RL gravity
./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 203 KPP_FORCING_SURF 
        bo(I,J) = - gravity *
./pkg/kpp/kpp_forcing_surf.F 208 KPP_FORCING_SURF 
        bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) *
./pkg/kpp/kpp_forcing_surf.F 220 KPP_FORCING_SURF 
               boplume(I,J) = - gravity * SSBETA(I,J,1)
./pkg/kpp/kpp_routines.F 1645 STATEKPP 
               DBLOC(I,J,K-1) = gravity * (RHOK(I,J) - RHOKM1(I,J)) /
./pkg/kpp/kpp_routines.F 1647 STATEKPP 
               DBSFC(I,J,K)   = gravity * (RHOK(I,J) - RHO1K (I,J)) /
./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
./pkg/my82/my82_ri_number.F 115 MY82_RI_NUMBER 
        buoyFreq(I,J) = gravity*mass2rUnit *
./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 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)
./model/src/config_summary.F 229 CONFIG_SUMMARY 
      CALL WRITE_0D_RL( gravity, INDEX_NONE,'gravity =',
./pkg/pp81/pp81_ri_number.F 119 PP81_RI_NUMBER 
        buoyFreq = - gravity*mass2rUnit *
./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 173 DYNSOLVER 
     &                      +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/seaice_dynsolver.F 186 SEAICE_DYNSOLVER 
     &                      +sIceLoad(i,j,bi,bj)*gravity
./model/src/external_forcing_surf.F 390 EXTERNAL_FORCING_SURF 
     &                        +sIceLoad(i,j,bi,bj)*gravity
./verification/dome/code/obcs_calc.F 57 OBCS_CALC 
      gp_inflow=Talpha*gravity*dTemp
./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 1288 INI_PARMS 
         mass2rUnit = gravity
./model/src/ini_parms.F 156 INI_PARMS 
     & gravity, gBaro, rhonil, tAlpha, sBeta,
./model/src/ini_parms.F 411 INI_PARMS 
      IF ( gBaro .EQ. UNSET_RL ) gBaro=gravity
./model/src/ini_parms.F 599 INI_PARMS 
      IF ( gravity .LE. 0. ) THEN
./model/src/ini_parms.F 605 INI_PARMS 
       recip_gravity = 1. _d 0 / gravity
./verification/internal_wave/code/obcs_calc.F 127 OBCS_CALC 
     & *sqrt(strat/(tAlpha*gravity))
./verification/internal_wave/code/obcs_calc.F 50 OBCS_CALC 
      strat = 1.0 _d -6 / (gravity*tAlpha)
./verification/tidal_basin_2d/code/external_forcing.F 109 EXTERNAL_FORCING_U 
     &   +gravity*tidal_Hscale*
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 376 EXTERNAL_FORCING_SURF 
     &                        +sIceLoad(i,j,bi,bj)*gravity
./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
./model/src/set_defaults.F 92 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 260 SET_REF_STATE 
          phiRef(2*k)   = gravitySign*gravity*(rC(k) - Ro_SeaLevel)
./model/src/set_ref_state.F 261 SET_REF_STATE 
          phiRef(2*k+1) = gravitySign*gravity*(rF(k+1)-Ro_SeaLevel)
./pkg/aim_v23/aim_do_physics.F 127 AIM_DO_PHYSICS 
         PHI0(I2) = gravity*topoZ(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 109 AIM_TENDENCY_APPLY_U 
     &                       + uStr_tmp*gravity*recip_drF(kLev)
./pkg/aim_v23/aim_tendency_apply.F 207 AIM_TENDENCY_APPLY_V 
     &        /aim_dragStrato/gravity
./pkg/aim_v23/aim_tendency_apply.F 218 AIM_TENDENCY_APPLY_V 
     &                       + vStr_tmp*gravity*recip_drF(kLev)
./pkg/aim_v23/aim_tendency_apply.F 235 AIM_TENDENCY_APPLY_V 
     &                       + vStr_tmp*gravity*recip_drF(kLev)
./pkg/aim_v23/aim_tendency_apply.F 81 AIM_TENDENCY_APPLY_U 
     &        /aim_dragStrato/gravity
./pkg/aim_v23/aim_tendency_apply.F 92 AIM_TENDENCY_APPLY_U 
     &                       + uStr_tmp*gravity*recip_drF(kLev)
./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 131 CHEAPAML 
              czol = zref*xkar*gravity
./pkg/down_slope/dwnslp_calc_flow.F 121 DWNSLP_CALC_FLOW 
     &             *DWNSLP_rec_mu*gravity*dRhoH*recip_rhoConst
./pkg/ebm/ebm_atmosphere.F 166 EBM_ATMOSPHERE 
     &        (gravity*f0*DTDy35(no_so))
./pkg/ebm/ebm_atmosphere.F 169 EBM_ATMOSPHERE 
          C = 0.6 _d 0 *gravity*kappa*kappa*Nw/
./pkg/ecco/cost_obcs_ageos.F 268 COST_OBCS_AGEOS 
     &                        * gravity / f0 / rhonil
./pkg/ecco/cost_obcs_ageos.F 334 COST_OBCS_AGEOS 
     &                        * gravity / f0 /rhonil
./pkg/ecco/cost_obcs_ageos.F 398 COST_OBCS_AGEOS 
     &                        * gravity / f0 / rhonil
./pkg/ecco/cost_obcs_ageos.F 461 COST_OBCS_AGEOS 
     &                        * gravity / f0 /rhonil