Symbol Description Uses
radius radius of bottom of layer (m) 40


File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 100 UPDATE_EARTH_EXPORTS 
        call ASTRO(nymd,nhms,lats,lons,im2*jm2,cosz,radius)
./pkg/fizhi/update_earth_exports.F 38 UPDATE_EARTH_EXPORTS 
      _RL radius
./pkg/fizhi/update_earth_exports.F 98 UPDATE_EARTH_EXPORTS 
        call ASTRO(20040321,nhms,lats,lons,im2*jm2,cosz,radius)
./pkg/mom_fluxform/mom_u_metric_cylinder.F 47 MOM_U_METRIC_CYLINDER 
      _RL radius
./pkg/mom_fluxform/mom_u_metric_cylinder.F 52 MOM_U_METRIC_CYLINDER 
          radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_u_metric_cylinder.F 55 MOM_U_METRIC_CYLINDER 
          IF ( radius.GT.0. ) THEN
./pkg/mom_fluxform/mom_u_metric_cylinder.F 59 MOM_U_METRIC_CYLINDER 
     &                   vFld(i,j+1)+vFld(i-1,j+1))/radius
./pkg/mom_fluxform/mom_v_metric_cylinder.F 47 MOM_V_METRIC_CYLINDER 
      _RL radius
./pkg/mom_fluxform/mom_v_metric_cylinder.F 52 MOM_V_METRIC_CYLINDER 
          radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_v_metric_cylinder.F 55 MOM_V_METRIC_CYLINDER 
          IF ( radius.GT.0. ) THEN
./pkg/mom_fluxform/mom_v_metric_cylinder.F 60 MOM_V_METRIC_CYLINDER 
     &                  uFld(i,j-1)+uFld(i+1,j-1))/radius
./pkg/opps/opps_calc.F 169 OPPS_CALC 
       radius=PlumeRadius
./pkg/opps/opps_calc.F 170 OPPS_CALC 
       StartingFlux=radius*radius*Wd(k)*Dd(k)
./pkg/opps/opps_calc.F 193 OPPS_CALC 
         newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*
./pkg/opps/opps_calc.F 280 OPPS_CALC 
         radius=sqrt(newflux/(Wd(k2)*Dd(k2)))
./pkg/opps/opps_calc.F 732 NLOPPS 
      REAL radius,StartingFlux
./pkg/opps/opps_calc.F 860 NLOPPS 
          radius=PlumeRadius
./pkg/opps/opps_calc.F 861 NLOPPS 
          StartingFlux=radius*radius*Wd(k)*Dd(k)
./pkg/opps/opps_calc.F 880 NLOPPS 
                 newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50*
./pkg/opps/opps_calc.F 944 NLOPPS 
                 radius=sqrt(newflux/(Wd(k2)*Dd(k2)))
./pkg/opps/opps_calc.F 98 OPPS_CALC 
      _RL radius,StartingFlux
./pkg/sbo/sbo_calc.F 161 SBO_CALC 
      _RL lat, lat_deg, lon, radius, darea, dradius, dvolume, depth
./pkg/sbo/sbo_calc.F 229 SBO_CALC 
                radius = ae
./pkg/sbo/sbo_calc.F 236 SBO_CALC 
                radius = ae - ABS(rC(k))
./pkg/sbo/sbo_calc.F 248 SBO_CALC 
              dvolume = darea * radius**2 * dradius
./pkg/sbo/sbo_calc.F 251 SBO_CALC 
              depth = ae - radius
./pkg/sbo/sbo_calc.F 263 SBO_CALC 
     &             * radius * dvolume
./pkg/sbo/sbo_calc.F 265 SBO_CALC 
     &             * radius * dvolume
./pkg/sbo/sbo_calc.F 267 SBO_CALC 
     &             * radius * dvolume
./pkg/sbo/sbo_calc.F 271 SBO_CALC 
     &              * density * radius * dvolume
./pkg/sbo/sbo_calc.F 273 SBO_CALC 
     &              * density * radius * dvolume
./pkg/sbo/sbo_calc.F 275 SBO_CALC 
     &              * density * radius * dvolume
./pkg/sbo/sbo_calc.F 279 SBO_CALC 
     &              * sbo_omega * density * radius*radius * dvolume
./pkg/sbo/sbo_calc.F 281 SBO_CALC 
     &              * sbo_omega * density * radius*radius * dvolume
./pkg/sbo/sbo_calc.F 283 SBO_CALC 
     &              * sbo_omega * density * radius*radius * dvolume