module m_sad_data

      use shr_kind_mod, only : r8 => shr_kind_r8

      implicit none

      integer :: i, k

      save

      real(r8), dimension(5,22) :: a, b

!----------------------------------------------------------------------
!    Water activities for the H2SO4/H2O system.
!----------------------------------------------------------------------
      data ((a(i,k), i = 1,5), k = 1,6) &
     /  4.930600776_r8,    -2.8124576227e2_r8,  3.617194350e4_r8,  -7.3921080947e5_r8, -1.1640936469e8_r8, &
       -1.6902946223e1_r8,  5.7843291724e3_r8, -1.2462848248e5_r8,  3.1325022591e7_r8, -2.2068275308e9_r8, &
       -3.9722280419e1_r8,  1.2350607474e4_r8, -3.4299494505e5_r8,  6.2642389672e7_r8, -3.9706964493e9_r8, &
       -5.5968384906e1_r8,  1.2922351288e4_r8,  1.3504086346e6_r8, -1.7890533860e8_r8,  8.8498119334e9_r8, &
       -8.2938840352e1_r8,  2.2079294414e4_r8,  2.9469683691e5_r8, -3.1424855089e7_r8,  1.0884875646e9_r8, &
       -1.0647596744e2_r8,  2.7525067463e4_r8,  4.2061852240e5_r8, -5.1877378665e7_r8,  2.2849838182e9_r8 /
!----------------------------------------------------------------------
!    Water activities for the HNO3/H2O system.
!----------------------------------------------------------------------
      data ((a(i,k), i = 1,5), k = 7,12) &
      / 2.5757237579e-1_r8,  3.4615149493e3_r8,  -1.1460419802e6_r8, 1.6003066569e8_r8,  -8.2005020704e9_r8, &
       -2.3081801501e1_r8,   9.7545732474e3_r8,  -1.0751476647e6_r8, 1.2845681641e8_r8,  -5.6387338050e9_r8, &
       -1.1454916074e2_r8,   6.7557746435e4_r8,  -1.5833469853e7_r8, 2.0068038322e9_r8,  -9.5789893230e10_r8, &
       -3.7614906671e2_r8,   2.5721043666e5_r8,  -6.9093891724e7_r8, 8.8886258262e9_r8,  -4.3013954256e11_r8, &
       -1.1566205559e3_r8,   8.5657451707e5_r8,  -2.4386088798e8_r8, 3.1789555772e10_r8, -1.5566652191e12_r8, &
       -2.9858872606e3_r8,   2.2912842052e6_r8,  -6.6825883931e8_r8, 8.7835101682e10_r8, -4.3330365673e12_r8 /
!----------------------------------------------------------------------
!    Ion activities for the H2SO4/H2O system.
!----------------------------------------------------------------------
      data ((b(i,k), i = 1,5) , k = 13,16) &
     / -9.8727713620e1_r8,   1.5892180900_r8,    -1.0611069051e-2_r8,  3.1437317659e-5_r8, -3.5694366687e-8_r8, &
        2.6972534510e1_r8,  -4.1774114259e-1_r8,  2.7534704937e-3_r8, -8.0885350553e-6_r8,  9.0919984894e-9_r8, &
       -3.1506575361_r8,     5.1477027299e-2_r8, -3.4697470359e-4_r8,  1.0511865215e-6_r8, -1.2167638793e-9_r8, &
        8.9194643751e-2_r8, -1.4398498884e-3_r8,  9.5874823381e-6_r8, -2.8832930837e-8_r8,  3.3199717594e-11_r8 /
!----------------------------------------------------------------------
!   Ion activities for the HNO3/H2O system.
!----------------------------------------------------------------------
      data ((b(i,k), i = 1,5) , k = 17,22) &
    /  -9.3085785070e-1_r8,   1.1200784716e-2_r8,  -8.7594232370e-5_r8,  2.9290261722e-7_r8,  -3.6297845637e-10_r8, &
       -9.9276927926e+0_r8,   1.3861173987e-1_r8,  -7.5302447966e-4_r8,  1.9053537417e-6_r8,  -1.8847180104e-9_r8, &
        8.9976745608e-1_r8,  -1.1682398549e-2_r8,   6.1056862242e-5_r8, -1.5087523503e-7_r8,   1.4643716979e-10_r8, &
       -3.8389447725e-2_r8,   4.8922229154e-4_r8,  -2.5494288719e-6_r8,  6.33063502160e-9_r8, -6.1901374001e-12_r8, &
        7.1911444008e-4_r8,  -8.7957856299e-6_r8,   4.4035804399e-8_r8, -1.0509519536e-10_r8,  9.8591778862e-14_r8, &
       -5.2736179784e-6_r8,   6.3762209490e-8_r8,  -3.1557072358e-10_r8, 7.4508569217e-13_r8, -6.9083781268e-16_r8 /

      end module m_sad_data