Symbol Description Uses
rSphere Radius of sphere for a spherical polar grid ( m ). 48


File Line number Procedure Code
./model/inc/PARAMS.h 719 NO PROCEDURE 
     & xgOrigin, ygOrigin, rSphere, recip_rSphere,
./model/inc/PARAMS.h 775 NO PROCEDURE 
      _RL rSphere
./model/src/config_summary.F 653 CONFIG_SUMMARY 
      CALL WRITE_0D_RL( rSphere, INDEX_NONE,'rSphere = ',
./model/src/ini_cori.F 75 INI_CORI 
     &     .OR. usingCurvilinearGrid ) facGrid = deg2rad*rSphere
./verification/advect_cs/code/ini_vel.F 50 INI_VEL 
      omegaprime=38.60328935834681d0/rSphere
./verification/advect_cs/code/ini_vel.F 51 INI_VEL 
      fac=-(rSphere**2)*omegaprime/(2.d0*Omega)
./model/src/ini_parms.F 1057 INI_PARMS 
      IF ( rSphere .NE. 0. ) THEN
./model/src/ini_parms.F 1058 INI_PARMS 
       recip_rSphere = 1. _d 0/rSphere
./model/src/ini_parms.F 247 INI_PARMS 
     & rSphere, deepAtmosphere,
./model/src/ini_spherical_polar_grid.F 173 INI_SPHERICAL_POLAR_GRID 
          dxF(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 175 INI_SPHERICAL_POLAR_GRID 
          dxF(i,j,bi,bj) = delX(iGl(i,bi))*deg2rad*rSphere*
./model/src/ini_spherical_polar_grid.F 178 INI_SPHERICAL_POLAR_GRID 
          dyF(i,j,bi,bj) = rSphere*dlat*deg2rad
./model/src/ini_spherical_polar_grid.F 192 INI_SPHERICAL_POLAR_GRID 
          dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 194 INI_SPHERICAL_POLAR_GRID 
          dyG(i,j,bi,bj) = rSphere*dlat*deg2rad
./model/src/ini_spherical_polar_grid.F 260 INI_SPHERICAL_POLAR_GRID 
          rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 266 INI_SPHERICAL_POLAR_GRID 
     &    *rSphere*(SIN(lon*deg2rad)-SIN(lat*deg2rad))
./model/src/ini_spherical_polar_grid.F 292 INI_SPHERICAL_POLAR_GRID 
          rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 297 INI_SPHERICAL_POLAR_GRID 
          rAs(i,j,bi,bj) = rSphere*delX(iGl(i,bi))*deg2rad
./model/src/ini_spherical_polar_grid.F 298 INI_SPHERICAL_POLAR_GRID 
     &    *rSphere*(SIN(lat*deg2rad)-SIN(lon*deg2rad))
./model/src/ini_spherical_polar_grid.F 311 INI_SPHERICAL_POLAR_GRID 
          rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./verification/solid-body.cs-32x32x1/code/ini_psurf.F 39 INI_PSURF 
      omegaprime=38.60328935834681d0/rSphere
./verification/solid-body.cs-32x32x1/code/ini_psurf.F 40 INI_PSURF 
      fac=-(rSphere**2)*omegaprime*(Omega+omegaprime)/(4.d0*(Omega**2))
./verification/solid-body.cs-32x32x1/code/ini_vel.F 47 INI_VEL 
      omegaprime=38.60328935834681d0/rSphere
./verification/solid-body.cs-32x32x1/code/ini_vel.F 48 INI_VEL 
      fac=-(rSphere**2)*omegaprime/(2.d0*Omega)
./verification/tidal_basin_2d/code/external_forcing.F 98 EXTERNAL_FORCING_U 
       Coord2longitude=1./rSphere
./model/src/set_defaults.F 76 SET_DEFAULTS 
      rSphere             = 6370. _d 3
./model/src/set_grid_factors.F 67 SET_GRID_FACTORS 
          deepFacC(k)  = (rSphere+rC(k))*recip_rSphere
./model/src/set_grid_factors.F 71 SET_GRID_FACTORS 
          deepFacF(k)  = (rSphere+rF(k))*recip_rSphere
./model/src/set_grid_factors.F 76 SET_GRID_FACTORS 
          deepFacC(k)  = ( rSphere + phiRef(2*k)*recip_gravity
./model/src/set_grid_factors.F 81 SET_GRID_FACTORS 
          deepFacF(k)  = ( rSphere + phiRef(2*k-1)*recip_gravity
./pkg/ebm/ebm_atmosphere.F 152 EBM_ATMOSPHERE 
     &        SIN(lat(2)*deg2rad)/rSphere
./pkg/ebm/ebm_atmosphere.F 179 EBM_ATMOSPHERE 
          Hd35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad)
./pkg/ebm/ebm_atmosphere.F 182 EBM_ATMOSPHERE 
          Fw35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad)
./pkg/ebm/ebm_atmosphere.F 257 EBM_ATMOSPHERE 
     &        /(2.*PI*rSphere*rSphere*25.) )
./pkg/ebm/ebm_atmosphere.F 276 EBM_ATMOSPHERE 
     &            /(2.*PI*rSphere*rSphere*22.3 _d 0) )
./pkg/ebm/ebm_atmosphere.F 294 EBM_ATMOSPHERE 
     &    /(2.0*12.0*PI*rSphere*rSphere)
./pkg/ebm/ebm_atmosphere.F 311 EBM_ATMOSPHERE 
     &            /(2.*PI*rSphere*rSphere*18.0))
./pkg/ebm/ebm_atmosphere.F 324 EBM_ATMOSPHERE 
     &             /(2.*PI*rSphere*rSphere*12.0))
./pkg/ebm/ebm_atmosphere.F 335 EBM_ATMOSPHERE 
     &             /(2.*PI*rSphere*rSphere*12.0))