Merge pull request #22 from wirc-sjsu/develop-w21

[WRF-Fire-merge.git] / chem / module_data_uoc_wd.F

MODULE module_data_uoc_wd
! 
      integer, parameter          :: wmax = 17
      real, dimension(wmax)       :: rainwd, dustwd
      real, dimension(wmax, wmax) :: edatawd
! 
      data  rainwd /50, 63, 79, 100, 126, 158, 200, 251, 316, 398, 501, 600, 1000, 1400, 1800, 2400, 3000/
      data  dustwd /1.0,1.1,1.2,1.4,1.6,1.8,2.0,2.30,3.00,3.98,5.01,6.31,7.94,10.0,12.6,15.8,20.0/ 
! 
      data  edatawd(1, :) /0.611E-02, 0.471E-02, 0.367E-02, 0.285E-02, 0.223E-02, 0.176E-02, 0.137E-02,     &
     &                       0.108E-02, 0.853E-03, 0.671E-03, 0.526E-03, 0.432E-03, 0.245E-03, 0.167E-03,  &
     &                       0.125E-03, 0.893E-04, 0.688E-04/
      data  edatawd(2, :) /0.710E-02, 0.555E-02, 0.443E-02, 0.360E-02, 0.280E-02, 0.220E-02, 1.700e-3,      &
     &                       1.380E-03, 1.090E-03, 0.850E-03, 0.660E-03, 0.540E-03, 0.300E-03, 0.210E-03,  &
     &                       0.155E-03, 1.100E-04, 0.860E-04/ 
      data  edatawd(3, :) /0.825E-02, 0.660E-02, 0.540E-02, 0.450E-02, 0.360E-02, 0.300E-02, 2.40E-03,      &
     &                       2.000e-03, 1.500E-03, 1.200e-03, 0.900E-03, 0.732E-03, 0.400E-03, 0.290E-03,  &
     &                       0.205E-03, 1.550E-04, 1.200E-04/ 
      data  edatawd(4, :) /1.10e-2, 8.95e-3, 8.05e-3, 7.45e-3, 6.65e-3, 5.80e-3, 4.85e-3, 4.50e-3, 3.50e-3, &
     &                       2.70e-3, 2.15e-3, 1.75e-3, 9.40e-4, 7.50e-4, 5.20e-4, 4.20e-4, 3.65e-4/ 
      data  edatawd(5, :) /1.42e-2, 1.20e-2, 1.17e-2, 1.15e-2, 1.20e-2, 1.15e-2, 1.05e-2, 9.70e-3, 8.50e-3, &
     &                       7.00e-3, 5.95e-3, 5.05e-3, 2.90e-3, 2.20e-3, 1.70e-3, 1.30e-3, 1.10e-3/
      data  edatawd(6, :) /0.018, 0.0155, 0.0165, 0.018, 0.020, 0.021, 2.05e-2, 2.00e-2, 1.90e-2, 1.65e-2,  &
     &                       1.45e-2, 1.30e-2, 8.15e-3, 6.05e-3, 4.60e-3, 3.9e-3, 3.15e-3/ 
      data  edatawd(7, :) /0.022, 0.020, 0.023, 0.027, 0.031, 0.035, 0.037, 0.038, 0.039, 0.035, 0.032, 0.030, &
     &                       0.020, 1.45e-2, 1.25e-2, 1.00e-2, 7.85e-3/ 
      data  edatawd(8, :) /0.030, 0.029, 0.038, 0.048, 0.058, 0.070, 0.080, 0.085, 0.090, 0.092, 0.090, 0.085, &
     &                       0.065, 0.051, 0.043, 0.035, 0.030/ 
      data  edatawd(9, :) /0.055, 0.063, 0.098, 0.140, 0.175, 0.210, 0.240, 0.260, 0.275, 0.285, 0.290, 0.284, &
     &                       0.257, 0.230, 0.210, 0.185, 0.160/ 
      data  edatawd(10,:) /0.110, 0.148, 0.230, 0.321, 0.385, 0.427, 0.461, 0.488, 0.502, 0.510, 0.517, 0.520, &
     &                       0.490, 0.457, 0.427, 0.387, 0.327/
      data  edatawd(11,:) /0.195, 0.288, 0.407, 0.489, 0.548, 0.590, 0.613, 0.632, 0.642, 0.650, 0.655, 0.654, &
     &                       0.647, 0.620, 0.585, 0.528, 0.454/
      data  edatawd(12,:) /0.305, 0.452, 0.554, 0.627, 0.669, 0.694, 0.713, 0.729, 0.740, 0.747, 0.751, 0.752, &
     &                       0.745, 0.734, 0.704, 0.645, 0.578/
      data  edatawd(13,:) /0.435, 0.596, 0.679, 0.725, 0.761, 0.786, 0.806, 0.817, 0.824, 0.828, 0.831, 0.832, &
     &                       0.831, 0.823, 0.798, 0.751, 0.706/
      data  edatawd(14,:) /0.583, 0.696, 0.763, 0.814, 0.842, 0.859, 0.868, 0.873, 0.879, 0.880, 0.882, 0.883, &
     &                       0.887, 0.878, 0.864, 0.837, 0.810/
      data  edatawd(15,:) /0.695, 0.773, 0.833, 0.872, 0.891, 0.898, 0.906, 0.910, 0.915, 0.918, 0.921, 0.922, &
     &                       0.920, 0.917, 0.908, 0.888, 0.866/
      data  edatawd(16,:) /0.737, 0.832, 0.886, 0.912, 0.925, 0.933, 0.938, 0.943, 0.947, 0.951, 0.954, 0.956, &
     &                       0.955, 0.951, 0.944, 0.928, 0.908/
      data  edatawd(17,:) /0.754, 0.887, 0.924, 0.941, 0.950, 0.955, 0.960, 0.965, 0.969, 0.973, 0.977, 0.979, &
     &                       0.981, 0.977, 0.970, 0.959, 0.941/
! 
END MODULE module_data_uoc_wd