| 1 | !OCL SCALAR |
|---|
| 2 | SUBROUTINE RRTM_KGB1_01 |
|---|
| 3 | |
|---|
| 4 | ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research. |
|---|
| 5 | ! BAND 1: 10-250 cm-1 (low - H2O; high - H2O) |
|---|
| 6 | ! Reformatted for F90 by JJMorcrette, ECMWF |
|---|
| 7 | |
|---|
| 8 | ! ------------------------------------------------------------------ |
|---|
| 9 | |
|---|
| 10 | #include "tsmbkind.h" |
|---|
| 11 | |
|---|
| 12 | USE YOERRTO1 , ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,& |
|---|
| 13 | &FRACREFBO ,FORREFO |
|---|
| 14 | |
|---|
| 15 | ! ------------------------------------------------------------------ |
|---|
| 16 | |
|---|
| 17 | |
|---|
| 18 | IMPLICIT NONE |
|---|
| 19 | FRACREFAO( :) = (/& |
|---|
| 20 | &0.08452097_JPRB,0.17952873_JPRB,0.16214369_JPRB,0.13602182_JPRB,& |
|---|
| 21 | &0.12760490_JPRB,0.10302561_JPRB,0.08392423_JPRB,0.06337652_JPRB,& |
|---|
| 22 | &0.04206551_JPRB,0.00487497_JPRB,0.00410743_JPRB,0.00344421_JPRB,& |
|---|
| 23 | &0.00285731_JPRB,0.00157327_JPRB,0.00080648_JPRB,0.00012406_JPRB/) |
|---|
| 24 | |
|---|
| 25 | FRACREFBO( :) = (/& |
|---|
| 26 | &0.15492001_JPRB,0.17384727_JPRB,0.15165100_JPRB,0.12675308_JPRB,& |
|---|
| 27 | &0.10986247_JPRB,0.09006091_JPRB,0.07584465_JPRB,0.05990077_JPRB,& |
|---|
| 28 | &0.04113461_JPRB,0.00438638_JPRB,0.00374754_JPRB,0.00313924_JPRB,& |
|---|
| 29 | &0.00234381_JPRB,0.00167167_JPRB,0.00062744_JPRB,0.00010889_JPRB/) |
|---|
| 30 | |
|---|
| 31 | FORREFO( :) = (/& |
|---|
| 32 | &-4.50470E-02_JPRB,-1.18908E-01_JPRB,-7.21730E-02_JPRB,-2.83862E-02_JPRB,& |
|---|
| 33 | &-3.01961E-02_JPRB,-1.56877E-02_JPRB,-1.53684E-02_JPRB,-1.29135E-02_JPRB,& |
|---|
| 34 | &-1.27963E-02_JPRB,-1.81742E-03_JPRB, 4.40008E-05_JPRB, 1.05260E-02_JPRB,& |
|---|
| 35 | &2.17290E-02_JPRB, 1.65571E-02_JPRB, 7.60751E-02_JPRB, 1.47405E-01_JPRB/) |
|---|
| 36 | |
|---|
| 37 | ! ------------------------------------------------------------------ |
|---|
| 38 | |
|---|
| 39 | ! The array KAO contains absorption coefs at the 16 chosen g-values |
|---|
| 40 | ! for a range of pressure levels > ~100mb and temperatures. The first |
|---|
| 41 | ! index in the array, JT, which runs from 1 to 5, corresponds to |
|---|
| 42 | ! different temperatures. More specifically, JT = 3 means that the |
|---|
| 43 | ! data are for the corresponding TREF for this pressure level, |
|---|
| 44 | ! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, |
|---|
| 45 | ! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second |
|---|
| 46 | ! index, JP, runs from 1 to 13 and refers to the corresponding |
|---|
| 47 | ! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). |
|---|
| 48 | ! The third index, IG, goes from 1 to 16, and tells us which |
|---|
| 49 | ! g-interval the absorption coefficients are for. |
|---|
| 50 | |
|---|
| 51 | KAO( :, 1, 1) = (/& |
|---|
| 52 | &2.9728E-01_JPRB,2.7117E-01_JPRB,2.4824E-01_JPRB,2.2823E-01_JPRB,2.1073E-01_JPRB/) |
|---|
| 53 | KAO( :, 2, 1) = (/& |
|---|
| 54 | &2.5383E-01_JPRB,2.3094E-01_JPRB,2.1122E-01_JPRB,1.9387E-01_JPRB,1.7870E-01_JPRB/) |
|---|
| 55 | KAO( :, 3, 1) = (/& |
|---|
| 56 | &2.2079E-01_JPRB,2.0034E-01_JPRB,1.8264E-01_JPRB,1.6726E-01_JPRB,1.5378E-01_JPRB/) |
|---|
| 57 | KAO( :, 4, 1) = (/& |
|---|
| 58 | &1.9385E-01_JPRB,1.7531E-01_JPRB,1.5932E-01_JPRB,1.4544E-01_JPRB,1.3338E-01_JPRB/) |
|---|
| 59 | KAO( :, 5, 1) = (/& |
|---|
| 60 | &1.7059E-01_JPRB,1.5374E-01_JPRB,1.3930E-01_JPRB,1.2682E-01_JPRB,1.1600E-01_JPRB/) |
|---|
| 61 | KAO( :, 6, 1) = (/& |
|---|
| 62 | &1.5085E-01_JPRB,1.3549E-01_JPRB,1.2235E-01_JPRB,1.1112E-01_JPRB,1.0142E-01_JPRB/) |
|---|
| 63 | KAO( :, 7, 1) = (/& |
|---|
| 64 | &1.3366E-01_JPRB,1.1960E-01_JPRB,1.0771E-01_JPRB,9.7560E-02_JPRB,8.8804E-02_JPRB/) |
|---|
| 65 | KAO( :, 8, 1) = (/& |
|---|
| 66 | &1.1833E-01_JPRB,1.0551E-01_JPRB,9.4748E-02_JPRB,8.5642E-02_JPRB,7.7808E-02_JPRB/) |
|---|
| 67 | KAO( :, 9, 1) = (/& |
|---|
| 68 | &1.0407E-01_JPRB,9.2585E-02_JPRB,8.3046E-02_JPRB,7.5077E-02_JPRB,6.8338E-02_JPRB/) |
|---|
| 69 | KAO( :,10, 1) = (/& |
|---|
| 70 | &9.6249E-02_JPRB,8.6268E-02_JPRB,7.7918E-02_JPRB,7.0909E-02_JPRB,6.5026E-02_JPRB/) |
|---|
| 71 | KAO( :,11, 1) = (/& |
|---|
| 72 | &8.5798E-02_JPRB,7.7607E-02_JPRB,7.0781E-02_JPRB,6.5084E-02_JPRB,6.0324E-02_JPRB/) |
|---|
| 73 | KAO( :,12, 1) = (/& |
|---|
| 74 | &7.5259E-02_JPRB,6.8525E-02_JPRB,6.2945E-02_JPRB,5.8330E-02_JPRB,5.4507E-02_JPRB/) |
|---|
| 75 | KAO( :,13, 1) = (/& |
|---|
| 76 | &6.6022E-02_JPRB,6.0316E-02_JPRB,5.5584E-02_JPRB,5.1665E-02_JPRB,4.8461E-02_JPRB/) |
|---|
| 77 | KAO( :, 1, 2) = (/& |
|---|
| 78 | &1.0868E+00_JPRB,1.0180E+00_JPRB,9.5619E-01_JPRB,9.0008E-01_JPRB,8.4968E-01_JPRB/) |
|---|
| 79 | KAO( :, 2, 2) = (/& |
|---|
| 80 | &9.1280E-01_JPRB,8.5427E-01_JPRB,8.0215E-01_JPRB,7.5470E-01_JPRB,7.1212E-01_JPRB/) |
|---|
| 81 | KAO( :, 3, 2) = (/& |
|---|
| 82 | &7.7699E-01_JPRB,7.2607E-01_JPRB,6.8084E-01_JPRB,6.3997E-01_JPRB,6.0293E-01_JPRB/) |
|---|
| 83 | KAO( :, 4, 2) = (/& |
|---|
| 84 | &6.6708E-01_JPRB,6.2264E-01_JPRB,5.8280E-01_JPRB,5.4723E-01_JPRB,5.1498E-01_JPRB/) |
|---|
| 85 | KAO( :, 5, 2) = (/& |
|---|
| 86 | &5.7399E-01_JPRB,5.3509E-01_JPRB,5.0018E-01_JPRB,4.6892E-01_JPRB,4.4080E-01_JPRB/) |
|---|
| 87 | KAO( :, 6, 2) = (/& |
|---|
| 88 | &4.9530E-01_JPRB,4.6110E-01_JPRB,4.3040E-01_JPRB,4.0285E-01_JPRB,3.7815E-01_JPRB/) |
|---|
| 89 | KAO( :, 7, 2) = (/& |
|---|
| 90 | &4.2745E-01_JPRB,3.9732E-01_JPRB,3.7040E-01_JPRB,3.4614E-01_JPRB,3.2442E-01_JPRB/) |
|---|
| 91 | KAO( :, 8, 2) = (/& |
|---|
| 92 | &3.6869E-01_JPRB,3.4268E-01_JPRB,3.1900E-01_JPRB,2.9776E-01_JPRB,2.7880E-01_JPRB/) |
|---|
| 93 | KAO( :, 9, 2) = (/& |
|---|
| 94 | &3.1986E-01_JPRB,2.9734E-01_JPRB,2.7688E-01_JPRB,2.5843E-01_JPRB,2.4196E-01_JPRB/) |
|---|
| 95 | KAO( :,10, 2) = (/& |
|---|
| 96 | &2.8291E-01_JPRB,2.6327E-01_JPRB,2.4583E-01_JPRB,2.3014E-01_JPRB,2.1607E-01_JPRB/) |
|---|
| 97 | KAO( :,11, 2) = (/& |
|---|
| 98 | &2.4260E-01_JPRB,2.2644E-01_JPRB,2.1226E-01_JPRB,1.9956E-01_JPRB,1.8806E-01_JPRB/) |
|---|
| 99 | KAO( :,12, 2) = (/& |
|---|
| 100 | &2.0558E-01_JPRB,1.9256E-01_JPRB,1.8115E-01_JPRB,1.7097E-01_JPRB,1.6176E-01_JPRB/) |
|---|
| 101 | KAO( :,13, 2) = (/& |
|---|
| 102 | &1.7296E-01_JPRB,1.6235E-01_JPRB,1.5298E-01_JPRB,1.4476E-01_JPRB,1.3735E-01_JPRB/) |
|---|
| 103 | KAO( :, 1, 3) = (/& |
|---|
| 104 | &1.9978E+00_JPRB,1.9059E+00_JPRB,1.8189E+00_JPRB,1.7366E+00_JPRB,1.6586E+00_JPRB/) |
|---|
| 105 | KAO( :, 2, 3) = (/& |
|---|
| 106 | &1.6606E+00_JPRB,1.5839E+00_JPRB,1.5107E+00_JPRB,1.4431E+00_JPRB,1.3779E+00_JPRB/) |
|---|
| 107 | KAO( :, 3, 3) = (/& |
|---|
| 108 | &1.3892E+00_JPRB,1.3254E+00_JPRB,1.2641E+00_JPRB,1.2074E+00_JPRB,1.1536E+00_JPRB/) |
|---|
| 109 | KAO( :, 4, 3) = (/& |
|---|
| 110 | &1.1729E+00_JPRB,1.1192E+00_JPRB,1.0684E+00_JPRB,1.0206E+00_JPRB,9.7581E-01_JPRB/) |
|---|
| 111 | KAO( :, 5, 3) = (/& |
|---|
| 112 | &9.9394E-01_JPRB,9.4858E-01_JPRB,9.0600E-01_JPRB,8.6583E-01_JPRB,8.2779E-01_JPRB/) |
|---|
| 113 | KAO( :, 6, 3) = (/& |
|---|
| 114 | &8.4450E-01_JPRB,8.0530E-01_JPRB,7.6915E-01_JPRB,7.3568E-01_JPRB,7.0371E-01_JPRB/) |
|---|
| 115 | KAO( :, 7, 3) = (/& |
|---|
| 116 | &7.1829E-01_JPRB,6.8411E-01_JPRB,6.5331E-01_JPRB,6.2452E-01_JPRB,5.9760E-01_JPRB/) |
|---|
| 117 | KAO( :, 8, 3) = (/& |
|---|
| 118 | &6.1224E-01_JPRB,5.8194E-01_JPRB,5.5498E-01_JPRB,5.3049E-01_JPRB,5.0749E-01_JPRB/) |
|---|
| 119 | KAO( :, 9, 3) = (/& |
|---|
| 120 | &5.2649E-01_JPRB,4.9920E-01_JPRB,4.7516E-01_JPRB,4.5390E-01_JPRB,4.3400E-01_JPRB/) |
|---|
| 121 | KAO( :,10, 3) = (/& |
|---|
| 122 | &4.6036E-01_JPRB,4.3661E-01_JPRB,4.1510E-01_JPRB,3.9653E-01_JPRB,3.7973E-01_JPRB/) |
|---|
| 123 | KAO( :,11, 3) = (/& |
|---|
| 124 | &3.9552E-01_JPRB,3.7556E-01_JPRB,3.5783E-01_JPRB,3.4242E-01_JPRB,3.2854E-01_JPRB/) |
|---|
| 125 | KAO( :,12, 3) = (/& |
|---|
| 126 | &3.3619E-01_JPRB,3.1976E-01_JPRB,3.0528E-01_JPRB,2.9270E-01_JPRB,2.8130E-01_JPRB/) |
|---|
| 127 | KAO( :,13, 3) = (/& |
|---|
| 128 | &2.8224E-01_JPRB,2.6905E-01_JPRB,2.5767E-01_JPRB,2.4740E-01_JPRB,2.3812E-01_JPRB/) |
|---|
| 129 | KAO( :, 1, 4) = (/& |
|---|
| 130 | &3.1134E+00_JPRB,2.9768E+00_JPRB,2.8528E+00_JPRB,2.7371E+00_JPRB,2.6298E+00_JPRB/) |
|---|
| 131 | KAO( :, 2, 4) = (/& |
|---|
| 132 | &2.5980E+00_JPRB,2.4825E+00_JPRB,2.3758E+00_JPRB,2.2768E+00_JPRB,2.1885E+00_JPRB/) |
|---|
| 133 | KAO( :, 3, 4) = (/& |
|---|
| 134 | &2.1823E+00_JPRB,2.0815E+00_JPRB,1.9888E+00_JPRB,1.9036E+00_JPRB,1.8278E+00_JPRB/) |
|---|
| 135 | KAO( :, 4, 4) = (/& |
|---|
| 136 | &1.8482E+00_JPRB,1.7602E+00_JPRB,1.6798E+00_JPRB,1.6064E+00_JPRB,1.5402E+00_JPRB/) |
|---|
| 137 | KAO( :, 5, 4) = (/& |
|---|
| 138 | &1.5691E+00_JPRB,1.4937E+00_JPRB,1.4240E+00_JPRB,1.3603E+00_JPRB,1.3038E+00_JPRB/) |
|---|
| 139 | KAO( :, 6, 4) = (/& |
|---|
| 140 | &1.3353E+00_JPRB,1.2714E+00_JPRB,1.2114E+00_JPRB,1.1566E+00_JPRB,1.1076E+00_JPRB/) |
|---|
| 141 | KAO( :, 7, 4) = (/& |
|---|
| 142 | &1.1365E+00_JPRB,1.0823E+00_JPRB,1.0312E+00_JPRB,9.8386E-01_JPRB,9.4149E-01_JPRB/) |
|---|
| 143 | KAO( :, 8, 4) = (/& |
|---|
| 144 | &9.6785E-01_JPRB,9.2216E-01_JPRB,8.7848E-01_JPRB,8.3819E-01_JPRB,8.0171E-01_JPRB/) |
|---|
| 145 | KAO( :, 9, 4) = (/& |
|---|
| 146 | &8.2906E-01_JPRB,7.9098E-01_JPRB,7.5375E-01_JPRB,7.1927E-01_JPRB,6.8769E-01_JPRB/) |
|---|
| 147 | KAO( :,10, 4) = (/& |
|---|
| 148 | &7.2091E-01_JPRB,6.8867E-01_JPRB,6.5764E-01_JPRB,6.2852E-01_JPRB,6.0157E-01_JPRB/) |
|---|
| 149 | KAO( :,11, 4) = (/& |
|---|
| 150 | &6.1639E-01_JPRB,5.8956E-01_JPRB,5.6471E-01_JPRB,5.4117E-01_JPRB,5.1965E-01_JPRB/) |
|---|
| 151 | KAO( :,12, 4) = (/& |
|---|
| 152 | &5.2694E-01_JPRB,5.0446E-01_JPRB,4.8409E-01_JPRB,4.6534E-01_JPRB,4.4808E-01_JPRB/) |
|---|
| 153 | KAO( :,13, 4) = (/& |
|---|
| 154 | &4.4495E-01_JPRB,4.2623E-01_JPRB,4.0962E-01_JPRB,3.9458E-01_JPRB,3.8091E-01_JPRB/) |
|---|
| 155 | KAO( :, 1, 5) = (/& |
|---|
| 156 | &5.1530E+00_JPRB,4.9766E+00_JPRB,4.8081E+00_JPRB,4.6516E+00_JPRB,4.5093E+00_JPRB/) |
|---|
| 157 | KAO( :, 2, 5) = (/& |
|---|
| 158 | &4.3491E+00_JPRB,4.2045E+00_JPRB,4.0708E+00_JPRB,3.9418E+00_JPRB,3.8163E+00_JPRB/) |
|---|
| 159 | KAO( :, 3, 5) = (/& |
|---|
| 160 | &3.6708E+00_JPRB,3.5507E+00_JPRB,3.4414E+00_JPRB,3.3312E+00_JPRB,3.2173E+00_JPRB/) |
|---|
| 161 | KAO( :, 4, 5) = (/& |
|---|
| 162 | &3.1175E+00_JPRB,3.0159E+00_JPRB,2.9223E+00_JPRB,2.8267E+00_JPRB,2.7279E+00_JPRB/) |
|---|
| 163 | KAO( :, 5, 5) = (/& |
|---|
| 164 | &2.6518E+00_JPRB,2.5625E+00_JPRB,2.4801E+00_JPRB,2.3975E+00_JPRB,2.3146E+00_JPRB/) |
|---|
| 165 | KAO( :, 6, 5) = (/& |
|---|
| 166 | &2.2564E+00_JPRB,2.1773E+00_JPRB,2.1039E+00_JPRB,2.0333E+00_JPRB,1.9631E+00_JPRB/) |
|---|
| 167 | KAO( :, 7, 5) = (/& |
|---|
| 168 | &1.9182E+00_JPRB,1.8476E+00_JPRB,1.7832E+00_JPRB,1.7230E+00_JPRB,1.6643E+00_JPRB/) |
|---|
| 169 | KAO( :, 8, 5) = (/& |
|---|
| 170 | &1.6337E+00_JPRB,1.5705E+00_JPRB,1.5139E+00_JPRB,1.4617E+00_JPRB,1.4128E+00_JPRB/) |
|---|
| 171 | KAO( :, 9, 5) = (/& |
|---|
| 172 | &1.4083E+00_JPRB,1.3508E+00_JPRB,1.3006E+00_JPRB,1.2545E+00_JPRB,1.2118E+00_JPRB/) |
|---|
| 173 | KAO( :,10, 5) = (/& |
|---|
| 174 | &1.2328E+00_JPRB,1.1811E+00_JPRB,1.1365E+00_JPRB,1.0948E+00_JPRB,1.0570E+00_JPRB/) |
|---|
| 175 | KAO( :,11, 5) = (/& |
|---|
| 176 | &1.0545E+00_JPRB,1.0121E+00_JPRB,9.7473E-01_JPRB,9.3945E-01_JPRB,9.0734E-01_JPRB/) |
|---|
| 177 | KAO( :,12, 5) = (/& |
|---|
| 178 | &9.0496E-01_JPRB,8.7115E-01_JPRB,8.4024E-01_JPRB,8.1130E-01_JPRB,7.8449E-01_JPRB/) |
|---|
| 179 | KAO( :,13, 5) = (/& |
|---|
| 180 | &7.7164E-01_JPRB,7.4436E-01_JPRB,7.1910E-01_JPRB,6.9522E-01_JPRB,6.7297E-01_JPRB/) |
|---|
| 181 | KAO( :, 1, 6) = (/& |
|---|
| 182 | &9.6973E+00_JPRB,9.3787E+00_JPRB,9.0588E+00_JPRB,8.7497E+00_JPRB,8.4590E+00_JPRB/) |
|---|
| 183 | KAO( :, 2, 6) = (/& |
|---|
| 184 | &8.3422E+00_JPRB,8.0414E+00_JPRB,7.7516E+00_JPRB,7.4834E+00_JPRB,7.2408E+00_JPRB/) |
|---|
| 185 | KAO( :, 3, 6) = (/& |
|---|
| 186 | &7.1314E+00_JPRB,6.8664E+00_JPRB,6.6149E+00_JPRB,6.3897E+00_JPRB,6.1962E+00_JPRB/) |
|---|
| 187 | KAO( :, 4, 6) = (/& |
|---|
| 188 | &6.1234E+00_JPRB,5.8927E+00_JPRB,5.6767E+00_JPRB,5.4877E+00_JPRB,5.3211E+00_JPRB/) |
|---|
| 189 | KAO( :, 5, 6) = (/& |
|---|
| 190 | &5.2539E+00_JPRB,5.0548E+00_JPRB,4.8732E+00_JPRB,4.7110E+00_JPRB,4.5668E+00_JPRB/) |
|---|
| 191 | KAO( :, 6, 6) = (/& |
|---|
| 192 | &4.5026E+00_JPRB,4.3343E+00_JPRB,4.1792E+00_JPRB,4.0419E+00_JPRB,3.9124E+00_JPRB/) |
|---|
| 193 | KAO( :, 7, 6) = (/& |
|---|
| 194 | &3.8524E+00_JPRB,3.7093E+00_JPRB,3.5777E+00_JPRB,3.4570E+00_JPRB,3.3411E+00_JPRB/) |
|---|
| 195 | KAO( :, 8, 6) = (/& |
|---|
| 196 | &3.2864E+00_JPRB,3.1665E+00_JPRB,3.0553E+00_JPRB,2.9496E+00_JPRB,2.8463E+00_JPRB/) |
|---|
| 197 | KAO( :, 9, 6) = (/& |
|---|
| 198 | &2.8265E+00_JPRB,2.7253E+00_JPRB,2.6293E+00_JPRB,2.5362E+00_JPRB,2.4454E+00_JPRB/) |
|---|
| 199 | KAO( :,10, 6) = (/& |
|---|
| 200 | &2.4703E+00_JPRB,2.3851E+00_JPRB,2.3012E+00_JPRB,2.2197E+00_JPRB,2.1390E+00_JPRB/) |
|---|
| 201 | KAO( :,11, 6) = (/& |
|---|
| 202 | &2.1039E+00_JPRB,2.0324E+00_JPRB,1.9625E+00_JPRB,1.8926E+00_JPRB,1.8236E+00_JPRB/) |
|---|
| 203 | KAO( :,12, 6) = (/& |
|---|
| 204 | &1.7889E+00_JPRB,1.7295E+00_JPRB,1.6689E+00_JPRB,1.6099E+00_JPRB,1.5530E+00_JPRB/) |
|---|
| 205 | KAO( :,13, 6) = (/& |
|---|
| 206 | &1.5191E+00_JPRB,1.4695E+00_JPRB,1.4192E+00_JPRB,1.3697E+00_JPRB,1.3233E+00_JPRB/) |
|---|
| 207 | KAO( :, 1, 7) = (/& |
|---|
| 208 | &1.9309E+01_JPRB,1.8684E+01_JPRB,1.8099E+01_JPRB,1.7538E+01_JPRB,1.7003E+01_JPRB/) |
|---|
| 209 | KAO( :, 2, 7) = (/& |
|---|
| 210 | &1.7226E+01_JPRB,1.6672E+01_JPRB,1.6118E+01_JPRB,1.5594E+01_JPRB,1.5067E+01_JPRB/) |
|---|
| 211 | KAO( :, 3, 7) = (/& |
|---|
| 212 | &1.5276E+01_JPRB,1.4769E+01_JPRB,1.4264E+01_JPRB,1.3763E+01_JPRB,1.3263E+01_JPRB/) |
|---|
| 213 | KAO( :, 4, 7) = (/& |
|---|
| 214 | &1.3460E+01_JPRB,1.3002E+01_JPRB,1.2544E+01_JPRB,1.2084E+01_JPRB,1.1633E+01_JPRB/) |
|---|
| 215 | KAO( :, 5, 7) = (/& |
|---|
| 216 | &1.1768E+01_JPRB,1.1365E+01_JPRB,1.0948E+01_JPRB,1.0535E+01_JPRB,1.0140E+01_JPRB/) |
|---|
| 217 | KAO( :, 6, 7) = (/& |
|---|
| 218 | &1.0233E+01_JPRB,9.8691E+00_JPRB,9.5008E+00_JPRB,9.1399E+00_JPRB,8.8037E+00_JPRB/) |
|---|
| 219 | KAO( :, 7, 7) = (/& |
|---|
| 220 | &8.8418E+00_JPRB,8.5251E+00_JPRB,8.2044E+00_JPRB,7.8974E+00_JPRB,7.6097E+00_JPRB/) |
|---|
| 221 | KAO( :, 8, 7) = (/& |
|---|
| 222 | &7.5932E+00_JPRB,7.3228E+00_JPRB,7.0494E+00_JPRB,6.7890E+00_JPRB,6.5466E+00_JPRB/) |
|---|
| 223 | KAO( :, 9, 7) = (/& |
|---|
| 224 | &6.5438E+00_JPRB,6.3102E+00_JPRB,6.0785E+00_JPRB,5.8572E+00_JPRB,5.6536E+00_JPRB/) |
|---|
| 225 | KAO( :,10, 7) = (/& |
|---|
| 226 | &5.7701E+00_JPRB,5.5632E+00_JPRB,5.3602E+00_JPRB,5.1657E+00_JPRB,4.9886E+00_JPRB/) |
|---|
| 227 | KAO( :,11, 7) = (/& |
|---|
| 228 | &4.9229E+00_JPRB,4.7468E+00_JPRB,4.5754E+00_JPRB,4.4156E+00_JPRB,4.2640E+00_JPRB/) |
|---|
| 229 | KAO( :,12, 7) = (/& |
|---|
| 230 | &4.1712E+00_JPRB,4.0245E+00_JPRB,3.8835E+00_JPRB,3.7490E+00_JPRB,3.6186E+00_JPRB/) |
|---|
| 231 | KAO( :,13, 7) = (/& |
|---|
| 232 | &3.5142E+00_JPRB,3.3938E+00_JPRB,3.2767E+00_JPRB,3.1632E+00_JPRB,3.0535E+00_JPRB/) |
|---|
| 233 | KAO( :, 1, 8) = (/& |
|---|
| 234 | &4.3792E+01_JPRB,4.2562E+01_JPRB,4.1326E+01_JPRB,4.0173E+01_JPRB,3.9029E+01_JPRB/) |
|---|
| 235 | KAO( :, 2, 8) = (/& |
|---|
| 236 | &4.1083E+01_JPRB,3.9961E+01_JPRB,3.8875E+01_JPRB,3.7761E+01_JPRB,3.6732E+01_JPRB/) |
|---|
| 237 | KAO( :, 3, 8) = (/& |
|---|
| 238 | &3.8232E+01_JPRB,3.7158E+01_JPRB,3.6113E+01_JPRB,3.5094E+01_JPRB,3.4130E+01_JPRB/) |
|---|
| 239 | KAO( :, 4, 8) = (/& |
|---|
| 240 | &3.5298E+01_JPRB,3.4286E+01_JPRB,3.3318E+01_JPRB,3.2377E+01_JPRB,3.1455E+01_JPRB/) |
|---|
| 241 | KAO( :, 5, 8) = (/& |
|---|
| 242 | &3.2307E+01_JPRB,3.1366E+01_JPRB,3.0496E+01_JPRB,2.9612E+01_JPRB,2.8733E+01_JPRB/) |
|---|
| 243 | KAO( :, 6, 8) = (/& |
|---|
| 244 | &2.9245E+01_JPRB,2.8430E+01_JPRB,2.7640E+01_JPRB,2.6836E+01_JPRB,2.6022E+01_JPRB/) |
|---|
| 245 | KAO( :, 7, 8) = (/& |
|---|
| 246 | &2.6088E+01_JPRB,2.5397E+01_JPRB,2.4695E+01_JPRB,2.3991E+01_JPRB,2.3257E+01_JPRB/) |
|---|
| 247 | KAO( :, 8, 8) = (/& |
|---|
| 248 | &2.2981E+01_JPRB,2.2412E+01_JPRB,2.1823E+01_JPRB,2.1203E+01_JPRB,2.0533E+01_JPRB/) |
|---|
| 249 | KAO( :, 9, 8) = (/& |
|---|
| 250 | &2.0055E+01_JPRB,1.9585E+01_JPRB,1.9088E+01_JPRB,1.8539E+01_JPRB,1.7936E+01_JPRB/) |
|---|
| 251 | KAO( :,10, 8) = (/& |
|---|
| 252 | &1.7813E+01_JPRB,1.7392E+01_JPRB,1.6941E+01_JPRB,1.6433E+01_JPRB,1.5881E+01_JPRB/) |
|---|
| 253 | KAO( :,11, 8) = (/& |
|---|
| 254 | &1.5517E+01_JPRB,1.5141E+01_JPRB,1.4721E+01_JPRB,1.4250E+01_JPRB,1.3762E+01_JPRB/) |
|---|
| 255 | KAO( :,12, 8) = (/& |
|---|
| 256 | &1.3307E+01_JPRB,1.2968E+01_JPRB,1.2587E+01_JPRB,1.2173E+01_JPRB,1.1765E+01_JPRB/) |
|---|
| 257 | KAO( :,13, 8) = (/& |
|---|
| 258 | &1.1246E+01_JPRB,1.0950E+01_JPRB,1.0619E+01_JPRB,1.0276E+01_JPRB,9.9339E+00_JPRB/) |
|---|
| 259 | KAO( :, 1, 9) = (/& |
|---|
| 260 | &1.1805E+02_JPRB,1.1497E+02_JPRB,1.1183E+02_JPRB,1.0901E+02_JPRB,1.0608E+02_JPRB/) |
|---|
| 261 | KAO( :, 2, 9) = (/& |
|---|
| 262 | &1.2044E+02_JPRB,1.1710E+02_JPRB,1.1402E+02_JPRB,1.1089E+02_JPRB,1.0784E+02_JPRB/) |
|---|
| 263 | KAO( :, 3, 9) = (/& |
|---|
| 264 | &1.2224E+02_JPRB,1.1882E+02_JPRB,1.1548E+02_JPRB,1.1225E+02_JPRB,1.0912E+02_JPRB/) |
|---|
| 265 | KAO( :, 4, 9) = (/& |
|---|
| 266 | &1.2253E+02_JPRB,1.1914E+02_JPRB,1.1570E+02_JPRB,1.1248E+02_JPRB,1.0936E+02_JPRB/) |
|---|
| 267 | KAO( :, 5, 9) = (/& |
|---|
| 268 | &1.2110E+02_JPRB,1.1772E+02_JPRB,1.1430E+02_JPRB,1.1120E+02_JPRB,1.0822E+02_JPRB/) |
|---|
| 269 | KAO( :, 6, 9) = (/& |
|---|
| 270 | &1.1824E+02_JPRB,1.1487E+02_JPRB,1.1155E+02_JPRB,1.0851E+02_JPRB,1.0564E+02_JPRB/) |
|---|
| 271 | KAO( :, 7, 9) = (/& |
|---|
| 272 | &1.1353E+02_JPRB,1.1029E+02_JPRB,1.0721E+02_JPRB,1.0431E+02_JPRB,1.0150E+02_JPRB/) |
|---|
| 273 | KAO( :, 8, 9) = (/& |
|---|
| 274 | &1.0728E+02_JPRB,1.0430E+02_JPRB,1.0145E+02_JPRB,9.8717E+01_JPRB,9.6110E+01_JPRB/) |
|---|
| 275 | KAO( :, 9, 9) = (/& |
|---|
| 276 | &9.9961E+01_JPRB,9.7260E+01_JPRB,9.4661E+01_JPRB,9.2129E+01_JPRB,8.9711E+01_JPRB/) |
|---|
| 277 | KAO( :,10, 9) = (/& |
|---|
| 278 | &9.2244E+01_JPRB,8.9827E+01_JPRB,8.7426E+01_JPRB,8.5062E+01_JPRB,8.2760E+01_JPRB/) |
|---|
| 279 | KAO( :,11, 9) = (/& |
|---|
| 280 | &8.3999E+01_JPRB,8.1726E+01_JPRB,7.9419E+01_JPRB,7.7163E+01_JPRB,7.4981E+01_JPRB/) |
|---|
| 281 | KAO( :,12, 9) = (/& |
|---|
| 282 | &7.5642E+01_JPRB,7.3608E+01_JPRB,7.1481E+01_JPRB,6.9416E+01_JPRB,6.7422E+01_JPRB/) |
|---|
| 283 | KAO( :,13, 9) = (/& |
|---|
| 284 | &6.6934E+01_JPRB,6.5046E+01_JPRB,6.3162E+01_JPRB,6.1319E+01_JPRB,5.9545E+01_JPRB/) |
|---|
| 285 | KAO( :, 1,10) = (/& |
|---|
| 286 | &2.5219E+02_JPRB,2.4571E+02_JPRB,2.3918E+02_JPRB,2.3279E+02_JPRB,2.2858E+02_JPRB/) |
|---|
| 287 | KAO( :, 2,10) = (/& |
|---|
| 288 | &2.6944E+02_JPRB,2.6208E+02_JPRB,2.5593E+02_JPRB,2.5059E+02_JPRB,2.4739E+02_JPRB/) |
|---|
| 289 | KAO( :, 3,10) = (/& |
|---|
| 290 | &2.8444E+02_JPRB,2.7711E+02_JPRB,2.7148E+02_JPRB,2.6629E+02_JPRB,2.6255E+02_JPRB/) |
|---|
| 291 | KAO( :, 4,10) = (/& |
|---|
| 292 | &3.0272E+02_JPRB,2.9452E+02_JPRB,2.8714E+02_JPRB,2.7941E+02_JPRB,2.7276E+02_JPRB/) |
|---|
| 293 | KAO( :, 5,10) = (/& |
|---|
| 294 | &3.1679E+02_JPRB,3.0877E+02_JPRB,3.0015E+02_JPRB,2.9068E+02_JPRB,2.8102E+02_JPRB/) |
|---|
| 295 | KAO( :, 6,10) = (/& |
|---|
| 296 | &3.2322E+02_JPRB,3.1468E+02_JPRB,3.0521E+02_JPRB,2.9571E+02_JPRB,2.8597E+02_JPRB/) |
|---|
| 297 | KAO( :, 7,10) = (/& |
|---|
| 298 | &3.2856E+02_JPRB,3.1908E+02_JPRB,3.0869E+02_JPRB,2.9873E+02_JPRB,2.8901E+02_JPRB/) |
|---|
| 299 | KAO( :, 8,10) = (/& |
|---|
| 300 | &3.2929E+02_JPRB,3.1918E+02_JPRB,3.0900E+02_JPRB,2.9900E+02_JPRB,2.8972E+02_JPRB/) |
|---|
| 301 | KAO( :, 9,10) = (/& |
|---|
| 302 | &3.2403E+02_JPRB,3.1482E+02_JPRB,3.0502E+02_JPRB,2.9579E+02_JPRB,2.8721E+02_JPRB/) |
|---|
| 303 | KAO( :,10,10) = (/& |
|---|
| 304 | &3.1039E+02_JPRB,3.0245E+02_JPRB,2.9340E+02_JPRB,2.8545E+02_JPRB,2.7823E+02_JPRB/) |
|---|
| 305 | KAO( :,11,10) = (/& |
|---|
| 306 | &2.8971E+02_JPRB,2.8193E+02_JPRB,2.7523E+02_JPRB,2.6877E+02_JPRB,2.6210E+02_JPRB/) |
|---|
| 307 | KAO( :,12,10) = (/& |
|---|
| 308 | &2.7119E+02_JPRB,2.6399E+02_JPRB,2.5760E+02_JPRB,2.5064E+02_JPRB,2.4326E+02_JPRB/) |
|---|
| 309 | KAO( :,13,10) = (/& |
|---|
| 310 | &2.5228E+02_JPRB,2.4612E+02_JPRB,2.3937E+02_JPRB,2.3200E+02_JPRB,2.2456E+02_JPRB/) |
|---|
| 311 | KAO( :, 1,11) = (/& |
|---|
| 312 | &3.2436E+02_JPRB,3.1705E+02_JPRB,3.0936E+02_JPRB,3.0225E+02_JPRB,2.9528E+02_JPRB/) |
|---|
| 313 | KAO( :, 2,11) = (/& |
|---|
| 314 | &3.6387E+02_JPRB,3.5499E+02_JPRB,3.4471E+02_JPRB,3.3477E+02_JPRB,3.2544E+02_JPRB/) |
|---|
| 315 | KAO( :, 3,11) = (/& |
|---|
| 316 | &3.9089E+02_JPRB,3.8297E+02_JPRB,3.7268E+02_JPRB,3.6169E+02_JPRB,3.5104E+02_JPRB/) |
|---|
| 317 | KAO( :, 4,11) = (/& |
|---|
| 318 | &4.0614E+02_JPRB,3.9591E+02_JPRB,3.8584E+02_JPRB,3.7702E+02_JPRB,3.6787E+02_JPRB/) |
|---|
| 319 | KAO( :, 5,11) = (/& |
|---|
| 320 | &4.2111E+02_JPRB,4.0953E+02_JPRB,3.9791E+02_JPRB,3.8868E+02_JPRB,3.8088E+02_JPRB/) |
|---|
| 321 | KAO( :, 6,11) = (/& |
|---|
| 322 | &4.4478E+02_JPRB,4.3170E+02_JPRB,4.1878E+02_JPRB,4.0704E+02_JPRB,3.9607E+02_JPRB/) |
|---|
| 323 | KAO( :, 7,11) = (/& |
|---|
| 324 | &4.6528E+02_JPRB,4.5296E+02_JPRB,4.4095E+02_JPRB,4.2830E+02_JPRB,4.1414E+02_JPRB/) |
|---|
| 325 | KAO( :, 8,11) = (/& |
|---|
| 326 | &4.8103E+02_JPRB,4.6875E+02_JPRB,4.5586E+02_JPRB,4.4138E+02_JPRB,4.2642E+02_JPRB/) |
|---|
| 327 | KAO( :, 9,11) = (/& |
|---|
| 328 | &4.9211E+02_JPRB,4.7875E+02_JPRB,4.6419E+02_JPRB,4.4833E+02_JPRB,4.3292E+02_JPRB/) |
|---|
| 329 | KAO( :,10,11) = (/& |
|---|
| 330 | &4.9428E+02_JPRB,4.7899E+02_JPRB,4.6351E+02_JPRB,4.4779E+02_JPRB,4.3245E+02_JPRB/) |
|---|
| 331 | KAO( :,11,11) = (/& |
|---|
| 332 | &4.7778E+02_JPRB,4.6338E+02_JPRB,4.4778E+02_JPRB,4.3344E+02_JPRB,4.2003E+02_JPRB/) |
|---|
| 333 | KAO( :,12,11) = (/& |
|---|
| 334 | &4.5095E+02_JPRB,4.3803E+02_JPRB,4.2442E+02_JPRB,4.1242E+02_JPRB,4.0150E+02_JPRB/) |
|---|
| 335 | KAO( :,13,11) = (/& |
|---|
| 336 | &4.2162E+02_JPRB,4.0890E+02_JPRB,3.9818E+02_JPRB,3.8811E+02_JPRB,3.7807E+02_JPRB/) |
|---|
| 337 | KAO( :, 1,12) = (/& |
|---|
| 338 | &4.0765E+02_JPRB,4.0438E+02_JPRB,4.0112E+02_JPRB,3.9703E+02_JPRB,3.9278E+02_JPRB/) |
|---|
| 339 | KAO( :, 2,12) = (/& |
|---|
| 340 | &4.5408E+02_JPRB,4.4591E+02_JPRB,4.3895E+02_JPRB,4.3184E+02_JPRB,4.2260E+02_JPRB/) |
|---|
| 341 | KAO( :, 3,12) = (/& |
|---|
| 342 | &5.0754E+02_JPRB,4.9609E+02_JPRB,4.8458E+02_JPRB,4.7355E+02_JPRB,4.6248E+02_JPRB/) |
|---|
| 343 | KAO( :, 4,12) = (/& |
|---|
| 344 | &5.5729E+02_JPRB,5.4777E+02_JPRB,5.3611E+02_JPRB,5.2186E+02_JPRB,5.0830E+02_JPRB/) |
|---|
| 345 | KAO( :, 5,12) = (/& |
|---|
| 346 | &5.9884E+02_JPRB,5.9059E+02_JPRB,5.8025E+02_JPRB,5.6682E+02_JPRB,5.5220E+02_JPRB/) |
|---|
| 347 | KAO( :, 6,12) = (/& |
|---|
| 348 | &6.3069E+02_JPRB,6.2342E+02_JPRB,6.1247E+02_JPRB,5.9971E+02_JPRB,5.8566E+02_JPRB/) |
|---|
| 349 | KAO( :, 7,12) = (/& |
|---|
| 350 | &6.6576E+02_JPRB,6.5415E+02_JPRB,6.3907E+02_JPRB,6.2535E+02_JPRB,6.1174E+02_JPRB/) |
|---|
| 351 | KAO( :, 8,12) = (/& |
|---|
| 352 | &7.0612E+02_JPRB,6.9050E+02_JPRB,6.7253E+02_JPRB,6.5500E+02_JPRB,6.3767E+02_JPRB/) |
|---|
| 353 | KAO( :, 9,12) = (/& |
|---|
| 354 | &7.4151E+02_JPRB,7.2711E+02_JPRB,7.0818E+02_JPRB,6.8887E+02_JPRB,6.6982E+02_JPRB/) |
|---|
| 355 | KAO( :,10,12) = (/& |
|---|
| 356 | &7.6876E+02_JPRB,7.5445E+02_JPRB,7.3627E+02_JPRB,7.1768E+02_JPRB,6.9714E+02_JPRB/) |
|---|
| 357 | KAO( :,11,12) = (/& |
|---|
| 358 | &7.8345E+02_JPRB,7.6652E+02_JPRB,7.4553E+02_JPRB,7.2384E+02_JPRB,7.0114E+02_JPRB/) |
|---|
| 359 | KAO( :,12,12) = (/& |
|---|
| 360 | &7.8623E+02_JPRB,7.6501E+02_JPRB,7.4277E+02_JPRB,7.1917E+02_JPRB,6.9536E+02_JPRB/) |
|---|
| 361 | KAO( :,13,12) = (/& |
|---|
| 362 | &7.6967E+02_JPRB,7.4813E+02_JPRB,7.2429E+02_JPRB,7.0066E+02_JPRB,6.7901E+02_JPRB/) |
|---|
| 363 | KAO( :, 1,13) = (/& |
|---|
| 364 | &5.1329E+02_JPRB,5.0716E+02_JPRB,5.0382E+02_JPRB,4.9878E+02_JPRB,4.9356E+02_JPRB/) |
|---|
| 365 | KAO( :, 2,13) = (/& |
|---|
| 366 | &5.7148E+02_JPRB,5.6846E+02_JPRB,5.6431E+02_JPRB,5.6063E+02_JPRB,5.5653E+02_JPRB/) |
|---|
| 367 | KAO( :, 3,13) = (/& |
|---|
| 368 | &6.5145E+02_JPRB,6.4483E+02_JPRB,6.3790E+02_JPRB,6.3094E+02_JPRB,6.2717E+02_JPRB/) |
|---|
| 369 | KAO( :, 4,13) = (/& |
|---|
| 370 | &7.5002E+02_JPRB,7.3461E+02_JPRB,7.2296E+02_JPRB,7.1138E+02_JPRB,7.0213E+02_JPRB/) |
|---|
| 371 | KAO( :, 5,13) = (/& |
|---|
| 372 | &8.5963E+02_JPRB,8.3647E+02_JPRB,8.1752E+02_JPRB,7.9952E+02_JPRB,7.8427E+02_JPRB/) |
|---|
| 373 | KAO( :, 6,13) = (/& |
|---|
| 374 | &9.6412E+02_JPRB,9.4095E+02_JPRB,9.1679E+02_JPRB,8.9731E+02_JPRB,8.7656E+02_JPRB/) |
|---|
| 375 | KAO( :, 7,13) = (/& |
|---|
| 376 | &1.0550E+03_JPRB,1.0327E+03_JPRB,1.0118E+03_JPRB,9.9247E+02_JPRB,9.6895E+02_JPRB/) |
|---|
| 377 | KAO( :, 8,13) = (/& |
|---|
| 378 | &1.1351E+03_JPRB,1.1102E+03_JPRB,1.0930E+03_JPRB,1.0757E+03_JPRB,1.0518E+03_JPRB/) |
|---|
| 379 | KAO( :, 9,13) = (/& |
|---|
| 380 | &1.2061E+03_JPRB,1.1763E+03_JPRB,1.1581E+03_JPRB,1.1387E+03_JPRB,1.1187E+03_JPRB/) |
|---|
| 381 | KAO( :,10,13) = (/& |
|---|
| 382 | &1.2746E+03_JPRB,1.2431E+03_JPRB,1.2211E+03_JPRB,1.1969E+03_JPRB,1.1743E+03_JPRB/) |
|---|
| 383 | KAO( :,11,13) = (/& |
|---|
| 384 | &1.3270E+03_JPRB,1.3002E+03_JPRB,1.2748E+03_JPRB,1.2457E+03_JPRB,1.2158E+03_JPRB/) |
|---|
| 385 | KAO( :,12,13) = (/& |
|---|
| 386 | &1.3778E+03_JPRB,1.3525E+03_JPRB,1.3230E+03_JPRB,1.2880E+03_JPRB,1.2527E+03_JPRB/) |
|---|
| 387 | KAO( :,13,13) = (/& |
|---|
| 388 | &1.4203E+03_JPRB,1.3956E+03_JPRB,1.3627E+03_JPRB,1.3265E+03_JPRB,1.2880E+03_JPRB/) |
|---|
| 389 | KAO( :, 1,14) = (/& |
|---|
| 390 | &7.0659E+02_JPRB,6.8649E+02_JPRB,6.7585E+02_JPRB,6.6280E+02_JPRB,6.4777E+02_JPRB/) |
|---|
| 391 | KAO( :, 2,14) = (/& |
|---|
| 392 | &8.1314E+02_JPRB,7.9545E+02_JPRB,7.8563E+02_JPRB,7.7042E+02_JPRB,7.6159E+02_JPRB/) |
|---|
| 393 | KAO( :, 3,14) = (/& |
|---|
| 394 | &9.2212E+02_JPRB,9.1802E+02_JPRB,9.0672E+02_JPRB,8.9703E+02_JPRB,8.8878E+02_JPRB/) |
|---|
| 395 | KAO( :, 4,14) = (/& |
|---|
| 396 | &1.0533E+03_JPRB,1.0471E+03_JPRB,1.0407E+03_JPRB,1.0252E+03_JPRB,1.0216E+03_JPRB/) |
|---|
| 397 | KAO( :, 5,14) = (/& |
|---|
| 398 | &1.1902E+03_JPRB,1.1874E+03_JPRB,1.1827E+03_JPRB,1.1705E+03_JPRB,1.1629E+03_JPRB/) |
|---|
| 399 | KAO( :, 6,14) = (/& |
|---|
| 400 | &1.3538E+03_JPRB,1.3468E+03_JPRB,1.3305E+03_JPRB,1.3230E+03_JPRB,1.3152E+03_JPRB/) |
|---|
| 401 | KAO( :, 7,14) = (/& |
|---|
| 402 | &1.5575E+03_JPRB,1.5374E+03_JPRB,1.5135E+03_JPRB,1.4950E+03_JPRB,1.4827E+03_JPRB/) |
|---|
| 403 | KAO( :, 8,14) = (/& |
|---|
| 404 | &1.7978E+03_JPRB,1.7650E+03_JPRB,1.7335E+03_JPRB,1.7038E+03_JPRB,1.6772E+03_JPRB/) |
|---|
| 405 | KAO( :, 9,14) = (/& |
|---|
| 406 | &2.0608E+03_JPRB,2.0242E+03_JPRB,1.9804E+03_JPRB,1.9383E+03_JPRB,1.9020E+03_JPRB/) |
|---|
| 407 | KAO( :,10,14) = (/& |
|---|
| 408 | &2.3189E+03_JPRB,2.2831E+03_JPRB,2.2391E+03_JPRB,2.1847E+03_JPRB,2.1380E+03_JPRB/) |
|---|
| 409 | KAO( :,11,14) = (/& |
|---|
| 410 | &2.5479E+03_JPRB,2.4992E+03_JPRB,2.4561E+03_JPRB,2.4037E+03_JPRB,2.3531E+03_JPRB/) |
|---|
| 411 | KAO( :,12,14) = (/& |
|---|
| 412 | &2.7503E+03_JPRB,2.6955E+03_JPRB,2.6487E+03_JPRB,2.6000E+03_JPRB,2.5509E+03_JPRB/) |
|---|
| 413 | KAO( :,13,14) = (/& |
|---|
| 414 | &2.9348E+03_JPRB,2.8771E+03_JPRB,2.8224E+03_JPRB,2.7731E+03_JPRB,2.7137E+03_JPRB/) |
|---|
| 415 | KAO( :, 1,15) = (/& |
|---|
| 416 | &1.0087E+03_JPRB,9.8320E+02_JPRB,9.7093E+02_JPRB,9.5615E+02_JPRB,9.3254E+02_JPRB/) |
|---|
| 417 | KAO( :, 2,15) = (/& |
|---|
| 418 | &1.2013E+03_JPRB,1.1684E+03_JPRB,1.1519E+03_JPRB,1.1213E+03_JPRB,1.1065E+03_JPRB/) |
|---|
| 419 | KAO( :, 3,15) = (/& |
|---|
| 420 | &1.4276E+03_JPRB,1.4001E+03_JPRB,1.3700E+03_JPRB,1.3257E+03_JPRB,1.3068E+03_JPRB/) |
|---|
| 421 | KAO( :, 4,15) = (/& |
|---|
| 422 | &1.6836E+03_JPRB,1.6523E+03_JPRB,1.6210E+03_JPRB,1.5698E+03_JPRB,1.5625E+03_JPRB/) |
|---|
| 423 | KAO( :, 5,15) = (/& |
|---|
| 424 | &1.9769E+03_JPRB,1.9333E+03_JPRB,1.9035E+03_JPRB,1.8613E+03_JPRB,1.8254E+03_JPRB/) |
|---|
| 425 | KAO( :, 6,15) = (/& |
|---|
| 426 | &2.3172E+03_JPRB,2.2683E+03_JPRB,2.2153E+03_JPRB,2.1871E+03_JPRB,2.1654E+03_JPRB/) |
|---|
| 427 | KAO( :, 7,15) = (/& |
|---|
| 428 | &2.6839E+03_JPRB,2.6608E+03_JPRB,2.5827E+03_JPRB,2.5461E+03_JPRB,2.5090E+03_JPRB/) |
|---|
| 429 | KAO( :, 8,15) = (/& |
|---|
| 430 | &3.0767E+03_JPRB,3.0634E+03_JPRB,3.0007E+03_JPRB,2.9429E+03_JPRB,2.9079E+03_JPRB/) |
|---|
| 431 | KAO( :, 9,15) = (/& |
|---|
| 432 | &3.4941E+03_JPRB,3.4634E+03_JPRB,3.4221E+03_JPRB,3.3814E+03_JPRB,3.3456E+03_JPRB/) |
|---|
| 433 | KAO( :,10,15) = (/& |
|---|
| 434 | &3.9537E+03_JPRB,3.9378E+03_JPRB,3.9008E+03_JPRB,3.8414E+03_JPRB,3.8169E+03_JPRB/) |
|---|
| 435 | KAO( :,11,15) = (/& |
|---|
| 436 | &4.5046E+03_JPRB,4.4637E+03_JPRB,4.4210E+03_JPRB,4.3583E+03_JPRB,4.3332E+03_JPRB/) |
|---|
| 437 | KAO( :,12,15) = (/& |
|---|
| 438 | &5.1528E+03_JPRB,5.0823E+03_JPRB,5.0105E+03_JPRB,4.9465E+03_JPRB,4.9071E+03_JPRB/) |
|---|
| 439 | KAO( :,13,15) = (/& |
|---|
| 440 | &5.8749E+03_JPRB,5.7913E+03_JPRB,5.6995E+03_JPRB,5.6331E+03_JPRB,5.5557E+03_JPRB/) |
|---|
| 441 | KAO( :, 1,16) = (/& |
|---|
| 442 | &1.2189E+03_JPRB,1.2224E+03_JPRB,1.2164E+03_JPRB,1.2064E+03_JPRB,1.1935E+03_JPRB/) |
|---|
| 443 | KAO( :, 2,16) = (/& |
|---|
| 444 | &1.4789E+03_JPRB,1.4888E+03_JPRB,1.4867E+03_JPRB,1.4809E+03_JPRB,1.4687E+03_JPRB/) |
|---|
| 445 | KAO( :, 3,16) = (/& |
|---|
| 446 | &1.8114E+03_JPRB,1.8246E+03_JPRB,1.8350E+03_JPRB,1.8138E+03_JPRB,1.8019E+03_JPRB/) |
|---|
| 447 | KAO( :, 4,16) = (/& |
|---|
| 448 | &2.1704E+03_JPRB,2.2074E+03_JPRB,2.2239E+03_JPRB,2.2048E+03_JPRB,2.2173E+03_JPRB/) |
|---|
| 449 | KAO( :, 5,16) = (/& |
|---|
| 450 | &2.5886E+03_JPRB,2.6353E+03_JPRB,2.6810E+03_JPRB,2.6789E+03_JPRB,2.6704E+03_JPRB/) |
|---|
| 451 | KAO( :, 6,16) = (/& |
|---|
| 452 | &3.0777E+03_JPRB,3.1359E+03_JPRB,3.1850E+03_JPRB,3.2159E+03_JPRB,3.2625E+03_JPRB/) |
|---|
| 453 | KAO( :, 7,16) = (/& |
|---|
| 454 | &3.6815E+03_JPRB,3.7549E+03_JPRB,3.7825E+03_JPRB,3.8441E+03_JPRB,3.9118E+03_JPRB/) |
|---|
| 455 | KAO( :, 8,16) = (/& |
|---|
| 456 | &4.4826E+03_JPRB,4.4982E+03_JPRB,4.5205E+03_JPRB,4.5598E+03_JPRB,4.6673E+03_JPRB/) |
|---|
| 457 | KAO( :, 9,16) = (/& |
|---|
| 458 | &5.4808E+03_JPRB,5.4311E+03_JPRB,5.4325E+03_JPRB,5.4480E+03_JPRB,5.4909E+03_JPRB/) |
|---|
| 459 | KAO( :,10,16) = (/& |
|---|
| 460 | &6.6128E+03_JPRB,6.5719E+03_JPRB,6.5761E+03_JPRB,6.5449E+03_JPRB,6.5647E+03_JPRB/) |
|---|
| 461 | KAO( :,11,16) = (/& |
|---|
| 462 | &7.9375E+03_JPRB,7.9476E+03_JPRB,7.9279E+03_JPRB,7.8912E+03_JPRB,7.8532E+03_JPRB/) |
|---|
| 463 | KAO( :,12,16) = (/& |
|---|
| 464 | &9.5403E+03_JPRB,9.5531E+03_JPRB,9.5122E+03_JPRB,9.4385E+03_JPRB,9.3648E+03_JPRB/) |
|---|
| 465 | KAO( :,13,16) = (/& |
|---|
| 466 | &1.1398E+04_JPRB,1.1400E+04_JPRB,1.1334E+04_JPRB,1.1241E+04_JPRB,1.1075E+04_JPRB/) |
|---|
| 467 | |
|---|
| 468 | ! The array SELFREFO contains the coefficient of the water vapor |
|---|
| 469 | ! self-continuum (including the energy term). The first index |
|---|
| 470 | ! refers to temperature in 7.2 degree increments. For instance, |
|---|
| 471 | ! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, |
|---|
| 472 | ! etc. The second index runs over the g-channel (1 to 16). |
|---|
| 473 | |
|---|
| 474 | SELFREFO( :, 1) = (/& |
|---|
| 475 | &1.84925E+00_JPRB,1.65087E+00_JPRB,1.47377E+00_JPRB,1.31567E+00_JPRB,1.17453E+00_JPRB,& |
|---|
| 476 | &1.04853E+00_JPRB,9.36042E-01_JPRB,8.35626E-01_JPRB,7.45982E-01_JPRB,6.65955E-01_JPRB/) |
|---|
| 477 | SELFREFO( :, 2) = (/& |
|---|
| 478 | &5.91460E+00_JPRB,5.37056E+00_JPRB,4.87657E+00_JPRB,4.42802E+00_JPRB,4.02073E+00_JPRB,& |
|---|
| 479 | &3.65090E+00_JPRB,3.31508E+00_JPRB,3.01016E+00_JPRB,2.73328E+00_JPRB,2.48187E+00_JPRB/) |
|---|
| 480 | SELFREFO( :, 3) = (/& |
|---|
| 481 | &6.37319E+00_JPRB,5.76807E+00_JPRB,5.22041E+00_JPRB,4.72475E+00_JPRB,4.27614E+00_JPRB,& |
|---|
| 482 | &3.87014E+00_JPRB,3.50268E+00_JPRB,3.17011E+00_JPRB,2.86911E+00_JPRB,2.59670E+00_JPRB/) |
|---|
| 483 | SELFREFO( :, 4) = (/& |
|---|
| 484 | &6.24391E+00_JPRB,5.67335E+00_JPRB,5.15493E+00_JPRB,4.68388E+00_JPRB,4.25588E+00_JPRB,& |
|---|
| 485 | &3.86699E+00_JPRB,3.51363E+00_JPRB,3.19256E+00_JPRB,2.90083E+00_JPRB,2.63576E+00_JPRB/) |
|---|
| 486 | SELFREFO( :, 5) = (/& |
|---|
| 487 | &6.28855E+00_JPRB,5.70697E+00_JPRB,5.17918E+00_JPRB,4.70019E+00_JPRB,4.26551E+00_JPRB,& |
|---|
| 488 | &3.87103E+00_JPRB,3.51303E+00_JPRB,3.18813E+00_JPRB,2.89329E+00_JPRB,2.62571E+00_JPRB/) |
|---|
| 489 | SELFREFO( :, 6) = (/& |
|---|
| 490 | &6.15500E+00_JPRB,5.58229E+00_JPRB,5.06287E+00_JPRB,4.59178E+00_JPRB,4.16453E+00_JPRB,& |
|---|
| 491 | &3.77703E+00_JPRB,3.42558E+00_JPRB,3.10684E+00_JPRB,2.81776E+00_JPRB,2.55557E+00_JPRB/) |
|---|
| 492 | SELFREFO( :, 7) = (/& |
|---|
| 493 | &6.25544E+00_JPRB,5.67036E+00_JPRB,5.14000E+00_JPRB,4.65925E+00_JPRB,4.22346E+00_JPRB,& |
|---|
| 494 | &3.82844E+00_JPRB,3.47036E+00_JPRB,3.14577E+00_JPRB,2.85154E+00_JPRB,2.58483E+00_JPRB/) |
|---|
| 495 | SELFREFO( :, 8) = (/& |
|---|
| 496 | &6.08431E+00_JPRB,5.55653E+00_JPRB,5.07454E+00_JPRB,4.63436E+00_JPRB,4.23236E+00_JPRB,& |
|---|
| 497 | &3.86523E+00_JPRB,3.52994E+00_JPRB,3.22374E+00_JPRB,2.94410E+00_JPRB,2.68872E+00_JPRB/) |
|---|
| 498 | SELFREFO( :, 9) = (/& |
|---|
| 499 | &6.22772E+00_JPRB,5.71381E+00_JPRB,5.24231E+00_JPRB,4.80972E+00_JPRB,4.41282E+00_JPRB,& |
|---|
| 500 | &4.04868E+00_JPRB,3.71458E+00_JPRB,3.40806E+00_JPRB,3.12683E+00_JPRB,2.86880E+00_JPRB/) |
|---|
| 501 | SELFREFO( :,10) = (/& |
|---|
| 502 | &6.63397E+00_JPRB,6.10398E+00_JPRB,5.61633E+00_JPRB,5.16764E+00_JPRB,4.75480E+00_JPRB,& |
|---|
| 503 | &4.37494E+00_JPRB,4.02543E+00_JPRB,3.70384E+00_JPRB,3.40794E+00_JPRB,3.13568E+00_JPRB/) |
|---|
| 504 | SELFREFO( :,11) = (/& |
|---|
| 505 | &7.05802E+00_JPRB,6.40896E+00_JPRB,5.81959E+00_JPRB,5.28442E+00_JPRB,4.79846E+00_JPRB,& |
|---|
| 506 | &4.35719E+00_JPRB,3.95651E+00_JPRB,3.59266E+00_JPRB,3.26228E+00_JPRB,2.96228E+00_JPRB/) |
|---|
| 507 | SELFREFO( :,12) = (/& |
|---|
| 508 | &7.26302E+00_JPRB,6.57623E+00_JPRB,5.95438E+00_JPRB,5.39134E+00_JPRB,4.88153E+00_JPRB,& |
|---|
| 509 | &4.41994E+00_JPRB,4.00199E+00_JPRB,3.62356E+00_JPRB,3.28092E+00_JPRB,2.97067E+00_JPRB/) |
|---|
| 510 | SELFREFO( :,13) = (/& |
|---|
| 511 | &6.76462E+00_JPRB,6.23813E+00_JPRB,5.75262E+00_JPRB,5.30490E+00_JPRB,4.89202E+00_JPRB,& |
|---|
| 512 | &4.51128E+00_JPRB,4.16017E+00_JPRB,3.83638E+00_JPRB,3.53780E+00_JPRB,3.26245E+00_JPRB/) |
|---|
| 513 | SELFREFO( :,14) = (/& |
|---|
| 514 | &7.35977E+00_JPRB,6.71848E+00_JPRB,6.13306E+00_JPRB,5.59866E+00_JPRB,5.11082E+00_JPRB,& |
|---|
| 515 | &4.66549E+00_JPRB,4.25896E+00_JPRB,3.88786E+00_JPRB,3.54909E+00_JPRB,3.23984E+00_JPRB/) |
|---|
| 516 | SELFREFO( :,15) = (/& |
|---|
| 517 | &7.51978E+00_JPRB,6.83155E+00_JPRB,6.20632E+00_JPRB,5.63830E+00_JPRB,5.12227E+00_JPRB,& |
|---|
| 518 | &4.65347E+00_JPRB,4.22758E+00_JPRB,3.84066E+00_JPRB,3.48915E+00_JPRB,3.16982E+00_JPRB/) |
|---|
| 519 | SELFREFO( :,16) = (/& |
|---|
| 520 | &6.95561E+00_JPRB,6.36239E+00_JPRB,5.81977E+00_JPRB,5.32342E+00_JPRB,4.86941E+00_JPRB,& |
|---|
| 521 | &4.45411E+00_JPRB,4.07424E+00_JPRB,3.72676E+00_JPRB,3.40892E+00_JPRB,3.11819E+00_JPRB/) |
|---|
| 522 | |
|---|
| 523 | ! ----------------------------------------------------------------- |
|---|
| 524 | RETURN |
|---|
| 525 | END SUBROUTINE RRTM_KGB1_01 |
|---|
