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


File Line number Procedure Code
./model/inc/PARAMS.h 798 NO PROCEDURE 
     & delR, delRc, xgOrigin, ygOrigin, rSphere, recip_rSphere,
./model/inc/PARAMS.h 850 NO PROCEDURE 
      _RL rSphere
./model/src/calc_grid_angles.F 102 CALC_GRID_ANGLES 
            u2zonDir(i,j,bi,bj) =  rSphere
./model/src/calc_grid_angles.F 120 CALC_GRID_ANGLES 
            v2zonDir(i,j,bi,bj) = -rSphere
./model/src/calc_grid_angles.F 63 CALC_GRID_ANGLES 
          u2zonDir(i,j,bi,bj) = rSphere*uPseudo(i,j)
./model/src/calc_grid_angles.F 75 CALC_GRID_ANGLES 
          v2zonDir(i,j,bi,bj) = rSphere*vPseudo(i,j)
./pkg/monitor/mon_ke.F 190 MON_KE 
          R_drK = rSphere*deepFacC(k)*deepFac2C(k)
./pkg/monitor/mon_ke.F 229 MON_KE 
          R_drK = rSphere*deepFacC(k)*deepFac2C(k)
./pkg/monitor/mon_ke.F 289 MON_KE 
     &        *omega*rSphere*rSphere
./model/src/config_summary.F 876 CONFIG_SUMMARY 
      CALL WRITE_0D_RL( rSphere, INDEX_NONE,'rSphere = ',
./model/src/ini_cori.F 75 INI_CORI 
     &     .OR. usingCurvilinearGrid ) facGrid = deg2rad*rSphere
./model/src/ini_curvilinear_grid.F 387 INI_CURVILINEAR_GRID 
      IF ( rSphere.NE.radius_fromHorizGrid ) THEN
./model/src/ini_curvilinear_grid.F 388 INI_CURVILINEAR_GRID 
        tmpFac = rSphere / radius_fromHorizGrid
./model/src/ini_parms.F 1196 INI_PARMS 
      IF ( rSphere.EQ.UNSET_RL ) THEN
./model/src/ini_parms.F 1199 INI_PARMS 
           rSphere = radius_fromHorizGrid
./model/src/ini_parms.F 1201 INI_PARMS 
           rSphere = 6370. _d 3
./model/src/ini_parms.F 1205 INI_PARMS 
           radius_fromHorizGrid = rSphere
./model/src/ini_parms.F 1207 INI_PARMS 
      IF ( rSphere .NE. 0. ) THEN
./model/src/ini_parms.F 1208 INI_PARMS 
       recip_rSphere = 1. _d 0/rSphere
./model/src/ini_parms.F 277 INI_PARMS 
     & rSphere, radius_fromHorizGrid, deepAtmosphere, seaLev_Z,
./model/src/ini_spherical_polar_grid.F 106 INI_SPHERICAL_POLAR_GRID 
          dxF(i,j,bi,bj) = rSphere*COS(lat*deg2rad)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 107 INI_SPHERICAL_POLAR_GRID 
          dyF(i,j,bi,bj) = rSphere*dlat*deg2rad
./model/src/ini_spherical_polar_grid.F 121 INI_SPHERICAL_POLAR_GRID 
          dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 123 INI_SPHERICAL_POLAR_GRID 
          dyG(i,j,bi,bj) = rSphere*dlat*deg2rad
./model/src/ini_spherical_polar_grid.F 190 INI_SPHERICAL_POLAR_GRID 
          rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 196 INI_SPHERICAL_POLAR_GRID 
     &    *rSphere*(SIN(dlat*deg2rad)-SIN(lat*deg2rad))
./model/src/ini_spherical_polar_grid.F 225 INI_SPHERICAL_POLAR_GRID 
          rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 238 INI_SPHERICAL_POLAR_GRID 
          rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./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)
./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 86 EXTERNAL_FORCING_U 
       Coord2longitude=1./rSphere
./model/src/set_defaults.F 87 SET_DEFAULTS 
      rSphere             = UNSET_RL
./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 175 EBM_ATMOSPHERE 
     &        SIN(latBnd(2)*deg2rad)/rSphere
./pkg/ebm/ebm_atmosphere.F 201 EBM_ATMOSPHERE 
          Hd35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad)
./pkg/ebm/ebm_atmosphere.F 204 EBM_ATMOSPHERE 
          Fw35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad)
./pkg/ebm/ebm_atmosphere.F 279 EBM_ATMOSPHERE 
     &        /(2.*PI*rSphere*rSphere*25.) )
./pkg/ebm/ebm_atmosphere.F 298 EBM_ATMOSPHERE 
     &            /(2.*PI*rSphere*rSphere*22.3 _d 0) )
./pkg/ebm/ebm_atmosphere.F 316 EBM_ATMOSPHERE 
     &    /(2.0*12.0*PI*rSphere*rSphere)
./pkg/ebm/ebm_atmosphere.F 333 EBM_ATMOSPHERE 
     &            /(2.*PI*rSphere*rSphere*18.0))
./pkg/ebm/ebm_atmosphere.F 346 EBM_ATMOSPHERE 
     &             /(2.*PI*rSphere*rSphere*12.0))
./pkg/ebm/ebm_atmosphere.F 357 EBM_ATMOSPHERE 
     &             /(2.*PI*rSphere*rSphere*12.0))