| 1 | !OCL SCALAR |
|---|
| 2 | SUBROUTINE RRTM_KGB2_01 |
|---|
| 3 | |
|---|
| 4 | ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research. |
|---|
| 5 | ! BAND 2: 250-500 cm-1 (low - H2O; high - H2O) |
|---|
| 6 | ! Reformatted for F90 by JJMorcrette, ECMWF |
|---|
| 7 | |
|---|
| 8 | ! ------------------------------------------------------------------ |
|---|
| 9 | |
|---|
| 10 | #include "tsmbkind.h" |
|---|
| 11 | |
|---|
| 12 | USE YOERRTO2 , ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,& |
|---|
| 13 | &FRACREFBO ,FORREFO |
|---|
| 14 | USE YOERRTA2 , ONLY : REFPARAM |
|---|
| 15 | |
|---|
| 16 | ! ------------------------------------------------------------------ |
|---|
| 17 | |
|---|
| 18 | |
|---|
| 19 | IMPLICIT NONE |
|---|
| 20 | FRACREFBO( :) = (/& |
|---|
| 21 | ! From P = 0.432 mb. |
|---|
| 22 | &0.17444289_JPRB,0.16467269_JPRB,0.15021490_JPRB,0.12460902_JPRB,& |
|---|
| 23 | &0.10400643_JPRB,0.09481928_JPRB,0.07590704_JPRB,0.05752856_JPRB,& |
|---|
| 24 | &0.03931715_JPRB,0.00428572_JPRB,0.00349352_JPRB,0.00278938_JPRB,& |
|---|
| 25 | &0.00203448_JPRB,0.00130037_JPRB,0.00051560_JPRB,0.00006255_JPRB/) |
|---|
| 26 | |
|---|
| 27 | FORREFO( :) = (/& |
|---|
| 28 | &-2.34550E-03_JPRB,-8.42698E-03_JPRB,-2.01816E-02_JPRB,-5.66701E-02_JPRB,& |
|---|
| 29 | &-8.93189E-02_JPRB,-6.37487E-02_JPRB,-4.56455E-02_JPRB,-4.41417E-02_JPRB,& |
|---|
| 30 | &-4.48605E-02_JPRB,-4.74696E-02_JPRB,-5.16648E-02_JPRB,-5.63099E-02_JPRB,& |
|---|
| 31 | &-4.74781E-02_JPRB,-3.84704E-02_JPRB,-2.49905E-02_JPRB, 2.02114E-03_JPRB/) |
|---|
| 32 | |
|---|
| 33 | ! The following are parameters related to the reference water vapor |
|---|
| 34 | ! mixing ratios by REFPARAM(I) = REFH2O(I) / (.002+REFH2O(I)). |
|---|
| 35 | ! These parameters are used for the Planck function interpolation. |
|---|
| 36 | REFPARAM( :) = (/& |
|---|
| 37 | &0.903661_JPRB , 0.859386_JPRB , 0.746542_JPRB , 0.580496_JPRB , 0.412889_JPRB ,& |
|---|
| 38 | &0.275283_JPRB , 0.162745_JPRB , 7.63929E-02_JPRB, 1.82553E-02_JPRB, 3.72432E-03_JPRB, & |
|---|
| 39 | &2.14946E-03_JPRB, 1.66320E-03_JPRB, 1.59940E-03_JPRB/) |
|---|
| 40 | |
|---|
| 41 | ! ------------------------------------------------------------------ |
|---|
| 42 | |
|---|
| 43 | ! The array KAO contains absorption coefs at the 16 chosen g-values |
|---|
| 44 | ! for a range of pressure levels > ~100mb and temperatures. The first |
|---|
| 45 | ! index in the array, JT, which runs from 1 to 5, corresponds to |
|---|
| 46 | ! different temperatures. More specifically, JT = 3 means that the |
|---|
| 47 | ! data are for the corresponding TREF for this pressure level, |
|---|
| 48 | ! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, |
|---|
| 49 | ! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second |
|---|
| 50 | ! index, JP, runs from 1 to 13 and refers to the corresponding |
|---|
| 51 | ! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). |
|---|
| 52 | ! The third index, IG, goes from 1 to 16, and tells us which |
|---|
| 53 | ! g-interval the absorption coefficients are for. |
|---|
| 54 | |
|---|
| 55 | KAO( :, 1, 1) = (/& |
|---|
| 56 | &1.4400E-02_JPRB,1.5554E-02_JPRB,1.6739E-02_JPRB,1.7961E-02_JPRB,1.9379E-02_JPRB/) |
|---|
| 57 | KAO( :, 2, 1) = (/& |
|---|
| 58 | &1.1452E-02_JPRB,1.2288E-02_JPRB,1.3232E-02_JPRB,1.4190E-02_JPRB,1.5277E-02_JPRB/) |
|---|
| 59 | KAO( :, 3, 1) = (/& |
|---|
| 60 | &8.9989E-03_JPRB,9.5960E-03_JPRB,1.0327E-02_JPRB,1.1068E-02_JPRB,1.1889E-02_JPRB/) |
|---|
| 61 | KAO( :, 4, 1) = (/& |
|---|
| 62 | &7.1078E-03_JPRB,7.5424E-03_JPRB,8.0710E-03_JPRB,8.6639E-03_JPRB,9.2920E-03_JPRB/) |
|---|
| 63 | KAO( :, 5, 1) = (/& |
|---|
| 64 | &5.6632E-03_JPRB,5.9616E-03_JPRB,6.3421E-03_JPRB,6.8076E-03_JPRB,7.2949E-03_JPRB/) |
|---|
| 65 | KAO( :, 6, 1) = (/& |
|---|
| 66 | &4.5348E-03_JPRB,4.7267E-03_JPRB,5.0015E-03_JPRB,5.3391E-03_JPRB,5.7317E-03_JPRB/) |
|---|
| 67 | KAO( :, 7, 1) = (/& |
|---|
| 68 | &3.6484E-03_JPRB,3.7737E-03_JPRB,3.9583E-03_JPRB,4.2050E-03_JPRB,4.5069E-03_JPRB/) |
|---|
| 69 | KAO( :, 8, 1) = (/& |
|---|
| 70 | &2.9485E-03_JPRB,3.0305E-03_JPRB,3.1509E-03_JPRB,3.3270E-03_JPRB,3.5470E-03_JPRB/) |
|---|
| 71 | KAO( :, 9, 1) = (/& |
|---|
| 72 | &2.4028E-03_JPRB,2.4476E-03_JPRB,2.5272E-03_JPRB,2.6456E-03_JPRB,2.8089E-03_JPRB/) |
|---|
| 73 | KAO( :,10, 1) = (/& |
|---|
| 74 | &1.9899E-03_JPRB,2.0047E-03_JPRB,2.0583E-03_JPRB,2.1403E-03_JPRB,2.2643E-03_JPRB/) |
|---|
| 75 | KAO( :,11, 1) = (/& |
|---|
| 76 | &1.6478E-03_JPRB,1.6593E-03_JPRB,1.7036E-03_JPRB,1.7737E-03_JPRB,1.8823E-03_JPRB/) |
|---|
| 77 | KAO( :,12, 1) = (/& |
|---|
| 78 | &1.3599E-03_JPRB,1.3694E-03_JPRB,1.4067E-03_JPRB,1.4672E-03_JPRB,1.5617E-03_JPRB/) |
|---|
| 79 | KAO( :,13, 1) = (/& |
|---|
| 80 | &1.1157E-03_JPRB,1.1241E-03_JPRB,1.1555E-03_JPRB,1.2073E-03_JPRB,1.2864E-03_JPRB/) |
|---|
| 81 | KAO( :, 1, 2) = (/& |
|---|
| 82 | &3.8905E-02_JPRB,4.2429E-02_JPRB,4.6513E-02_JPRB,5.0588E-02_JPRB,5.5021E-02_JPRB/) |
|---|
| 83 | KAO( :, 2, 2) = (/& |
|---|
| 84 | &3.0803E-02_JPRB,3.3461E-02_JPRB,3.6546E-02_JPRB,3.9922E-02_JPRB,4.3440E-02_JPRB/) |
|---|
| 85 | KAO( :, 3, 2) = (/& |
|---|
| 86 | &2.4144E-02_JPRB,2.6019E-02_JPRB,2.8287E-02_JPRB,3.0953E-02_JPRB,3.3739E-02_JPRB/) |
|---|
| 87 | KAO( :, 4, 2) = (/& |
|---|
| 88 | &1.9082E-02_JPRB,2.0371E-02_JPRB,2.2034E-02_JPRB,2.4014E-02_JPRB,2.6250E-02_JPRB/) |
|---|
| 89 | KAO( :, 5, 2) = (/& |
|---|
| 90 | &1.5203E-02_JPRB,1.6092E-02_JPRB,1.7271E-02_JPRB,1.8721E-02_JPRB,2.0471E-02_JPRB/) |
|---|
| 91 | KAO( :, 6, 2) = (/& |
|---|
| 92 | &1.2164E-02_JPRB,1.2769E-02_JPRB,1.3578E-02_JPRB,1.4643E-02_JPRB,1.5928E-02_JPRB/) |
|---|
| 93 | KAO( :, 7, 2) = (/& |
|---|
| 94 | &9.7815E-03_JPRB,1.0186E-02_JPRB,1.0740E-02_JPRB,1.1487E-02_JPRB,1.2435E-02_JPRB/) |
|---|
| 95 | KAO( :, 8, 2) = (/& |
|---|
| 96 | &7.9245E-03_JPRB,8.1687E-03_JPRB,8.5497E-03_JPRB,9.0644E-03_JPRB,9.7618E-03_JPRB/) |
|---|
| 97 | KAO( :, 9, 2) = (/& |
|---|
| 98 | &6.4727E-03_JPRB,6.5836E-03_JPRB,6.8391E-03_JPRB,7.1947E-03_JPRB,7.6826E-03_JPRB/) |
|---|
| 99 | KAO( :,10, 2) = (/& |
|---|
| 100 | &5.3240E-03_JPRB,5.3575E-03_JPRB,5.5193E-03_JPRB,5.7706E-03_JPRB,6.1166E-03_JPRB/) |
|---|
| 101 | KAO( :,11, 2) = (/& |
|---|
| 102 | &4.3783E-03_JPRB,4.4065E-03_JPRB,4.5391E-03_JPRB,4.7453E-03_JPRB,5.0313E-03_JPRB/) |
|---|
| 103 | KAO( :,12, 2) = (/& |
|---|
| 104 | &3.5968E-03_JPRB,3.6203E-03_JPRB,3.7298E-03_JPRB,3.8998E-03_JPRB,4.1378E-03_JPRB/) |
|---|
| 105 | KAO( :,13, 2) = (/& |
|---|
| 106 | &2.9507E-03_JPRB,2.9704E-03_JPRB,3.0611E-03_JPRB,3.2015E-03_JPRB,3.4012E-03_JPRB/) |
|---|
| 107 | KAO( :, 1, 3) = (/& |
|---|
| 108 | &1.0636E-01_JPRB,1.1680E-01_JPRB,1.2824E-01_JPRB,1.4017E-01_JPRB,1.5266E-01_JPRB/) |
|---|
| 109 | KAO( :, 2, 3) = (/& |
|---|
| 110 | &8.4443E-02_JPRB,9.2480E-02_JPRB,1.0148E-01_JPRB,1.1092E-01_JPRB,1.2100E-01_JPRB/) |
|---|
| 111 | KAO( :, 3, 3) = (/& |
|---|
| 112 | &6.5959E-02_JPRB,7.1869E-02_JPRB,7.8770E-02_JPRB,8.6250E-02_JPRB,9.4058E-02_JPRB/) |
|---|
| 113 | KAO( :, 4, 3) = (/& |
|---|
| 114 | &5.1681E-02_JPRB,5.6029E-02_JPRB,6.1207E-02_JPRB,6.7088E-02_JPRB,7.3195E-02_JPRB/) |
|---|
| 115 | KAO( :, 5, 3) = (/& |
|---|
| 116 | &4.0734E-02_JPRB,4.3938E-02_JPRB,4.7777E-02_JPRB,5.2288E-02_JPRB,5.7243E-02_JPRB/) |
|---|
| 117 | KAO( :, 6, 3) = (/& |
|---|
| 118 | &3.2248E-02_JPRB,3.4534E-02_JPRB,3.7344E-02_JPRB,4.0738E-02_JPRB,4.4673E-02_JPRB/) |
|---|
| 119 | KAO( :, 7, 3) = (/& |
|---|
| 120 | &2.5731E-02_JPRB,2.7244E-02_JPRB,2.9333E-02_JPRB,3.1849E-02_JPRB,3.4861E-02_JPRB/) |
|---|
| 121 | KAO( :, 8, 3) = (/& |
|---|
| 122 | &2.0693E-02_JPRB,2.1657E-02_JPRB,2.3154E-02_JPRB,2.5012E-02_JPRB,2.7268E-02_JPRB/) |
|---|
| 123 | KAO( :, 9, 3) = (/& |
|---|
| 124 | &1.6730E-02_JPRB,1.7346E-02_JPRB,1.8327E-02_JPRB,1.9716E-02_JPRB,2.1381E-02_JPRB/) |
|---|
| 125 | KAO( :,10, 3) = (/& |
|---|
| 126 | &1.3588E-02_JPRB,1.4015E-02_JPRB,1.4658E-02_JPRB,1.5680E-02_JPRB,1.6936E-02_JPRB/) |
|---|
| 127 | KAO( :,11, 3) = (/& |
|---|
| 128 | &1.1180E-02_JPRB,1.1528E-02_JPRB,1.2063E-02_JPRB,1.2917E-02_JPRB,1.3959E-02_JPRB/) |
|---|
| 129 | KAO( :,12, 3) = (/& |
|---|
| 130 | &9.1920E-03_JPRB,9.4766E-03_JPRB,9.9244E-03_JPRB,1.0636E-02_JPRB,1.1502E-02_JPRB/) |
|---|
| 131 | KAO( :,13, 3) = (/& |
|---|
| 132 | &7.5517E-03_JPRB,7.7861E-03_JPRB,8.1602E-03_JPRB,8.7504E-03_JPRB,9.4682E-03_JPRB/) |
|---|
| 133 | KAO( :, 1, 4) = (/& |
|---|
| 134 | &2.6559E-01_JPRB,2.7778E-01_JPRB,2.8983E-01_JPRB,3.0112E-01_JPRB,3.1151E-01_JPRB/) |
|---|
| 135 | KAO( :, 2, 4) = (/& |
|---|
| 136 | &2.1415E-01_JPRB,2.2376E-01_JPRB,2.3372E-01_JPRB,2.4291E-01_JPRB,2.5148E-01_JPRB/) |
|---|
| 137 | KAO( :, 3, 4) = (/& |
|---|
| 138 | &1.7113E-01_JPRB,1.7864E-01_JPRB,1.8679E-01_JPRB,1.9418E-01_JPRB,2.0158E-01_JPRB/) |
|---|
| 139 | KAO( :, 4, 4) = (/& |
|---|
| 140 | &1.3689E-01_JPRB,1.4305E-01_JPRB,1.4933E-01_JPRB,1.5577E-01_JPRB,1.6212E-01_JPRB/) |
|---|
| 141 | KAO( :, 5, 4) = (/& |
|---|
| 142 | &1.0951E-01_JPRB,1.1484E-01_JPRB,1.1993E-01_JPRB,1.2527E-01_JPRB,1.3048E-01_JPRB/) |
|---|
| 143 | KAO( :, 6, 4) = (/& |
|---|
| 144 | &8.7678E-02_JPRB,9.2013E-02_JPRB,9.6292E-02_JPRB,1.0052E-01_JPRB,1.0492E-01_JPRB/) |
|---|
| 145 | KAO( :, 7, 4) = (/& |
|---|
| 146 | &7.0271E-02_JPRB,7.3646E-02_JPRB,7.7252E-02_JPRB,8.0679E-02_JPRB,8.4295E-02_JPRB/) |
|---|
| 147 | KAO( :, 8, 4) = (/& |
|---|
| 148 | &5.6292E-02_JPRB,5.9027E-02_JPRB,6.1915E-02_JPRB,6.4784E-02_JPRB,6.7662E-02_JPRB/) |
|---|
| 149 | KAO( :, 9, 4) = (/& |
|---|
| 150 | &4.5045E-02_JPRB,4.7308E-02_JPRB,4.9593E-02_JPRB,5.1992E-02_JPRB,5.4350E-02_JPRB/) |
|---|
| 151 | KAO( :,10, 4) = (/& |
|---|
| 152 | &3.6083E-02_JPRB,3.8037E-02_JPRB,3.9928E-02_JPRB,4.1868E-02_JPRB,4.3827E-02_JPRB/) |
|---|
| 153 | KAO( :,11, 4) = (/& |
|---|
| 154 | &2.9684E-02_JPRB,3.1305E-02_JPRB,3.2869E-02_JPRB,3.4458E-02_JPRB,3.6069E-02_JPRB/) |
|---|
| 155 | KAO( :,12, 4) = (/& |
|---|
| 156 | &2.4428E-02_JPRB,2.5760E-02_JPRB,2.7039E-02_JPRB,2.8345E-02_JPRB,2.9671E-02_JPRB/) |
|---|
| 157 | KAO( :,13, 4) = (/& |
|---|
| 158 | &2.0094E-02_JPRB,2.1179E-02_JPRB,2.2224E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/) |
|---|
| 159 | KAO( :, 1, 5) = (/& |
|---|
| 160 | &4.7290E-01_JPRB,4.8928E-01_JPRB,5.0887E-01_JPRB,5.3328E-01_JPRB,5.6216E-01_JPRB/) |
|---|
| 161 | KAO( :, 2, 5) = (/& |
|---|
| 162 | &3.8475E-01_JPRB,3.9762E-01_JPRB,4.1280E-01_JPRB,4.3219E-01_JPRB,4.5473E-01_JPRB/) |
|---|
| 163 | KAO( :, 3, 5) = (/& |
|---|
| 164 | &3.0979E-01_JPRB,3.1996E-01_JPRB,3.3105E-01_JPRB,3.4530E-01_JPRB,3.6216E-01_JPRB/) |
|---|
| 165 | KAO( :, 4, 5) = (/& |
|---|
| 166 | &2.5002E-01_JPRB,2.5800E-01_JPRB,2.6674E-01_JPRB,2.7709E-01_JPRB,2.8946E-01_JPRB/) |
|---|
| 167 | KAO( :, 5, 5) = (/& |
|---|
| 168 | &2.0218E-01_JPRB,2.0847E-01_JPRB,2.1546E-01_JPRB,2.2311E-01_JPRB,2.3239E-01_JPRB/) |
|---|
| 169 | KAO( :, 6, 5) = (/& |
|---|
| 170 | &1.6286E-01_JPRB,1.6840E-01_JPRB,1.7397E-01_JPRB,1.7996E-01_JPRB,1.8683E-01_JPRB/) |
|---|
| 171 | KAO( :, 7, 5) = (/& |
|---|
| 172 | &1.3055E-01_JPRB,1.3602E-01_JPRB,1.4050E-01_JPRB,1.4524E-01_JPRB,1.5047E-01_JPRB/) |
|---|
| 173 | KAO( :, 8, 5) = (/& |
|---|
| 174 | &1.0442E-01_JPRB,1.0954E-01_JPRB,1.1353E-01_JPRB,1.1737E-01_JPRB,1.2143E-01_JPRB/) |
|---|
| 175 | KAO( :, 9, 5) = (/& |
|---|
| 176 | &8.3388E-02_JPRB,8.7841E-02_JPRB,9.1682E-02_JPRB,9.4816E-02_JPRB,9.8050E-02_JPRB/) |
|---|
| 177 | KAO( :,10, 5) = (/& |
|---|
| 178 | &6.7010E-02_JPRB,7.0598E-02_JPRB,7.4015E-02_JPRB,7.6769E-02_JPRB,7.9372E-02_JPRB/) |
|---|
| 179 | KAO( :,11, 5) = (/& |
|---|
| 180 | &5.5118E-02_JPRB,5.8051E-02_JPRB,6.0869E-02_JPRB,6.3114E-02_JPRB,6.5294E-02_JPRB/) |
|---|
| 181 | KAO( :,12, 5) = (/& |
|---|
| 182 | &4.5300E-02_JPRB,4.7721E-02_JPRB,5.0049E-02_JPRB,5.1890E-02_JPRB,5.3682E-02_JPRB/) |
|---|
| 183 | KAO( :,13, 5) = (/& |
|---|
| 184 | &3.7225E-02_JPRB,3.9236E-02_JPRB,4.1133E-02_JPRB,4.2631E-02_JPRB,4.4126E-02_JPRB/) |
|---|
| 185 | KAO( :, 1, 6) = (/& |
|---|
| 186 | &8.4224E-01_JPRB,9.2264E-01_JPRB,1.0073E+00_JPRB,1.0930E+00_JPRB,1.1793E+00_JPRB/) |
|---|
| 187 | KAO( :, 2, 6) = (/& |
|---|
| 188 | &6.7595E-01_JPRB,7.4232E-01_JPRB,8.1248E-01_JPRB,8.8302E-01_JPRB,9.5616E-01_JPRB/) |
|---|
| 189 | KAO( :, 3, 6) = (/& |
|---|
| 190 | &5.2904E-01_JPRB,5.8048E-01_JPRB,6.3751E-01_JPRB,6.9642E-01_JPRB,7.5721E-01_JPRB/) |
|---|
| 191 | KAO( :, 4, 6) = (/& |
|---|
| 192 | &4.1315E-01_JPRB,4.5407E-01_JPRB,4.9971E-01_JPRB,5.4886E-01_JPRB,5.9964E-01_JPRB/) |
|---|
| 193 | KAO( :, 5, 6) = (/& |
|---|
| 194 | &3.2467E-01_JPRB,3.5531E-01_JPRB,3.9159E-01_JPRB,4.3161E-01_JPRB,4.7423E-01_JPRB/) |
|---|
| 195 | KAO( :, 6, 6) = (/& |
|---|
| 196 | &2.5574E-01_JPRB,2.7784E-01_JPRB,3.0579E-01_JPRB,3.3817E-01_JPRB,3.7278E-01_JPRB/) |
|---|
| 197 | KAO( :, 7, 6) = (/& |
|---|
| 198 | &2.0313E-01_JPRB,2.1792E-01_JPRB,2.3876E-01_JPRB,2.6386E-01_JPRB,2.9205E-01_JPRB/) |
|---|
| 199 | KAO( :, 8, 6) = (/& |
|---|
| 200 | &1.6285E-01_JPRB,1.7201E-01_JPRB,1.8675E-01_JPRB,2.0598E-01_JPRB,2.2843E-01_JPRB/) |
|---|
| 201 | KAO( :, 9, 6) = (/& |
|---|
| 202 | &1.3178E-01_JPRB,1.3687E-01_JPRB,1.4670E-01_JPRB,1.6087E-01_JPRB,1.7827E-01_JPRB/) |
|---|
| 203 | KAO( :,10, 6) = (/& |
|---|
| 204 | &1.0760E-01_JPRB,1.1022E-01_JPRB,1.1661E-01_JPRB,1.2690E-01_JPRB,1.4033E-01_JPRB/) |
|---|
| 205 | KAO( :,11, 6) = (/& |
|---|
| 206 | &8.8471E-02_JPRB,9.0742E-02_JPRB,9.6088E-02_JPRB,1.0477E-01_JPRB,1.1601E-01_JPRB/) |
|---|
| 207 | KAO( :,12, 6) = (/& |
|---|
| 208 | &7.2724E-02_JPRB,7.4645E-02_JPRB,7.9165E-02_JPRB,8.6464E-02_JPRB,9.5844E-02_JPRB/) |
|---|
| 209 | KAO( :,13, 6) = (/& |
|---|
| 210 | &5.9719E-02_JPRB,6.1350E-02_JPRB,6.5177E-02_JPRB,7.1301E-02_JPRB,7.9088E-02_JPRB/) |
|---|
| 211 | KAO( :, 1, 7) = (/& |
|---|
| 212 | &1.8416E+00_JPRB,2.0377E+00_JPRB,2.2351E+00_JPRB,2.4351E+00_JPRB,2.6357E+00_JPRB/) |
|---|
| 213 | KAO( :, 2, 7) = (/& |
|---|
| 214 | &1.5057E+00_JPRB,1.6691E+00_JPRB,1.8342E+00_JPRB,2.0031E+00_JPRB,2.1705E+00_JPRB/) |
|---|
| 215 | KAO( :, 3, 7) = (/& |
|---|
| 216 | &1.1980E+00_JPRB,1.3329E+00_JPRB,1.4704E+00_JPRB,1.6099E+00_JPRB,1.7488E+00_JPRB/) |
|---|
| 217 | KAO( :, 4, 7) = (/& |
|---|
| 218 | &9.4408E-01_JPRB,1.0566E+00_JPRB,1.1708E+00_JPRB,1.2874E+00_JPRB,1.4014E+00_JPRB/) |
|---|
| 219 | KAO( :, 5, 7) = (/& |
|---|
| 220 | &7.4052E-01_JPRB,8.3332E-01_JPRB,9.3007E-01_JPRB,1.0263E+00_JPRB,1.1221E+00_JPRB/) |
|---|
| 221 | KAO( :, 6, 7) = (/& |
|---|
| 222 | &5.7502E-01_JPRB,6.5145E-01_JPRB,7.3102E-01_JPRB,8.1228E-01_JPRB,8.9283E-01_JPRB/) |
|---|
| 223 | KAO( :, 7, 7) = (/& |
|---|
| 224 | &4.4413E-01_JPRB,5.0565E-01_JPRB,5.7113E-01_JPRB,6.3832E-01_JPRB,7.0636E-01_JPRB/) |
|---|
| 225 | KAO( :, 8, 7) = (/& |
|---|
| 226 | &3.4215E-01_JPRB,3.9125E-01_JPRB,4.4414E-01_JPRB,4.9963E-01_JPRB,5.5600E-01_JPRB/) |
|---|
| 227 | KAO( :, 9, 7) = (/& |
|---|
| 228 | &2.6278E-01_JPRB,3.0155E-01_JPRB,3.4409E-01_JPRB,3.8940E-01_JPRB,4.3634E-01_JPRB/) |
|---|
| 229 | KAO( :,10, 7) = (/& |
|---|
| 230 | &2.0399E-01_JPRB,2.3450E-01_JPRB,2.6863E-01_JPRB,3.0559E-01_JPRB,3.4410E-01_JPRB/) |
|---|
| 231 | KAO( :,11, 7) = (/& |
|---|
| 232 | &1.6899E-01_JPRB,1.9452E-01_JPRB,2.2306E-01_JPRB,2.5367E-01_JPRB,2.8600E-01_JPRB/) |
|---|
| 233 | KAO( :,12, 7) = (/& |
|---|
| 234 | &1.4000E-01_JPRB,1.6132E-01_JPRB,1.8504E-01_JPRB,2.1049E-01_JPRB,2.3736E-01_JPRB/) |
|---|
| 235 | KAO( :,13, 7) = (/& |
|---|
| 236 | &1.1587E-01_JPRB,1.3364E-01_JPRB,1.5332E-01_JPRB,1.7448E-01_JPRB,1.9695E-01_JPRB/) |
|---|
| 237 | KAO( :, 1, 8) = (/& |
|---|
| 238 | &4.7751E+00_JPRB,5.2791E+00_JPRB,5.7933E+00_JPRB,6.3083E+00_JPRB,6.8326E+00_JPRB/) |
|---|
| 239 | KAO( :, 2, 8) = (/& |
|---|
| 240 | &4.0048E+00_JPRB,4.4443E+00_JPRB,4.8940E+00_JPRB,5.3580E+00_JPRB,5.8267E+00_JPRB/) |
|---|
| 241 | KAO( :, 3, 8) = (/& |
|---|
| 242 | &3.2400E+00_JPRB,3.6253E+00_JPRB,4.0207E+00_JPRB,4.4230E+00_JPRB,4.8210E+00_JPRB/) |
|---|
| 243 | KAO( :, 4, 8) = (/& |
|---|
| 244 | &2.5883E+00_JPRB,2.9210E+00_JPRB,3.2656E+00_JPRB,3.6154E+00_JPRB,3.9641E+00_JPRB/) |
|---|
| 245 | KAO( :, 5, 8) = (/& |
|---|
| 246 | &2.0550E+00_JPRB,2.3390E+00_JPRB,2.6351E+00_JPRB,2.9336E+00_JPRB,3.2370E+00_JPRB/) |
|---|
| 247 | KAO( :, 6, 8) = (/& |
|---|
| 248 | &1.6130E+00_JPRB,1.8538E+00_JPRB,2.1027E+00_JPRB,2.3582E+00_JPRB,2.6184E+00_JPRB/) |
|---|
| 249 | KAO( :, 7, 8) = (/& |
|---|
| 250 | &1.2548E+00_JPRB,1.4567E+00_JPRB,1.6664E+00_JPRB,1.8820E+00_JPRB,2.1036E+00_JPRB/) |
|---|
| 251 | KAO( :, 8, 8) = (/& |
|---|
| 252 | &9.6687E-01_JPRB,1.1348E+00_JPRB,1.3110E+00_JPRB,1.4930E+00_JPRB,1.6805E+00_JPRB/) |
|---|
| 253 | KAO( :, 9, 8) = (/& |
|---|
| 254 | &7.3847E-01_JPRB,8.7593E-01_JPRB,1.0221E+00_JPRB,1.1741E+00_JPRB,1.3319E+00_JPRB/) |
|---|
| 255 | KAO( :,10, 8) = (/& |
|---|
| 256 | &5.6776E-01_JPRB,6.8017E-01_JPRB,8.0059E-01_JPRB,9.2750E-01_JPRB,1.0593E+00_JPRB/) |
|---|
| 257 | KAO( :,11, 8) = (/& |
|---|
| 258 | &4.7511E-01_JPRB,5.6972E-01_JPRB,6.7118E-01_JPRB,7.7840E-01_JPRB,8.8949E-01_JPRB/) |
|---|
| 259 | KAO( :,12, 8) = (/& |
|---|
| 260 | &3.9658E-01_JPRB,4.7593E-01_JPRB,5.6128E-01_JPRB,6.5124E-01_JPRB,7.4417E-01_JPRB/) |
|---|
| 261 | KAO( :,13, 8) = (/& |
|---|
| 262 | &3.3005E-01_JPRB,3.9650E-01_JPRB,4.6807E-01_JPRB,5.4357E-01_JPRB,6.2155E-01_JPRB/) |
|---|
| 263 | KAO( :, 1, 9) = (/& |
|---|
| 264 | &1.7831E+01_JPRB,1.9823E+01_JPRB,2.1884E+01_JPRB,2.3937E+01_JPRB,2.5904E+01_JPRB/) |
|---|
| 265 | KAO( :, 2, 9) = (/& |
|---|
| 266 | &1.5983E+01_JPRB,1.7908E+01_JPRB,1.9844E+01_JPRB,2.1750E+01_JPRB,2.3639E+01_JPRB/) |
|---|
| 267 | KAO( :, 3, 9) = (/& |
|---|
| 268 | &1.3838E+01_JPRB,1.5652E+01_JPRB,1.7428E+01_JPRB,1.9195E+01_JPRB,2.0946E+01_JPRB/) |
|---|
| 269 | KAO( :, 4, 9) = (/& |
|---|
| 270 | &1.1707E+01_JPRB,1.3372E+01_JPRB,1.5018E+01_JPRB,1.6675E+01_JPRB,1.8330E+01_JPRB/) |
|---|
| 271 | KAO( :, 5, 9) = (/& |
|---|
| 272 | &9.7619E+00_JPRB,1.1244E+01_JPRB,1.2752E+01_JPRB,1.4279E+01_JPRB,1.5837E+01_JPRB/) |
|---|
| 273 | KAO( :, 6, 9) = (/& |
|---|
| 274 | &7.9817E+00_JPRB,9.2988E+00_JPRB,1.0650E+01_JPRB,1.2029E+01_JPRB,1.3449E+01_JPRB/) |
|---|
| 275 | KAO( :, 7, 9) = (/& |
|---|
| 276 | &6.4478E+00_JPRB,7.5864E+00_JPRB,8.7717E+00_JPRB,1.0008E+01_JPRB,1.1289E+01_JPRB/) |
|---|
| 277 | KAO( :, 8, 9) = (/& |
|---|
| 278 | &5.1550E+00_JPRB,6.1381E+00_JPRB,7.1667E+00_JPRB,8.2567E+00_JPRB,9.3759E+00_JPRB/) |
|---|
| 279 | KAO( :, 9, 9) = (/& |
|---|
| 280 | &4.0462E+00_JPRB,4.8924E+00_JPRB,5.7944E+00_JPRB,6.7466E+00_JPRB,7.7100E+00_JPRB/) |
|---|
| 281 | KAO( :,10, 9) = (/& |
|---|
| 282 | &3.1920E+00_JPRB,3.9133E+00_JPRB,4.6912E+00_JPRB,5.5091E+00_JPRB,6.3432E+00_JPRB/) |
|---|
| 283 | KAO( :,11, 9) = (/& |
|---|
| 284 | &2.7717E+00_JPRB,3.4039E+00_JPRB,4.0800E+00_JPRB,4.7818E+00_JPRB,5.5081E+00_JPRB/) |
|---|
| 285 | KAO( :,12, 9) = (/& |
|---|
| 286 | &2.3978E+00_JPRB,2.9436E+00_JPRB,3.5235E+00_JPRB,4.1293E+00_JPRB,4.7600E+00_JPRB/) |
|---|
| 287 | KAO( :,13, 9) = (/& |
|---|
| 288 | &2.0575E+00_JPRB,2.5263E+00_JPRB,3.0244E+00_JPRB,3.5477E+00_JPRB,4.0896E+00_JPRB/) |
|---|
| 289 | KAO( :, 1,10) = (/& |
|---|
| 290 | &4.9748E+01_JPRB,5.5112E+01_JPRB,5.9938E+01_JPRB,6.5023E+01_JPRB,7.0458E+01_JPRB/) |
|---|
| 291 | KAO( :, 2,10) = (/& |
|---|
| 292 | &4.6588E+01_JPRB,5.1661E+01_JPRB,5.6901E+01_JPRB,6.2463E+01_JPRB,6.8487E+01_JPRB/) |
|---|
| 293 | KAO( :, 3,10) = (/& |
|---|
| 294 | &4.1628E+01_JPRB,4.6699E+01_JPRB,5.2314E+01_JPRB,5.8353E+01_JPRB,6.4458E+01_JPRB/) |
|---|
| 295 | KAO( :, 4,10) = (/& |
|---|
| 296 | &3.7456E+01_JPRB,4.2469E+01_JPRB,4.7867E+01_JPRB,5.3384E+01_JPRB,5.9111E+01_JPRB/) |
|---|
| 297 | KAO( :, 5,10) = (/& |
|---|
| 298 | &3.3436E+01_JPRB,3.8793E+01_JPRB,4.3992E+01_JPRB,4.9077E+01_JPRB,5.4046E+01_JPRB/) |
|---|
| 299 | KAO( :, 6,10) = (/& |
|---|
| 300 | &2.8948E+01_JPRB,3.4066E+01_JPRB,3.9093E+01_JPRB,4.3943E+01_JPRB,4.8577E+01_JPRB/) |
|---|
| 301 | KAO( :, 7,10) = (/& |
|---|
| 302 | &2.4411E+01_JPRB,2.9169E+01_JPRB,3.3772E+01_JPRB,3.8328E+01_JPRB,4.2674E+01_JPRB/) |
|---|
| 303 | KAO( :, 8,10) = (/& |
|---|
| 304 | &2.0213E+01_JPRB,2.4379E+01_JPRB,2.8547E+01_JPRB,3.2632E+01_JPRB,3.6717E+01_JPRB/) |
|---|
| 305 | KAO( :, 9,10) = (/& |
|---|
| 306 | &1.6770E+01_JPRB,2.0275E+01_JPRB,2.3726E+01_JPRB,2.7289E+01_JPRB,3.1149E+01_JPRB/) |
|---|
| 307 | KAO( :,10,10) = (/& |
|---|
| 308 | &1.3740E+01_JPRB,1.6814E+01_JPRB,1.9874E+01_JPRB,2.3039E+01_JPRB,2.6529E+01_JPRB/) |
|---|
| 309 | KAO( :,11,10) = (/& |
|---|
| 310 | &1.2161E+01_JPRB,1.4820E+01_JPRB,1.7667E+01_JPRB,2.0767E+01_JPRB,2.3948E+01_JPRB/) |
|---|
| 311 | KAO( :,12,10) = (/& |
|---|
| 312 | &1.0666E+01_JPRB,1.3093E+01_JPRB,1.5727E+01_JPRB,1.8473E+01_JPRB,2.1195E+01_JPRB/) |
|---|
| 313 | KAO( :,13,10) = (/& |
|---|
| 314 | &9.3915E+00_JPRB,1.1557E+01_JPRB,1.3847E+01_JPRB,1.6172E+01_JPRB,1.8558E+01_JPRB/) |
|---|
| 315 | KAO( :, 1,11) = (/& |
|---|
| 316 | &7.2842E+01_JPRB,8.2127E+01_JPRB,9.1751E+01_JPRB,1.0081E+02_JPRB,1.0868E+02_JPRB/) |
|---|
| 317 | KAO( :, 2,11) = (/& |
|---|
| 318 | &7.0912E+01_JPRB,8.0211E+01_JPRB,8.9133E+01_JPRB,9.7767E+01_JPRB,1.0537E+02_JPRB/) |
|---|
| 319 | KAO( :, 3,11) = (/& |
|---|
| 320 | &6.7169E+01_JPRB,7.5895E+01_JPRB,8.3957E+01_JPRB,9.1467E+01_JPRB,9.8740E+01_JPRB/) |
|---|
| 321 | KAO( :, 4,11) = (/& |
|---|
| 322 | &6.1046E+01_JPRB,6.9086E+01_JPRB,7.7071E+01_JPRB,8.4625E+01_JPRB,9.2325E+01_JPRB/) |
|---|
| 323 | KAO( :, 5,11) = (/& |
|---|
| 324 | &5.4291E+01_JPRB,6.1624E+01_JPRB,6.9146E+01_JPRB,7.6916E+01_JPRB,8.5050E+01_JPRB/) |
|---|
| 325 | KAO( :, 6,11) = (/& |
|---|
| 326 | &4.7940E+01_JPRB,5.4754E+01_JPRB,6.1943E+01_JPRB,6.9739E+01_JPRB,7.7765E+01_JPRB/) |
|---|
| 327 | KAO( :, 7,11) = (/& |
|---|
| 328 | &4.1424E+01_JPRB,4.8323E+01_JPRB,5.5884E+01_JPRB,6.3434E+01_JPRB,7.1064E+01_JPRB/) |
|---|
| 329 | KAO( :, 8,11) = (/& |
|---|
| 330 | &3.4808E+01_JPRB,4.1718E+01_JPRB,4.9240E+01_JPRB,5.6728E+01_JPRB,6.4032E+01_JPRB/) |
|---|
| 331 | KAO( :, 9,11) = (/& |
|---|
| 332 | &2.8724E+01_JPRB,3.5333E+01_JPRB,4.2395E+01_JPRB,4.9372E+01_JPRB,5.6186E+01_JPRB/) |
|---|
| 333 | KAO( :,10,11) = (/& |
|---|
| 334 | &2.4060E+01_JPRB,2.9886E+01_JPRB,3.6171E+01_JPRB,4.2511E+01_JPRB,4.8855E+01_JPRB/) |
|---|
| 335 | KAO( :,11,11) = (/& |
|---|
| 336 | &2.2466E+01_JPRB,2.7842E+01_JPRB,3.3276E+01_JPRB,3.8707E+01_JPRB,4.4411E+01_JPRB/) |
|---|
| 337 | KAO( :,12,11) = (/& |
|---|
| 338 | &2.0635E+01_JPRB,2.5402E+01_JPRB,3.0130E+01_JPRB,3.5065E+01_JPRB,4.0456E+01_JPRB/) |
|---|
| 339 | KAO( :,13,11) = (/& |
|---|
| 340 | &1.8375E+01_JPRB,2.2528E+01_JPRB,2.6944E+01_JPRB,3.1721E+01_JPRB,3.6642E+01_JPRB/) |
|---|
| 341 | KAO( :, 1,12) = (/& |
|---|
| 342 | &1.2814E+02_JPRB,1.3938E+02_JPRB,1.4994E+02_JPRB,1.6150E+02_JPRB,1.7273E+02_JPRB/) |
|---|
| 343 | KAO( :, 2,12) = (/& |
|---|
| 344 | &1.2028E+02_JPRB,1.3171E+02_JPRB,1.4381E+02_JPRB,1.5628E+02_JPRB,1.6936E+02_JPRB/) |
|---|
| 345 | KAO( :, 3,12) = (/& |
|---|
| 346 | &1.0908E+02_JPRB,1.2221E+02_JPRB,1.3662E+02_JPRB,1.5108E+02_JPRB,1.6591E+02_JPRB/) |
|---|
| 347 | KAO( :, 4,12) = (/& |
|---|
| 348 | &9.9689E+01_JPRB,1.1393E+02_JPRB,1.2899E+02_JPRB,1.4446E+02_JPRB,1.5932E+02_JPRB/) |
|---|
| 349 | KAO( :, 5,12) = (/& |
|---|
| 350 | &9.1574E+01_JPRB,1.0647E+02_JPRB,1.2179E+02_JPRB,1.3681E+02_JPRB,1.5090E+02_JPRB/) |
|---|
| 351 | KAO( :, 6,12) = (/& |
|---|
| 352 | &8.3159E+01_JPRB,9.8372E+01_JPRB,1.1370E+02_JPRB,1.2787E+02_JPRB,1.4184E+02_JPRB/) |
|---|
| 353 | KAO( :, 7,12) = (/& |
|---|
| 354 | &7.5130E+01_JPRB,8.9279E+01_JPRB,1.0335E+02_JPRB,1.1696E+02_JPRB,1.3088E+02_JPRB/) |
|---|
| 355 | KAO( :, 8,12) = (/& |
|---|
| 356 | &6.6942E+01_JPRB,7.9719E+01_JPRB,9.2547E+01_JPRB,1.0530E+02_JPRB,1.1887E+02_JPRB/) |
|---|
| 357 | KAO( :, 9,12) = (/& |
|---|
| 358 | &5.7722E+01_JPRB,6.9837E+01_JPRB,8.2082E+01_JPRB,9.4593E+01_JPRB,1.0770E+02_JPRB/) |
|---|
| 359 | KAO( :,10,12) = (/& |
|---|
| 360 | &4.9040E+01_JPRB,6.0620E+01_JPRB,7.2577E+01_JPRB,8.5187E+01_JPRB,9.7844E+01_JPRB/) |
|---|
| 361 | KAO( :,11,12) = (/& |
|---|
| 362 | &4.5433E+01_JPRB,5.6352E+01_JPRB,6.8223E+01_JPRB,8.0499E+01_JPRB,9.2512E+01_JPRB/) |
|---|
| 363 | KAO( :,12,12) = (/& |
|---|
| 364 | &4.1971E+01_JPRB,5.2467E+01_JPRB,6.3533E+01_JPRB,7.4543E+01_JPRB,8.5084E+01_JPRB/) |
|---|
| 365 | KAO( :,13,12) = (/& |
|---|
| 366 | &3.9013E+01_JPRB,4.8568E+01_JPRB,5.8272E+01_JPRB,6.7741E+01_JPRB,7.7194E+01_JPRB/) |
|---|
| 367 | KAO( :, 1,13) = (/& |
|---|
| 368 | &2.2210E+02_JPRB,2.4767E+02_JPRB,2.7177E+02_JPRB,2.9506E+02_JPRB,3.1428E+02_JPRB/) |
|---|
| 369 | KAO( :, 2,13) = (/& |
|---|
| 370 | &2.2387E+02_JPRB,2.5269E+02_JPRB,2.7872E+02_JPRB,2.9937E+02_JPRB,3.1679E+02_JPRB/) |
|---|
| 371 | KAO( :, 3,13) = (/& |
|---|
| 372 | &2.1746E+02_JPRB,2.4620E+02_JPRB,2.7168E+02_JPRB,2.9352E+02_JPRB,3.1488E+02_JPRB/) |
|---|
| 373 | KAO( :, 4,13) = (/& |
|---|
| 374 | &2.0527E+02_JPRB,2.3513E+02_JPRB,2.5998E+02_JPRB,2.8303E+02_JPRB,3.0506E+02_JPRB/) |
|---|
| 375 | KAO( :, 5,13) = (/& |
|---|
| 376 | &1.8964E+02_JPRB,2.1890E+02_JPRB,2.4311E+02_JPRB,2.6810E+02_JPRB,2.9248E+02_JPRB/) |
|---|
| 377 | KAO( :, 6,13) = (/& |
|---|
| 378 | &1.7090E+02_JPRB,1.9758E+02_JPRB,2.2284E+02_JPRB,2.4839E+02_JPRB,2.7463E+02_JPRB/) |
|---|
| 379 | KAO( :, 7,13) = (/& |
|---|
| 380 | &1.5109E+02_JPRB,1.7710E+02_JPRB,2.0295E+02_JPRB,2.2932E+02_JPRB,2.5634E+02_JPRB/) |
|---|
| 381 | KAO( :, 8,13) = (/& |
|---|
| 382 | &1.3270E+02_JPRB,1.5826E+02_JPRB,1.8450E+02_JPRB,2.1121E+02_JPRB,2.3873E+02_JPRB/) |
|---|
| 383 | KAO( :, 9,13) = (/& |
|---|
| 384 | &1.1570E+02_JPRB,1.4021E+02_JPRB,1.6653E+02_JPRB,1.9389E+02_JPRB,2.2105E+02_JPRB/) |
|---|
| 385 | KAO( :,10,13) = (/& |
|---|
| 386 | &1.0259E+02_JPRB,1.2584E+02_JPRB,1.5091E+02_JPRB,1.7718E+02_JPRB,2.0281E+02_JPRB/) |
|---|
| 387 | KAO( :,11,13) = (/& |
|---|
| 388 | &1.0076E+02_JPRB,1.2370E+02_JPRB,1.4756E+02_JPRB,1.7147E+02_JPRB,1.9575E+02_JPRB/) |
|---|
| 389 | KAO( :,12,13) = (/& |
|---|
| 390 | &9.7325E+01_JPRB,1.1939E+02_JPRB,1.4174E+02_JPRB,1.6449E+02_JPRB,1.8836E+02_JPRB/) |
|---|
| 391 | KAO( :,13,13) = (/& |
|---|
| 392 | &9.2070E+01_JPRB,1.1299E+02_JPRB,1.3489E+02_JPRB,1.5734E+02_JPRB,1.8036E+02_JPRB/) |
|---|
| 393 | KAO( :, 1,14) = (/& |
|---|
| 394 | &4.2241E+02_JPRB,4.5820E+02_JPRB,4.8815E+02_JPRB,5.1730E+02_JPRB,5.4765E+02_JPRB/) |
|---|
| 395 | KAO( :, 2,14) = (/& |
|---|
| 396 | &4.2461E+02_JPRB,4.6681E+02_JPRB,4.9982E+02_JPRB,5.3726E+02_JPRB,5.6640E+02_JPRB/) |
|---|
| 397 | KAO( :, 3,14) = (/& |
|---|
| 398 | &4.1742E+02_JPRB,4.5924E+02_JPRB,4.9930E+02_JPRB,5.3630E+02_JPRB,5.8090E+02_JPRB/) |
|---|
| 399 | KAO( :, 4,14) = (/& |
|---|
| 400 | &3.9739E+02_JPRB,4.4336E+02_JPRB,4.8832E+02_JPRB,5.2886E+02_JPRB,5.8035E+02_JPRB/) |
|---|
| 401 | KAO( :, 5,14) = (/& |
|---|
| 402 | &3.7398E+02_JPRB,4.2048E+02_JPRB,4.7438E+02_JPRB,5.2486E+02_JPRB,5.7134E+02_JPRB/) |
|---|
| 403 | KAO( :, 6,14) = (/& |
|---|
| 404 | &3.4725E+02_JPRB,3.9940E+02_JPRB,4.5648E+02_JPRB,5.1230E+02_JPRB,5.6617E+02_JPRB/) |
|---|
| 405 | KAO( :, 7,14) = (/& |
|---|
| 406 | &3.2072E+02_JPRB,3.7728E+02_JPRB,4.3646E+02_JPRB,4.9362E+02_JPRB,5.5200E+02_JPRB/) |
|---|
| 407 | KAO( :, 8,14) = (/& |
|---|
| 408 | &2.9404E+02_JPRB,3.5487E+02_JPRB,4.1802E+02_JPRB,4.7825E+02_JPRB,5.4076E+02_JPRB/) |
|---|
| 409 | KAO( :, 9,14) = (/& |
|---|
| 410 | &2.7034E+02_JPRB,3.3232E+02_JPRB,3.9722E+02_JPRB,4.5997E+02_JPRB,5.2290E+02_JPRB/) |
|---|
| 411 | KAO( :,10,14) = (/& |
|---|
| 412 | &2.5045E+02_JPRB,3.1309E+02_JPRB,3.7582E+02_JPRB,4.4096E+02_JPRB,5.0588E+02_JPRB/) |
|---|
| 413 | KAO( :,11,14) = (/& |
|---|
| 414 | &2.5624E+02_JPRB,3.1911E+02_JPRB,3.8269E+02_JPRB,4.5034E+02_JPRB,5.1713E+02_JPRB/) |
|---|
| 415 | KAO( :,12,14) = (/& |
|---|
| 416 | &2.6046E+02_JPRB,3.2208E+02_JPRB,3.8851E+02_JPRB,4.5644E+02_JPRB,5.2468E+02_JPRB/) |
|---|
| 417 | KAO( :,13,14) = (/& |
|---|
| 418 | &2.6376E+02_JPRB,3.2552E+02_JPRB,3.9097E+02_JPRB,4.5804E+02_JPRB,5.2614E+02_JPRB/) |
|---|
| 419 | KAO( :, 1,15) = (/& |
|---|
| 420 | &8.5706E+02_JPRB,9.2142E+02_JPRB,9.6878E+02_JPRB,1.0281E+03_JPRB,1.0795E+03_JPRB/) |
|---|
| 421 | KAO( :, 2,15) = (/& |
|---|
| 422 | &9.5189E+02_JPRB,1.0335E+03_JPRB,1.0913E+03_JPRB,1.1632E+03_JPRB,1.2011E+03_JPRB/) |
|---|
| 423 | KAO( :, 3,15) = (/& |
|---|
| 424 | &1.0232E+03_JPRB,1.0861E+03_JPRB,1.1646E+03_JPRB,1.2285E+03_JPRB,1.3057E+03_JPRB/) |
|---|
| 425 | KAO( :, 4,15) = (/& |
|---|
| 426 | &1.0392E+03_JPRB,1.1356E+03_JPRB,1.2544E+03_JPRB,1.3115E+03_JPRB,1.4338E+03_JPRB/) |
|---|
| 427 | KAO( :, 5,15) = (/& |
|---|
| 428 | &1.0616E+03_JPRB,1.1713E+03_JPRB,1.3147E+03_JPRB,1.4146E+03_JPRB,1.4989E+03_JPRB/) |
|---|
| 429 | KAO( :, 6,15) = (/& |
|---|
| 430 | &1.0788E+03_JPRB,1.1886E+03_JPRB,1.3302E+03_JPRB,1.4680E+03_JPRB,1.5638E+03_JPRB/) |
|---|
| 431 | KAO( :, 7,15) = (/& |
|---|
| 432 | &1.0593E+03_JPRB,1.1909E+03_JPRB,1.3423E+03_JPRB,1.4840E+03_JPRB,1.6000E+03_JPRB/) |
|---|
| 433 | KAO( :, 8,15) = (/& |
|---|
| 434 | &9.9873E+02_JPRB,1.1655E+03_JPRB,1.3439E+03_JPRB,1.4887E+03_JPRB,1.6318E+03_JPRB/) |
|---|
| 435 | KAO( :, 9,15) = (/& |
|---|
| 436 | &9.4071E+02_JPRB,1.1173E+03_JPRB,1.3103E+03_JPRB,1.4801E+03_JPRB,1.6507E+03_JPRB/) |
|---|
| 437 | KAO( :,10,15) = (/& |
|---|
| 438 | &8.8647E+02_JPRB,1.0727E+03_JPRB,1.2703E+03_JPRB,1.4721E+03_JPRB,1.6711E+03_JPRB/) |
|---|
| 439 | KAO( :,11,15) = (/& |
|---|
| 440 | &9.2131E+02_JPRB,1.1303E+03_JPRB,1.3379E+03_JPRB,1.5675E+03_JPRB,1.7706E+03_JPRB/) |
|---|
| 441 | KAO( :,12,15) = (/& |
|---|
| 442 | &9.6245E+02_JPRB,1.1976E+03_JPRB,1.4205E+03_JPRB,1.6577E+03_JPRB,1.8724E+03_JPRB/) |
|---|
| 443 | KAO( :,13,15) = (/& |
|---|
| 444 | &1.0149E+03_JPRB,1.2514E+03_JPRB,1.4928E+03_JPRB,1.7376E+03_JPRB,1.9688E+03_JPRB/) |
|---|
| 445 | KAO( :, 1,16) = (/& |
|---|
| 446 | &1.1893E+03_JPRB,1.2688E+03_JPRB,1.3351E+03_JPRB,1.3959E+03_JPRB,1.4433E+03_JPRB/) |
|---|
| 447 | KAO( :, 2,16) = (/& |
|---|
| 448 | &1.4043E+03_JPRB,1.5015E+03_JPRB,1.5933E+03_JPRB,1.6702E+03_JPRB,1.7343E+03_JPRB/) |
|---|
| 449 | KAO( :, 3,16) = (/& |
|---|
| 450 | &1.6203E+03_JPRB,1.7272E+03_JPRB,1.8338E+03_JPRB,1.9414E+03_JPRB,2.0288E+03_JPRB/) |
|---|
| 451 | KAO( :, 4,16) = (/& |
|---|
| 452 | &1.7997E+03_JPRB,1.9426E+03_JPRB,2.1186E+03_JPRB,2.2171E+03_JPRB,2.3429E+03_JPRB/) |
|---|
| 453 | KAO( :, 5,16) = (/& |
|---|
| 454 | &1.9840E+03_JPRB,2.1906E+03_JPRB,2.3875E+03_JPRB,2.5360E+03_JPRB,2.6578E+03_JPRB/) |
|---|
| 455 | KAO( :, 6,16) = (/& |
|---|
| 456 | &2.1706E+03_JPRB,2.4031E+03_JPRB,2.6185E+03_JPRB,2.8410E+03_JPRB,2.9858E+03_JPRB/) |
|---|
| 457 | KAO( :, 7,16) = (/& |
|---|
| 458 | &2.3367E+03_JPRB,2.6044E+03_JPRB,2.8764E+03_JPRB,3.1365E+03_JPRB,3.3254E+03_JPRB/) |
|---|
| 459 | KAO( :, 8,16) = (/& |
|---|
| 460 | &2.4353E+03_JPRB,2.7922E+03_JPRB,3.1601E+03_JPRB,3.4455E+03_JPRB,3.6918E+03_JPRB/) |
|---|
| 461 | KAO( :, 9,16) = (/& |
|---|
| 462 | &2.5375E+03_JPRB,2.9571E+03_JPRB,3.4043E+03_JPRB,3.7567E+03_JPRB,4.0876E+03_JPRB/) |
|---|
| 463 | KAO( :,10,16) = (/& |
|---|
| 464 | &2.6751E+03_JPRB,3.1240E+03_JPRB,3.6015E+03_JPRB,4.0631E+03_JPRB,4.4658E+03_JPRB/) |
|---|
| 465 | KAO( :,11,16) = (/& |
|---|
| 466 | &3.0220E+03_JPRB,3.5297E+03_JPRB,4.0306E+03_JPRB,4.6185E+03_JPRB,5.0516E+03_JPRB/) |
|---|
| 467 | KAO( :,12,16) = (/& |
|---|
| 468 | &3.3138E+03_JPRB,4.0094E+03_JPRB,4.5368E+03_JPRB,5.2030E+03_JPRB,5.7257E+03_JPRB/) |
|---|
| 469 | KAO( :,13,16) = (/& |
|---|
| 470 | &3.6770E+03_JPRB,4.3534E+03_JPRB,5.0748E+03_JPRB,5.8067E+03_JPRB,6.4888E+03_JPRB/) |
|---|
| 471 | |
|---|
| 472 | ! The array SELFREFO contains the coefficient of the water vapor |
|---|
| 473 | ! self-continuum (including the energy term). The first index |
|---|
| 474 | ! refers to temperature in 7.2 degree increments. For instance, |
|---|
| 475 | ! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, |
|---|
| 476 | ! etc. The second index runs over the g-channel (1 to 16). |
|---|
| 477 | |
|---|
| 478 | SELFREFO( :, 1) = (/& |
|---|
| 479 | &7.54232E-01_JPRB, 6.87231E-01_JPRB, 6.26181E-01_JPRB, 5.70555E-01_JPRB, 5.19870E-01_JPRB,& |
|---|
| 480 | &4.73688E-01_JPRB, 4.31608E-01_JPRB, 3.93266E-01_JPRB, 3.58331E-01_JPRB, 3.26499E-01_JPRB/) |
|---|
| 481 | SELFREFO( :, 2) = (/& |
|---|
| 482 | &1.01377E+00_JPRB, 9.30266E-01_JPRB, 8.53637E-01_JPRB, 7.83320E-01_JPRB, 7.18796E-01_JPRB,& |
|---|
| 483 | &6.59587E-01_JPRB, 6.05254E-01_JPRB, 5.55398E-01_JPRB, 5.09648E-01_JPRB, 4.67667E-01_JPRB/) |
|---|
| 484 | SELFREFO( :, 3) = (/& |
|---|
| 485 | &1.31954E+00_JPRB, 1.22523E+00_JPRB, 1.13766E+00_JPRB, 1.05635E+00_JPRB, 9.80853E-01_JPRB,& |
|---|
| 486 | &9.10749E-01_JPRB, 8.45656E-01_JPRB, 7.85215E-01_JPRB, 7.29095E-01_JPRB, 6.76985E-01_JPRB/) |
|---|
| 487 | SELFREFO( :, 4) = (/& |
|---|
| 488 | &2.18726E+00_JPRB, 2.05960E+00_JPRB, 1.93940E+00_JPRB, 1.82621E+00_JPRB, 1.71962E+00_JPRB,& |
|---|
| 489 | &1.61926E+00_JPRB, 1.52476E+00_JPRB, 1.43577E+00_JPRB, 1.35197E+00_JPRB, 1.27306E+00_JPRB/) |
|---|
| 490 | SELFREFO( :, 5) = (/& |
|---|
| 491 | &3.17440E+00_JPRB, 2.92794E+00_JPRB, 2.70061E+00_JPRB, 2.49094E+00_JPRB, 2.29754E+00_JPRB,& |
|---|
| 492 | &2.11916E+00_JPRB, 1.95463E+00_JPRB, 1.80287E+00_JPRB, 1.66290E+00_JPRB, 1.53379E+00_JPRB/) |
|---|
| 493 | SELFREFO( :, 6) = (/& |
|---|
| 494 | &2.69705E+00_JPRB, 2.48684E+00_JPRB, 2.29302E+00_JPRB, 2.11431E+00_JPRB, 1.94952E+00_JPRB,& |
|---|
| 495 | &1.79758E+00_JPRB, 1.65748E+00_JPRB, 1.52830E+00_JPRB, 1.40919E+00_JPRB, 1.29936E+00_JPRB/) |
|---|
| 496 | SELFREFO( :, 7) = (/& |
|---|
| 497 | &2.91893E+00_JPRB, 2.68371E+00_JPRB, 2.46745E+00_JPRB, 2.26862E+00_JPRB, 2.08581E+00_JPRB,& |
|---|
| 498 | &1.91773E+00_JPRB, 1.76319E+00_JPRB, 1.62111E+00_JPRB, 1.49048E+00_JPRB, 1.37037E+00_JPRB/) |
|---|
| 499 | SELFREFO( :, 8) = (/& |
|---|
| 500 | &2.91847E+00_JPRB, 2.69138E+00_JPRB, 2.48195E+00_JPRB, 2.28883E+00_JPRB, 2.11073E+00_JPRB,& |
|---|
| 501 | &1.94648E+00_JPRB, 1.79502E+00_JPRB, 1.65535E+00_JPRB, 1.52654E+00_JPRB, 1.40776E+00_JPRB/) |
|---|
| 502 | SELFREFO( :, 9) = (/& |
|---|
| 503 | &2.73994E+00_JPRB, 2.54834E+00_JPRB, 2.37014E+00_JPRB, 2.20440E+00_JPRB, 2.05026E+00_JPRB,& |
|---|
| 504 | &1.90689E+00_JPRB, 1.77354E+00_JPRB, 1.64952E+00_JPRB, 1.53418E+00_JPRB, 1.42690E+00_JPRB/) |
|---|
| 505 | SELFREFO( :,10) = (/& |
|---|
| 506 | &2.81902E+00_JPRB, 2.66010E+00_JPRB, 2.51014E+00_JPRB, 2.36863E+00_JPRB, 2.23510E+00_JPRB,& |
|---|
| 507 | &2.10909E+00_JPRB, 1.99020E+00_JPRB, 1.87800E+00_JPRB, 1.77213E+00_JPRB, 1.67222E+00_JPRB/) |
|---|
| 508 | SELFREFO( :,11) = (/& |
|---|
| 509 | &3.19430E+00_JPRB, 2.97671E+00_JPRB, 2.77395E+00_JPRB, 2.58500E+00_JPRB, 2.40891E+00_JPRB,& |
|---|
| 510 | &2.24483E+00_JPRB, 2.09192E+00_JPRB, 1.94942E+00_JPRB, 1.81663E+00_JPRB, 1.69289E+00_JPRB/) |
|---|
| 511 | SELFREFO( :,12) = (/& |
|---|
| 512 | &3.24778E+00_JPRB, 3.04535E+00_JPRB, 2.85553E+00_JPRB, 2.67755E+00_JPRB, 2.51066E+00_JPRB,& |
|---|
| 513 | &2.35417E+00_JPRB, 2.20744E+00_JPRB, 2.06985E+00_JPRB, 1.94084E+00_JPRB, 1.81987E+00_JPRB/) |
|---|
| 514 | SELFREFO( :,13) = (/& |
|---|
| 515 | &3.67142E+00_JPRB, 3.39875E+00_JPRB, 3.14634E+00_JPRB, 2.91267E+00_JPRB, 2.69636E+00_JPRB,& |
|---|
| 516 | &2.49611E+00_JPRB, 2.31073E+00_JPRB, 2.13913E+00_JPRB, 1.98026E+00_JPRB, 1.83319E+00_JPRB/) |
|---|
| 517 | SELFREFO( :,14) = (/& |
|---|
| 518 | &3.73679E+00_JPRB, 3.49113E+00_JPRB, 3.26162E+00_JPRB, 3.04719E+00_JPRB, 2.84686E+00_JPRB,& |
|---|
| 519 | &2.65970E+00_JPRB, 2.48485E+00_JPRB, 2.32149E+00_JPRB, 2.16887E+00_JPRB, 2.02628E+00_JPRB/) |
|---|
| 520 | SELFREFO( :,15) = (/& |
|---|
| 521 | &4.25684E+00_JPRB, 3.95885E+00_JPRB, 3.68171E+00_JPRB, 3.42397E+00_JPRB, 3.18428E+00_JPRB,& |
|---|
| 522 | &2.96137E+00_JPRB, 2.75406E+00_JPRB, 2.56126E+00_JPRB, 2.38196E+00_JPRB, 2.21521E+00_JPRB/) |
|---|
| 523 | SELFREFO( :,16) = (/& |
|---|
| 524 | &4.97048E+00_JPRB, 4.59255E+00_JPRB, 4.24336E+00_JPRB, 3.92072E+00_JPRB, 3.62261E+00_JPRB,& |
|---|
| 525 | &3.34717E+00_JPRB, 3.09267E+00_JPRB, 2.85752E+00_JPRB, 2.64025E+00_JPRB, 2.43950E+00_JPRB/) |
|---|
| 526 | |
|---|
| 527 | ! The ith set of reference fractions are from the ith reference |
|---|
| 528 | ! pressure level. |
|---|
| 529 | FRACREFAO( :, 1) = (/& |
|---|
| 530 | &0.18068060_JPRB,0.16803175_JPRB,0.15140158_JPRB,0.12221480_JPRB,& |
|---|
| 531 | &0.10240850_JPRB,0.09330297_JPRB,0.07518960_JPRB,0.05611294_JPRB,& |
|---|
| 532 | &0.03781487_JPRB,0.00387192_JPRB,0.00321285_JPRB,0.00244440_JPRB,& |
|---|
| 533 | &0.00179546_JPRB,0.00107704_JPRB,0.00038798_JPRB,0.00005060_JPRB/) |
|---|
| 534 | FRACREFAO( :, 2) = (/& |
|---|
| 535 | &0.17927621_JPRB,0.16731168_JPRB,0.15129538_JPRB,0.12328085_JPRB,& |
|---|
| 536 | &0.10243484_JPRB,0.09354796_JPRB,0.07538418_JPRB,0.05633071_JPRB,& |
|---|
| 537 | &0.03810832_JPRB,0.00398347_JPRB,0.00320262_JPRB,0.00250029_JPRB,& |
|---|
| 538 | &0.00178666_JPRB,0.00111127_JPRB,0.00039438_JPRB,0.00005169_JPRB/) |
|---|
| 539 | FRACREFAO( :, 3) = (/& |
|---|
| 540 | &0.17762886_JPRB,0.16638555_JPRB,0.15115446_JPRB,0.12470623_JPRB,& |
|---|
| 541 | &0.10253213_JPRB,0.09383459_JPRB,0.07560240_JPRB,0.05646568_JPRB,& |
|---|
| 542 | &0.03844077_JPRB,0.00409142_JPRB,0.00322521_JPRB,0.00254918_JPRB,& |
|---|
| 543 | &0.00179296_JPRB,0.00113652_JPRB,0.00040169_JPRB,0.00005259_JPRB/) |
|---|
| 544 | FRACREFAO( :, 4) = (/& |
|---|
| 545 | &0.17566043_JPRB,0.16539773_JPRB,0.15092199_JPRB,0.12571971_JPRB,& |
|---|
| 546 | &0.10340609_JPRB,0.09426189_JPRB,0.07559051_JPRB,0.05678188_JPRB,& |
|---|
| 547 | &0.03881499_JPRB,0.00414102_JPRB,0.00328551_JPRB,0.00258795_JPRB,& |
|---|
| 548 | &0.00181648_JPRB,0.00115145_JPRB,0.00040969_JPRB,0.00005357_JPRB/) |
|---|
| 549 | FRACREFAO( :, 5) = (/& |
|---|
| 550 | &0.17335825_JPRB,0.16442548_JPRB,0.15070701_JPRB,0.12667464_JPRB,& |
|---|
| 551 | &0.10452303_JPRB,0.09450833_JPRB,0.07599410_JPRB,0.05706393_JPRB,& |
|---|
| 552 | &0.03910370_JPRB,0.00417880_JPRB,0.00335256_JPRB,0.00261708_JPRB,& |
|---|
| 553 | &0.00185491_JPRB,0.00116627_JPRB,0.00041759_JPRB,0.00005464_JPRB/) |
|---|
| 554 | FRACREFAO( :, 6) = (/& |
|---|
| 555 | &0.17082544_JPRB,0.16321516_JPRB,0.15044247_JPRB,0.12797612_JPRB,& |
|---|
| 556 | &0.10574646_JPRB,0.09470057_JPRB,0.07647423_JPRB,0.05738756_JPRB,& |
|---|
| 557 | &0.03935621_JPRB,0.00423789_JPRB,0.00342651_JPRB,0.00264549_JPRB,& |
|---|
| 558 | &0.00190188_JPRB,0.00118281_JPRB,0.00042592_JPRB,0.00005583_JPRB/) |
|---|
| 559 | FRACREFAO( :, 7) = (/& |
|---|
| 560 | &0.16809277_JPRB,0.16193336_JPRB,0.15013184_JPRB,0.12937409_JPRB,& |
|---|
| 561 | &0.10720784_JPRB,0.09485368_JPRB,0.07692636_JPRB,0.05771774_JPRB,& |
|---|
| 562 | &0.03966988_JPRB,0.00427754_JPRB,0.00349696_JPRB,0.00268946_JPRB,& |
|---|
| 563 | &0.00193536_JPRB,0.00120222_JPRB,0.00043462_JPRB,0.00005712_JPRB/) |
|---|
| 564 | FRACREFAO( :, 8) = (/& |
|---|
| 565 | &0.16517997_JPRB,0.16059248_JPRB,0.14984852_JPRB,0.13079269_JPRB,& |
|---|
| 566 | &0.10865030_JPRB,0.09492947_JPRB,0.07759736_JPRB,0.05812201_JPRB,& |
|---|
| 567 | &0.03997169_JPRB,0.00432356_JPRB,0.00355308_JPRB,0.00274031_JPRB,& |
|---|
| 568 | &0.00197243_JPRB,0.00122401_JPRB,0.00044359_JPRB,0.00005849_JPRB/) |
|---|
| 569 | FRACREFAO( :, 9) = (/& |
|---|
| 570 | &0.16209179_JPRB,0.15912023_JPRB,0.14938223_JPRB,0.13198245_JPRB,& |
|---|
| 571 | &0.11077233_JPRB,0.09487948_JPRB,0.07831636_JPRB,0.05863440_JPRB,& |
|---|
| 572 | &0.04028239_JPRB,0.00436804_JPRB,0.00360407_JPRB,0.00279885_JPRB,& |
|---|
| 573 | &0.00200364_JPRB,0.00124861_JPRB,0.00045521_JPRB,0.00005996_JPRB/) |
|---|
| 574 | FRACREFAO( :,10) = (/& |
|---|
| 575 | &0.15962425_JPRB,0.15789343_JPRB,0.14898103_JPRB,0.13275230_JPRB,& |
|---|
| 576 | &0.11253940_JPRB,0.09503502_JPRB,0.07884382_JPRB,0.05908009_JPRB,& |
|---|
| 577 | &0.04053524_JPRB,0.00439971_JPRB,0.00364269_JPRB,0.00284965_JPRB,& |
|---|
| 578 | &0.00202758_JPRB,0.00127076_JPRB,0.00046408_JPRB,0.00006114_JPRB/) |
|---|
| 579 | FRACREFAO( :,11) = (/& |
|---|
| 580 | &0.15926200_JPRB,0.15770932_JPRB,0.14891729_JPRB,0.13283882_JPRB,& |
|---|
| 581 | &0.11276010_JPRB,0.09507311_JPRB,0.07892222_JPRB,0.05919230_JPRB,& |
|---|
| 582 | &0.04054824_JPRB,0.00440833_JPRB,0.00365575_JPRB,0.00286459_JPRB,& |
|---|
| 583 | &0.00203786_JPRB,0.00128405_JPRB,0.00046504_JPRB,0.00006146_JPRB/) |
|---|
| 584 | FRACREFAO( :,12) = (/& |
|---|
| 585 | &0.15926351_JPRB,0.15770483_JPRB,0.14891177_JPRB,0.13279966_JPRB,& |
|---|
| 586 | &0.11268171_JPRB,0.09515216_JPRB,0.07890341_JPRB,0.05924807_JPRB,& |
|---|
| 587 | &0.04052851_JPRB,0.00440870_JPRB,0.00365425_JPRB,0.00286878_JPRB,& |
|---|
| 588 | &0.00205747_JPRB,0.00128916_JPRB,0.00046589_JPRB,0.00006221_JPRB/) |
|---|
| 589 | FRACREFAO( :,13) = (/& |
|---|
| 590 | &0.15937765_JPRB,0.15775780_JPRB,0.14892603_JPRB,0.13273248_JPRB,& |
|---|
| 591 | &0.11252731_JPRB,0.09521657_JPRB,0.07885858_JPRB,0.05927679_JPRB,& |
|---|
| 592 | &0.04050184_JPRB,0.00440285_JPRB,0.00365748_JPRB,0.00286791_JPRB,& |
|---|
| 593 | &0.00207507_JPRB,0.00129193_JPRB,0.00046679_JPRB,0.00006308_JPRB/) |
|---|
| 594 | |
|---|
| 595 | ! ----------------------------------------------------------------- |
|---|
| 596 | RETURN |
|---|
| 597 | END SUBROUTINE RRTM_KGB2_01 |
|---|
