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