c common block containing atmospheric model with 101 layers
       integer n_101
       parameter (n_101=101)
       real*8 p_101(n_101)			!pressure at 101 levels [atm]
       real*8 p_101lg(n_101)                    !log of p_101
       real*8 alt_101(n_101)			!alt of p_101 [km]
       real*8 x_101(n_101)			!cum. o3 at p_101
       real*8 x_101lg(n_101)			!log of x_101
       real*8 t_101(n_101)			!temperature of 101 layers
       real*8 gc_factor(n_101)                  !gravity correction factor for p_101
       real*8 y2_101(n_101)			!working array of length n_101
       real*8 pshold(n_101)			!pressure at 1 km intervals from 0-81km
       real*8 hhold(n_101)			!alt. of pshold
       real*8 rfndx(n_101)                      !refractive index profile for the wavelength
       real*8 alt_sfc                           !alt. of surface
       common /atm_101/p_101,p_101lg,alt_101,x_101,t_101,gc_factor,
     &y2_101,pshold,hhold,rfndx,alt_sfc
       save /atm_101/