Symbol Description Uses
recip_rSphere Reciprocal radius of sphere ( m ). 63


File Line number Procedure Code
./model/inc/PARAMS.h 757 NO PROCEDURE 
      _RL recip_rSphere
./pkg/mom_common/mom_quasihydrostatic.F 85 MOM_QUASIHYDROSTATIC 
     &     )* 0.5 _d 0 * recip_rSphere*recip_deepFacC(k)
./pkg/mom_common/mom_u_metric_nh.F 56 MOM_U_METRIC_NH 
         uMetricTerms(i,j) = uFld(i,j)*recip_rSphere*recip_deepFacC(k)
./pkg/mom_common/mom_v_metric_nh.F 56 MOM_V_METRIC_NH 
         vMetricTerms(i,j) = vFld(i,j)*recip_rSphere*recip_deepFacC(k)
./pkg/mom_common/mom_w_metric_nh.F 54 MOM_W_METRIC_NH 
     &      *recip_rSphere*recip_deepFacF(k)*(
./pkg/mom_fluxform/mom_u_metric_sphere.F 52 MOM_U_METRIC_SPHERE 
     &    uFld(i,j)*recip_rSphere*recip_deepFacC(k)
./pkg/mom_fluxform/mom_v_metric_sphere.F 49 MOM_V_METRIC_SPHERE 
         vMetricTerms(i,j) = -recip_rSphere*recip_deepFacC(k)
./pkg/seaice/dynsolver.F 270 DYNSOLVER 
     &                * _tanPhiAtU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/dynsolver.F 283 DYNSOLVER 
     &                * _tanPhiAtU(I,J,bi,bj)*recip_rSphere)
./pkg/seaice/dynsolver.F 389 DYNSOLVER 
     &                * _tanPhiAtU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/dynsolver.F 402 DYNSOLVER 
     &                * _tanPhiAtU(I,J,bi,bj)*recip_rSphere)
./pkg/seaice/lsr.F 154 LSR 
     &         * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 155 LSR 
          AA6=TWO*ETAMEAN(I,J,bi,bj) *recip_rSphere*recip_rSphere
./pkg/seaice/lsr.F 230 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 236 LSR 
     &         *recip_rSphere
./pkg/seaice/lsr.F 242 LSR 
     &         *recip_rSphere
./pkg/seaice/lsr.F 248 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 250 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 255 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 257 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 384 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 386 LSR 
          AA6=TWO*ETAMEAN(I,J,bi,bj) * recip_rSphere*recip_rSphere
./pkg/seaice/lsr.F 393 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 395 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 401 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 403 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 474 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 477 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 482 LSR 
     &         *recip_rSphere
./pkg/seaice/lsr.F 531 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 533 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere )
./pkg/seaice/lsr.F 543 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 545 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere )
./pkg/seaice/seaice_calc_strainrates.F 150 SEAICE_CALC_STRAINRATES 
     &         * _tanPhiAtU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_calc_strainrates.F 167 SEAICE_CALC_STRAINRATES 
     &         *recip_rSphere
./pkg/seaice/seaice_calc_strainrates.F 190 SEAICE_CALC_STRAINRATES 
     &         *recip_rSphere
./pkg/seaice/seaice_init_fixed.F 125 SEAICE_INIT_FIXED 
           k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_init_fixed.F 126 SEAICE_INIT_FIXED 
           k2AtZ(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_lsr.F 1182 SEAICE_LSR 
     &         * 0.5 _d 0 * _tanPhiAtV(I,J,  bi,bj) * recip_rSphere
./pkg/seaice/seaice_lsr.F 1184 SEAICE_LSR 
     &         * 0.5 _d 0 * _tanPhiAtV(I,J+1,bi,bj) * recip_rSphere
./pkg/seaice/seaice_lsr.F 1186 SEAICE_LSR 
          AA7 = TWO*etaMeanU(I,J,bi,bj)*recip_rSphere*recip_rSphere
./pkg/seaice/seaice_lsr.F 1190 SEAICE_LSR 
     &         *recip_rSphere
./pkg/seaice/seaice_lsr.F 1300 SEAICE_LSR 
     &         )* _recip_dxC(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_lsr.F 1304 SEAICE_LSR 
     &         * _tanPhiAtU(I,J,bi,bj) * recip_rSphere
./pkg/seaice/seaice_lsr.F 1462 SEAICE_LSR 
     &         * _recip_dyC(I,J,bi,bj)*recip_rSphere * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 1464 SEAICE_LSR 
     &         * _recip_dyC(I,J,bi,bj)*recip_rSphere * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 1466 SEAICE_LSR 
          AA7=TWO*etaMeanV(I,J,bi,bj) * recip_rSphere
./pkg/seaice/seaice_lsr.F 1481 SEAICE_LSR 
     &         + AA7 * _tanPhiAtV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_lsr.F 1591 SEAICE_LSR 
     &         ) *  _recip_dxG(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_lsr.F 1595 SEAICE_LSR 
     &         * _tanPhiAtV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_lsr.F 1639 SEAICE_LSR 
     &          * _recip_dyC(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_lsr.F 1640 SEAICE_LSR 
     &          + TWO*etaMeanV(I,J,bi,bj) * recip_rSphere
./pkg/seaice/seaice_lsr.F 1649 SEAICE_LSR 
     &          * _recip_dyC(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_lsr.F 1650 SEAICE_LSR 
     &          - TWO*etaMeanV(I,J,bi,bj) * recip_rSphere
./model/src/ini_parms.F 1128 INI_PARMS 
       recip_rSphere = 1. _d 0/rSphere
./model/src/ini_parms.F 1130 INI_PARMS 
       recip_rSphere = 0.
./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 77 SET_GRID_FACTORS 
     &                   )*recip_rSphere
./model/src/set_grid_factors.F 82 SET_GRID_FACTORS 
     &                   )*recip_rSphere