[1989] | 1 | #ifdef RS6K |
---|
| 2 | @PROCESS NOOPTIMIZE |
---|
| 3 | #endif |
---|
| 4 | !OCL SCALAR |
---|
| 5 | !pgi$r opt=0 |
---|
| 6 | SUBROUTINE RRTM_KGB2 |
---|
| 7 | |
---|
| 8 | ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research. |
---|
| 9 | ! BAND 2: 250-500 cm-1 (low - H2O; high - H2O) |
---|
| 10 | ! Reformatted for F90 by JJMorcrette, ECMWF |
---|
| 11 | ! R. Elkhatib 12-10-2005 Split for faster and more robust compilation. |
---|
| 12 | |
---|
| 13 | ! ------------------------------------------------------------------ |
---|
| 14 | |
---|
| 15 | USE PARKIND1 ,ONLY : JPRB |
---|
| 16 | USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
---|
| 17 | |
---|
| 18 | USE YOERRTO2 , ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,& |
---|
| 19 | & FRACREFBO ,FORREFO |
---|
| 20 | USE YOERRTA2 , ONLY : REFPARAM |
---|
| 21 | |
---|
| 22 | ! ------------------------------------------------------------------ |
---|
| 23 | |
---|
| 24 | IMPLICIT NONE |
---|
| 25 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 26 | |
---|
| 27 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2',0,ZHOOK_HANDLE) |
---|
| 28 | |
---|
| 29 | CALL PART1 |
---|
| 30 | CALL PART2 |
---|
| 31 | CALL PART3 |
---|
| 32 | CALL PART4 |
---|
| 33 | CALL PART5 |
---|
| 34 | CALL PART6 |
---|
| 35 | CALL PART7 |
---|
| 36 | CALL PART8 |
---|
| 37 | |
---|
| 38 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2',1,ZHOOK_HANDLE) |
---|
| 39 | |
---|
| 40 | ! ----------------------------------------------------------------- |
---|
| 41 | |
---|
| 42 | CONTAINS |
---|
| 43 | |
---|
| 44 | |
---|
| 45 | SUBROUTINE PART1 |
---|
| 46 | |
---|
| 47 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 48 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART1',0,ZHOOK_HANDLE) |
---|
| 49 | |
---|
| 50 | |
---|
| 51 | FRACREFBO( :) = (/& |
---|
| 52 | ! From P = 0.432 mb. |
---|
| 53 | & 0.17444289_JPRB,0.16467269_JPRB,0.15021490_JPRB,0.12460902_JPRB,& |
---|
| 54 | & 0.10400643_JPRB,0.09481928_JPRB,0.07590704_JPRB,0.05752856_JPRB,& |
---|
| 55 | & 0.03931715_JPRB,0.00428572_JPRB,0.00349352_JPRB,0.00278938_JPRB,& |
---|
| 56 | & 0.00203448_JPRB,0.00130037_JPRB,0.00051560_JPRB,0.00006255_JPRB/) |
---|
| 57 | |
---|
| 58 | FORREFO( :) = (/& |
---|
| 59 | & -2.34550E-03_JPRB,-8.42698E-03_JPRB,-2.01816E-02_JPRB,-5.66701E-02_JPRB,& |
---|
| 60 | & -8.93189E-02_JPRB,-6.37487E-02_JPRB,-4.56455E-02_JPRB,-4.41417E-02_JPRB,& |
---|
| 61 | & -4.48605E-02_JPRB,-4.74696E-02_JPRB,-5.16648E-02_JPRB,-5.63099E-02_JPRB,& |
---|
| 62 | & -4.74781E-02_JPRB,-3.84704E-02_JPRB,-2.49905E-02_JPRB, 2.02114E-03_JPRB/) |
---|
| 63 | |
---|
| 64 | ! The following are parameters related to the reference water vapor |
---|
| 65 | ! mixing ratios by REFPARAM(I) = REFH2O(I) / (.002+REFH2O(I)). |
---|
| 66 | ! These parameters are used for the Planck function interpolation. |
---|
| 67 | REFPARAM( :) = (/& |
---|
| 68 | & 0.903661_JPRB , 0.859386_JPRB , 0.746542_JPRB , 0.580496_JPRB , 0.412889_JPRB ,& |
---|
| 69 | & 0.275283_JPRB , 0.162745_JPRB , 7.63929E-02_JPRB, 1.82553E-02_JPRB, 3.72432E-03_JPRB, & |
---|
| 70 | & 2.14946E-03_JPRB, 1.66320E-03_JPRB, 1.59940E-03_JPRB/) |
---|
| 71 | |
---|
| 72 | ! ------------------------------------------------------------------ |
---|
| 73 | |
---|
| 74 | ! The array KAO contains absorption coefs at the 16 chosen g-values |
---|
| 75 | ! for a range of pressure levels > ~100mb and temperatures. The first |
---|
| 76 | ! index in the array, JT, which runs from 1 to 5, corresponds to |
---|
| 77 | ! different temperatures. More specifically, JT = 3 means that the |
---|
| 78 | ! data are for the corresponding TREF for this pressure level, |
---|
| 79 | ! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, |
---|
| 80 | ! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second |
---|
| 81 | ! index, JP, runs from 1 to 13 and refers to the corresponding |
---|
| 82 | ! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). |
---|
| 83 | ! The third index, IG, goes from 1 to 16, and tells us which |
---|
| 84 | ! g-interval the absorption coefficients are for. |
---|
| 85 | |
---|
| 86 | KAO( :, 1, 1) = (/& |
---|
| 87 | & 1.4400E-02_JPRB,1.5554E-02_JPRB,1.6739E-02_JPRB,1.7961E-02_JPRB,1.9379E-02_JPRB/) |
---|
| 88 | KAO( :, 2, 1) = (/& |
---|
| 89 | & 1.1452E-02_JPRB,1.2288E-02_JPRB,1.3232E-02_JPRB,1.4190E-02_JPRB,1.5277E-02_JPRB/) |
---|
| 90 | KAO( :, 3, 1) = (/& |
---|
| 91 | & 8.9989E-03_JPRB,9.5960E-03_JPRB,1.0327E-02_JPRB,1.1068E-02_JPRB,1.1889E-02_JPRB/) |
---|
| 92 | KAO( :, 4, 1) = (/& |
---|
| 93 | & 7.1078E-03_JPRB,7.5424E-03_JPRB,8.0710E-03_JPRB,8.6639E-03_JPRB,9.2920E-03_JPRB/) |
---|
| 94 | KAO( :, 5, 1) = (/& |
---|
| 95 | & 5.6632E-03_JPRB,5.9616E-03_JPRB,6.3421E-03_JPRB,6.8076E-03_JPRB,7.2949E-03_JPRB/) |
---|
| 96 | KAO( :, 6, 1) = (/& |
---|
| 97 | & 4.5348E-03_JPRB,4.7267E-03_JPRB,5.0015E-03_JPRB,5.3391E-03_JPRB,5.7317E-03_JPRB/) |
---|
| 98 | KAO( :, 7, 1) = (/& |
---|
| 99 | & 3.6484E-03_JPRB,3.7737E-03_JPRB,3.9583E-03_JPRB,4.2050E-03_JPRB,4.5069E-03_JPRB/) |
---|
| 100 | KAO( :, 8, 1) = (/& |
---|
| 101 | & 2.9485E-03_JPRB,3.0305E-03_JPRB,3.1509E-03_JPRB,3.3270E-03_JPRB,3.5470E-03_JPRB/) |
---|
| 102 | KAO( :, 9, 1) = (/& |
---|
| 103 | & 2.4028E-03_JPRB,2.4476E-03_JPRB,2.5272E-03_JPRB,2.6456E-03_JPRB,2.8089E-03_JPRB/) |
---|
| 104 | KAO( :,10, 1) = (/& |
---|
| 105 | & 1.9899E-03_JPRB,2.0047E-03_JPRB,2.0583E-03_JPRB,2.1403E-03_JPRB,2.2643E-03_JPRB/) |
---|
| 106 | KAO( :,11, 1) = (/& |
---|
| 107 | & 1.6478E-03_JPRB,1.6593E-03_JPRB,1.7036E-03_JPRB,1.7737E-03_JPRB,1.8823E-03_JPRB/) |
---|
| 108 | KAO( :,12, 1) = (/& |
---|
| 109 | & 1.3599E-03_JPRB,1.3694E-03_JPRB,1.4067E-03_JPRB,1.4672E-03_JPRB,1.5617E-03_JPRB/) |
---|
| 110 | KAO( :,13, 1) = (/& |
---|
| 111 | & 1.1157E-03_JPRB,1.1241E-03_JPRB,1.1555E-03_JPRB,1.2073E-03_JPRB,1.2864E-03_JPRB/) |
---|
| 112 | KAO( :, 1, 2) = (/& |
---|
| 113 | & 3.8905E-02_JPRB,4.2429E-02_JPRB,4.6513E-02_JPRB,5.0588E-02_JPRB,5.5021E-02_JPRB/) |
---|
| 114 | KAO( :, 2, 2) = (/& |
---|
| 115 | & 3.0803E-02_JPRB,3.3461E-02_JPRB,3.6546E-02_JPRB,3.9922E-02_JPRB,4.3440E-02_JPRB/) |
---|
| 116 | KAO( :, 3, 2) = (/& |
---|
| 117 | & 2.4144E-02_JPRB,2.6019E-02_JPRB,2.8287E-02_JPRB,3.0953E-02_JPRB,3.3739E-02_JPRB/) |
---|
| 118 | KAO( :, 4, 2) = (/& |
---|
| 119 | & 1.9082E-02_JPRB,2.0371E-02_JPRB,2.2034E-02_JPRB,2.4014E-02_JPRB,2.6250E-02_JPRB/) |
---|
| 120 | KAO( :, 5, 2) = (/& |
---|
| 121 | & 1.5203E-02_JPRB,1.6092E-02_JPRB,1.7271E-02_JPRB,1.8721E-02_JPRB,2.0471E-02_JPRB/) |
---|
| 122 | KAO( :, 6, 2) = (/& |
---|
| 123 | & 1.2164E-02_JPRB,1.2769E-02_JPRB,1.3578E-02_JPRB,1.4643E-02_JPRB,1.5928E-02_JPRB/) |
---|
| 124 | KAO( :, 7, 2) = (/& |
---|
| 125 | & 9.7815E-03_JPRB,1.0186E-02_JPRB,1.0740E-02_JPRB,1.1487E-02_JPRB,1.2435E-02_JPRB/) |
---|
| 126 | KAO( :, 8, 2) = (/& |
---|
| 127 | & 7.9245E-03_JPRB,8.1687E-03_JPRB,8.5497E-03_JPRB,9.0644E-03_JPRB,9.7618E-03_JPRB/) |
---|
| 128 | KAO( :, 9, 2) = (/& |
---|
| 129 | & 6.4727E-03_JPRB,6.5836E-03_JPRB,6.8391E-03_JPRB,7.1947E-03_JPRB,7.6826E-03_JPRB/) |
---|
| 130 | KAO( :,10, 2) = (/& |
---|
| 131 | & 5.3240E-03_JPRB,5.3575E-03_JPRB,5.5193E-03_JPRB,5.7706E-03_JPRB,6.1166E-03_JPRB/) |
---|
| 132 | KAO( :,11, 2) = (/& |
---|
| 133 | & 4.3783E-03_JPRB,4.4065E-03_JPRB,4.5391E-03_JPRB,4.7453E-03_JPRB,5.0313E-03_JPRB/) |
---|
| 134 | KAO( :,12, 2) = (/& |
---|
| 135 | & 3.5968E-03_JPRB,3.6203E-03_JPRB,3.7298E-03_JPRB,3.8998E-03_JPRB,4.1378E-03_JPRB/) |
---|
| 136 | KAO( :,13, 2) = (/& |
---|
| 137 | & 2.9507E-03_JPRB,2.9704E-03_JPRB,3.0611E-03_JPRB,3.2015E-03_JPRB,3.4012E-03_JPRB/) |
---|
| 138 | KAO( :, 1, 3) = (/& |
---|
| 139 | & 1.0636E-01_JPRB,1.1680E-01_JPRB,1.2824E-01_JPRB,1.4017E-01_JPRB,1.5266E-01_JPRB/) |
---|
| 140 | KAO( :, 2, 3) = (/& |
---|
| 141 | & 8.4443E-02_JPRB,9.2480E-02_JPRB,1.0148E-01_JPRB,1.1092E-01_JPRB,1.2100E-01_JPRB/) |
---|
| 142 | KAO( :, 3, 3) = (/& |
---|
| 143 | & 6.5959E-02_JPRB,7.1869E-02_JPRB,7.8770E-02_JPRB,8.6250E-02_JPRB,9.4058E-02_JPRB/) |
---|
| 144 | KAO( :, 4, 3) = (/& |
---|
| 145 | & 5.1681E-02_JPRB,5.6029E-02_JPRB,6.1207E-02_JPRB,6.7088E-02_JPRB,7.3195E-02_JPRB/) |
---|
| 146 | KAO( :, 5, 3) = (/& |
---|
| 147 | & 4.0734E-02_JPRB,4.3938E-02_JPRB,4.7777E-02_JPRB,5.2288E-02_JPRB,5.7243E-02_JPRB/) |
---|
| 148 | KAO( :, 6, 3) = (/& |
---|
| 149 | & 3.2248E-02_JPRB,3.4534E-02_JPRB,3.7344E-02_JPRB,4.0738E-02_JPRB,4.4673E-02_JPRB/) |
---|
| 150 | KAO( :, 7, 3) = (/& |
---|
| 151 | & 2.5731E-02_JPRB,2.7244E-02_JPRB,2.9333E-02_JPRB,3.1849E-02_JPRB,3.4861E-02_JPRB/) |
---|
| 152 | KAO( :, 8, 3) = (/& |
---|
| 153 | & 2.0693E-02_JPRB,2.1657E-02_JPRB,2.3154E-02_JPRB,2.5012E-02_JPRB,2.7268E-02_JPRB/) |
---|
| 154 | KAO( :, 9, 3) = (/& |
---|
| 155 | & 1.6730E-02_JPRB,1.7346E-02_JPRB,1.8327E-02_JPRB,1.9716E-02_JPRB,2.1381E-02_JPRB/) |
---|
| 156 | KAO( :,10, 3) = (/& |
---|
| 157 | & 1.3588E-02_JPRB,1.4015E-02_JPRB,1.4658E-02_JPRB,1.5680E-02_JPRB,1.6936E-02_JPRB/) |
---|
| 158 | KAO( :,11, 3) = (/& |
---|
| 159 | & 1.1180E-02_JPRB,1.1528E-02_JPRB,1.2063E-02_JPRB,1.2917E-02_JPRB,1.3959E-02_JPRB/) |
---|
| 160 | KAO( :,12, 3) = (/& |
---|
| 161 | & 9.1920E-03_JPRB,9.4766E-03_JPRB,9.9244E-03_JPRB,1.0636E-02_JPRB,1.1502E-02_JPRB/) |
---|
| 162 | KAO( :,13, 3) = (/& |
---|
| 163 | & 7.5517E-03_JPRB,7.7861E-03_JPRB,8.1602E-03_JPRB,8.7504E-03_JPRB,9.4682E-03_JPRB/) |
---|
| 164 | KAO( :, 1, 4) = (/& |
---|
| 165 | & 2.6559E-01_JPRB,2.7778E-01_JPRB,2.8983E-01_JPRB,3.0112E-01_JPRB,3.1151E-01_JPRB/) |
---|
| 166 | KAO( :, 2, 4) = (/& |
---|
| 167 | & 2.1415E-01_JPRB,2.2376E-01_JPRB,2.3372E-01_JPRB,2.4291E-01_JPRB,2.5148E-01_JPRB/) |
---|
| 168 | KAO( :, 3, 4) = (/& |
---|
| 169 | & 1.7113E-01_JPRB,1.7864E-01_JPRB,1.8679E-01_JPRB,1.9418E-01_JPRB,2.0158E-01_JPRB/) |
---|
| 170 | KAO( :, 4, 4) = (/& |
---|
| 171 | & 1.3689E-01_JPRB,1.4305E-01_JPRB,1.4933E-01_JPRB,1.5577E-01_JPRB,1.6212E-01_JPRB/) |
---|
| 172 | KAO( :, 5, 4) = (/& |
---|
| 173 | & 1.0951E-01_JPRB,1.1484E-01_JPRB,1.1993E-01_JPRB,1.2527E-01_JPRB,1.3048E-01_JPRB/) |
---|
| 174 | KAO( :, 6, 4) = (/& |
---|
| 175 | & 8.7678E-02_JPRB,9.2013E-02_JPRB,9.6292E-02_JPRB,1.0052E-01_JPRB,1.0492E-01_JPRB/) |
---|
| 176 | KAO( :, 7, 4) = (/& |
---|
| 177 | & 7.0271E-02_JPRB,7.3646E-02_JPRB,7.7252E-02_JPRB,8.0679E-02_JPRB,8.4295E-02_JPRB/) |
---|
| 178 | KAO( :, 8, 4) = (/& |
---|
| 179 | & 5.6292E-02_JPRB,5.9027E-02_JPRB,6.1915E-02_JPRB,6.4784E-02_JPRB,6.7662E-02_JPRB/) |
---|
| 180 | KAO( :, 9, 4) = (/& |
---|
| 181 | & 4.5045E-02_JPRB,4.7308E-02_JPRB,4.9593E-02_JPRB,5.1992E-02_JPRB,5.4350E-02_JPRB/) |
---|
| 182 | KAO( :,10, 4) = (/& |
---|
| 183 | & 3.6083E-02_JPRB,3.8037E-02_JPRB,3.9928E-02_JPRB,4.1868E-02_JPRB,4.3827E-02_JPRB/) |
---|
| 184 | KAO( :,11, 4) = (/& |
---|
| 185 | & 2.9684E-02_JPRB,3.1305E-02_JPRB,3.2869E-02_JPRB,3.4458E-02_JPRB,3.6069E-02_JPRB/) |
---|
| 186 | KAO( :,12, 4) = (/& |
---|
| 187 | & 2.4428E-02_JPRB,2.5760E-02_JPRB,2.7039E-02_JPRB,2.8345E-02_JPRB,2.9671E-02_JPRB/) |
---|
| 188 | KAO( :,13, 4) = (/& |
---|
| 189 | & 2.0094E-02_JPRB,2.1179E-02_JPRB,2.2224E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/) |
---|
| 190 | KAO( :, 1, 5) = (/& |
---|
| 191 | & 4.7290E-01_JPRB,4.8928E-01_JPRB,5.0887E-01_JPRB,5.3328E-01_JPRB,5.6216E-01_JPRB/) |
---|
| 192 | KAO( :, 2, 5) = (/& |
---|
| 193 | & 3.8475E-01_JPRB,3.9762E-01_JPRB,4.1280E-01_JPRB,4.3219E-01_JPRB,4.5473E-01_JPRB/) |
---|
| 194 | KAO( :, 3, 5) = (/& |
---|
| 195 | & 3.0979E-01_JPRB,3.1996E-01_JPRB,3.3105E-01_JPRB,3.4530E-01_JPRB,3.6216E-01_JPRB/) |
---|
| 196 | KAO( :, 4, 5) = (/& |
---|
| 197 | & 2.5002E-01_JPRB,2.5800E-01_JPRB,2.6674E-01_JPRB,2.7709E-01_JPRB,2.8946E-01_JPRB/) |
---|
| 198 | KAO( :, 5, 5) = (/& |
---|
| 199 | & 2.0218E-01_JPRB,2.0847E-01_JPRB,2.1546E-01_JPRB,2.2311E-01_JPRB,2.3239E-01_JPRB/) |
---|
| 200 | KAO( :, 6, 5) = (/& |
---|
| 201 | & 1.6286E-01_JPRB,1.6840E-01_JPRB,1.7397E-01_JPRB,1.7996E-01_JPRB,1.8683E-01_JPRB/) |
---|
| 202 | KAO( :, 7, 5) = (/& |
---|
| 203 | & 1.3055E-01_JPRB,1.3602E-01_JPRB,1.4050E-01_JPRB,1.4524E-01_JPRB,1.5047E-01_JPRB/) |
---|
| 204 | KAO( :, 8, 5) = (/& |
---|
| 205 | & 1.0442E-01_JPRB,1.0954E-01_JPRB,1.1353E-01_JPRB,1.1737E-01_JPRB,1.2143E-01_JPRB/) |
---|
| 206 | KAO( :, 9, 5) = (/& |
---|
| 207 | & 8.3388E-02_JPRB,8.7841E-02_JPRB,9.1682E-02_JPRB,9.4816E-02_JPRB,9.8050E-02_JPRB/) |
---|
| 208 | KAO( :,10, 5) = (/& |
---|
| 209 | & 6.7010E-02_JPRB,7.0598E-02_JPRB,7.4015E-02_JPRB,7.6769E-02_JPRB,7.9372E-02_JPRB/) |
---|
| 210 | KAO( :,11, 5) = (/& |
---|
| 211 | & 5.5118E-02_JPRB,5.8051E-02_JPRB,6.0869E-02_JPRB,6.3114E-02_JPRB,6.5294E-02_JPRB/) |
---|
| 212 | KAO( :,12, 5) = (/& |
---|
| 213 | & 4.5300E-02_JPRB,4.7721E-02_JPRB,5.0049E-02_JPRB,5.1890E-02_JPRB,5.3682E-02_JPRB/) |
---|
| 214 | KAO( :,13, 5) = (/& |
---|
| 215 | & 3.7225E-02_JPRB,3.9236E-02_JPRB,4.1133E-02_JPRB,4.2631E-02_JPRB,4.4126E-02_JPRB/) |
---|
| 216 | KAO( :, 1, 6) = (/& |
---|
| 217 | & 8.4224E-01_JPRB,9.2264E-01_JPRB,1.0073E+00_JPRB,1.0930E+00_JPRB,1.1793E+00_JPRB/) |
---|
| 218 | KAO( :, 2, 6) = (/& |
---|
| 219 | & 6.7595E-01_JPRB,7.4232E-01_JPRB,8.1248E-01_JPRB,8.8302E-01_JPRB,9.5616E-01_JPRB/) |
---|
| 220 | KAO( :, 3, 6) = (/& |
---|
| 221 | & 5.2904E-01_JPRB,5.8048E-01_JPRB,6.3751E-01_JPRB,6.9642E-01_JPRB,7.5721E-01_JPRB/) |
---|
| 222 | KAO( :, 4, 6) = (/& |
---|
| 223 | & 4.1315E-01_JPRB,4.5407E-01_JPRB,4.9971E-01_JPRB,5.4886E-01_JPRB,5.9964E-01_JPRB/) |
---|
| 224 | KAO( :, 5, 6) = (/& |
---|
| 225 | & 3.2467E-01_JPRB,3.5531E-01_JPRB,3.9159E-01_JPRB,4.3161E-01_JPRB,4.7423E-01_JPRB/) |
---|
| 226 | KAO( :, 6, 6) = (/& |
---|
| 227 | & 2.5574E-01_JPRB,2.7784E-01_JPRB,3.0579E-01_JPRB,3.3817E-01_JPRB,3.7278E-01_JPRB/) |
---|
| 228 | KAO( :, 7, 6) = (/& |
---|
| 229 | & 2.0313E-01_JPRB,2.1792E-01_JPRB,2.3876E-01_JPRB,2.6386E-01_JPRB,2.9205E-01_JPRB/) |
---|
| 230 | KAO( :, 8, 6) = (/& |
---|
| 231 | & 1.6285E-01_JPRB,1.7201E-01_JPRB,1.8675E-01_JPRB,2.0598E-01_JPRB,2.2843E-01_JPRB/) |
---|
| 232 | KAO( :, 9, 6) = (/& |
---|
| 233 | & 1.3178E-01_JPRB,1.3687E-01_JPRB,1.4670E-01_JPRB,1.6087E-01_JPRB,1.7827E-01_JPRB/) |
---|
| 234 | KAO( :,10, 6) = (/& |
---|
| 235 | & 1.0760E-01_JPRB,1.1022E-01_JPRB,1.1661E-01_JPRB,1.2690E-01_JPRB,1.4033E-01_JPRB/) |
---|
| 236 | KAO( :,11, 6) = (/& |
---|
| 237 | & 8.8471E-02_JPRB,9.0742E-02_JPRB,9.6088E-02_JPRB,1.0477E-01_JPRB,1.1601E-01_JPRB/) |
---|
| 238 | KAO( :,12, 6) = (/& |
---|
| 239 | & 7.2724E-02_JPRB,7.4645E-02_JPRB,7.9165E-02_JPRB,8.6464E-02_JPRB,9.5844E-02_JPRB/) |
---|
| 240 | KAO( :,13, 6) = (/& |
---|
| 241 | & 5.9719E-02_JPRB,6.1350E-02_JPRB,6.5177E-02_JPRB,7.1301E-02_JPRB,7.9088E-02_JPRB/) |
---|
| 242 | KAO( :, 1, 7) = (/& |
---|
| 243 | & 1.8416E+00_JPRB,2.0377E+00_JPRB,2.2351E+00_JPRB,2.4351E+00_JPRB,2.6357E+00_JPRB/) |
---|
| 244 | KAO( :, 2, 7) = (/& |
---|
| 245 | & 1.5057E+00_JPRB,1.6691E+00_JPRB,1.8342E+00_JPRB,2.0031E+00_JPRB,2.1705E+00_JPRB/) |
---|
| 246 | KAO( :, 3, 7) = (/& |
---|
| 247 | & 1.1980E+00_JPRB,1.3329E+00_JPRB,1.4704E+00_JPRB,1.6099E+00_JPRB,1.7488E+00_JPRB/) |
---|
| 248 | KAO( :, 4, 7) = (/& |
---|
| 249 | & 9.4408E-01_JPRB,1.0566E+00_JPRB,1.1708E+00_JPRB,1.2874E+00_JPRB,1.4014E+00_JPRB/) |
---|
| 250 | KAO( :, 5, 7) = (/& |
---|
| 251 | & 7.4052E-01_JPRB,8.3332E-01_JPRB,9.3007E-01_JPRB,1.0263E+00_JPRB,1.1221E+00_JPRB/) |
---|
| 252 | KAO( :, 6, 7) = (/& |
---|
| 253 | & 5.7502E-01_JPRB,6.5145E-01_JPRB,7.3102E-01_JPRB,8.1228E-01_JPRB,8.9283E-01_JPRB/) |
---|
| 254 | KAO( :, 7, 7) = (/& |
---|
| 255 | & 4.4413E-01_JPRB,5.0565E-01_JPRB,5.7113E-01_JPRB,6.3832E-01_JPRB,7.0636E-01_JPRB/) |
---|
| 256 | KAO( :, 8, 7) = (/& |
---|
| 257 | & 3.4215E-01_JPRB,3.9125E-01_JPRB,4.4414E-01_JPRB,4.9963E-01_JPRB,5.5600E-01_JPRB/) |
---|
| 258 | KAO( :, 9, 7) = (/& |
---|
| 259 | & 2.6278E-01_JPRB,3.0155E-01_JPRB,3.4409E-01_JPRB,3.8940E-01_JPRB,4.3634E-01_JPRB/) |
---|
| 260 | KAO( :,10, 7) = (/& |
---|
| 261 | & 2.0399E-01_JPRB,2.3450E-01_JPRB,2.6863E-01_JPRB,3.0559E-01_JPRB,3.4410E-01_JPRB/) |
---|
| 262 | KAO( :,11, 7) = (/& |
---|
| 263 | & 1.6899E-01_JPRB,1.9452E-01_JPRB,2.2306E-01_JPRB,2.5367E-01_JPRB,2.8600E-01_JPRB/) |
---|
| 264 | KAO( :,12, 7) = (/& |
---|
| 265 | & 1.4000E-01_JPRB,1.6132E-01_JPRB,1.8504E-01_JPRB,2.1049E-01_JPRB,2.3736E-01_JPRB/) |
---|
| 266 | KAO( :,13, 7) = (/& |
---|
| 267 | & 1.1587E-01_JPRB,1.3364E-01_JPRB,1.5332E-01_JPRB,1.7448E-01_JPRB,1.9695E-01_JPRB/) |
---|
| 268 | KAO( :, 1, 8) = (/& |
---|
| 269 | & 4.7751E+00_JPRB,5.2791E+00_JPRB,5.7933E+00_JPRB,6.3083E+00_JPRB,6.8326E+00_JPRB/) |
---|
| 270 | KAO( :, 2, 8) = (/& |
---|
| 271 | & 4.0048E+00_JPRB,4.4443E+00_JPRB,4.8940E+00_JPRB,5.3580E+00_JPRB,5.8267E+00_JPRB/) |
---|
| 272 | KAO( :, 3, 8) = (/& |
---|
| 273 | & 3.2400E+00_JPRB,3.6253E+00_JPRB,4.0207E+00_JPRB,4.4230E+00_JPRB,4.8210E+00_JPRB/) |
---|
| 274 | KAO( :, 4, 8) = (/& |
---|
| 275 | & 2.5883E+00_JPRB,2.9210E+00_JPRB,3.2656E+00_JPRB,3.6154E+00_JPRB,3.9641E+00_JPRB/) |
---|
| 276 | KAO( :, 5, 8) = (/& |
---|
| 277 | & 2.0550E+00_JPRB,2.3390E+00_JPRB,2.6351E+00_JPRB,2.9336E+00_JPRB,3.2370E+00_JPRB/) |
---|
| 278 | KAO( :, 6, 8) = (/& |
---|
| 279 | & 1.6130E+00_JPRB,1.8538E+00_JPRB,2.1027E+00_JPRB,2.3582E+00_JPRB,2.6184E+00_JPRB/) |
---|
| 280 | KAO( :, 7, 8) = (/& |
---|
| 281 | & 1.2548E+00_JPRB,1.4567E+00_JPRB,1.6664E+00_JPRB,1.8820E+00_JPRB,2.1036E+00_JPRB/) |
---|
| 282 | KAO( :, 8, 8) = (/& |
---|
| 283 | & 9.6687E-01_JPRB,1.1348E+00_JPRB,1.3110E+00_JPRB,1.4930E+00_JPRB,1.6805E+00_JPRB/) |
---|
| 284 | KAO( :, 9, 8) = (/& |
---|
| 285 | & 7.3847E-01_JPRB,8.7593E-01_JPRB,1.0221E+00_JPRB,1.1741E+00_JPRB,1.3319E+00_JPRB/) |
---|
| 286 | KAO( :,10, 8) = (/& |
---|
| 287 | & 5.6776E-01_JPRB,6.8017E-01_JPRB,8.0059E-01_JPRB,9.2750E-01_JPRB,1.0593E+00_JPRB/) |
---|
| 288 | KAO( :,11, 8) = (/& |
---|
| 289 | & 4.7511E-01_JPRB,5.6972E-01_JPRB,6.7118E-01_JPRB,7.7840E-01_JPRB,8.8949E-01_JPRB/) |
---|
| 290 | KAO( :,12, 8) = (/& |
---|
| 291 | & 3.9658E-01_JPRB,4.7593E-01_JPRB,5.6128E-01_JPRB,6.5124E-01_JPRB,7.4417E-01_JPRB/) |
---|
| 292 | KAO( :,13, 8) = (/& |
---|
| 293 | & 3.3005E-01_JPRB,3.9650E-01_JPRB,4.6807E-01_JPRB,5.4357E-01_JPRB,6.2155E-01_JPRB/) |
---|
| 294 | KAO( :, 1, 9) = (/& |
---|
| 295 | & 1.7831E+01_JPRB,1.9823E+01_JPRB,2.1884E+01_JPRB,2.3937E+01_JPRB,2.5904E+01_JPRB/) |
---|
| 296 | KAO( :, 2, 9) = (/& |
---|
| 297 | & 1.5983E+01_JPRB,1.7908E+01_JPRB,1.9844E+01_JPRB,2.1750E+01_JPRB,2.3639E+01_JPRB/) |
---|
| 298 | KAO( :, 3, 9) = (/& |
---|
| 299 | & 1.3838E+01_JPRB,1.5652E+01_JPRB,1.7428E+01_JPRB,1.9195E+01_JPRB,2.0946E+01_JPRB/) |
---|
| 300 | KAO( :, 4, 9) = (/& |
---|
| 301 | & 1.1707E+01_JPRB,1.3372E+01_JPRB,1.5018E+01_JPRB,1.6675E+01_JPRB,1.8330E+01_JPRB/) |
---|
| 302 | KAO( :, 5, 9) = (/& |
---|
| 303 | & 9.7619E+00_JPRB,1.1244E+01_JPRB,1.2752E+01_JPRB,1.4279E+01_JPRB,1.5837E+01_JPRB/) |
---|
| 304 | KAO( :, 6, 9) = (/& |
---|
| 305 | & 7.9817E+00_JPRB,9.2988E+00_JPRB,1.0650E+01_JPRB,1.2029E+01_JPRB,1.3449E+01_JPRB/) |
---|
| 306 | KAO( :, 7, 9) = (/& |
---|
| 307 | & 6.4478E+00_JPRB,7.5864E+00_JPRB,8.7717E+00_JPRB,1.0008E+01_JPRB,1.1289E+01_JPRB/) |
---|
| 308 | KAO( :, 8, 9) = (/& |
---|
| 309 | & 5.1550E+00_JPRB,6.1381E+00_JPRB,7.1667E+00_JPRB,8.2567E+00_JPRB,9.3759E+00_JPRB/) |
---|
| 310 | KAO( :, 9, 9) = (/& |
---|
| 311 | & 4.0462E+00_JPRB,4.8924E+00_JPRB,5.7944E+00_JPRB,6.7466E+00_JPRB,7.7100E+00_JPRB/) |
---|
| 312 | KAO( :,10, 9) = (/& |
---|
| 313 | & 3.1920E+00_JPRB,3.9133E+00_JPRB,4.6912E+00_JPRB,5.5091E+00_JPRB,6.3432E+00_JPRB/) |
---|
| 314 | KAO( :,11, 9) = (/& |
---|
| 315 | & 2.7717E+00_JPRB,3.4039E+00_JPRB,4.0800E+00_JPRB,4.7818E+00_JPRB,5.5081E+00_JPRB/) |
---|
| 316 | KAO( :,12, 9) = (/& |
---|
| 317 | & 2.3978E+00_JPRB,2.9436E+00_JPRB,3.5235E+00_JPRB,4.1293E+00_JPRB,4.7600E+00_JPRB/) |
---|
| 318 | KAO( :,13, 9) = (/& |
---|
| 319 | & 2.0575E+00_JPRB,2.5263E+00_JPRB,3.0244E+00_JPRB,3.5477E+00_JPRB,4.0896E+00_JPRB/) |
---|
| 320 | KAO( :, 1,10) = (/& |
---|
| 321 | & 4.9748E+01_JPRB,5.5112E+01_JPRB,5.9938E+01_JPRB,6.5023E+01_JPRB,7.0458E+01_JPRB/) |
---|
| 322 | KAO( :, 2,10) = (/& |
---|
| 323 | & 4.6588E+01_JPRB,5.1661E+01_JPRB,5.6901E+01_JPRB,6.2463E+01_JPRB,6.8487E+01_JPRB/) |
---|
| 324 | KAO( :, 3,10) = (/& |
---|
| 325 | & 4.1628E+01_JPRB,4.6699E+01_JPRB,5.2314E+01_JPRB,5.8353E+01_JPRB,6.4458E+01_JPRB/) |
---|
| 326 | KAO( :, 4,10) = (/& |
---|
| 327 | & 3.7456E+01_JPRB,4.2469E+01_JPRB,4.7867E+01_JPRB,5.3384E+01_JPRB,5.9111E+01_JPRB/) |
---|
| 328 | KAO( :, 5,10) = (/& |
---|
| 329 | & 3.3436E+01_JPRB,3.8793E+01_JPRB,4.3992E+01_JPRB,4.9077E+01_JPRB,5.4046E+01_JPRB/) |
---|
| 330 | KAO( :, 6,10) = (/& |
---|
| 331 | & 2.8948E+01_JPRB,3.4066E+01_JPRB,3.9093E+01_JPRB,4.3943E+01_JPRB,4.8577E+01_JPRB/) |
---|
| 332 | KAO( :, 7,10) = (/& |
---|
| 333 | & 2.4411E+01_JPRB,2.9169E+01_JPRB,3.3772E+01_JPRB,3.8328E+01_JPRB,4.2674E+01_JPRB/) |
---|
| 334 | KAO( :, 8,10) = (/& |
---|
| 335 | & 2.0213E+01_JPRB,2.4379E+01_JPRB,2.8547E+01_JPRB,3.2632E+01_JPRB,3.6717E+01_JPRB/) |
---|
| 336 | KAO( :, 9,10) = (/& |
---|
| 337 | & 1.6770E+01_JPRB,2.0275E+01_JPRB,2.3726E+01_JPRB,2.7289E+01_JPRB,3.1149E+01_JPRB/) |
---|
| 338 | KAO( :,10,10) = (/& |
---|
| 339 | & 1.3740E+01_JPRB,1.6814E+01_JPRB,1.9874E+01_JPRB,2.3039E+01_JPRB,2.6529E+01_JPRB/) |
---|
| 340 | |
---|
| 341 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART1',1,ZHOOK_HANDLE) |
---|
| 342 | END SUBROUTINE PART1 |
---|
| 343 | |
---|
| 344 | |
---|
| 345 | SUBROUTINE PART2 |
---|
| 346 | |
---|
| 347 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 348 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART2',0,ZHOOK_HANDLE) |
---|
| 349 | |
---|
| 350 | |
---|
| 351 | KAO( :,11,10) = (/& |
---|
| 352 | & 1.2161E+01_JPRB,1.4820E+01_JPRB,1.7667E+01_JPRB,2.0767E+01_JPRB,2.3948E+01_JPRB/) |
---|
| 353 | KAO( :,12,10) = (/& |
---|
| 354 | & 1.0666E+01_JPRB,1.3093E+01_JPRB,1.5727E+01_JPRB,1.8473E+01_JPRB,2.1195E+01_JPRB/) |
---|
| 355 | KAO( :,13,10) = (/& |
---|
| 356 | & 9.3915E+00_JPRB,1.1557E+01_JPRB,1.3847E+01_JPRB,1.6172E+01_JPRB,1.8558E+01_JPRB/) |
---|
| 357 | KAO( :, 1,11) = (/& |
---|
| 358 | & 7.2842E+01_JPRB,8.2127E+01_JPRB,9.1751E+01_JPRB,1.0081E+02_JPRB,1.0868E+02_JPRB/) |
---|
| 359 | KAO( :, 2,11) = (/& |
---|
| 360 | & 7.0912E+01_JPRB,8.0211E+01_JPRB,8.9133E+01_JPRB,9.7767E+01_JPRB,1.0537E+02_JPRB/) |
---|
| 361 | KAO( :, 3,11) = (/& |
---|
| 362 | & 6.7169E+01_JPRB,7.5895E+01_JPRB,8.3957E+01_JPRB,9.1467E+01_JPRB,9.8740E+01_JPRB/) |
---|
| 363 | KAO( :, 4,11) = (/& |
---|
| 364 | & 6.1046E+01_JPRB,6.9086E+01_JPRB,7.7071E+01_JPRB,8.4625E+01_JPRB,9.2325E+01_JPRB/) |
---|
| 365 | KAO( :, 5,11) = (/& |
---|
| 366 | & 5.4291E+01_JPRB,6.1624E+01_JPRB,6.9146E+01_JPRB,7.6916E+01_JPRB,8.5050E+01_JPRB/) |
---|
| 367 | KAO( :, 6,11) = (/& |
---|
| 368 | & 4.7940E+01_JPRB,5.4754E+01_JPRB,6.1943E+01_JPRB,6.9739E+01_JPRB,7.7765E+01_JPRB/) |
---|
| 369 | KAO( :, 7,11) = (/& |
---|
| 370 | & 4.1424E+01_JPRB,4.8323E+01_JPRB,5.5884E+01_JPRB,6.3434E+01_JPRB,7.1064E+01_JPRB/) |
---|
| 371 | KAO( :, 8,11) = (/& |
---|
| 372 | & 3.4808E+01_JPRB,4.1718E+01_JPRB,4.9240E+01_JPRB,5.6728E+01_JPRB,6.4032E+01_JPRB/) |
---|
| 373 | KAO( :, 9,11) = (/& |
---|
| 374 | & 2.8724E+01_JPRB,3.5333E+01_JPRB,4.2395E+01_JPRB,4.9372E+01_JPRB,5.6186E+01_JPRB/) |
---|
| 375 | KAO( :,10,11) = (/& |
---|
| 376 | & 2.4060E+01_JPRB,2.9886E+01_JPRB,3.6171E+01_JPRB,4.2511E+01_JPRB,4.8855E+01_JPRB/) |
---|
| 377 | KAO( :,11,11) = (/& |
---|
| 378 | & 2.2466E+01_JPRB,2.7842E+01_JPRB,3.3276E+01_JPRB,3.8707E+01_JPRB,4.4411E+01_JPRB/) |
---|
| 379 | KAO( :,12,11) = (/& |
---|
| 380 | & 2.0635E+01_JPRB,2.5402E+01_JPRB,3.0130E+01_JPRB,3.5065E+01_JPRB,4.0456E+01_JPRB/) |
---|
| 381 | KAO( :,13,11) = (/& |
---|
| 382 | & 1.8375E+01_JPRB,2.2528E+01_JPRB,2.6944E+01_JPRB,3.1721E+01_JPRB,3.6642E+01_JPRB/) |
---|
| 383 | KAO( :, 1,12) = (/& |
---|
| 384 | & 1.2814E+02_JPRB,1.3938E+02_JPRB,1.4994E+02_JPRB,1.6150E+02_JPRB,1.7273E+02_JPRB/) |
---|
| 385 | KAO( :, 2,12) = (/& |
---|
| 386 | & 1.2028E+02_JPRB,1.3171E+02_JPRB,1.4381E+02_JPRB,1.5628E+02_JPRB,1.6936E+02_JPRB/) |
---|
| 387 | KAO( :, 3,12) = (/& |
---|
| 388 | & 1.0908E+02_JPRB,1.2221E+02_JPRB,1.3662E+02_JPRB,1.5108E+02_JPRB,1.6591E+02_JPRB/) |
---|
| 389 | KAO( :, 4,12) = (/& |
---|
| 390 | & 9.9689E+01_JPRB,1.1393E+02_JPRB,1.2899E+02_JPRB,1.4446E+02_JPRB,1.5932E+02_JPRB/) |
---|
| 391 | KAO( :, 5,12) = (/& |
---|
| 392 | & 9.1574E+01_JPRB,1.0647E+02_JPRB,1.2179E+02_JPRB,1.3681E+02_JPRB,1.5090E+02_JPRB/) |
---|
| 393 | KAO( :, 6,12) = (/& |
---|
| 394 | & 8.3159E+01_JPRB,9.8372E+01_JPRB,1.1370E+02_JPRB,1.2787E+02_JPRB,1.4184E+02_JPRB/) |
---|
| 395 | KAO( :, 7,12) = (/& |
---|
| 396 | & 7.5130E+01_JPRB,8.9279E+01_JPRB,1.0335E+02_JPRB,1.1696E+02_JPRB,1.3088E+02_JPRB/) |
---|
| 397 | KAO( :, 8,12) = (/& |
---|
| 398 | & 6.6942E+01_JPRB,7.9719E+01_JPRB,9.2547E+01_JPRB,1.0530E+02_JPRB,1.1887E+02_JPRB/) |
---|
| 399 | KAO( :, 9,12) = (/& |
---|
| 400 | & 5.7722E+01_JPRB,6.9837E+01_JPRB,8.2082E+01_JPRB,9.4593E+01_JPRB,1.0770E+02_JPRB/) |
---|
| 401 | KAO( :,10,12) = (/& |
---|
| 402 | & 4.9040E+01_JPRB,6.0620E+01_JPRB,7.2577E+01_JPRB,8.5187E+01_JPRB,9.7844E+01_JPRB/) |
---|
| 403 | KAO( :,11,12) = (/& |
---|
| 404 | & 4.5433E+01_JPRB,5.6352E+01_JPRB,6.8223E+01_JPRB,8.0499E+01_JPRB,9.2512E+01_JPRB/) |
---|
| 405 | KAO( :,12,12) = (/& |
---|
| 406 | & 4.1971E+01_JPRB,5.2467E+01_JPRB,6.3533E+01_JPRB,7.4543E+01_JPRB,8.5084E+01_JPRB/) |
---|
| 407 | KAO( :,13,12) = (/& |
---|
| 408 | & 3.9013E+01_JPRB,4.8568E+01_JPRB,5.8272E+01_JPRB,6.7741E+01_JPRB,7.7194E+01_JPRB/) |
---|
| 409 | KAO( :, 1,13) = (/& |
---|
| 410 | & 2.2210E+02_JPRB,2.4767E+02_JPRB,2.7177E+02_JPRB,2.9506E+02_JPRB,3.1428E+02_JPRB/) |
---|
| 411 | KAO( :, 2,13) = (/& |
---|
| 412 | & 2.2387E+02_JPRB,2.5269E+02_JPRB,2.7872E+02_JPRB,2.9937E+02_JPRB,3.1679E+02_JPRB/) |
---|
| 413 | KAO( :, 3,13) = (/& |
---|
| 414 | & 2.1746E+02_JPRB,2.4620E+02_JPRB,2.7168E+02_JPRB,2.9352E+02_JPRB,3.1488E+02_JPRB/) |
---|
| 415 | KAO( :, 4,13) = (/& |
---|
| 416 | & 2.0527E+02_JPRB,2.3513E+02_JPRB,2.5998E+02_JPRB,2.8303E+02_JPRB,3.0506E+02_JPRB/) |
---|
| 417 | KAO( :, 5,13) = (/& |
---|
| 418 | & 1.8964E+02_JPRB,2.1890E+02_JPRB,2.4311E+02_JPRB,2.6810E+02_JPRB,2.9248E+02_JPRB/) |
---|
| 419 | KAO( :, 6,13) = (/& |
---|
| 420 | & 1.7090E+02_JPRB,1.9758E+02_JPRB,2.2284E+02_JPRB,2.4839E+02_JPRB,2.7463E+02_JPRB/) |
---|
| 421 | KAO( :, 7,13) = (/& |
---|
| 422 | & 1.5109E+02_JPRB,1.7710E+02_JPRB,2.0295E+02_JPRB,2.2932E+02_JPRB,2.5634E+02_JPRB/) |
---|
| 423 | KAO( :, 8,13) = (/& |
---|
| 424 | & 1.3270E+02_JPRB,1.5826E+02_JPRB,1.8450E+02_JPRB,2.1121E+02_JPRB,2.3873E+02_JPRB/) |
---|
| 425 | KAO( :, 9,13) = (/& |
---|
| 426 | & 1.1570E+02_JPRB,1.4021E+02_JPRB,1.6653E+02_JPRB,1.9389E+02_JPRB,2.2105E+02_JPRB/) |
---|
| 427 | KAO( :,10,13) = (/& |
---|
| 428 | & 1.0259E+02_JPRB,1.2584E+02_JPRB,1.5091E+02_JPRB,1.7718E+02_JPRB,2.0281E+02_JPRB/) |
---|
| 429 | KAO( :,11,13) = (/& |
---|
| 430 | & 1.0076E+02_JPRB,1.2370E+02_JPRB,1.4756E+02_JPRB,1.7147E+02_JPRB,1.9575E+02_JPRB/) |
---|
| 431 | KAO( :,12,13) = (/& |
---|
| 432 | & 9.7325E+01_JPRB,1.1939E+02_JPRB,1.4174E+02_JPRB,1.6449E+02_JPRB,1.8836E+02_JPRB/) |
---|
| 433 | KAO( :,13,13) = (/& |
---|
| 434 | & 9.2070E+01_JPRB,1.1299E+02_JPRB,1.3489E+02_JPRB,1.5734E+02_JPRB,1.8036E+02_JPRB/) |
---|
| 435 | KAO( :, 1,14) = (/& |
---|
| 436 | & 4.2241E+02_JPRB,4.5820E+02_JPRB,4.8815E+02_JPRB,5.1730E+02_JPRB,5.4765E+02_JPRB/) |
---|
| 437 | KAO( :, 2,14) = (/& |
---|
| 438 | & 4.2461E+02_JPRB,4.6681E+02_JPRB,4.9982E+02_JPRB,5.3726E+02_JPRB,5.6640E+02_JPRB/) |
---|
| 439 | KAO( :, 3,14) = (/& |
---|
| 440 | & 4.1742E+02_JPRB,4.5924E+02_JPRB,4.9930E+02_JPRB,5.3630E+02_JPRB,5.8090E+02_JPRB/) |
---|
| 441 | KAO( :, 4,14) = (/& |
---|
| 442 | & 3.9739E+02_JPRB,4.4336E+02_JPRB,4.8832E+02_JPRB,5.2886E+02_JPRB,5.8035E+02_JPRB/) |
---|
| 443 | KAO( :, 5,14) = (/& |
---|
| 444 | & 3.7398E+02_JPRB,4.2048E+02_JPRB,4.7438E+02_JPRB,5.2486E+02_JPRB,5.7134E+02_JPRB/) |
---|
| 445 | KAO( :, 6,14) = (/& |
---|
| 446 | & 3.4725E+02_JPRB,3.9940E+02_JPRB,4.5648E+02_JPRB,5.1230E+02_JPRB,5.6617E+02_JPRB/) |
---|
| 447 | KAO( :, 7,14) = (/& |
---|
| 448 | & 3.2072E+02_JPRB,3.7728E+02_JPRB,4.3646E+02_JPRB,4.9362E+02_JPRB,5.5200E+02_JPRB/) |
---|
| 449 | KAO( :, 8,14) = (/& |
---|
| 450 | & 2.9404E+02_JPRB,3.5487E+02_JPRB,4.1802E+02_JPRB,4.7825E+02_JPRB,5.4076E+02_JPRB/) |
---|
| 451 | KAO( :, 9,14) = (/& |
---|
| 452 | & 2.7034E+02_JPRB,3.3232E+02_JPRB,3.9722E+02_JPRB,4.5997E+02_JPRB,5.2290E+02_JPRB/) |
---|
| 453 | KAO( :,10,14) = (/& |
---|
| 454 | & 2.5045E+02_JPRB,3.1309E+02_JPRB,3.7582E+02_JPRB,4.4096E+02_JPRB,5.0588E+02_JPRB/) |
---|
| 455 | KAO( :,11,14) = (/& |
---|
| 456 | & 2.5624E+02_JPRB,3.1911E+02_JPRB,3.8269E+02_JPRB,4.5034E+02_JPRB,5.1713E+02_JPRB/) |
---|
| 457 | KAO( :,12,14) = (/& |
---|
| 458 | & 2.6046E+02_JPRB,3.2208E+02_JPRB,3.8851E+02_JPRB,4.5644E+02_JPRB,5.2468E+02_JPRB/) |
---|
| 459 | KAO( :,13,14) = (/& |
---|
| 460 | & 2.6376E+02_JPRB,3.2552E+02_JPRB,3.9097E+02_JPRB,4.5804E+02_JPRB,5.2614E+02_JPRB/) |
---|
| 461 | KAO( :, 1,15) = (/& |
---|
| 462 | & 8.5706E+02_JPRB,9.2142E+02_JPRB,9.6878E+02_JPRB,1.0281E+03_JPRB,1.0795E+03_JPRB/) |
---|
| 463 | KAO( :, 2,15) = (/& |
---|
| 464 | & 9.5189E+02_JPRB,1.0335E+03_JPRB,1.0913E+03_JPRB,1.1632E+03_JPRB,1.2011E+03_JPRB/) |
---|
| 465 | KAO( :, 3,15) = (/& |
---|
| 466 | & 1.0232E+03_JPRB,1.0861E+03_JPRB,1.1646E+03_JPRB,1.2285E+03_JPRB,1.3057E+03_JPRB/) |
---|
| 467 | KAO( :, 4,15) = (/& |
---|
| 468 | & 1.0392E+03_JPRB,1.1356E+03_JPRB,1.2544E+03_JPRB,1.3115E+03_JPRB,1.4338E+03_JPRB/) |
---|
| 469 | KAO( :, 5,15) = (/& |
---|
| 470 | & 1.0616E+03_JPRB,1.1713E+03_JPRB,1.3147E+03_JPRB,1.4146E+03_JPRB,1.4989E+03_JPRB/) |
---|
| 471 | KAO( :, 6,15) = (/& |
---|
| 472 | & 1.0788E+03_JPRB,1.1886E+03_JPRB,1.3302E+03_JPRB,1.4680E+03_JPRB,1.5638E+03_JPRB/) |
---|
| 473 | KAO( :, 7,15) = (/& |
---|
| 474 | & 1.0593E+03_JPRB,1.1909E+03_JPRB,1.3423E+03_JPRB,1.4840E+03_JPRB,1.6000E+03_JPRB/) |
---|
| 475 | KAO( :, 8,15) = (/& |
---|
| 476 | & 9.9873E+02_JPRB,1.1655E+03_JPRB,1.3439E+03_JPRB,1.4887E+03_JPRB,1.6318E+03_JPRB/) |
---|
| 477 | KAO( :, 9,15) = (/& |
---|
| 478 | & 9.4071E+02_JPRB,1.1173E+03_JPRB,1.3103E+03_JPRB,1.4801E+03_JPRB,1.6507E+03_JPRB/) |
---|
| 479 | KAO( :,10,15) = (/& |
---|
| 480 | & 8.8647E+02_JPRB,1.0727E+03_JPRB,1.2703E+03_JPRB,1.4721E+03_JPRB,1.6711E+03_JPRB/) |
---|
| 481 | KAO( :,11,15) = (/& |
---|
| 482 | & 9.2131E+02_JPRB,1.1303E+03_JPRB,1.3379E+03_JPRB,1.5675E+03_JPRB,1.7706E+03_JPRB/) |
---|
| 483 | KAO( :,12,15) = (/& |
---|
| 484 | & 9.6245E+02_JPRB,1.1976E+03_JPRB,1.4205E+03_JPRB,1.6577E+03_JPRB,1.8724E+03_JPRB/) |
---|
| 485 | KAO( :,13,15) = (/& |
---|
| 486 | & 1.0149E+03_JPRB,1.2514E+03_JPRB,1.4928E+03_JPRB,1.7376E+03_JPRB,1.9688E+03_JPRB/) |
---|
| 487 | KAO( :, 1,16) = (/& |
---|
| 488 | & 1.1893E+03_JPRB,1.2688E+03_JPRB,1.3351E+03_JPRB,1.3959E+03_JPRB,1.4433E+03_JPRB/) |
---|
| 489 | KAO( :, 2,16) = (/& |
---|
| 490 | & 1.4043E+03_JPRB,1.5015E+03_JPRB,1.5933E+03_JPRB,1.6702E+03_JPRB,1.7343E+03_JPRB/) |
---|
| 491 | KAO( :, 3,16) = (/& |
---|
| 492 | & 1.6203E+03_JPRB,1.7272E+03_JPRB,1.8338E+03_JPRB,1.9414E+03_JPRB,2.0288E+03_JPRB/) |
---|
| 493 | KAO( :, 4,16) = (/& |
---|
| 494 | & 1.7997E+03_JPRB,1.9426E+03_JPRB,2.1186E+03_JPRB,2.2171E+03_JPRB,2.3429E+03_JPRB/) |
---|
| 495 | KAO( :, 5,16) = (/& |
---|
| 496 | & 1.9840E+03_JPRB,2.1906E+03_JPRB,2.3875E+03_JPRB,2.5360E+03_JPRB,2.6578E+03_JPRB/) |
---|
| 497 | KAO( :, 6,16) = (/& |
---|
| 498 | & 2.1706E+03_JPRB,2.4031E+03_JPRB,2.6185E+03_JPRB,2.8410E+03_JPRB,2.9858E+03_JPRB/) |
---|
| 499 | KAO( :, 7,16) = (/& |
---|
| 500 | & 2.3367E+03_JPRB,2.6044E+03_JPRB,2.8764E+03_JPRB,3.1365E+03_JPRB,3.3254E+03_JPRB/) |
---|
| 501 | KAO( :, 8,16) = (/& |
---|
| 502 | & 2.4353E+03_JPRB,2.7922E+03_JPRB,3.1601E+03_JPRB,3.4455E+03_JPRB,3.6918E+03_JPRB/) |
---|
| 503 | KAO( :, 9,16) = (/& |
---|
| 504 | & 2.5375E+03_JPRB,2.9571E+03_JPRB,3.4043E+03_JPRB,3.7567E+03_JPRB,4.0876E+03_JPRB/) |
---|
| 505 | KAO( :,10,16) = (/& |
---|
| 506 | & 2.6751E+03_JPRB,3.1240E+03_JPRB,3.6015E+03_JPRB,4.0631E+03_JPRB,4.4658E+03_JPRB/) |
---|
| 507 | KAO( :,11,16) = (/& |
---|
| 508 | & 3.0220E+03_JPRB,3.5297E+03_JPRB,4.0306E+03_JPRB,4.6185E+03_JPRB,5.0516E+03_JPRB/) |
---|
| 509 | KAO( :,12,16) = (/& |
---|
| 510 | & 3.3138E+03_JPRB,4.0094E+03_JPRB,4.5368E+03_JPRB,5.2030E+03_JPRB,5.7257E+03_JPRB/) |
---|
| 511 | KAO( :,13,16) = (/& |
---|
| 512 | & 3.6770E+03_JPRB,4.3534E+03_JPRB,5.0748E+03_JPRB,5.8067E+03_JPRB,6.4888E+03_JPRB/) |
---|
| 513 | |
---|
| 514 | ! The array KBO contains absorption coefs at the 16 chosen g-values |
---|
| 515 | ! for a range of pressure levels < ~100mb and temperatures. The first |
---|
| 516 | ! index in the array, JT, which runs from 1 to 5, corresponds to |
---|
| 517 | ! different temperatures. More specifically, JT = 3 means that the |
---|
| 518 | ! data are for the reference temperature TREF for this pressure |
---|
| 519 | ! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for |
---|
| 520 | ! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. |
---|
| 521 | ! The second index, JP, runs from 13 to 59 and refers to the JPth |
---|
| 522 | ! reference pressure level (see taumol.f for the value of these |
---|
| 523 | ! pressure levels in mb). The third index, IG, goes from 1 to 16, |
---|
| 524 | ! and tells us which g-interval the absorption coefficients are for. |
---|
| 525 | |
---|
| 526 | KBO( :,13, 1) = (/& |
---|
| 527 | & 1.1165E-03_JPRB,1.1247E-03_JPRB,1.1560E-03_JPRB,1.2076E-03_JPRB,1.2869E-03_JPRB/) |
---|
| 528 | KBO( :,14, 1) = (/& |
---|
| 529 | & 9.1499E-04_JPRB,9.2417E-04_JPRB,9.5214E-04_JPRB,9.9793E-04_JPRB,1.0647E-03_JPRB/) |
---|
| 530 | KBO( :,15, 1) = (/& |
---|
| 531 | & 7.4895E-04_JPRB,7.5885E-04_JPRB,7.8398E-04_JPRB,8.2364E-04_JPRB,8.7934E-04_JPRB/) |
---|
| 532 | KBO( :,16, 1) = (/& |
---|
| 533 | & 6.1285E-04_JPRB,6.2301E-04_JPRB,6.4528E-04_JPRB,6.7919E-04_JPRB,7.2561E-04_JPRB/) |
---|
| 534 | KBO( :,17, 1) = (/& |
---|
| 535 | & 5.0161E-04_JPRB,5.1162E-04_JPRB,5.3088E-04_JPRB,5.5956E-04_JPRB,5.9827E-04_JPRB/) |
---|
| 536 | KBO( :,18, 1) = (/& |
---|
| 537 | & 4.1059E-04_JPRB,4.2007E-04_JPRB,4.3635E-04_JPRB,4.6069E-04_JPRB,4.9285E-04_JPRB/) |
---|
| 538 | KBO( :,19, 1) = (/& |
---|
| 539 | & 3.3641E-04_JPRB,3.4500E-04_JPRB,3.5879E-04_JPRB,3.7929E-04_JPRB,4.0616E-04_JPRB/) |
---|
| 540 | KBO( :,20, 1) = (/& |
---|
| 541 | & 2.7603E-04_JPRB,2.8363E-04_JPRB,2.9537E-04_JPRB,3.1276E-04_JPRB,3.3531E-04_JPRB/) |
---|
| 542 | KBO( :,21, 1) = (/& |
---|
| 543 | & 2.2659E-04_JPRB,2.3317E-04_JPRB,2.4324E-04_JPRB,2.5796E-04_JPRB,2.7695E-04_JPRB/) |
---|
| 544 | KBO( :,22, 1) = (/& |
---|
| 545 | & 1.8631E-04_JPRB,1.9217E-04_JPRB,2.0103E-04_JPRB,2.1374E-04_JPRB,2.2994E-04_JPRB/) |
---|
| 546 | KBO( :,23, 1) = (/& |
---|
| 547 | & 1.5327E-04_JPRB,1.5846E-04_JPRB,1.6631E-04_JPRB,1.7723E-04_JPRB,1.9096E-04_JPRB/) |
---|
| 548 | KBO( :,24, 1) = (/& |
---|
| 549 | & 1.2620E-04_JPRB,1.3080E-04_JPRB,1.3778E-04_JPRB,1.4714E-04_JPRB,1.5867E-04_JPRB/) |
---|
| 550 | KBO( :,25, 1) = (/& |
---|
| 551 | & 1.0400E-04_JPRB,1.0810E-04_JPRB,1.1426E-04_JPRB,1.2231E-04_JPRB,1.3192E-04_JPRB/) |
---|
| 552 | KBO( :,26, 1) = (/& |
---|
| 553 | & 8.5812E-05_JPRB,8.9507E-05_JPRB,9.4927E-05_JPRB,1.0190E-04_JPRB,1.0982E-04_JPRB/) |
---|
| 554 | KBO( :,27, 1) = (/& |
---|
| 555 | & 7.0859E-05_JPRB,7.4205E-05_JPRB,7.8939E-05_JPRB,8.4957E-05_JPRB,9.1449E-05_JPRB/) |
---|
| 556 | KBO( :,28, 1) = (/& |
---|
| 557 | & 5.8569E-05_JPRB,6.1594E-05_JPRB,6.5700E-05_JPRB,7.0820E-05_JPRB,7.6191E-05_JPRB/) |
---|
| 558 | KBO( :,29, 1) = (/& |
---|
| 559 | & 4.8465E-05_JPRB,5.1177E-05_JPRB,5.4745E-05_JPRB,5.9040E-05_JPRB,6.3532E-05_JPRB/) |
---|
| 560 | KBO( :,30, 1) = (/& |
---|
| 561 | & 4.0147E-05_JPRB,4.2553E-05_JPRB,4.5653E-05_JPRB,4.9207E-05_JPRB,5.2981E-05_JPRB/) |
---|
| 562 | KBO( :,31, 1) = (/& |
---|
| 563 | & 3.3300E-05_JPRB,3.5414E-05_JPRB,3.8102E-05_JPRB,4.1014E-05_JPRB,4.4195E-05_JPRB/) |
---|
| 564 | KBO( :,32, 1) = (/& |
---|
| 565 | & 2.7662E-05_JPRB,2.9504E-05_JPRB,3.1798E-05_JPRB,3.4208E-05_JPRB,3.6892E-05_JPRB/) |
---|
| 566 | KBO( :,33, 1) = (/& |
---|
| 567 | & 2.3000E-05_JPRB,2.4605E-05_JPRB,2.6531E-05_JPRB,2.8549E-05_JPRB,3.0814E-05_JPRB/) |
---|
| 568 | KBO( :,34, 1) = (/& |
---|
| 569 | & 1.9101E-05_JPRB,2.0488E-05_JPRB,2.2081E-05_JPRB,2.3773E-05_JPRB,2.5683E-05_JPRB/) |
---|
| 570 | KBO( :,35, 1) = (/& |
---|
| 571 | & 1.5772E-05_JPRB,1.6945E-05_JPRB,1.8248E-05_JPRB,1.9654E-05_JPRB,2.1248E-05_JPRB/) |
---|
| 572 | KBO( :,36, 1) = (/& |
---|
| 573 | & 1.2932E-05_JPRB,1.3897E-05_JPRB,1.4964E-05_JPRB,1.6118E-05_JPRB,1.7427E-05_JPRB/) |
---|
| 574 | KBO( :,37, 1) = (/& |
---|
| 575 | & 1.0500E-05_JPRB,1.1266E-05_JPRB,1.2140E-05_JPRB,1.3070E-05_JPRB,1.4122E-05_JPRB/) |
---|
| 576 | KBO( :,38, 1) = (/& |
---|
| 577 | & 8.5232E-06_JPRB,9.1293E-06_JPRB,9.8424E-06_JPRB,1.0593E-05_JPRB,1.1438E-05_JPRB/) |
---|
| 578 | KBO( :,39, 1) = (/& |
---|
| 579 | & 6.9199E-06_JPRB,7.4001E-06_JPRB,7.9793E-06_JPRB,8.5851E-06_JPRB,9.2651E-06_JPRB/) |
---|
| 580 | KBO( :,40, 1) = (/& |
---|
| 581 | & 5.5869E-06_JPRB,5.9579E-06_JPRB,6.4208E-06_JPRB,6.9067E-06_JPRB,7.4490E-06_JPRB/) |
---|
| 582 | KBO( :,41, 1) = (/& |
---|
| 583 | & 4.5102E-06_JPRB,4.7959E-06_JPRB,5.1598E-06_JPRB,5.5535E-06_JPRB,5.9845E-06_JPRB/) |
---|
| 584 | KBO( :,42, 1) = (/& |
---|
| 585 | & 3.6455E-06_JPRB,3.8634E-06_JPRB,4.1445E-06_JPRB,4.4666E-06_JPRB,4.8093E-06_JPRB/) |
---|
| 586 | KBO( :,43, 1) = (/& |
---|
| 587 | & 2.9434E-06_JPRB,3.1045E-06_JPRB,3.3181E-06_JPRB,3.5779E-06_JPRB,3.8500E-06_JPRB/) |
---|
| 588 | KBO( :,44, 1) = (/& |
---|
| 589 | & 2.3784E-06_JPRB,2.4940E-06_JPRB,2.6554E-06_JPRB,2.8596E-06_JPRB,3.0773E-06_JPRB/) |
---|
| 590 | KBO( :,45, 1) = (/& |
---|
| 591 | & 1.9254E-06_JPRB,2.0073E-06_JPRB,2.1280E-06_JPRB,2.2840E-06_JPRB,2.4615E-06_JPRB/) |
---|
| 592 | KBO( :,46, 1) = (/& |
---|
| 593 | & 1.5599E-06_JPRB,1.6176E-06_JPRB,1.7055E-06_JPRB,1.8226E-06_JPRB,1.9656E-06_JPRB/) |
---|
| 594 | KBO( :,47, 1) = (/& |
---|
| 595 | & 1.2647E-06_JPRB,1.3045E-06_JPRB,1.3657E-06_JPRB,1.4527E-06_JPRB,1.5636E-06_JPRB/) |
---|
| 596 | KBO( :,48, 1) = (/& |
---|
| 597 | & 1.0280E-06_JPRB,1.0546E-06_JPRB,1.0967E-06_JPRB,1.1602E-06_JPRB,1.2430E-06_JPRB/) |
---|
| 598 | KBO( :,49, 1) = (/& |
---|
| 599 | & 8.3899E-07_JPRB,8.5435E-07_JPRB,8.8348E-07_JPRB,9.2841E-07_JPRB,9.8990E-07_JPRB/) |
---|
| 600 | KBO( :,50, 1) = (/& |
---|
| 601 | & 6.8758E-07_JPRB,6.9417E-07_JPRB,7.1424E-07_JPRB,7.4551E-07_JPRB,7.9125E-07_JPRB/) |
---|
| 602 | KBO( :,51, 1) = (/& |
---|
| 603 | & 5.6525E-07_JPRB,5.6564E-07_JPRB,5.7879E-07_JPRB,6.0067E-07_JPRB,6.3406E-07_JPRB/) |
---|
| 604 | KBO( :,52, 1) = (/& |
---|
| 605 | & 4.6614E-07_JPRB,4.6262E-07_JPRB,4.6991E-07_JPRB,4.8521E-07_JPRB,5.0895E-07_JPRB/) |
---|
| 606 | KBO( :,53, 1) = (/& |
---|
| 607 | & 3.8583E-07_JPRB,3.7971E-07_JPRB,3.8237E-07_JPRB,3.9285E-07_JPRB,4.0940E-07_JPRB/) |
---|
| 608 | KBO( :,54, 1) = (/& |
---|
| 609 | & 3.1998E-07_JPRB,3.1249E-07_JPRB,3.1214E-07_JPRB,3.1896E-07_JPRB,3.3069E-07_JPRB/) |
---|
| 610 | KBO( :,55, 1) = (/& |
---|
| 611 | & 2.6585E-07_JPRB,2.5784E-07_JPRB,2.5568E-07_JPRB,2.5953E-07_JPRB,2.6785E-07_JPRB/) |
---|
| 612 | KBO( :,56, 1) = (/& |
---|
| 613 | & 2.2137E-07_JPRB,2.1341E-07_JPRB,2.1005E-07_JPRB,2.1159E-07_JPRB,2.1739E-07_JPRB/) |
---|
| 614 | KBO( :,57, 1) = (/& |
---|
| 615 | & 1.8477E-07_JPRB,1.7712E-07_JPRB,1.7304E-07_JPRB,1.7292E-07_JPRB,1.7676E-07_JPRB/) |
---|
| 616 | KBO( :,58, 1) = (/& |
---|
| 617 | & 1.5448E-07_JPRB,1.4728E-07_JPRB,1.4291E-07_JPRB,1.4181E-07_JPRB,1.4406E-07_JPRB/) |
---|
| 618 | KBO( :,59, 1) = (/& |
---|
| 619 | & 1.2795E-07_JPRB,1.2169E-07_JPRB,1.1777E-07_JPRB,1.1651E-07_JPRB,1.1802E-07_JPRB/) |
---|
| 620 | KBO( :,13, 2) = (/& |
---|
| 621 | & 2.9516E-03_JPRB,2.9713E-03_JPRB,3.0616E-03_JPRB,3.2019E-03_JPRB,3.4017E-03_JPRB/) |
---|
| 622 | KBO( :,14, 2) = (/& |
---|
| 623 | & 2.4197E-03_JPRB,2.4414E-03_JPRB,2.5207E-03_JPRB,2.6407E-03_JPRB,2.8167E-03_JPRB/) |
---|
| 624 | KBO( :,15, 2) = (/& |
---|
| 625 | & 1.9831E-03_JPRB,2.0063E-03_JPRB,2.0755E-03_JPRB,2.1800E-03_JPRB,2.3342E-03_JPRB/) |
---|
| 626 | KBO( :,16, 2) = (/& |
---|
| 627 | & 1.6252E-03_JPRB,1.6492E-03_JPRB,1.7097E-03_JPRB,1.8014E-03_JPRB,1.9341E-03_JPRB/) |
---|
| 628 | KBO( :,17, 2) = (/& |
---|
| 629 | & 1.3321E-03_JPRB,1.3556E-03_JPRB,1.4086E-03_JPRB,1.4882E-03_JPRB,1.6017E-03_JPRB/) |
---|
| 630 | KBO( :,18, 2) = (/& |
---|
| 631 | & 1.0920E-03_JPRB,1.1148E-03_JPRB,1.1610E-03_JPRB,1.2292E-03_JPRB,1.3248E-03_JPRB/) |
---|
| 632 | KBO( :,19, 2) = (/& |
---|
| 633 | & 8.9534E-04_JPRB,9.1690E-04_JPRB,9.5709E-04_JPRB,1.0148E-03_JPRB,1.0951E-03_JPRB/) |
---|
| 634 | KBO( :,20, 2) = (/& |
---|
| 635 | & 7.3445E-04_JPRB,7.5503E-04_JPRB,7.8958E-04_JPRB,8.3863E-04_JPRB,9.0600E-04_JPRB/) |
---|
| 636 | KBO( :,21, 2) = (/& |
---|
| 637 | & 6.0290E-04_JPRB,6.2180E-04_JPRB,6.5148E-04_JPRB,6.9308E-04_JPRB,7.4966E-04_JPRB/) |
---|
| 638 | KBO( :,22, 2) = (/& |
---|
| 639 | & 4.9595E-04_JPRB,5.1353E-04_JPRB,5.3937E-04_JPRB,5.7561E-04_JPRB,6.2348E-04_JPRB/) |
---|
| 640 | KBO( :,23, 2) = (/& |
---|
| 641 | & 4.0855E-04_JPRB,4.2434E-04_JPRB,4.4677E-04_JPRB,4.7846E-04_JPRB,5.1897E-04_JPRB/) |
---|
| 642 | |
---|
| 643 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART2',1,ZHOOK_HANDLE) |
---|
| 644 | END SUBROUTINE PART2 |
---|
| 645 | |
---|
| 646 | |
---|
| 647 | SUBROUTINE PART3 |
---|
| 648 | |
---|
| 649 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 650 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART3',0,ZHOOK_HANDLE) |
---|
| 651 | |
---|
| 652 | |
---|
| 653 | KBO( :,24, 2) = (/& |
---|
| 654 | & 3.3704E-04_JPRB,3.5087E-04_JPRB,3.7041E-04_JPRB,3.9825E-04_JPRB,4.3254E-04_JPRB/) |
---|
| 655 | KBO( :,25, 2) = (/& |
---|
| 656 | & 2.7823E-04_JPRB,2.9034E-04_JPRB,3.0756E-04_JPRB,3.3176E-04_JPRB,3.6108E-04_JPRB/) |
---|
| 657 | KBO( :,26, 2) = (/& |
---|
| 658 | & 2.2988E-04_JPRB,2.4065E-04_JPRB,2.5599E-04_JPRB,2.7689E-04_JPRB,3.0218E-04_JPRB/) |
---|
| 659 | KBO( :,27, 2) = (/& |
---|
| 660 | & 1.9008E-04_JPRB,1.9966E-04_JPRB,2.1335E-04_JPRB,2.3118E-04_JPRB,2.5287E-04_JPRB/) |
---|
| 661 | KBO( :,28, 2) = (/& |
---|
| 662 | & 1.5729E-04_JPRB,1.6582E-04_JPRB,1.7804E-04_JPRB,1.9321E-04_JPRB,2.1158E-04_JPRB/) |
---|
| 663 | KBO( :,29, 2) = (/& |
---|
| 664 | & 1.3030E-04_JPRB,1.3794E-04_JPRB,1.4870E-04_JPRB,1.6172E-04_JPRB,1.7712E-04_JPRB/) |
---|
| 665 | KBO( :,30, 2) = (/& |
---|
| 666 | & 1.0807E-04_JPRB,1.1491E-04_JPRB,1.2423E-04_JPRB,1.3552E-04_JPRB,1.4830E-04_JPRB/) |
---|
| 667 | KBO( :,31, 2) = (/& |
---|
| 668 | & 8.9737E-05_JPRB,9.5873E-05_JPRB,1.0385E-04_JPRB,1.1357E-04_JPRB,1.2422E-04_JPRB/) |
---|
| 669 | KBO( :,32, 2) = (/& |
---|
| 670 | & 7.4607E-05_JPRB,8.0114E-05_JPRB,8.6925E-05_JPRB,9.5160E-05_JPRB,1.0409E-04_JPRB/) |
---|
| 671 | KBO( :,33, 2) = (/& |
---|
| 672 | & 6.2115E-05_JPRB,6.6976E-05_JPRB,7.2842E-05_JPRB,7.9749E-05_JPRB,8.7261E-05_JPRB/) |
---|
| 673 | KBO( :,34, 2) = (/& |
---|
| 674 | & 5.1667E-05_JPRB,5.5854E-05_JPRB,6.0911E-05_JPRB,6.6641E-05_JPRB,7.2945E-05_JPRB/) |
---|
| 675 | KBO( :,35, 2) = (/& |
---|
| 676 | & 4.2714E-05_JPRB,4.6224E-05_JPRB,5.0476E-05_JPRB,5.5207E-05_JPRB,6.0446E-05_JPRB/) |
---|
| 677 | KBO( :,36, 2) = (/& |
---|
| 678 | & 3.5033E-05_JPRB,3.7916E-05_JPRB,4.1413E-05_JPRB,4.5290E-05_JPRB,4.9590E-05_JPRB/) |
---|
| 679 | KBO( :,37, 2) = (/& |
---|
| 680 | & 2.8417E-05_JPRB,3.0724E-05_JPRB,3.3511E-05_JPRB,3.6656E-05_JPRB,4.0123E-05_JPRB/) |
---|
| 681 | KBO( :,38, 2) = (/& |
---|
| 682 | & 2.3044E-05_JPRB,2.4879E-05_JPRB,2.7091E-05_JPRB,2.9646E-05_JPRB,3.2440E-05_JPRB/) |
---|
| 683 | KBO( :,39, 2) = (/& |
---|
| 684 | & 1.8696E-05_JPRB,2.0150E-05_JPRB,2.1905E-05_JPRB,2.3977E-05_JPRB,2.6231E-05_JPRB/) |
---|
| 685 | KBO( :,40, 2) = (/& |
---|
| 686 | & 1.5079E-05_JPRB,1.6190E-05_JPRB,1.7561E-05_JPRB,1.9219E-05_JPRB,2.1019E-05_JPRB/) |
---|
| 687 | KBO( :,41, 2) = (/& |
---|
| 688 | & 1.2166E-05_JPRB,1.2998E-05_JPRB,1.4076E-05_JPRB,1.5387E-05_JPRB,1.6826E-05_JPRB/) |
---|
| 689 | KBO( :,42, 2) = (/& |
---|
| 690 | & 9.8245E-06_JPRB,1.0447E-05_JPRB,1.1292E-05_JPRB,1.2314E-05_JPRB,1.3470E-05_JPRB/) |
---|
| 691 | KBO( :,43, 2) = (/& |
---|
| 692 | & 7.9207E-06_JPRB,8.3766E-06_JPRB,9.0212E-06_JPRB,9.8015E-06_JPRB,1.0730E-05_JPRB/) |
---|
| 693 | KBO( :,44, 2) = (/& |
---|
| 694 | & 6.3891E-06_JPRB,6.7204E-06_JPRB,7.1950E-06_JPRB,7.7968E-06_JPRB,8.5295E-06_JPRB/) |
---|
| 695 | KBO( :,45, 2) = (/& |
---|
| 696 | & 5.1614E-06_JPRB,5.4018E-06_JPRB,5.7463E-06_JPRB,6.2126E-06_JPRB,6.7779E-06_JPRB/) |
---|
| 697 | KBO( :,46, 2) = (/& |
---|
| 698 | & 4.1735E-06_JPRB,4.3451E-06_JPRB,4.5931E-06_JPRB,4.9450E-06_JPRB,5.3724E-06_JPRB/) |
---|
| 699 | KBO( :,47, 2) = (/& |
---|
| 700 | & 3.3750E-06_JPRB,3.4959E-06_JPRB,3.6722E-06_JPRB,3.9247E-06_JPRB,4.2513E-06_JPRB/) |
---|
| 701 | KBO( :,48, 2) = (/& |
---|
| 702 | & 2.7418E-06_JPRB,2.8192E-06_JPRB,2.9434E-06_JPRB,3.1225E-06_JPRB,3.3711E-06_JPRB/) |
---|
| 703 | KBO( :,49, 2) = (/& |
---|
| 704 | & 2.2371E-06_JPRB,2.2775E-06_JPRB,2.3656E-06_JPRB,2.4925E-06_JPRB,2.6750E-06_JPRB/) |
---|
| 705 | KBO( :,50, 2) = (/& |
---|
| 706 | & 1.8317E-06_JPRB,1.8465E-06_JPRB,1.9073E-06_JPRB,1.9984E-06_JPRB,2.1290E-06_JPRB/) |
---|
| 707 | KBO( :,51, 2) = (/& |
---|
| 708 | & 1.5036E-06_JPRB,1.5039E-06_JPRB,1.5416E-06_JPRB,1.6065E-06_JPRB,1.7002E-06_JPRB/) |
---|
| 709 | KBO( :,52, 2) = (/& |
---|
| 710 | & 1.2365E-06_JPRB,1.2289E-06_JPRB,1.2476E-06_JPRB,1.2944E-06_JPRB,1.3617E-06_JPRB/) |
---|
| 711 | KBO( :,53, 2) = (/& |
---|
| 712 | & 1.0180E-06_JPRB,1.0070E-06_JPRB,1.0130E-06_JPRB,1.0447E-06_JPRB,1.0931E-06_JPRB/) |
---|
| 713 | KBO( :,54, 2) = (/& |
---|
| 714 | & 8.3881E-07_JPRB,8.2694E-07_JPRB,8.2607E-07_JPRB,8.4574E-07_JPRB,8.8059E-07_JPRB/) |
---|
| 715 | KBO( :,55, 2) = (/& |
---|
| 716 | & 6.9195E-07_JPRB,6.7987E-07_JPRB,6.7548E-07_JPRB,6.8562E-07_JPRB,7.1114E-07_JPRB/) |
---|
| 717 | KBO( :,56, 2) = (/& |
---|
| 718 | & 5.7173E-07_JPRB,5.5948E-07_JPRB,5.5356E-07_JPRB,5.5733E-07_JPRB,5.7508E-07_JPRB/) |
---|
| 719 | KBO( :,57, 2) = (/& |
---|
| 720 | & 4.7316E-07_JPRB,4.6096E-07_JPRB,4.5452E-07_JPRB,4.5448E-07_JPRB,4.6581E-07_JPRB/) |
---|
| 721 | KBO( :,58, 2) = (/& |
---|
| 722 | & 3.9189E-07_JPRB,3.8013E-07_JPRB,3.7366E-07_JPRB,3.7160E-07_JPRB,3.7785E-07_JPRB/) |
---|
| 723 | KBO( :,59, 2) = (/& |
---|
| 724 | & 3.2262E-07_JPRB,3.1241E-07_JPRB,3.0663E-07_JPRB,3.0438E-07_JPRB,3.0850E-07_JPRB/) |
---|
| 725 | KBO( :,13, 3) = (/& |
---|
| 726 | & 7.5527E-03_JPRB,7.7875E-03_JPRB,8.1613E-03_JPRB,8.7500E-03_JPRB,9.4693E-03_JPRB/) |
---|
| 727 | KBO( :,14, 3) = (/& |
---|
| 728 | & 6.2162E-03_JPRB,6.4179E-03_JPRB,6.7443E-03_JPRB,7.2436E-03_JPRB,7.8488E-03_JPRB/) |
---|
| 729 | KBO( :,15, 3) = (/& |
---|
| 730 | & 5.1154E-03_JPRB,5.2899E-03_JPRB,5.5758E-03_JPRB,5.9977E-03_JPRB,6.5097E-03_JPRB/) |
---|
| 731 | KBO( :,16, 3) = (/& |
---|
| 732 | & 4.2091E-03_JPRB,4.3598E-03_JPRB,4.6108E-03_JPRB,4.9662E-03_JPRB,5.4041E-03_JPRB/) |
---|
| 733 | KBO( :,17, 3) = (/& |
---|
| 734 | & 3.4624E-03_JPRB,3.5931E-03_JPRB,3.8125E-03_JPRB,4.1118E-03_JPRB,4.4867E-03_JPRB/) |
---|
| 735 | KBO( :,18, 3) = (/& |
---|
| 736 | & 2.8478E-03_JPRB,2.9611E-03_JPRB,3.1513E-03_JPRB,3.4056E-03_JPRB,3.7227E-03_JPRB/) |
---|
| 737 | KBO( :,19, 3) = (/& |
---|
| 738 | & 2.3424E-03_JPRB,2.4403E-03_JPRB,2.6050E-03_JPRB,2.8205E-03_JPRB,3.0875E-03_JPRB/) |
---|
| 739 | KBO( :,20, 3) = (/& |
---|
| 740 | & 1.9279E-03_JPRB,2.0136E-03_JPRB,2.1568E-03_JPRB,2.3394E-03_JPRB,2.5633E-03_JPRB/) |
---|
| 741 | KBO( :,21, 3) = (/& |
---|
| 742 | & 1.5868E-03_JPRB,1.6625E-03_JPRB,1.7866E-03_JPRB,1.9403E-03_JPRB,2.1279E-03_JPRB/) |
---|
| 743 | KBO( :,22, 3) = (/& |
---|
| 744 | & 1.3095E-03_JPRB,1.3798E-03_JPRB,1.4873E-03_JPRB,1.6185E-03_JPRB,1.7762E-03_JPRB/) |
---|
| 745 | KBO( :,23, 3) = (/& |
---|
| 746 | & 1.0820E-03_JPRB,1.1470E-03_JPRB,1.2388E-03_JPRB,1.3506E-03_JPRB,1.4828E-03_JPRB/) |
---|
| 747 | KBO( :,24, 3) = (/& |
---|
| 748 | & 8.9533E-04_JPRB,9.5480E-04_JPRB,1.0325E-03_JPRB,1.1273E-03_JPRB,1.2391E-03_JPRB/) |
---|
| 749 | KBO( :,25, 3) = (/& |
---|
| 750 | & 7.4229E-04_JPRB,7.9534E-04_JPRB,8.6151E-04_JPRB,9.4186E-04_JPRB,1.0361E-03_JPRB/) |
---|
| 751 | KBO( :,26, 3) = (/& |
---|
| 752 | & 6.1705E-04_JPRB,6.6349E-04_JPRB,7.2018E-04_JPRB,7.8870E-04_JPRB,8.6741E-04_JPRB/) |
---|
| 753 | KBO( :,27, 3) = (/& |
---|
| 754 | & 5.1373E-04_JPRB,5.5377E-04_JPRB,6.0259E-04_JPRB,6.6085E-04_JPRB,7.2640E-04_JPRB/) |
---|
| 755 | KBO( :,28, 3) = (/& |
---|
| 756 | & 4.2826E-04_JPRB,4.6245E-04_JPRB,5.0434E-04_JPRB,5.5405E-04_JPRB,6.0850E-04_JPRB/) |
---|
| 757 | KBO( :,29, 3) = (/& |
---|
| 758 | & 3.5730E-04_JPRB,3.8667E-04_JPRB,4.2255E-04_JPRB,4.6475E-04_JPRB,5.1008E-04_JPRB/) |
---|
| 759 | KBO( :,30, 3) = (/& |
---|
| 760 | & 2.9823E-04_JPRB,3.2356E-04_JPRB,3.5427E-04_JPRB,3.8963E-04_JPRB,4.2762E-04_JPRB/) |
---|
| 761 | KBO( :,31, 3) = (/& |
---|
| 762 | & 2.4915E-04_JPRB,2.7111E-04_JPRB,2.9730E-04_JPRB,3.2676E-04_JPRB,3.5853E-04_JPRB/) |
---|
| 763 | KBO( :,32, 3) = (/& |
---|
| 764 | & 2.0835E-04_JPRB,2.2726E-04_JPRB,2.4969E-04_JPRB,2.7415E-04_JPRB,3.0052E-04_JPRB/) |
---|
| 765 | KBO( :,33, 3) = (/& |
---|
| 766 | & 1.7440E-04_JPRB,1.9063E-04_JPRB,2.0966E-04_JPRB,2.3004E-04_JPRB,2.5180E-04_JPRB/) |
---|
| 767 | KBO( :,34, 3) = (/& |
---|
| 768 | & 1.4566E-04_JPRB,1.5949E-04_JPRB,1.7537E-04_JPRB,1.9242E-04_JPRB,2.1028E-04_JPRB/) |
---|
| 769 | KBO( :,35, 3) = (/& |
---|
| 770 | & 1.2069E-04_JPRB,1.3227E-04_JPRB,1.4538E-04_JPRB,1.5949E-04_JPRB,1.7412E-04_JPRB/) |
---|
| 771 | KBO( :,36, 3) = (/& |
---|
| 772 | & 9.9043E-05_JPRB,1.0856E-04_JPRB,1.1931E-04_JPRB,1.3088E-04_JPRB,1.4285E-04_JPRB/) |
---|
| 773 | KBO( :,37, 3) = (/& |
---|
| 774 | & 8.0192E-05_JPRB,8.7828E-05_JPRB,9.6552E-05_JPRB,1.0592E-04_JPRB,1.1571E-04_JPRB/) |
---|
| 775 | KBO( :,38, 3) = (/& |
---|
| 776 | & 6.4895E-05_JPRB,7.1006E-05_JPRB,7.8078E-05_JPRB,8.5641E-05_JPRB,9.3649E-05_JPRB/) |
---|
| 777 | KBO( :,39, 3) = (/& |
---|
| 778 | & 5.2529E-05_JPRB,5.7417E-05_JPRB,6.3137E-05_JPRB,6.9248E-05_JPRB,7.5786E-05_JPRB/) |
---|
| 779 | KBO( :,40, 3) = (/& |
---|
| 780 | & 4.2172E-05_JPRB,4.6011E-05_JPRB,5.0550E-05_JPRB,5.5469E-05_JPRB,6.0782E-05_JPRB/) |
---|
| 781 | KBO( :,41, 3) = (/& |
---|
| 782 | & 3.3845E-05_JPRB,3.6843E-05_JPRB,4.0405E-05_JPRB,4.4378E-05_JPRB,4.8669E-05_JPRB/) |
---|
| 783 | KBO( :,42, 3) = (/& |
---|
| 784 | & 2.7178E-05_JPRB,2.9499E-05_JPRB,3.2305E-05_JPRB,3.5507E-05_JPRB,3.8948E-05_JPRB/) |
---|
| 785 | KBO( :,43, 3) = (/& |
---|
| 786 | & 2.1748E-05_JPRB,2.3526E-05_JPRB,2.5707E-05_JPRB,2.8262E-05_JPRB,3.0999E-05_JPRB/) |
---|
| 787 | KBO( :,44, 3) = (/& |
---|
| 788 | & 1.7386E-05_JPRB,1.8745E-05_JPRB,2.0430E-05_JPRB,2.2420E-05_JPRB,2.4615E-05_JPRB/) |
---|
| 789 | KBO( :,45, 3) = (/& |
---|
| 790 | & 1.3919E-05_JPRB,1.4955E-05_JPRB,1.6239E-05_JPRB,1.7786E-05_JPRB,1.9548E-05_JPRB/) |
---|
| 791 | KBO( :,46, 3) = (/& |
---|
| 792 | & 1.1164E-05_JPRB,1.1925E-05_JPRB,1.2898E-05_JPRB,1.4092E-05_JPRB,1.5493E-05_JPRB/) |
---|
| 793 | KBO( :,47, 3) = (/& |
---|
| 794 | & 8.9724E-06_JPRB,9.4906E-06_JPRB,1.0225E-05_JPRB,1.1136E-05_JPRB,1.2214E-05_JPRB/) |
---|
| 795 | KBO( :,48, 3) = (/& |
---|
| 796 | & 7.2294E-06_JPRB,7.5737E-06_JPRB,8.1199E-06_JPRB,8.8033E-06_JPRB,9.6335E-06_JPRB/) |
---|
| 797 | KBO( :,49, 3) = (/& |
---|
| 798 | & 5.8381E-06_JPRB,6.0726E-06_JPRB,6.4582E-06_JPRB,6.9718E-06_JPRB,7.6076E-06_JPRB/) |
---|
| 799 | KBO( :,50, 3) = (/& |
---|
| 800 | & 4.7296E-06_JPRB,4.8930E-06_JPRB,5.1532E-06_JPRB,5.5428E-06_JPRB,6.0261E-06_JPRB/) |
---|
| 801 | KBO( :,51, 3) = (/& |
---|
| 802 | & 3.8399E-06_JPRB,3.9514E-06_JPRB,4.1284E-06_JPRB,4.4168E-06_JPRB,4.7822E-06_JPRB/) |
---|
| 803 | KBO( :,52, 3) = (/& |
---|
| 804 | & 3.1245E-06_JPRB,3.1973E-06_JPRB,3.3211E-06_JPRB,3.5239E-06_JPRB,3.8012E-06_JPRB/) |
---|
| 805 | KBO( :,53, 3) = (/& |
---|
| 806 | & 2.5471E-06_JPRB,2.5925E-06_JPRB,2.6785E-06_JPRB,2.8158E-06_JPRB,3.0258E-06_JPRB/) |
---|
| 807 | KBO( :,54, 3) = (/& |
---|
| 808 | & 2.0814E-06_JPRB,2.1073E-06_JPRB,2.1664E-06_JPRB,2.2617E-06_JPRB,2.4173E-06_JPRB/) |
---|
| 809 | KBO( :,55, 3) = (/& |
---|
| 810 | & 1.7028E-06_JPRB,1.7165E-06_JPRB,1.7558E-06_JPRB,1.8239E-06_JPRB,1.9350E-06_JPRB/) |
---|
| 811 | KBO( :,56, 3) = (/& |
---|
| 812 | & 1.3936E-06_JPRB,1.4001E-06_JPRB,1.4255E-06_JPRB,1.4737E-06_JPRB,1.5508E-06_JPRB/) |
---|
| 813 | KBO( :,57, 3) = (/& |
---|
| 814 | & 1.1409E-06_JPRB,1.1442E-06_JPRB,1.1589E-06_JPRB,1.1924E-06_JPRB,1.2461E-06_JPRB/) |
---|
| 815 | KBO( :,58, 3) = (/& |
---|
| 816 | & 9.3532E-07_JPRB,9.3617E-07_JPRB,9.4415E-07_JPRB,9.6677E-07_JPRB,1.0053E-06_JPRB/) |
---|
| 817 | KBO( :,59, 3) = (/& |
---|
| 818 | & 7.6716E-07_JPRB,7.6655E-07_JPRB,7.7193E-07_JPRB,7.8900E-07_JPRB,8.1899E-07_JPRB/) |
---|
| 819 | KBO( :,13, 4) = (/& |
---|
| 820 | & 2.0095E-02_JPRB,2.1182E-02_JPRB,2.2225E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/) |
---|
| 821 | KBO( :,14, 4) = (/& |
---|
| 822 | & 1.6601E-02_JPRB,1.7480E-02_JPRB,1.8338E-02_JPRB,1.9231E-02_JPRB,2.0128E-02_JPRB/) |
---|
| 823 | KBO( :,15, 4) = (/& |
---|
| 824 | & 1.3711E-02_JPRB,1.4425E-02_JPRB,1.5134E-02_JPRB,1.5868E-02_JPRB,1.6611E-02_JPRB/) |
---|
| 825 | KBO( :,16, 4) = (/& |
---|
| 826 | & 1.1319E-02_JPRB,1.1903E-02_JPRB,1.2490E-02_JPRB,1.3094E-02_JPRB,1.3700E-02_JPRB/) |
---|
| 827 | KBO( :,17, 4) = (/& |
---|
| 828 | & 9.3377E-03_JPRB,9.8166E-03_JPRB,1.0301E-02_JPRB,1.0797E-02_JPRB,1.1296E-02_JPRB/) |
---|
| 829 | KBO( :,18, 4) = (/& |
---|
| 830 | & 7.6994E-03_JPRB,8.0931E-03_JPRB,8.4951E-03_JPRB,8.8986E-03_JPRB,9.3140E-03_JPRB/) |
---|
| 831 | KBO( :,19, 4) = (/& |
---|
| 832 | & 6.3454E-03_JPRB,6.6690E-03_JPRB,7.0019E-03_JPRB,7.3313E-03_JPRB,7.6829E-03_JPRB/) |
---|
| 833 | KBO( :,20, 4) = (/& |
---|
| 834 | & 5.2328E-03_JPRB,5.5001E-03_JPRB,5.7724E-03_JPRB,6.0469E-03_JPRB,6.3413E-03_JPRB/) |
---|
| 835 | KBO( :,21, 4) = (/& |
---|
| 836 | & 4.3150E-03_JPRB,4.5344E-03_JPRB,4.7593E-03_JPRB,4.9881E-03_JPRB,5.2336E-03_JPRB/) |
---|
| 837 | KBO( :,22, 4) = (/& |
---|
| 838 | & 3.5703E-03_JPRB,3.7499E-03_JPRB,3.9366E-03_JPRB,4.1268E-03_JPRB,4.3318E-03_JPRB/) |
---|
| 839 | KBO( :,23, 4) = (/& |
---|
| 840 | & 2.9547E-03_JPRB,3.1024E-03_JPRB,3.2576E-03_JPRB,3.4140E-03_JPRB,3.5849E-03_JPRB/) |
---|
| 841 | KBO( :,24, 4) = (/& |
---|
| 842 | & 2.4452E-03_JPRB,2.5697E-03_JPRB,2.6961E-03_JPRB,2.8259E-03_JPRB,2.9642E-03_JPRB/) |
---|
| 843 | KBO( :,25, 4) = (/& |
---|
| 844 | & 2.0245E-03_JPRB,2.1288E-03_JPRB,2.2320E-03_JPRB,2.3397E-03_JPRB,2.4511E-03_JPRB/) |
---|
| 845 | KBO( :,26, 4) = (/& |
---|
| 846 | & 1.6785E-03_JPRB,1.7643E-03_JPRB,1.8488E-03_JPRB,1.9387E-03_JPRB,2.0283E-03_JPRB/) |
---|
| 847 | KBO( :,27, 4) = (/& |
---|
| 848 | & 1.3920E-03_JPRB,1.4619E-03_JPRB,1.5313E-03_JPRB,1.6067E-03_JPRB,1.6789E-03_JPRB/) |
---|
| 849 | KBO( :,28, 4) = (/& |
---|
| 850 | & 1.1548E-03_JPRB,1.2112E-03_JPRB,1.2686E-03_JPRB,1.3305E-03_JPRB,1.3899E-03_JPRB/) |
---|
| 851 | KBO( :,29, 4) = (/& |
---|
| 852 | & 9.5779E-04_JPRB,1.0036E-03_JPRB,1.0515E-03_JPRB,1.1016E-03_JPRB,1.1501E-03_JPRB/) |
---|
| 853 | KBO( :,30, 4) = (/& |
---|
| 854 | & 7.9398E-04_JPRB,8.3159E-04_JPRB,8.7176E-04_JPRB,9.1222E-04_JPRB,9.5119E-04_JPRB/) |
---|
| 855 | KBO( :,31, 4) = (/& |
---|
| 856 | & 6.5813E-04_JPRB,6.8913E-04_JPRB,7.2305E-04_JPRB,7.5559E-04_JPRB,7.8680E-04_JPRB/) |
---|
| 857 | KBO( :,32, 4) = (/& |
---|
| 858 | & 5.4557E-04_JPRB,5.7133E-04_JPRB,5.9920E-04_JPRB,6.2591E-04_JPRB,6.5094E-04_JPRB/) |
---|
| 859 | KBO( :,33, 4) = (/& |
---|
| 860 | & 4.5225E-04_JPRB,4.7384E-04_JPRB,4.9635E-04_JPRB,5.1810E-04_JPRB,5.3850E-04_JPRB/) |
---|
| 861 | KBO( :,34, 4) = (/& |
---|
| 862 | & 3.7429E-04_JPRB,3.9240E-04_JPRB,4.1057E-04_JPRB,4.2811E-04_JPRB,4.4483E-04_JPRB/) |
---|
| 863 | KBO( :,35, 4) = (/& |
---|
| 864 | & 3.0841E-04_JPRB,3.2350E-04_JPRB,3.3821E-04_JPRB,3.5240E-04_JPRB,3.6608E-04_JPRB/) |
---|
| 865 | KBO( :,36, 4) = (/& |
---|
| 866 | & 2.5285E-04_JPRB,2.6525E-04_JPRB,2.7729E-04_JPRB,2.8885E-04_JPRB,3.0006E-04_JPRB/) |
---|
| 867 | KBO( :,37, 4) = (/& |
---|
| 868 | & 2.0586E-04_JPRB,2.1585E-04_JPRB,2.2582E-04_JPRB,2.3540E-04_JPRB,2.4457E-04_JPRB/) |
---|
| 869 | KBO( :,38, 4) = (/& |
---|
| 870 | & 1.6753E-04_JPRB,1.7559E-04_JPRB,1.8384E-04_JPRB,1.9177E-04_JPRB,1.9927E-04_JPRB/) |
---|
| 871 | KBO( :,39, 4) = (/& |
---|
| 872 | & 1.3635E-04_JPRB,1.4286E-04_JPRB,1.4968E-04_JPRB,1.5622E-04_JPRB,1.6235E-04_JPRB/) |
---|
| 873 | KBO( :,40, 4) = (/& |
---|
| 874 | & 1.1045E-04_JPRB,1.1567E-04_JPRB,1.2132E-04_JPRB,1.2672E-04_JPRB,1.3176E-04_JPRB/) |
---|
| 875 | KBO( :,41, 4) = (/& |
---|
| 876 | & 8.9410E-05_JPRB,9.3610E-05_JPRB,9.8241E-05_JPRB,1.0266E-04_JPRB,1.0686E-04_JPRB/) |
---|
| 877 | KBO( :,42, 4) = (/& |
---|
| 878 | & 7.2378E-05_JPRB,7.5781E-05_JPRB,7.9465E-05_JPRB,8.3145E-05_JPRB,8.6672E-05_JPRB/) |
---|
| 879 | KBO( :,43, 4) = (/& |
---|
| 880 | & 5.8424E-05_JPRB,6.1188E-05_JPRB,6.4107E-05_JPRB,6.7188E-05_JPRB,7.0140E-05_JPRB/) |
---|
| 881 | KBO( :,44, 4) = (/& |
---|
| 882 | & 4.7058E-05_JPRB,4.9346E-05_JPRB,5.1671E-05_JPRB,5.4230E-05_JPRB,5.6657E-05_JPRB/) |
---|
| 883 | KBO( :,45, 4) = (/& |
---|
| 884 | & 3.7899E-05_JPRB,3.9798E-05_JPRB,4.1669E-05_JPRB,4.3706E-05_JPRB,4.5724E-05_JPRB/) |
---|
| 885 | KBO( :,46, 4) = (/& |
---|
| 886 | & 3.0497E-05_JPRB,3.2055E-05_JPRB,3.3572E-05_JPRB,3.5176E-05_JPRB,3.6873E-05_JPRB/) |
---|
| 887 | KBO( :,47, 4) = (/& |
---|
| 888 | & 2.4479E-05_JPRB,2.5732E-05_JPRB,2.6995E-05_JPRB,2.8267E-05_JPRB,2.9671E-05_JPRB/) |
---|
| 889 | KBO( :,48, 4) = (/& |
---|
| 890 | & 1.9635E-05_JPRB,2.0659E-05_JPRB,2.1706E-05_JPRB,2.2729E-05_JPRB,2.3830E-05_JPRB/) |
---|
| 891 | KBO( :,49, 4) = (/& |
---|
| 892 | & 1.5750E-05_JPRB,1.6588E-05_JPRB,1.7438E-05_JPRB,1.8276E-05_JPRB,1.9144E-05_JPRB/) |
---|
| 893 | KBO( :,50, 4) = (/& |
---|
| 894 | & 1.2638E-05_JPRB,1.3327E-05_JPRB,1.4014E-05_JPRB,1.4713E-05_JPRB,1.5408E-05_JPRB/) |
---|
| 895 | KBO( :,51, 4) = (/& |
---|
| 896 | & 1.0134E-05_JPRB,1.0710E-05_JPRB,1.1273E-05_JPRB,1.1849E-05_JPRB,1.2410E-05_JPRB/) |
---|
| 897 | KBO( :,52, 4) = (/& |
---|
| 898 | & 8.1350E-06_JPRB,8.6070E-06_JPRB,9.0666E-06_JPRB,9.5314E-06_JPRB,9.9961E-06_JPRB/) |
---|
| 899 | KBO( :,53, 4) = (/& |
---|
| 900 | & 6.5268E-06_JPRB,6.9077E-06_JPRB,7.2874E-06_JPRB,7.6647E-06_JPRB,8.0514E-06_JPRB/) |
---|
| 901 | KBO( :,54, 4) = (/& |
---|
| 902 | & 5.2400E-06_JPRB,5.5504E-06_JPRB,5.8662E-06_JPRB,6.1754E-06_JPRB,6.4922E-06_JPRB/) |
---|
| 903 | KBO( :,55, 4) = (/& |
---|
| 904 | & 4.2244E-06_JPRB,4.4665E-06_JPRB,4.7250E-06_JPRB,4.9775E-06_JPRB,5.2331E-06_JPRB/) |
---|
| 905 | KBO( :,56, 4) = (/& |
---|
| 906 | & 3.4163E-06_JPRB,3.5930E-06_JPRB,3.8023E-06_JPRB,4.0104E-06_JPRB,4.2175E-06_JPRB/) |
---|
| 907 | KBO( :,57, 4) = (/& |
---|
| 908 | & 2.7693E-06_JPRB,2.8867E-06_JPRB,3.0575E-06_JPRB,3.2307E-06_JPRB,3.4003E-06_JPRB/) |
---|
| 909 | KBO( :,58, 4) = (/& |
---|
| 910 | & 2.2500E-06_JPRB,2.3279E-06_JPRB,2.4627E-06_JPRB,2.6048E-06_JPRB,2.7433E-06_JPRB/) |
---|
| 911 | KBO( :,59, 4) = (/& |
---|
| 912 | & 1.8386E-06_JPRB,1.8966E-06_JPRB,2.0040E-06_JPRB,2.1199E-06_JPRB,2.2332E-06_JPRB/) |
---|
| 913 | KBO( :,13, 5) = (/& |
---|
| 914 | & 3.7227E-02_JPRB,3.9236E-02_JPRB,4.1136E-02_JPRB,4.2635E-02_JPRB,4.4125E-02_JPRB/) |
---|
| 915 | KBO( :,14, 5) = (/& |
---|
| 916 | & 3.0731E-02_JPRB,3.2386E-02_JPRB,3.3908E-02_JPRB,3.5126E-02_JPRB,3.6383E-02_JPRB/) |
---|
| 917 | KBO( :,15, 5) = (/& |
---|
| 918 | & 2.5378E-02_JPRB,2.6727E-02_JPRB,2.7941E-02_JPRB,2.8947E-02_JPRB,3.0002E-02_JPRB/) |
---|
| 919 | KBO( :,16, 5) = (/& |
---|
| 920 | & 2.0959E-02_JPRB,2.2046E-02_JPRB,2.3014E-02_JPRB,2.3851E-02_JPRB,2.4734E-02_JPRB/) |
---|
| 921 | KBO( :,17, 5) = (/& |
---|
| 922 | & 1.7294E-02_JPRB,1.8176E-02_JPRB,1.8952E-02_JPRB,1.9643E-02_JPRB,2.0380E-02_JPRB/) |
---|
| 923 | KBO( :,18, 5) = (/& |
---|
| 924 | & 1.4261E-02_JPRB,1.4983E-02_JPRB,1.5597E-02_JPRB,1.6174E-02_JPRB,1.6784E-02_JPRB/) |
---|
| 925 | KBO( :,19, 5) = (/& |
---|
| 926 | & 1.1754E-02_JPRB,1.2342E-02_JPRB,1.2837E-02_JPRB,1.3312E-02_JPRB,1.3820E-02_JPRB/) |
---|
| 927 | KBO( :,20, 5) = (/& |
---|
| 928 | & 9.6940E-03_JPRB,1.0172E-02_JPRB,1.0569E-02_JPRB,1.0962E-02_JPRB,1.1389E-02_JPRB/) |
---|
| 929 | KBO( :,21, 5) = (/& |
---|
| 930 | & 7.9935E-03_JPRB,8.3804E-03_JPRB,8.7019E-03_JPRB,9.0256E-03_JPRB,9.3917E-03_JPRB/) |
---|
| 931 | KBO( :,22, 5) = (/& |
---|
| 932 | & 6.6098E-03_JPRB,6.9213E-03_JPRB,7.1802E-03_JPRB,7.4552E-03_JPRB,7.7626E-03_JPRB/) |
---|
| 933 | KBO( :,23, 5) = (/& |
---|
| 934 | & 5.4675E-03_JPRB,5.7122E-03_JPRB,5.9276E-03_JPRB,6.1590E-03_JPRB,6.4177E-03_JPRB/) |
---|
| 935 | KBO( :,24, 5) = (/& |
---|
| 936 | & 4.5248E-03_JPRB,4.7145E-03_JPRB,4.8956E-03_JPRB,5.0905E-03_JPRB,5.3103E-03_JPRB/) |
---|
| 937 | KBO( :,25, 5) = (/& |
---|
| 938 | & 3.7436E-03_JPRB,3.8938E-03_JPRB,4.0451E-03_JPRB,4.2083E-03_JPRB,4.3977E-03_JPRB/) |
---|
| 939 | KBO( :,26, 5) = (/& |
---|
| 940 | & 3.0980E-03_JPRB,3.2193E-03_JPRB,3.3446E-03_JPRB,3.4820E-03_JPRB,3.6461E-03_JPRB/) |
---|
| 941 | KBO( :,27, 5) = (/& |
---|
| 942 | & 2.5629E-03_JPRB,2.6621E-03_JPRB,2.7660E-03_JPRB,2.8810E-03_JPRB,3.0242E-03_JPRB/) |
---|
| 943 | |
---|
| 944 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART3',1,ZHOOK_HANDLE) |
---|
| 945 | END SUBROUTINE PART3 |
---|
| 946 | |
---|
| 947 | |
---|
| 948 | SUBROUTINE PART4 |
---|
| 949 | |
---|
| 950 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 951 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART4',0,ZHOOK_HANDLE) |
---|
| 952 | |
---|
| 953 | |
---|
| 954 | KBO( :,28, 5) = (/& |
---|
| 955 | & 2.1185E-03_JPRB,2.2012E-03_JPRB,2.2881E-03_JPRB,2.3854E-03_JPRB,2.5100E-03_JPRB/) |
---|
| 956 | KBO( :,29, 5) = (/& |
---|
| 957 | & 1.7520E-03_JPRB,1.8201E-03_JPRB,1.8933E-03_JPRB,1.9774E-03_JPRB,2.0861E-03_JPRB/) |
---|
| 958 | KBO( :,30, 5) = (/& |
---|
| 959 | & 1.4490E-03_JPRB,1.5053E-03_JPRB,1.5668E-03_JPRB,1.6405E-03_JPRB,1.7353E-03_JPRB/) |
---|
| 960 | KBO( :,31, 5) = (/& |
---|
| 961 | & 1.1987E-03_JPRB,1.2454E-03_JPRB,1.2970E-03_JPRB,1.3620E-03_JPRB,1.4446E-03_JPRB/) |
---|
| 962 | KBO( :,32, 5) = (/& |
---|
| 963 | & 9.9162E-04_JPRB,1.0307E-03_JPRB,1.0749E-03_JPRB,1.1317E-03_JPRB,1.2036E-03_JPRB/) |
---|
| 964 | KBO( :,33, 5) = (/& |
---|
| 965 | & 8.2024E-04_JPRB,8.5336E-04_JPRB,8.9176E-04_JPRB,9.4137E-04_JPRB,1.0034E-03_JPRB/) |
---|
| 966 | KBO( :,34, 5) = (/& |
---|
| 967 | & 6.7773E-04_JPRB,7.0554E-04_JPRB,7.3898E-04_JPRB,7.8201E-04_JPRB,8.3490E-04_JPRB/) |
---|
| 968 | KBO( :,35, 5) = (/& |
---|
| 969 | & 5.5797E-04_JPRB,5.8103E-04_JPRB,6.0950E-04_JPRB,6.4595E-04_JPRB,6.9024E-04_JPRB/) |
---|
| 970 | KBO( :,36, 5) = (/& |
---|
| 971 | & 4.5741E-04_JPRB,4.7636E-04_JPRB,4.9987E-04_JPRB,5.2994E-04_JPRB,5.6634E-04_JPRB/) |
---|
| 972 | KBO( :,37, 5) = (/& |
---|
| 973 | & 3.7275E-04_JPRB,3.8812E-04_JPRB,4.0671E-04_JPRB,4.3063E-04_JPRB,4.5983E-04_JPRB/) |
---|
| 974 | KBO( :,38, 5) = (/& |
---|
| 975 | & 3.0368E-04_JPRB,3.1612E-04_JPRB,3.3079E-04_JPRB,3.4977E-04_JPRB,3.7316E-04_JPRB/) |
---|
| 976 | KBO( :,39, 5) = (/& |
---|
| 977 | & 2.4743E-04_JPRB,2.5746E-04_JPRB,2.6909E-04_JPRB,2.8414E-04_JPRB,3.0287E-04_JPRB/) |
---|
| 978 | KBO( :,40, 5) = (/& |
---|
| 979 | & 2.0083E-04_JPRB,2.0881E-04_JPRB,2.1786E-04_JPRB,2.2950E-04_JPRB,2.4422E-04_JPRB/) |
---|
| 980 | KBO( :,41, 5) = (/& |
---|
| 981 | & 1.6290E-04_JPRB,1.6930E-04_JPRB,1.7640E-04_JPRB,1.8539E-04_JPRB,1.9681E-04_JPRB/) |
---|
| 982 | KBO( :,42, 5) = (/& |
---|
| 983 | & 1.3212E-04_JPRB,1.3729E-04_JPRB,1.4297E-04_JPRB,1.4983E-04_JPRB,1.5865E-04_JPRB/) |
---|
| 984 | KBO( :,43, 5) = (/& |
---|
| 985 | & 1.0692E-04_JPRB,1.1111E-04_JPRB,1.1561E-04_JPRB,1.2081E-04_JPRB,1.2752E-04_JPRB/) |
---|
| 986 | KBO( :,44, 5) = (/& |
---|
| 987 | & 8.6484E-05_JPRB,8.9851E-05_JPRB,9.3401E-05_JPRB,9.7384E-05_JPRB,1.0246E-04_JPRB/) |
---|
| 988 | KBO( :,45, 5) = (/& |
---|
| 989 | & 6.9902E-05_JPRB,7.2641E-05_JPRB,7.5491E-05_JPRB,7.8632E-05_JPRB,8.2438E-05_JPRB/) |
---|
| 990 | KBO( :,46, 5) = (/& |
---|
| 991 | & 5.6357E-05_JPRB,5.8678E-05_JPRB,6.0987E-05_JPRB,6.3456E-05_JPRB,6.6309E-05_JPRB/) |
---|
| 992 | KBO( :,47, 5) = (/& |
---|
| 993 | & 4.5246E-05_JPRB,4.7351E-05_JPRB,4.9188E-05_JPRB,5.1132E-05_JPRB,5.3302E-05_JPRB/) |
---|
| 994 | KBO( :,48, 5) = (/& |
---|
| 995 | & 3.6331E-05_JPRB,3.8149E-05_JPRB,3.9667E-05_JPRB,4.1226E-05_JPRB,4.2932E-05_JPRB/) |
---|
| 996 | KBO( :,49, 5) = (/& |
---|
| 997 | & 2.9150E-05_JPRB,3.0662E-05_JPRB,3.1997E-05_JPRB,3.3254E-05_JPRB,3.4583E-05_JPRB/) |
---|
| 998 | KBO( :,50, 5) = (/& |
---|
| 999 | & 2.3393E-05_JPRB,2.4645E-05_JPRB,2.5835E-05_JPRB,2.6842E-05_JPRB,2.7903E-05_JPRB/) |
---|
| 1000 | KBO( :,51, 5) = (/& |
---|
| 1001 | & 1.8850E-05_JPRB,1.9822E-05_JPRB,2.0830E-05_JPRB,2.1675E-05_JPRB,2.2533E-05_JPRB/) |
---|
| 1002 | KBO( :,52, 5) = (/& |
---|
| 1003 | & 1.5259E-05_JPRB,1.5932E-05_JPRB,1.6760E-05_JPRB,1.7514E-05_JPRB,1.8199E-05_JPRB/) |
---|
| 1004 | KBO( :,53, 5) = (/& |
---|
| 1005 | & 1.2418E-05_JPRB,1.2796E-05_JPRB,1.3482E-05_JPRB,1.4141E-05_JPRB,1.4696E-05_JPRB/) |
---|
| 1006 | KBO( :,54, 5) = (/& |
---|
| 1007 | & 1.0153E-05_JPRB,1.0334E-05_JPRB,1.0859E-05_JPRB,1.1414E-05_JPRB,1.1882E-05_JPRB/) |
---|
| 1008 | KBO( :,55, 5) = (/& |
---|
| 1009 | & 8.3134E-06_JPRB,8.3805E-06_JPRB,8.7476E-06_JPRB,9.2016E-06_JPRB,9.6168E-06_JPRB/) |
---|
| 1010 | KBO( :,56, 5) = (/& |
---|
| 1011 | & 6.8128E-06_JPRB,6.8250E-06_JPRB,7.0422E-06_JPRB,7.4184E-06_JPRB,7.7786E-06_JPRB/) |
---|
| 1012 | KBO( :,57, 5) = (/& |
---|
| 1013 | & 5.5871E-06_JPRB,5.5794E-06_JPRB,5.6879E-06_JPRB,5.9805E-06_JPRB,6.2836E-06_JPRB/) |
---|
| 1014 | KBO( :,58, 5) = (/& |
---|
| 1015 | & 4.5833E-06_JPRB,4.5677E-06_JPRB,4.6123E-06_JPRB,4.8228E-06_JPRB,5.0715E-06_JPRB/) |
---|
| 1016 | KBO( :,59, 5) = (/& |
---|
| 1017 | & 3.7554E-06_JPRB,3.7413E-06_JPRB,3.7664E-06_JPRB,3.9250E-06_JPRB,4.1286E-06_JPRB/) |
---|
| 1018 | KBO( :,13, 6) = (/& |
---|
| 1019 | & 5.9721E-02_JPRB,6.1354E-02_JPRB,6.5184E-02_JPRB,7.1296E-02_JPRB,7.9076E-02_JPRB/) |
---|
| 1020 | KBO( :,14, 6) = (/& |
---|
| 1021 | & 4.9090E-02_JPRB,5.0657E-02_JPRB,5.4055E-02_JPRB,5.9268E-02_JPRB,6.5784E-02_JPRB/) |
---|
| 1022 | KBO( :,15, 6) = (/& |
---|
| 1023 | & 4.0373E-02_JPRB,4.1857E-02_JPRB,4.4839E-02_JPRB,4.9265E-02_JPRB,5.4749E-02_JPRB/) |
---|
| 1024 | KBO( :,16, 6) = (/& |
---|
| 1025 | & 3.3205E-02_JPRB,3.4589E-02_JPRB,3.7200E-02_JPRB,4.0963E-02_JPRB,4.5588E-02_JPRB/) |
---|
| 1026 | KBO( :,17, 6) = (/& |
---|
| 1027 | & 2.7321E-02_JPRB,2.8572E-02_JPRB,3.0844E-02_JPRB,3.4044E-02_JPRB,3.7943E-02_JPRB/) |
---|
| 1028 | KBO( :,18, 6) = (/& |
---|
| 1029 | & 2.2479E-02_JPRB,2.3595E-02_JPRB,2.5570E-02_JPRB,2.8293E-02_JPRB,3.1545E-02_JPRB/) |
---|
| 1030 | KBO( :,19, 6) = (/& |
---|
| 1031 | & 1.8500E-02_JPRB,1.9491E-02_JPRB,2.1196E-02_JPRB,2.3496E-02_JPRB,2.6203E-02_JPRB/) |
---|
| 1032 | KBO( :,20, 6) = (/& |
---|
| 1033 | & 1.5238E-02_JPRB,1.6125E-02_JPRB,1.7598E-02_JPRB,1.9543E-02_JPRB,2.1792E-02_JPRB/) |
---|
| 1034 | KBO( :,21, 6) = (/& |
---|
| 1035 | & 1.2557E-02_JPRB,1.3343E-02_JPRB,1.4614E-02_JPRB,1.6252E-02_JPRB,1.8124E-02_JPRB/) |
---|
| 1036 | KBO( :,22, 6) = (/& |
---|
| 1037 | & 1.0384E-02_JPRB,1.1107E-02_JPRB,1.2217E-02_JPRB,1.3612E-02_JPRB,1.5187E-02_JPRB/) |
---|
| 1038 | KBO( :,23, 6) = (/& |
---|
| 1039 | & 8.6014E-03_JPRB,9.2602E-03_JPRB,1.0223E-02_JPRB,1.1410E-02_JPRB,1.2737E-02_JPRB/) |
---|
| 1040 | KBO( :,24, 6) = (/& |
---|
| 1041 | & 7.1344E-03_JPRB,7.7349E-03_JPRB,8.5670E-03_JPRB,9.5773E-03_JPRB,1.0688E-02_JPRB/) |
---|
| 1042 | KBO( :,25, 6) = (/& |
---|
| 1043 | & 5.9318E-03_JPRB,6.4720E-03_JPRB,7.1956E-03_JPRB,8.0463E-03_JPRB,8.9744E-03_JPRB/) |
---|
| 1044 | KBO( :,26, 6) = (/& |
---|
| 1045 | & 4.9484E-03_JPRB,5.4321E-03_JPRB,6.0595E-03_JPRB,6.7732E-03_JPRB,7.5465E-03_JPRB/) |
---|
| 1046 | KBO( :,27, 6) = (/& |
---|
| 1047 | & 4.1359E-03_JPRB,4.5660E-03_JPRB,5.1046E-03_JPRB,5.7011E-03_JPRB,6.3447E-03_JPRB/) |
---|
| 1048 | KBO( :,28, 6) = (/& |
---|
| 1049 | & 3.4651E-03_JPRB,3.8427E-03_JPRB,4.2986E-03_JPRB,4.7976E-03_JPRB,5.3324E-03_JPRB/) |
---|
| 1050 | KBO( :,29, 6) = (/& |
---|
| 1051 | & 2.9102E-03_JPRB,3.2386E-03_JPRB,3.6218E-03_JPRB,4.0393E-03_JPRB,4.4830E-03_JPRB/) |
---|
| 1052 | KBO( :,30, 6) = (/& |
---|
| 1053 | & 2.4470E-03_JPRB,2.7307E-03_JPRB,3.0520E-03_JPRB,3.4007E-03_JPRB,3.7682E-03_JPRB/) |
---|
| 1054 | KBO( :,31, 6) = (/& |
---|
| 1055 | & 2.0606E-03_JPRB,2.3037E-03_JPRB,2.5728E-03_JPRB,2.8636E-03_JPRB,3.1684E-03_JPRB/) |
---|
| 1056 | KBO( :,32, 6) = (/& |
---|
| 1057 | & 1.7372E-03_JPRB,1.9434E-03_JPRB,2.1690E-03_JPRB,2.4112E-03_JPRB,2.6643E-03_JPRB/) |
---|
| 1058 | KBO( :,33, 6) = (/& |
---|
| 1059 | & 1.4660E-03_JPRB,1.6395E-03_JPRB,1.8287E-03_JPRB,2.0301E-03_JPRB,2.2400E-03_JPRB/) |
---|
| 1060 | KBO( :,34, 6) = (/& |
---|
| 1061 | & 1.2328E-03_JPRB,1.3780E-03_JPRB,1.5359E-03_JPRB,1.7027E-03_JPRB,1.8761E-03_JPRB/) |
---|
| 1062 | KBO( :,35, 6) = (/& |
---|
| 1063 | & 1.0255E-03_JPRB,1.1459E-03_JPRB,1.2766E-03_JPRB,1.4142E-03_JPRB,1.5568E-03_JPRB/) |
---|
| 1064 | KBO( :,36, 6) = (/& |
---|
| 1065 | & 8.4246E-04_JPRB,9.4144E-04_JPRB,1.0489E-03_JPRB,1.1618E-03_JPRB,1.2788E-03_JPRB/) |
---|
| 1066 | KBO( :,37, 6) = (/& |
---|
| 1067 | & 6.8032E-04_JPRB,7.6059E-04_JPRB,8.4800E-04_JPRB,9.4011E-04_JPRB,1.0358E-03_JPRB/) |
---|
| 1068 | KBO( :,38, 6) = (/& |
---|
| 1069 | & 5.4877E-04_JPRB,6.1380E-04_JPRB,6.8481E-04_JPRB,7.5996E-04_JPRB,8.3820E-04_JPRB/) |
---|
| 1070 | KBO( :,39, 6) = (/& |
---|
| 1071 | & 4.4270E-04_JPRB,4.9539E-04_JPRB,5.5302E-04_JPRB,6.1429E-04_JPRB,6.7818E-04_JPRB/) |
---|
| 1072 | KBO( :,40, 6) = (/& |
---|
| 1073 | & 3.5308E-04_JPRB,3.9528E-04_JPRB,4.4159E-04_JPRB,4.9127E-04_JPRB,5.4322E-04_JPRB/) |
---|
| 1074 | KBO( :,41, 6) = (/& |
---|
| 1075 | & 2.8136E-04_JPRB,3.1489E-04_JPRB,3.5201E-04_JPRB,3.9219E-04_JPRB,4.3434E-04_JPRB/) |
---|
| 1076 | KBO( :,42, 6) = (/& |
---|
| 1077 | & 2.2435E-04_JPRB,2.5074E-04_JPRB,2.8049E-04_JPRB,3.1292E-04_JPRB,3.4710E-04_JPRB/) |
---|
| 1078 | KBO( :,43, 6) = (/& |
---|
| 1079 | & 1.7802E-04_JPRB,1.9831E-04_JPRB,2.2204E-04_JPRB,2.4800E-04_JPRB,2.7568E-04_JPRB/) |
---|
| 1080 | KBO( :,44, 6) = (/& |
---|
| 1081 | & 1.4111E-04_JPRB,1.5650E-04_JPRB,1.7526E-04_JPRB,1.9592E-04_JPRB,2.1824E-04_JPRB/) |
---|
| 1082 | KBO( :,45, 6) = (/& |
---|
| 1083 | & 1.1219E-04_JPRB,1.2365E-04_JPRB,1.3828E-04_JPRB,1.5471E-04_JPRB,1.7263E-04_JPRB/) |
---|
| 1084 | KBO( :,46, 6) = (/& |
---|
| 1085 | & 8.9353E-05_JPRB,9.7626E-05_JPRB,1.0876E-04_JPRB,1.2182E-04_JPRB,1.3611E-04_JPRB/) |
---|
| 1086 | KBO( :,47, 6) = (/& |
---|
| 1087 | & 7.1331E-05_JPRB,7.6923E-05_JPRB,8.5223E-05_JPRB,9.5443E-05_JPRB,1.0675E-04_JPRB/) |
---|
| 1088 | KBO( :,48, 6) = (/& |
---|
| 1089 | & 5.7219E-05_JPRB,6.0885E-05_JPRB,6.6897E-05_JPRB,7.4726E-05_JPRB,8.3664E-05_JPRB/) |
---|
| 1090 | KBO( :,49, 6) = (/& |
---|
| 1091 | & 4.6157E-05_JPRB,4.8450E-05_JPRB,5.2634E-05_JPRB,5.8499E-05_JPRB,6.5552E-05_JPRB/) |
---|
| 1092 | KBO( :,50, 6) = (/& |
---|
| 1093 | & 3.7497E-05_JPRB,3.8822E-05_JPRB,4.1643E-05_JPRB,4.5997E-05_JPRB,5.1490E-05_JPRB/) |
---|
| 1094 | KBO( :,51, 6) = (/& |
---|
| 1095 | & 3.0548E-05_JPRB,3.1258E-05_JPRB,3.3116E-05_JPRB,3.6272E-05_JPRB,4.0468E-05_JPRB/) |
---|
| 1096 | KBO( :,52, 6) = (/& |
---|
| 1097 | & 2.4904E-05_JPRB,2.5290E-05_JPRB,2.6467E-05_JPRB,2.8662E-05_JPRB,3.1824E-05_JPRB/) |
---|
| 1098 | KBO( :,53, 6) = (/& |
---|
| 1099 | & 2.0318E-05_JPRB,2.0573E-05_JPRB,2.1239E-05_JPRB,2.2721E-05_JPRB,2.5059E-05_JPRB/) |
---|
| 1100 | KBO( :,54, 6) = (/& |
---|
| 1101 | & 1.6597E-05_JPRB,1.6771E-05_JPRB,1.7139E-05_JPRB,1.8127E-05_JPRB,1.9830E-05_JPRB/) |
---|
| 1102 | KBO( :,55, 6) = (/& |
---|
| 1103 | & 1.3561E-05_JPRB,1.3681E-05_JPRB,1.3892E-05_JPRB,1.4536E-05_JPRB,1.5739E-05_JPRB/) |
---|
| 1104 | KBO( :,56, 6) = (/& |
---|
| 1105 | & 1.1086E-05_JPRB,1.1167E-05_JPRB,1.1310E-05_JPRB,1.1693E-05_JPRB,1.2526E-05_JPRB/) |
---|
| 1106 | KBO( :,57, 6) = (/& |
---|
| 1107 | & 9.0628E-06_JPRB,9.1225E-06_JPRB,9.2203E-06_JPRB,9.4367E-06_JPRB,9.9993E-06_JPRB/) |
---|
| 1108 | KBO( :,58, 6) = (/& |
---|
| 1109 | & 7.4303E-06_JPRB,7.4548E-06_JPRB,7.5223E-06_JPRB,7.6481E-06_JPRB,8.0215E-06_JPRB/) |
---|
| 1110 | KBO( :,59, 6) = (/& |
---|
| 1111 | & 6.0935E-06_JPRB,6.1009E-06_JPRB,6.1525E-06_JPRB,6.2448E-06_JPRB,6.5226E-06_JPRB/) |
---|
| 1112 | KBO( :,13, 7) = (/& |
---|
| 1113 | & 1.1588E-01_JPRB,1.3365E-01_JPRB,1.5332E-01_JPRB,1.7451E-01_JPRB,1.9690E-01_JPRB/) |
---|
| 1114 | KBO( :,14, 7) = (/& |
---|
| 1115 | & 9.7055E-02_JPRB,1.1196E-01_JPRB,1.2839E-01_JPRB,1.4612E-01_JPRB,1.6488E-01_JPRB/) |
---|
| 1116 | KBO( :,15, 7) = (/& |
---|
| 1117 | & 8.1294E-02_JPRB,9.3772E-02_JPRB,1.0756E-01_JPRB,1.2240E-01_JPRB,1.3809E-01_JPRB/) |
---|
| 1118 | KBO( :,16, 7) = (/& |
---|
| 1119 | & 6.8061E-02_JPRB,7.8545E-02_JPRB,9.0101E-02_JPRB,1.0250E-01_JPRB,1.1550E-01_JPRB/) |
---|
| 1120 | KBO( :,17, 7) = (/& |
---|
| 1121 | & 5.6952E-02_JPRB,6.5739E-02_JPRB,7.5393E-02_JPRB,8.5665E-02_JPRB,9.6436E-02_JPRB/) |
---|
| 1122 | KBO( :,18, 7) = (/& |
---|
| 1123 | & 4.7617E-02_JPRB,5.4966E-02_JPRB,6.2979E-02_JPRB,7.1480E-02_JPRB,8.0409E-02_JPRB/) |
---|
| 1124 | KBO( :,19, 7) = (/& |
---|
| 1125 | & 3.9773E-02_JPRB,4.5894E-02_JPRB,5.2544E-02_JPRB,5.9585E-02_JPRB,6.7003E-02_JPRB/) |
---|
| 1126 | KBO( :,20, 7) = (/& |
---|
| 1127 | & 3.3266E-02_JPRB,3.8381E-02_JPRB,4.3891E-02_JPRB,4.9742E-02_JPRB,5.5899E-02_JPRB/) |
---|
| 1128 | KBO( :,21, 7) = (/& |
---|
| 1129 | & 2.7821E-02_JPRB,3.2077E-02_JPRB,3.6647E-02_JPRB,4.1505E-02_JPRB,4.6608E-02_JPRB/) |
---|
| 1130 | KBO( :,22, 7) = (/& |
---|
| 1131 | & 2.3478E-02_JPRB,2.7039E-02_JPRB,3.0839E-02_JPRB,3.4879E-02_JPRB,3.9103E-02_JPRB/) |
---|
| 1132 | KBO( :,23, 7) = (/& |
---|
| 1133 | & 1.9822E-02_JPRB,2.2790E-02_JPRB,2.5960E-02_JPRB,2.9305E-02_JPRB,3.2804E-02_JPRB/) |
---|
| 1134 | KBO( :,24, 7) = (/& |
---|
| 1135 | & 1.6745E-02_JPRB,1.9225E-02_JPRB,2.1856E-02_JPRB,2.4636E-02_JPRB,2.7545E-02_JPRB/) |
---|
| 1136 | KBO( :,25, 7) = (/& |
---|
| 1137 | & 1.4161E-02_JPRB,1.6225E-02_JPRB,1.8415E-02_JPRB,2.0732E-02_JPRB,2.3157E-02_JPRB/) |
---|
| 1138 | KBO( :,26, 7) = (/& |
---|
| 1139 | & 1.2003E-02_JPRB,1.3719E-02_JPRB,1.5547E-02_JPRB,1.7489E-02_JPRB,1.9498E-02_JPRB/) |
---|
| 1140 | KBO( :,27, 7) = (/& |
---|
| 1141 | & 1.0171E-02_JPRB,1.1602E-02_JPRB,1.3133E-02_JPRB,1.4753E-02_JPRB,1.6413E-02_JPRB/) |
---|
| 1142 | KBO( :,28, 7) = (/& |
---|
| 1143 | & 8.6151E-03_JPRB,9.8138E-03_JPRB,1.1097E-02_JPRB,1.2440E-02_JPRB,1.3808E-02_JPRB/) |
---|
| 1144 | KBO( :,29, 7) = (/& |
---|
| 1145 | & 7.3031E-03_JPRB,8.3100E-03_JPRB,9.3806E-03_JPRB,1.0489E-02_JPRB,1.1614E-02_JPRB/) |
---|
| 1146 | KBO( :,30, 7) = (/& |
---|
| 1147 | & 6.1924E-03_JPRB,7.0350E-03_JPRB,7.9243E-03_JPRB,8.8379E-03_JPRB,9.7615E-03_JPRB/) |
---|
| 1148 | KBO( :,31, 7) = (/& |
---|
| 1149 | & 5.2533E-03_JPRB,5.9562E-03_JPRB,6.6929E-03_JPRB,7.4442E-03_JPRB,8.2040E-03_JPRB/) |
---|
| 1150 | KBO( :,32, 7) = (/& |
---|
| 1151 | & 4.4571E-03_JPRB,5.0422E-03_JPRB,5.6504E-03_JPRB,6.2688E-03_JPRB,6.8946E-03_JPRB/) |
---|
| 1152 | KBO( :,33, 7) = (/& |
---|
| 1153 | & 3.7800E-03_JPRB,4.2660E-03_JPRB,4.7678E-03_JPRB,5.2772E-03_JPRB,5.7931E-03_JPRB/) |
---|
| 1154 | KBO( :,34, 7) = (/& |
---|
| 1155 | & 3.1899E-03_JPRB,3.5923E-03_JPRB,4.0058E-03_JPRB,4.4259E-03_JPRB,4.8520E-03_JPRB/) |
---|
| 1156 | KBO( :,35, 7) = (/& |
---|
| 1157 | & 2.6588E-03_JPRB,2.9911E-03_JPRB,3.3311E-03_JPRB,3.6773E-03_JPRB,4.0289E-03_JPRB/) |
---|
| 1158 | KBO( :,36, 7) = (/& |
---|
| 1159 | & 2.1867E-03_JPRB,2.4598E-03_JPRB,2.7392E-03_JPRB,3.0239E-03_JPRB,3.3135E-03_JPRB/) |
---|
| 1160 | KBO( :,37, 7) = (/& |
---|
| 1161 | & 1.7654E-03_JPRB,1.9884E-03_JPRB,2.2175E-03_JPRB,2.4512E-03_JPRB,2.6886E-03_JPRB/) |
---|
| 1162 | KBO( :,38, 7) = (/& |
---|
| 1163 | & 1.4235E-03_JPRB,1.6055E-03_JPRB,1.7932E-03_JPRB,1.9849E-03_JPRB,2.1796E-03_JPRB/) |
---|
| 1164 | KBO( :,39, 7) = (/& |
---|
| 1165 | & 1.1477E-03_JPRB,1.2961E-03_JPRB,1.4499E-03_JPRB,1.6071E-03_JPRB,1.7668E-03_JPRB/) |
---|
| 1166 | KBO( :,40, 7) = (/& |
---|
| 1167 | & 9.1302E-04_JPRB,1.0335E-03_JPRB,1.1591E-03_JPRB,1.2877E-03_JPRB,1.4185E-03_JPRB/) |
---|
| 1168 | KBO( :,41, 7) = (/& |
---|
| 1169 | & 7.2467E-04_JPRB,8.2221E-04_JPRB,9.2464E-04_JPRB,1.0298E-03_JPRB,1.1370E-03_JPRB/) |
---|
| 1170 | KBO( :,42, 7) = (/& |
---|
| 1171 | & 5.7474E-04_JPRB,6.5369E-04_JPRB,7.3701E-04_JPRB,8.2293E-04_JPRB,9.1070E-04_JPRB/) |
---|
| 1172 | KBO( :,43, 7) = (/& |
---|
| 1173 | & 4.5204E-04_JPRB,5.1571E-04_JPRB,5.8312E-04_JPRB,6.5322E-04_JPRB,7.2492E-04_JPRB/) |
---|
| 1174 | KBO( :,44, 7) = (/& |
---|
| 1175 | & 3.5397E-04_JPRB,4.0509E-04_JPRB,4.5944E-04_JPRB,5.1651E-04_JPRB,5.7502E-04_JPRB/) |
---|
| 1176 | KBO( :,45, 7) = (/& |
---|
| 1177 | & 2.7677E-04_JPRB,3.1783E-04_JPRB,3.6162E-04_JPRB,4.0793E-04_JPRB,4.5562E-04_JPRB/) |
---|
| 1178 | KBO( :,46, 7) = (/& |
---|
| 1179 | & 2.1540E-04_JPRB,2.4835E-04_JPRB,2.8358E-04_JPRB,3.2093E-04_JPRB,3.5979E-04_JPRB/) |
---|
| 1180 | KBO( :,47, 7) = (/& |
---|
| 1181 | & 1.6633E-04_JPRB,1.9266E-04_JPRB,2.2081E-04_JPRB,2.5080E-04_JPRB,2.8236E-04_JPRB/) |
---|
| 1182 | KBO( :,48, 7) = (/& |
---|
| 1183 | & 1.2830E-04_JPRB,1.4914E-04_JPRB,1.7167E-04_JPRB,1.9573E-04_JPRB,2.2121E-04_JPRB/) |
---|
| 1184 | KBO( :,49, 7) = (/& |
---|
| 1185 | & 9.8900E-05_JPRB,1.1524E-04_JPRB,1.3325E-04_JPRB,1.5252E-04_JPRB,1.7300E-04_JPRB/) |
---|
| 1186 | KBO( :,50, 7) = (/& |
---|
| 1187 | & 7.6523E-05_JPRB,8.9264E-05_JPRB,1.0363E-04_JPRB,1.1906E-04_JPRB,1.3550E-04_JPRB/) |
---|
| 1188 | KBO( :,51, 7) = (/& |
---|
| 1189 | & 5.9350E-05_JPRB,6.9204E-05_JPRB,8.0571E-05_JPRB,9.2952E-05_JPRB,1.0617E-04_JPRB/) |
---|
| 1190 | KBO( :,52, 7) = (/& |
---|
| 1191 | & 4.6110E-05_JPRB,5.3638E-05_JPRB,6.2565E-05_JPRB,7.2480E-05_JPRB,8.3081E-05_JPRB/) |
---|
| 1192 | KBO( :,53, 7) = (/& |
---|
| 1193 | & 3.5907E-05_JPRB,4.1572E-05_JPRB,4.8523E-05_JPRB,5.6421E-05_JPRB,6.4919E-05_JPRB/) |
---|
| 1194 | KBO( :,54, 7) = (/& |
---|
| 1195 | & 2.8169E-05_JPRB,3.2394E-05_JPRB,3.7786E-05_JPRB,4.4047E-05_JPRB,5.0874E-05_JPRB/) |
---|
| 1196 | KBO( :,55, 7) = (/& |
---|
| 1197 | & 2.2244E-05_JPRB,2.5332E-05_JPRB,2.9480E-05_JPRB,3.4420E-05_JPRB,3.9903E-05_JPRB/) |
---|
| 1198 | KBO( :,56, 7) = (/& |
---|
| 1199 | & 1.7661E-05_JPRB,1.9848E-05_JPRB,2.3004E-05_JPRB,2.6875E-05_JPRB,3.1261E-05_JPRB/) |
---|
| 1200 | KBO( :,57, 7) = (/& |
---|
| 1201 | & 1.4116E-05_JPRB,1.5590E-05_JPRB,1.7962E-05_JPRB,2.0972E-05_JPRB,2.4457E-05_JPRB/) |
---|
| 1202 | KBO( :,58, 7) = (/& |
---|
| 1203 | & 1.1342E-05_JPRB,1.2323E-05_JPRB,1.4076E-05_JPRB,1.6403E-05_JPRB,1.9161E-05_JPRB/) |
---|
| 1204 | KBO( :,59, 7) = (/& |
---|
| 1205 | & 9.2282E-06_JPRB,9.9669E-06_JPRB,1.1338E-05_JPRB,1.3199E-05_JPRB,1.5427E-05_JPRB/) |
---|
| 1206 | KBO( :,13, 8) = (/& |
---|
| 1207 | & 3.3007E-01_JPRB,3.9651E-01_JPRB,4.6809E-01_JPRB,5.4357E-01_JPRB,6.2157E-01_JPRB/) |
---|
| 1208 | KBO( :,14, 8) = (/& |
---|
| 1209 | & 2.7899E-01_JPRB,3.3507E-01_JPRB,3.9534E-01_JPRB,4.5851E-01_JPRB,5.2383E-01_JPRB/) |
---|
| 1210 | KBO( :,15, 8) = (/& |
---|
| 1211 | & 2.3603E-01_JPRB,2.8320E-01_JPRB,3.3377E-01_JPRB,3.8669E-01_JPRB,4.4137E-01_JPRB/) |
---|
| 1212 | KBO( :,16, 8) = (/& |
---|
| 1213 | & 1.9959E-01_JPRB,2.3926E-01_JPRB,2.8155E-01_JPRB,3.2567E-01_JPRB,3.7161E-01_JPRB/) |
---|
| 1214 | KBO( :,17, 8) = (/& |
---|
| 1215 | & 1.6854E-01_JPRB,2.0171E-01_JPRB,2.3696E-01_JPRB,2.7391E-01_JPRB,3.1236E-01_JPRB/) |
---|
| 1216 | KBO( :,18, 8) = (/& |
---|
| 1217 | & 1.4209E-01_JPRB,1.6977E-01_JPRB,1.9918E-01_JPRB,2.3009E-01_JPRB,2.6229E-01_JPRB/) |
---|
| 1218 | KBO( :,19, 8) = (/& |
---|
| 1219 | & 1.1954E-01_JPRB,1.4262E-01_JPRB,1.6719E-01_JPRB,1.9301E-01_JPRB,2.1984E-01_JPRB/) |
---|
| 1220 | KBO( :,20, 8) = (/& |
---|
| 1221 | & 1.0077E-01_JPRB,1.2005E-01_JPRB,1.4054E-01_JPRB,1.6208E-01_JPRB,1.8429E-01_JPRB/) |
---|
| 1222 | KBO( :,21, 8) = (/& |
---|
| 1223 | & 8.4914E-02_JPRB,1.0100E-01_JPRB,1.1806E-01_JPRB,1.3588E-01_JPRB,1.5437E-01_JPRB/) |
---|
| 1224 | KBO( :,22, 8) = (/& |
---|
| 1225 | & 7.2355E-02_JPRB,8.5791E-02_JPRB,9.9982E-02_JPRB,1.1481E-01_JPRB,1.3020E-01_JPRB/) |
---|
| 1226 | KBO( :,23, 8) = (/& |
---|
| 1227 | & 6.1637E-02_JPRB,7.2833E-02_JPRB,8.4658E-02_JPRB,9.6984E-02_JPRB,1.0981E-01_JPRB/) |
---|
| 1228 | KBO( :,24, 8) = (/& |
---|
| 1229 | & 5.2514E-02_JPRB,6.1860E-02_JPRB,7.1701E-02_JPRB,8.1967E-02_JPRB,9.2596E-02_JPRB/) |
---|
| 1230 | KBO( :,25, 8) = (/& |
---|
| 1231 | & 4.4769E-02_JPRB,5.2568E-02_JPRB,6.0763E-02_JPRB,6.9296E-02_JPRB,7.8120E-02_JPRB/) |
---|
| 1232 | KBO( :,26, 8) = (/& |
---|
| 1233 | & 3.8253E-02_JPRB,4.4756E-02_JPRB,5.1578E-02_JPRB,5.8670E-02_JPRB,6.6013E-02_JPRB/) |
---|
| 1234 | KBO( :,27, 8) = (/& |
---|
| 1235 | & 3.2667E-02_JPRB,3.8088E-02_JPRB,4.3757E-02_JPRB,4.9656E-02_JPRB,5.5793E-02_JPRB/) |
---|
| 1236 | KBO( :,28, 8) = (/& |
---|
| 1237 | & 2.7877E-02_JPRB,3.2393E-02_JPRB,3.7109E-02_JPRB,4.2030E-02_JPRB,4.7179E-02_JPRB/) |
---|
| 1238 | KBO( :,29, 8) = (/& |
---|
| 1239 | & 2.3797E-02_JPRB,2.7555E-02_JPRB,3.1491E-02_JPRB,3.5617E-02_JPRB,3.9923E-02_JPRB/) |
---|
| 1240 | KBO( :,30, 8) = (/& |
---|
| 1241 | & 2.0298E-02_JPRB,2.3432E-02_JPRB,2.6727E-02_JPRB,3.0189E-02_JPRB,3.3773E-02_JPRB/) |
---|
| 1242 | KBO( :,31, 8) = (/& |
---|
| 1243 | & 1.7314E-02_JPRB,1.9936E-02_JPRB,2.2701E-02_JPRB,2.5587E-02_JPRB,2.8571E-02_JPRB/) |
---|
| 1244 | |
---|
| 1245 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART4',1,ZHOOK_HANDLE) |
---|
| 1246 | END SUBROUTINE PART4 |
---|
| 1247 | |
---|
| 1248 | |
---|
| 1249 | SUBROUTINE PART5 |
---|
| 1250 | |
---|
| 1251 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 1252 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART5',0,ZHOOK_HANDLE) |
---|
| 1253 | |
---|
| 1254 | |
---|
| 1255 | KBO( :,32, 8) = (/& |
---|
| 1256 | & 1.4770E-02_JPRB,1.6972E-02_JPRB,1.9281E-02_JPRB,2.1688E-02_JPRB,2.4162E-02_JPRB/) |
---|
| 1257 | KBO( :,33, 8) = (/& |
---|
| 1258 | & 1.2600E-02_JPRB,1.4446E-02_JPRB,1.6373E-02_JPRB,1.8374E-02_JPRB,2.0424E-02_JPRB/) |
---|
| 1259 | KBO( :,34, 8) = (/& |
---|
| 1260 | & 1.0696E-02_JPRB,1.2236E-02_JPRB,1.3839E-02_JPRB,1.5497E-02_JPRB,1.7194E-02_JPRB/) |
---|
| 1261 | KBO( :,35, 8) = (/& |
---|
| 1262 | & 8.9555E-03_JPRB,1.0232E-02_JPRB,1.1559E-02_JPRB,1.2931E-02_JPRB,1.4335E-02_JPRB/) |
---|
| 1263 | KBO( :,36, 8) = (/& |
---|
| 1264 | & 7.3846E-03_JPRB,8.4373E-03_JPRB,9.5325E-03_JPRB,1.0662E-02_JPRB,1.1822E-02_JPRB/) |
---|
| 1265 | KBO( :,37, 8) = (/& |
---|
| 1266 | & 5.9606E-03_JPRB,6.8233E-03_JPRB,7.7209E-03_JPRB,8.6487E-03_JPRB,9.6041E-03_JPRB/) |
---|
| 1267 | KBO( :,38, 8) = (/& |
---|
| 1268 | & 4.8037E-03_JPRB,5.5105E-03_JPRB,6.2459E-03_JPRB,7.0079E-03_JPRB,7.7943E-03_JPRB/) |
---|
| 1269 | KBO( :,39, 8) = (/& |
---|
| 1270 | & 3.8706E-03_JPRB,4.4491E-03_JPRB,5.0519E-03_JPRB,5.6779E-03_JPRB,6.3251E-03_JPRB/) |
---|
| 1271 | KBO( :,40, 8) = (/& |
---|
| 1272 | & 3.0705E-03_JPRB,3.5417E-03_JPRB,4.0336E-03_JPRB,4.5461E-03_JPRB,5.0773E-03_JPRB/) |
---|
| 1273 | KBO( :,41, 8) = (/& |
---|
| 1274 | & 2.4285E-03_JPRB,2.8118E-03_JPRB,3.2129E-03_JPRB,3.6318E-03_JPRB,4.0673E-03_JPRB/) |
---|
| 1275 | KBO( :,42, 8) = (/& |
---|
| 1276 | & 1.9184E-03_JPRB,2.2300E-03_JPRB,2.5570E-03_JPRB,2.8991E-03_JPRB,3.2561E-03_JPRB/) |
---|
| 1277 | KBO( :,43, 8) = (/& |
---|
| 1278 | & 1.4999E-03_JPRB,1.7522E-03_JPRB,2.0180E-03_JPRB,2.2966E-03_JPRB,2.5881E-03_JPRB/) |
---|
| 1279 | KBO( :,44, 8) = (/& |
---|
| 1280 | & 1.1655E-03_JPRB,1.3694E-03_JPRB,1.5849E-03_JPRB,1.8113E-03_JPRB,2.0488E-03_JPRB/) |
---|
| 1281 | KBO( :,45, 8) = (/& |
---|
| 1282 | & 9.0376E-04_JPRB,1.0682E-03_JPRB,1.2427E-03_JPRB,1.4266E-03_JPRB,1.6199E-03_JPRB/) |
---|
| 1283 | KBO( :,46, 8) = (/& |
---|
| 1284 | & 6.9650E-04_JPRB,8.2858E-04_JPRB,9.6950E-04_JPRB,1.1186E-03_JPRB,1.2755E-03_JPRB/) |
---|
| 1285 | KBO( :,47, 8) = (/& |
---|
| 1286 | & 5.3108E-04_JPRB,6.3643E-04_JPRB,7.4984E-04_JPRB,8.7018E-04_JPRB,9.9721E-04_JPRB/) |
---|
| 1287 | KBO( :,48, 8) = (/& |
---|
| 1288 | & 4.0361E-04_JPRB,4.8742E-04_JPRB,5.7833E-04_JPRB,6.7534E-04_JPRB,7.7807E-04_JPRB/) |
---|
| 1289 | KBO( :,49, 8) = (/& |
---|
| 1290 | & 3.0566E-04_JPRB,3.7215E-04_JPRB,4.4475E-04_JPRB,5.2279E-04_JPRB,6.0579E-04_JPRB/) |
---|
| 1291 | KBO( :,50, 8) = (/& |
---|
| 1292 | & 2.3193E-04_JPRB,2.8459E-04_JPRB,3.4251E-04_JPRB,4.0526E-04_JPRB,4.7230E-04_JPRB/) |
---|
| 1293 | KBO( :,51, 8) = (/& |
---|
| 1294 | & 1.7590E-04_JPRB,2.1748E-04_JPRB,2.6361E-04_JPRB,3.1395E-04_JPRB,3.6804E-04_JPRB/) |
---|
| 1295 | KBO( :,52, 8) = (/& |
---|
| 1296 | & 1.3304E-04_JPRB,1.6573E-04_JPRB,2.0240E-04_JPRB,2.4265E-04_JPRB,2.8621E-04_JPRB/) |
---|
| 1297 | KBO( :,53, 8) = (/& |
---|
| 1298 | & 1.0033E-04_JPRB,1.2590E-04_JPRB,1.5496E-04_JPRB,1.8704E-04_JPRB,2.2201E-04_JPRB/) |
---|
| 1299 | KBO( :,54, 8) = (/& |
---|
| 1300 | & 7.6043E-05_JPRB,9.6033E-05_JPRB,1.1903E-04_JPRB,1.4464E-04_JPRB,1.7271E-04_JPRB/) |
---|
| 1301 | KBO( :,55, 8) = (/& |
---|
| 1302 | & 5.7725E-05_JPRB,7.3309E-05_JPRB,9.1482E-05_JPRB,1.1190E-04_JPRB,1.3439E-04_JPRB/) |
---|
| 1303 | KBO( :,56, 8) = (/& |
---|
| 1304 | & 4.3773E-05_JPRB,5.5845E-05_JPRB,7.0155E-05_JPRB,8.6401E-05_JPRB,1.0439E-04_JPRB/) |
---|
| 1305 | KBO( :,57, 8) = (/& |
---|
| 1306 | & 3.3178E-05_JPRB,4.2466E-05_JPRB,5.3677E-05_JPRB,6.6562E-05_JPRB,8.0932E-05_JPRB/) |
---|
| 1307 | KBO( :,58, 8) = (/& |
---|
| 1308 | & 2.5276E-05_JPRB,3.2365E-05_JPRB,4.1133E-05_JPRB,5.1343E-05_JPRB,6.2815E-05_JPRB/) |
---|
| 1309 | KBO( :,59, 8) = (/& |
---|
| 1310 | & 2.0138E-05_JPRB,2.5779E-05_JPRB,3.2836E-05_JPRB,4.1105E-05_JPRB,5.0433E-05_JPRB/) |
---|
| 1311 | KBO( :,13, 9) = (/& |
---|
| 1312 | & 2.0575E+00_JPRB,2.5259E+00_JPRB,3.0234E+00_JPRB,3.5471E+00_JPRB,4.0892E+00_JPRB/) |
---|
| 1313 | KBO( :,14, 9) = (/& |
---|
| 1314 | & 1.7896E+00_JPRB,2.1936E+00_JPRB,2.6243E+00_JPRB,3.0754E+00_JPRB,3.5357E+00_JPRB/) |
---|
| 1315 | KBO( :,15, 9) = (/& |
---|
| 1316 | & 1.5532E+00_JPRB,1.9005E+00_JPRB,2.2698E+00_JPRB,2.6534E+00_JPRB,3.0460E+00_JPRB/) |
---|
| 1317 | KBO( :,16, 9) = (/& |
---|
| 1318 | & 1.3431E+00_JPRB,1.6399E+00_JPRB,1.9542E+00_JPRB,2.2801E+00_JPRB,2.6154E+00_JPRB/) |
---|
| 1319 | KBO( :,17, 9) = (/& |
---|
| 1320 | & 1.1564E+00_JPRB,1.4091E+00_JPRB,1.6750E+00_JPRB,1.9517E+00_JPRB,2.2353E+00_JPRB/) |
---|
| 1321 | KBO( :,18, 9) = (/& |
---|
| 1322 | & 9.9261E-01_JPRB,1.2059E+00_JPRB,1.4303E+00_JPRB,1.6635E+00_JPRB,1.9029E+00_JPRB/) |
---|
| 1323 | KBO( :,19, 9) = (/& |
---|
| 1324 | & 8.4829E-01_JPRB,1.0283E+00_JPRB,1.2171E+00_JPRB,1.4131E+00_JPRB,1.6142E+00_JPRB/) |
---|
| 1325 | KBO( :,20, 9) = (/& |
---|
| 1326 | & 7.2551E-01_JPRB,8.7689E-01_JPRB,1.0360E+00_JPRB,1.2012E+00_JPRB,1.3703E+00_JPRB/) |
---|
| 1327 | KBO( :,21, 9) = (/& |
---|
| 1328 | & 6.1932E-01_JPRB,7.4645E-01_JPRB,8.8019E-01_JPRB,1.0189E+00_JPRB,1.1616E+00_JPRB/) |
---|
| 1329 | KBO( :,22, 9) = (/& |
---|
| 1330 | & 5.3436E-01_JPRB,6.4171E-01_JPRB,7.5441E-01_JPRB,8.7104E-01_JPRB,9.9107E-01_JPRB/) |
---|
| 1331 | KBO( :,23, 9) = (/& |
---|
| 1332 | & 4.6064E-01_JPRB,5.5112E-01_JPRB,6.4570E-01_JPRB,7.4365E-01_JPRB,8.4436E-01_JPRB/) |
---|
| 1333 | KBO( :,24, 9) = (/& |
---|
| 1334 | & 3.9696E-01_JPRB,4.7292E-01_JPRB,5.5220E-01_JPRB,6.3452E-01_JPRB,7.1905E-01_JPRB/) |
---|
| 1335 | KBO( :,25, 9) = (/& |
---|
| 1336 | & 3.4206E-01_JPRB,4.0576E-01_JPRB,4.7240E-01_JPRB,5.4144E-01_JPRB,6.1253E-01_JPRB/) |
---|
| 1337 | KBO( :,26, 9) = (/& |
---|
| 1338 | & 2.9509E-01_JPRB,3.4866E-01_JPRB,4.0462E-01_JPRB,4.6255E-01_JPRB,5.2212E-01_JPRB/) |
---|
| 1339 | KBO( :,27, 9) = (/& |
---|
| 1340 | & 2.5432E-01_JPRB,2.9938E-01_JPRB,3.4636E-01_JPRB,3.9487E-01_JPRB,4.4473E-01_JPRB/) |
---|
| 1341 | KBO( :,28, 9) = (/& |
---|
| 1342 | & 2.1897E-01_JPRB,2.5686E-01_JPRB,2.9621E-01_JPRB,3.3690E-01_JPRB,3.7871E-01_JPRB/) |
---|
| 1343 | KBO( :,29, 9) = (/& |
---|
| 1344 | & 1.8863E-01_JPRB,2.2035E-01_JPRB,2.5338E-01_JPRB,2.8746E-01_JPRB,3.2276E-01_JPRB/) |
---|
| 1345 | KBO( :,30, 9) = (/& |
---|
| 1346 | & 1.6227E-01_JPRB,1.8891E-01_JPRB,2.1659E-01_JPRB,2.4532E-01_JPRB,2.7508E-01_JPRB/) |
---|
| 1347 | KBO( :,31, 9) = (/& |
---|
| 1348 | & 1.3961E-01_JPRB,1.6197E-01_JPRB,1.8522E-01_JPRB,2.0946E-01_JPRB,2.3451E-01_JPRB/) |
---|
| 1349 | KBO( :,32, 9) = (/& |
---|
| 1350 | & 1.2009E-01_JPRB,1.3886E-01_JPRB,1.5848E-01_JPRB,1.7888E-01_JPRB,2.0001E-01_JPRB/) |
---|
| 1351 | KBO( :,33, 9) = (/& |
---|
| 1352 | & 1.0324E-01_JPRB,1.1904E-01_JPRB,1.3559E-01_JPRB,1.5281E-01_JPRB,1.7071E-01_JPRB/) |
---|
| 1353 | KBO( :,34, 9) = (/& |
---|
| 1354 | & 8.8245E-02_JPRB,1.0156E-01_JPRB,1.1550E-01_JPRB,1.3006E-01_JPRB,1.4528E-01_JPRB/) |
---|
| 1355 | KBO( :,35, 9) = (/& |
---|
| 1356 | & 7.4373E-02_JPRB,8.5551E-02_JPRB,9.7297E-02_JPRB,1.0957E-01_JPRB,1.2251E-01_JPRB/) |
---|
| 1357 | KBO( :,36, 9) = (/& |
---|
| 1358 | & 6.1704E-02_JPRB,7.1049E-02_JPRB,8.0900E-02_JPRB,9.1251E-02_JPRB,1.0221E-01_JPRB/) |
---|
| 1359 | KBO( :,37, 9) = (/& |
---|
| 1360 | & 5.0060E-02_JPRB,5.7820E-02_JPRB,6.6024E-02_JPRB,7.4701E-02_JPRB,8.3923E-02_JPRB/) |
---|
| 1361 | KBO( :,38, 9) = (/& |
---|
| 1362 | & 4.0550E-02_JPRB,4.6991E-02_JPRB,5.3826E-02_JPRB,6.1105E-02_JPRB,6.8864E-02_JPRB/) |
---|
| 1363 | KBO( :,39, 9) = (/& |
---|
| 1364 | & 3.2845E-02_JPRB,3.8185E-02_JPRB,4.3883E-02_JPRB,4.9990E-02_JPRB,5.6512E-02_JPRB/) |
---|
| 1365 | KBO( :,40, 9) = (/& |
---|
| 1366 | & 2.6159E-02_JPRB,3.0559E-02_JPRB,3.5279E-02_JPRB,4.0364E-02_JPRB,4.5803E-02_JPRB/) |
---|
| 1367 | KBO( :,41, 9) = (/& |
---|
| 1368 | & 2.0762E-02_JPRB,2.4380E-02_JPRB,2.8285E-02_JPRB,3.2514E-02_JPRB,3.7041E-02_JPRB/) |
---|
| 1369 | KBO( :,42, 9) = (/& |
---|
| 1370 | & 1.6454E-02_JPRB,1.9426E-02_JPRB,2.2652E-02_JPRB,2.6163E-02_JPRB,2.9929E-02_JPRB/) |
---|
| 1371 | KBO( :,43, 9) = (/& |
---|
| 1372 | & 1.2889E-02_JPRB,1.5316E-02_JPRB,1.7969E-02_JPRB,2.0865E-02_JPRB,2.3986E-02_JPRB/) |
---|
| 1373 | KBO( :,44, 9) = (/& |
---|
| 1374 | & 1.0025E-02_JPRB,1.2000E-02_JPRB,1.4172E-02_JPRB,1.6553E-02_JPRB,1.9131E-02_JPRB/) |
---|
| 1375 | KBO( :,45, 9) = (/& |
---|
| 1376 | & 7.7746E-03_JPRB,9.3784E-03_JPRB,1.1153E-02_JPRB,1.3107E-02_JPRB,1.5232E-02_JPRB/) |
---|
| 1377 | KBO( :,46, 9) = (/& |
---|
| 1378 | & 5.9839E-03_JPRB,7.2803E-03_JPRB,8.7236E-03_JPRB,1.0320E-02_JPRB,1.2066E-02_JPRB/) |
---|
| 1379 | KBO( :,47, 9) = (/& |
---|
| 1380 | & 4.5469E-03_JPRB,5.5872E-03_JPRB,6.7527E-03_JPRB,8.0490E-03_JPRB,9.4737E-03_JPRB/) |
---|
| 1381 | KBO( :,48, 9) = (/& |
---|
| 1382 | & 3.4387E-03_JPRB,4.2707E-03_JPRB,5.2081E-03_JPRB,6.2578E-03_JPRB,7.4170E-03_JPRB/) |
---|
| 1383 | KBO( :,49, 9) = (/& |
---|
| 1384 | & 2.5872E-03_JPRB,3.2502E-03_JPRB,4.0014E-03_JPRB,4.8487E-03_JPRB,5.7896E-03_JPRB/) |
---|
| 1385 | KBO( :,50, 9) = (/& |
---|
| 1386 | & 1.9484E-03_JPRB,2.4763E-03_JPRB,3.0782E-03_JPRB,3.7619E-03_JPRB,4.5255E-03_JPRB/) |
---|
| 1387 | KBO( :,51, 9) = (/& |
---|
| 1388 | & 1.4641E-03_JPRB,1.8833E-03_JPRB,2.3642E-03_JPRB,2.9156E-03_JPRB,3.5343E-03_JPRB/) |
---|
| 1389 | KBO( :,52, 9) = (/& |
---|
| 1390 | & 1.0947E-03_JPRB,1.4260E-03_JPRB,1.8092E-03_JPRB,2.2525E-03_JPRB,2.7523E-03_JPRB/) |
---|
| 1391 | KBO( :,53, 9) = (/& |
---|
| 1392 | & 8.1385E-04_JPRB,1.0744E-03_JPRB,1.3788E-03_JPRB,1.7335E-03_JPRB,2.1363E-03_JPRB/) |
---|
| 1393 | KBO( :,54, 9) = (/& |
---|
| 1394 | & 6.0727E-04_JPRB,8.1227E-04_JPRB,1.0543E-03_JPRB,1.3383E-03_JPRB,1.6634E-03_JPRB/) |
---|
| 1395 | KBO( :,55, 9) = (/& |
---|
| 1396 | & 4.5272E-04_JPRB,6.1374E-04_JPRB,8.0589E-04_JPRB,1.0331E-03_JPRB,1.2952E-03_JPRB/) |
---|
| 1397 | KBO( :,56, 9) = (/& |
---|
| 1398 | & 3.3583E-04_JPRB,4.6181E-04_JPRB,6.1377E-04_JPRB,7.9508E-04_JPRB,1.0057E-03_JPRB/) |
---|
| 1399 | KBO( :,57, 9) = (/& |
---|
| 1400 | & 2.4776E-04_JPRB,3.4590E-04_JPRB,4.6559E-04_JPRB,6.0978E-04_JPRB,7.7861E-04_JPRB/) |
---|
| 1401 | KBO( :,58, 9) = (/& |
---|
| 1402 | & 1.8283E-04_JPRB,2.5924E-04_JPRB,3.5338E-04_JPRB,4.6808E-04_JPRB,6.0340E-04_JPRB/) |
---|
| 1403 | KBO( :,59, 9) = (/& |
---|
| 1404 | & 1.4394E-04_JPRB,2.0565E-04_JPRB,2.8231E-04_JPRB,3.7641E-04_JPRB,4.8766E-04_JPRB/) |
---|
| 1405 | KBO( :,13,10) = (/& |
---|
| 1406 | & 9.3904E+00_JPRB,1.1558E+01_JPRB,1.3845E+01_JPRB,1.6163E+01_JPRB,1.8555E+01_JPRB/) |
---|
| 1407 | KBO( :,14,10) = (/& |
---|
| 1408 | & 8.3973E+00_JPRB,1.0270E+01_JPRB,1.2209E+01_JPRB,1.4231E+01_JPRB,1.6403E+01_JPRB/) |
---|
| 1409 | KBO( :,15,10) = (/& |
---|
| 1410 | & 7.4227E+00_JPRB,9.0328E+00_JPRB,1.0725E+01_JPRB,1.2539E+01_JPRB,1.4424E+01_JPRB/) |
---|
| 1411 | KBO( :,16,10) = (/& |
---|
| 1412 | & 6.5205E+00_JPRB,7.9257E+00_JPRB,9.4310E+00_JPRB,1.1012E+01_JPRB,1.2602E+01_JPRB/) |
---|
| 1413 | KBO( :,17,10) = (/& |
---|
| 1414 | & 5.6968E+00_JPRB,6.9236E+00_JPRB,8.2313E+00_JPRB,9.5792E+00_JPRB,1.0956E+01_JPRB/) |
---|
| 1415 | KBO( :,18,10) = (/& |
---|
| 1416 | & 4.9471E+00_JPRB,6.0161E+00_JPRB,7.1339E+00_JPRB,8.2948E+00_JPRB,9.4857E+00_JPRB/) |
---|
| 1417 | KBO( :,19,10) = (/& |
---|
| 1418 | & 4.2895E+00_JPRB,5.2029E+00_JPRB,6.1642E+00_JPRB,7.1527E+00_JPRB,8.1730E+00_JPRB/) |
---|
| 1419 | KBO( :,20,10) = (/& |
---|
| 1420 | & 3.7147E+00_JPRB,4.4929E+00_JPRB,5.3068E+00_JPRB,6.1474E+00_JPRB,7.0078E+00_JPRB/) |
---|
| 1421 | KBO( :,21,10) = (/& |
---|
| 1422 | & 3.2024E+00_JPRB,3.8631E+00_JPRB,4.5499E+00_JPRB,5.2596E+00_JPRB,5.9867E+00_JPRB/) |
---|
| 1423 | KBO( :,22,10) = (/& |
---|
| 1424 | & 2.7881E+00_JPRB,3.3462E+00_JPRB,3.9291E+00_JPRB,4.5332E+00_JPRB,5.1516E+00_JPRB/) |
---|
| 1425 | KBO( :,23,10) = (/& |
---|
| 1426 | & 2.4221E+00_JPRB,2.8934E+00_JPRB,3.3888E+00_JPRB,3.9007E+00_JPRB,4.4296E+00_JPRB/) |
---|
| 1427 | KBO( :,24,10) = (/& |
---|
| 1428 | & 2.1012E+00_JPRB,2.5042E+00_JPRB,2.9257E+00_JPRB,3.3605E+00_JPRB,3.8099E+00_JPRB/) |
---|
| 1429 | KBO( :,25,10) = (/& |
---|
| 1430 | & 1.8234E+00_JPRB,2.1683E+00_JPRB,2.5234E+00_JPRB,2.8940E+00_JPRB,3.2740E+00_JPRB/) |
---|
| 1431 | KBO( :,26,10) = (/& |
---|
| 1432 | & 1.5880E+00_JPRB,1.8773E+00_JPRB,2.1781E+00_JPRB,2.4921E+00_JPRB,2.8182E+00_JPRB/) |
---|
| 1433 | KBO( :,27,10) = (/& |
---|
| 1434 | & 1.3795E+00_JPRB,1.6233E+00_JPRB,1.8790E+00_JPRB,2.1463E+00_JPRB,2.4246E+00_JPRB/) |
---|
| 1435 | KBO( :,28,10) = (/& |
---|
| 1436 | & 1.1952E+00_JPRB,1.4020E+00_JPRB,1.6204E+00_JPRB,1.8473E+00_JPRB,2.0818E+00_JPRB/) |
---|
| 1437 | KBO( :,29,10) = (/& |
---|
| 1438 | & 1.0353E+00_JPRB,1.2126E+00_JPRB,1.3974E+00_JPRB,1.5895E+00_JPRB,1.7854E+00_JPRB/) |
---|
| 1439 | KBO( :,30,10) = (/& |
---|
| 1440 | & 8.9710E-01_JPRB,1.0479E+00_JPRB,1.2046E+00_JPRB,1.3665E+00_JPRB,1.5321E+00_JPRB/) |
---|
| 1441 | KBO( :,31,10) = (/& |
---|
| 1442 | & 7.7817E-01_JPRB,9.0519E-01_JPRB,1.0386E+00_JPRB,1.1754E+00_JPRB,1.3182E+00_JPRB/) |
---|
| 1443 | KBO( :,32,10) = (/& |
---|
| 1444 | & 6.7399E-01_JPRB,7.8251E-01_JPRB,8.9515E-01_JPRB,1.0127E+00_JPRB,1.1369E+00_JPRB/) |
---|
| 1445 | KBO( :,33,10) = (/& |
---|
| 1446 | & 5.8405E-01_JPRB,6.7622E-01_JPRB,7.7236E-01_JPRB,8.7403E-01_JPRB,9.7956E-01_JPRB/) |
---|
| 1447 | KBO( :,34,10) = (/& |
---|
| 1448 | & 5.0357E-01_JPRB,5.8182E-01_JPRB,6.6452E-01_JPRB,7.5151E-01_JPRB,8.4035E-01_JPRB/) |
---|
| 1449 | KBO( :,35,10) = (/& |
---|
| 1450 | & 4.2779E-01_JPRB,4.9440E-01_JPRB,5.6491E-01_JPRB,6.3892E-01_JPRB,7.1333E-01_JPRB/) |
---|
| 1451 | KBO( :,36,10) = (/& |
---|
| 1452 | & 3.5777E-01_JPRB,4.1421E-01_JPRB,4.7387E-01_JPRB,5.3617E-01_JPRB,5.9900E-01_JPRB/) |
---|
| 1453 | KBO( :,37,10) = (/& |
---|
| 1454 | & 2.9234E-01_JPRB,3.3963E-01_JPRB,3.8973E-01_JPRB,4.4194E-01_JPRB,4.9508E-01_JPRB/) |
---|
| 1455 | KBO( :,38,10) = (/& |
---|
| 1456 | & 2.3845E-01_JPRB,2.7804E-01_JPRB,3.2014E-01_JPRB,3.6393E-01_JPRB,4.0887E-01_JPRB/) |
---|
| 1457 | KBO( :,39,10) = (/& |
---|
| 1458 | & 1.9449E-01_JPRB,2.2762E-01_JPRB,2.6303E-01_JPRB,2.9987E-01_JPRB,3.3808E-01_JPRB/) |
---|
| 1459 | KBO( :,40,10) = (/& |
---|
| 1460 | & 1.5581E-01_JPRB,1.8338E-01_JPRB,2.1298E-01_JPRB,2.4388E-01_JPRB,2.7640E-01_JPRB/) |
---|
| 1461 | KBO( :,41,10) = (/& |
---|
| 1462 | & 1.2437E-01_JPRB,1.4728E-01_JPRB,1.7198E-01_JPRB,1.9790E-01_JPRB,2.2561E-01_JPRB/) |
---|
| 1463 | KBO( :,42,10) = (/& |
---|
| 1464 | & 9.9114E-02_JPRB,1.1814E-01_JPRB,1.3871E-01_JPRB,1.6049E-01_JPRB,1.8409E-01_JPRB/) |
---|
| 1465 | KBO( :,43,10) = (/& |
---|
| 1466 | & 7.8014E-02_JPRB,9.3699E-02_JPRB,1.1072E-01_JPRB,1.2897E-01_JPRB,1.4893E-01_JPRB/) |
---|
| 1467 | KBO( :,44,10) = (/& |
---|
| 1468 | & 6.0930E-02_JPRB,7.3813E-02_JPRB,8.7829E-02_JPRB,1.0306E-01_JPRB,1.1990E-01_JPRB/) |
---|
| 1469 | KBO( :,45,10) = (/& |
---|
| 1470 | & 4.7439E-02_JPRB,5.7963E-02_JPRB,6.9524E-02_JPRB,8.2179E-02_JPRB,9.6377E-02_JPRB/) |
---|
| 1471 | KBO( :,46,10) = (/& |
---|
| 1472 | & 3.6628E-02_JPRB,4.5189E-02_JPRB,5.4663E-02_JPRB,6.5139E-02_JPRB,7.7031E-02_JPRB/) |
---|
| 1473 | KBO( :,47,10) = (/& |
---|
| 1474 | & 2.7890E-02_JPRB,3.4787E-02_JPRB,4.2493E-02_JPRB,5.1096E-02_JPRB,6.0965E-02_JPRB/) |
---|
| 1475 | KBO( :,48,10) = (/& |
---|
| 1476 | & 2.1119E-02_JPRB,2.6645E-02_JPRB,3.2896E-02_JPRB,3.9921E-02_JPRB,4.8089E-02_JPRB/) |
---|
| 1477 | KBO( :,49,10) = (/& |
---|
| 1478 | & 1.5900E-02_JPRB,2.0307E-02_JPRB,2.5351E-02_JPRB,3.1064E-02_JPRB,3.7792E-02_JPRB/) |
---|
| 1479 | KBO( :,50,10) = (/& |
---|
| 1480 | & 1.1982E-02_JPRB,1.5486E-02_JPRB,1.9553E-02_JPRB,2.4196E-02_JPRB,2.9727E-02_JPRB/) |
---|
| 1481 | KBO( :,51,10) = (/& |
---|
| 1482 | & 9.0056E-03_JPRB,1.1788E-02_JPRB,1.5051E-02_JPRB,1.8815E-02_JPRB,2.3348E-02_JPRB/) |
---|
| 1483 | KBO( :,52,10) = (/& |
---|
| 1484 | & 6.7287E-03_JPRB,8.9323E-03_JPRB,1.1543E-02_JPRB,1.4581E-02_JPRB,1.8277E-02_JPRB/) |
---|
| 1485 | KBO( :,53,10) = (/& |
---|
| 1486 | & 4.9917E-03_JPRB,6.7318E-03_JPRB,8.8095E-03_JPRB,1.1255E-02_JPRB,1.4250E-02_JPRB/) |
---|
| 1487 | KBO( :,54,10) = (/& |
---|
| 1488 | & 3.7166E-03_JPRB,5.0897E-03_JPRB,6.7438E-03_JPRB,8.7155E-03_JPRB,1.1147E-02_JPRB/) |
---|
| 1489 | KBO( :,55,10) = (/& |
---|
| 1490 | & 2.7631E-03_JPRB,3.8456E-03_JPRB,5.1593E-03_JPRB,6.7476E-03_JPRB,8.7195E-03_JPRB/) |
---|
| 1491 | KBO( :,56,10) = (/& |
---|
| 1492 | & 2.0411E-03_JPRB,2.8905E-03_JPRB,3.9308E-03_JPRB,5.2031E-03_JPRB,6.7949E-03_JPRB/) |
---|
| 1493 | KBO( :,57,10) = (/& |
---|
| 1494 | & 1.4978E-03_JPRB,2.1598E-03_JPRB,2.9807E-03_JPRB,3.9948E-03_JPRB,5.2752E-03_JPRB/) |
---|
| 1495 | KBO( :,58,10) = (/& |
---|
| 1496 | & 1.0985E-03_JPRB,1.6142E-03_JPRB,2.2613E-03_JPRB,3.0687E-03_JPRB,4.0986E-03_JPRB/) |
---|
| 1497 | KBO( :,59,10) = (/& |
---|
| 1498 | & 8.6500E-04_JPRB,1.2833E-03_JPRB,1.8127E-03_JPRB,2.4817E-03_JPRB,3.3443E-03_JPRB/) |
---|
| 1499 | KBO( :,13,11) = (/& |
---|
| 1500 | & 1.8372E+01_JPRB,2.2531E+01_JPRB,2.6942E+01_JPRB,3.1721E+01_JPRB,3.6666E+01_JPRB/) |
---|
| 1501 | KBO( :,14,11) = (/& |
---|
| 1502 | & 1.6476E+01_JPRB,2.0266E+01_JPRB,2.4375E+01_JPRB,2.8673E+01_JPRB,3.2960E+01_JPRB/) |
---|
| 1503 | KBO( :,15,11) = (/& |
---|
| 1504 | & 1.4838E+01_JPRB,1.8258E+01_JPRB,2.1874E+01_JPRB,2.5540E+01_JPRB,2.9299E+01_JPRB/) |
---|
| 1505 | KBO( :,16,11) = (/& |
---|
| 1506 | & 1.3322E+01_JPRB,1.6282E+01_JPRB,1.9361E+01_JPRB,2.2553E+01_JPRB,2.5938E+01_JPRB/) |
---|
| 1507 | KBO( :,17,11) = (/& |
---|
| 1508 | & 1.1797E+01_JPRB,1.4340E+01_JPRB,1.7022E+01_JPRB,1.9865E+01_JPRB,2.2805E+01_JPRB/) |
---|
| 1509 | KBO( :,18,11) = (/& |
---|
| 1510 | & 1.0354E+01_JPRB,1.2576E+01_JPRB,1.4945E+01_JPRB,1.7409E+01_JPRB,1.9880E+01_JPRB/) |
---|
| 1511 | KBO( :,19,11) = (/& |
---|
| 1512 | & 9.0365E+00_JPRB,1.0980E+01_JPRB,1.3039E+01_JPRB,1.5152E+01_JPRB,1.7258E+01_JPRB/) |
---|
| 1513 | KBO( :,20,11) = (/& |
---|
| 1514 | & 7.8834E+00_JPRB,9.5695E+00_JPRB,1.1327E+01_JPRB,1.3132E+01_JPRB,1.4932E+01_JPRB/) |
---|
| 1515 | KBO( :,21,11) = (/& |
---|
| 1516 | & 6.8550E+00_JPRB,8.2970E+00_JPRB,9.8119E+00_JPRB,1.1335E+01_JPRB,1.2856E+01_JPRB/) |
---|
| 1517 | KBO( :,22,11) = (/& |
---|
| 1518 | & 6.0199E+00_JPRB,7.2562E+00_JPRB,8.5326E+00_JPRB,9.8104E+00_JPRB,1.1086E+01_JPRB/) |
---|
| 1519 | KBO( :,23,11) = (/& |
---|
| 1520 | & 5.2655E+00_JPRB,6.3155E+00_JPRB,7.3813E+00_JPRB,8.4546E+00_JPRB,9.5205E+00_JPRB/) |
---|
| 1521 | KBO( :,24,11) = (/& |
---|
| 1522 | & 4.5968E+00_JPRB,5.4765E+00_JPRB,6.3717E+00_JPRB,7.2772E+00_JPRB,8.1752E+00_JPRB/) |
---|
| 1523 | KBO( :,25,11) = (/& |
---|
| 1524 | & 4.0046E+00_JPRB,4.7437E+00_JPRB,5.5012E+00_JPRB,6.2582E+00_JPRB,7.0243E+00_JPRB/) |
---|
| 1525 | KBO( :,26,11) = (/& |
---|
| 1526 | & 3.4899E+00_JPRB,4.1156E+00_JPRB,4.7544E+00_JPRB,5.3978E+00_JPRB,6.0478E+00_JPRB/) |
---|
| 1527 | KBO( :,27,11) = (/& |
---|
| 1528 | & 3.0370E+00_JPRB,3.5704E+00_JPRB,4.1083E+00_JPRB,4.6559E+00_JPRB,5.2026E+00_JPRB/) |
---|
| 1529 | KBO( :,28,11) = (/& |
---|
| 1530 | & 2.6441E+00_JPRB,3.0908E+00_JPRB,3.5452E+00_JPRB,4.0092E+00_JPRB,4.4774E+00_JPRB/) |
---|
| 1531 | KBO( :,29,11) = (/& |
---|
| 1532 | & 2.2991E+00_JPRB,2.6744E+00_JPRB,3.0609E+00_JPRB,3.4545E+00_JPRB,3.8571E+00_JPRB/) |
---|
| 1533 | KBO( :,30,11) = (/& |
---|
| 1534 | & 1.9952E+00_JPRB,2.3130E+00_JPRB,2.6436E+00_JPRB,2.9785E+00_JPRB,3.3224E+00_JPRB/) |
---|
| 1535 | KBO( :,31,11) = (/& |
---|
| 1536 | & 1.7303E+00_JPRB,2.0035E+00_JPRB,2.2828E+00_JPRB,2.5698E+00_JPRB,2.8597E+00_JPRB/) |
---|
| 1537 | KBO( :,32,11) = (/& |
---|
| 1538 | & 1.5021E+00_JPRB,1.7349E+00_JPRB,1.9723E+00_JPRB,2.2162E+00_JPRB,2.4607E+00_JPRB/) |
---|
| 1539 | KBO( :,33,11) = (/& |
---|
| 1540 | & 1.3048E+00_JPRB,1.5022E+00_JPRB,1.7054E+00_JPRB,1.9112E+00_JPRB,2.1255E+00_JPRB/) |
---|
| 1541 | KBO( :,34,11) = (/& |
---|
| 1542 | & 1.1267E+00_JPRB,1.2952E+00_JPRB,1.4682E+00_JPRB,1.6457E+00_JPRB,1.8352E+00_JPRB/) |
---|
| 1543 | KBO( :,35,11) = (/& |
---|
| 1544 | & 9.5958E-01_JPRB,1.1033E+00_JPRB,1.2514E+00_JPRB,1.4063E+00_JPRB,1.5730E+00_JPRB/) |
---|
| 1545 | |
---|
| 1546 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART5',1,ZHOOK_HANDLE) |
---|
| 1547 | END SUBROUTINE PART5 |
---|
| 1548 | |
---|
| 1549 | |
---|
| 1550 | SUBROUTINE PART6 |
---|
| 1551 | |
---|
| 1552 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 1553 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART6',0,ZHOOK_HANDLE) |
---|
| 1554 | |
---|
| 1555 | |
---|
| 1556 | KBO( :,36,11) = (/& |
---|
| 1557 | & 8.0543E-01_JPRB,9.2728E-01_JPRB,1.0546E+00_JPRB,1.1895E+00_JPRB,1.3346E+00_JPRB/) |
---|
| 1558 | KBO( :,37,11) = (/& |
---|
| 1559 | & 6.6117E-01_JPRB,7.6429E-01_JPRB,8.7311E-01_JPRB,9.8956E-01_JPRB,1.1138E+00_JPRB/) |
---|
| 1560 | KBO( :,38,11) = (/& |
---|
| 1561 | & 5.4219E-01_JPRB,6.2915E-01_JPRB,7.2220E-01_JPRB,8.2189E-01_JPRB,9.2832E-01_JPRB/) |
---|
| 1562 | KBO( :,39,11) = (/& |
---|
| 1563 | & 4.4474E-01_JPRB,5.1851E-01_JPRB,5.9758E-01_JPRB,6.8269E-01_JPRB,7.7379E-01_JPRB/) |
---|
| 1564 | KBO( :,40,11) = (/& |
---|
| 1565 | & 3.5874E-01_JPRB,4.2077E-01_JPRB,4.8738E-01_JPRB,5.5930E-01_JPRB,6.3666E-01_JPRB/) |
---|
| 1566 | KBO( :,41,11) = (/& |
---|
| 1567 | & 2.8809E-01_JPRB,3.4018E-01_JPRB,3.9623E-01_JPRB,4.5702E-01_JPRB,5.2265E-01_JPRB/) |
---|
| 1568 | KBO( :,42,11) = (/& |
---|
| 1569 | & 2.3093E-01_JPRB,2.7453E-01_JPRB,3.2175E-01_JPRB,3.7304E-01_JPRB,4.2866E-01_JPRB/) |
---|
| 1570 | KBO( :,43,11) = (/& |
---|
| 1571 | & 1.8286E-01_JPRB,2.1908E-01_JPRB,2.5860E-01_JPRB,3.0169E-01_JPRB,3.4866E-01_JPRB/) |
---|
| 1572 | KBO( :,44,11) = (/& |
---|
| 1573 | & 1.4371E-01_JPRB,1.7364E-01_JPRB,2.0655E-01_JPRB,2.4258E-01_JPRB,2.8218E-01_JPRB/) |
---|
| 1574 | KBO( :,45,11) = (/& |
---|
| 1575 | & 1.1254E-01_JPRB,1.3724E-01_JPRB,1.6458E-01_JPRB,1.9466E-01_JPRB,2.2800E-01_JPRB/) |
---|
| 1576 | KBO( :,46,11) = (/& |
---|
| 1577 | & 8.7419E-02_JPRB,1.0769E-01_JPRB,1.3029E-01_JPRB,1.5534E-01_JPRB,1.8325E-01_JPRB/) |
---|
| 1578 | KBO( :,47,11) = (/& |
---|
| 1579 | & 6.6946E-02_JPRB,8.3455E-02_JPRB,1.0198E-01_JPRB,1.2266E-01_JPRB,1.4588E-01_JPRB/) |
---|
| 1580 | KBO( :,48,11) = (/& |
---|
| 1581 | & 5.0941E-02_JPRB,6.4338E-02_JPRB,7.9485E-02_JPRB,9.6523E-02_JPRB,1.1573E-01_JPRB/) |
---|
| 1582 | KBO( :,49,11) = (/& |
---|
| 1583 | & 3.8506E-02_JPRB,4.9326E-02_JPRB,6.1662E-02_JPRB,7.5682E-02_JPRB,9.1536E-02_JPRB/) |
---|
| 1584 | KBO( :,50,11) = (/& |
---|
| 1585 | & 2.9103E-02_JPRB,3.7840E-02_JPRB,4.7868E-02_JPRB,5.9376E-02_JPRB,7.2482E-02_JPRB/) |
---|
| 1586 | KBO( :,51,11) = (/& |
---|
| 1587 | & 2.1916E-02_JPRB,2.8951E-02_JPRB,3.7067E-02_JPRB,4.6499E-02_JPRB,5.7317E-02_JPRB/) |
---|
| 1588 | KBO( :,52,11) = (/& |
---|
| 1589 | & 1.6392E-02_JPRB,2.2020E-02_JPRB,2.8575E-02_JPRB,3.6268E-02_JPRB,4.5169E-02_JPRB/) |
---|
| 1590 | KBO( :,53,11) = (/& |
---|
| 1591 | & 1.2172E-02_JPRB,1.6642E-02_JPRB,2.1908E-02_JPRB,2.8155E-02_JPRB,3.5457E-02_JPRB/) |
---|
| 1592 | KBO( :,54,11) = (/& |
---|
| 1593 | & 9.0658E-03_JPRB,1.2613E-02_JPRB,1.6847E-02_JPRB,2.1915E-02_JPRB,2.7906E-02_JPRB/) |
---|
| 1594 | KBO( :,55,11) = (/& |
---|
| 1595 | & 6.7444E-03_JPRB,9.5483E-03_JPRB,1.2947E-02_JPRB,1.7041E-02_JPRB,2.1954E-02_JPRB/) |
---|
| 1596 | KBO( :,56,11) = (/& |
---|
| 1597 | & 4.9837E-03_JPRB,7.1893E-03_JPRB,9.9031E-03_JPRB,1.3201E-02_JPRB,1.7215E-02_JPRB/) |
---|
| 1598 | KBO( :,57,11) = (/& |
---|
| 1599 | & 3.6555E-03_JPRB,5.3797E-03_JPRB,7.5345E-03_JPRB,1.0185E-02_JPRB,1.3448E-02_JPRB/) |
---|
| 1600 | KBO( :,58,11) = (/& |
---|
| 1601 | & 2.6798E-03_JPRB,4.0234E-03_JPRB,5.7322E-03_JPRB,7.8591E-03_JPRB,1.0509E-02_JPRB/) |
---|
| 1602 | KBO( :,59,11) = (/& |
---|
| 1603 | & 2.1174E-03_JPRB,3.2126E-03_JPRB,4.6178E-03_JPRB,6.3890E-03_JPRB,8.6307E-03_JPRB/) |
---|
| 1604 | KBO( :,13,12) = (/& |
---|
| 1605 | & 3.9037E+01_JPRB,4.8595E+01_JPRB,5.8290E+01_JPRB,6.7743E+01_JPRB,7.7175E+01_JPRB/) |
---|
| 1606 | KBO( :,14,12) = (/& |
---|
| 1607 | & 3.6731E+01_JPRB,4.5143E+01_JPRB,5.3367E+01_JPRB,6.1735E+01_JPRB,7.0266E+01_JPRB/) |
---|
| 1608 | KBO( :,15,12) = (/& |
---|
| 1609 | & 3.3782E+01_JPRB,4.1053E+01_JPRB,4.8465E+01_JPRB,5.6101E+01_JPRB,6.4046E+01_JPRB/) |
---|
| 1610 | KBO( :,16,12) = (/& |
---|
| 1611 | & 3.0361E+01_JPRB,3.6837E+01_JPRB,4.3692E+01_JPRB,5.0749E+01_JPRB,5.7770E+01_JPRB/) |
---|
| 1612 | KBO( :,17,12) = (/& |
---|
| 1613 | & 2.7181E+01_JPRB,3.3037E+01_JPRB,3.9122E+01_JPRB,4.5236E+01_JPRB,5.1302E+01_JPRB/) |
---|
| 1614 | KBO( :,18,12) = (/& |
---|
| 1615 | & 2.4289E+01_JPRB,2.9373E+01_JPRB,3.4573E+01_JPRB,3.9820E+01_JPRB,4.5254E+01_JPRB/) |
---|
| 1616 | KBO( :,19,12) = (/& |
---|
| 1617 | & 2.1489E+01_JPRB,2.5832E+01_JPRB,3.0286E+01_JPRB,3.4895E+01_JPRB,3.9728E+01_JPRB/) |
---|
| 1618 | KBO( :,20,12) = (/& |
---|
| 1619 | & 1.8889E+01_JPRB,2.2626E+01_JPRB,2.6516E+01_JPRB,3.0573E+01_JPRB,3.4729E+01_JPRB/) |
---|
| 1620 | KBO( :,21,12) = (/& |
---|
| 1621 | & 1.6499E+01_JPRB,1.9772E+01_JPRB,2.3169E+01_JPRB,2.6668E+01_JPRB,3.0247E+01_JPRB/) |
---|
| 1622 | KBO( :,22,12) = (/& |
---|
| 1623 | & 1.4564E+01_JPRB,1.7397E+01_JPRB,2.0332E+01_JPRB,2.3375E+01_JPRB,2.6482E+01_JPRB/) |
---|
| 1624 | KBO( :,23,12) = (/& |
---|
| 1625 | & 1.2811E+01_JPRB,1.5254E+01_JPRB,1.7803E+01_JPRB,2.0436E+01_JPRB,2.3110E+01_JPRB/) |
---|
| 1626 | KBO( :,24,12) = (/& |
---|
| 1627 | & 1.1250E+01_JPRB,1.3354E+01_JPRB,1.5549E+01_JPRB,1.7797E+01_JPRB,2.0094E+01_JPRB/) |
---|
| 1628 | KBO( :,25,12) = (/& |
---|
| 1629 | & 9.8597E+00_JPRB,1.1670E+01_JPRB,1.3537E+01_JPRB,1.5466E+01_JPRB,1.7423E+01_JPRB/) |
---|
| 1630 | KBO( :,26,12) = (/& |
---|
| 1631 | & 8.6447E+00_JPRB,1.0181E+01_JPRB,1.1779E+01_JPRB,1.3417E+01_JPRB,1.5081E+01_JPRB/) |
---|
| 1632 | KBO( :,27,12) = (/& |
---|
| 1633 | & 7.5594E+00_JPRB,8.8642E+00_JPRB,1.0226E+01_JPRB,1.1630E+01_JPRB,1.3058E+01_JPRB/) |
---|
| 1634 | KBO( :,28,12) = (/& |
---|
| 1635 | & 6.5925E+00_JPRB,7.7161E+00_JPRB,8.8897E+00_JPRB,1.0087E+01_JPRB,1.1327E+01_JPRB/) |
---|
| 1636 | KBO( :,29,12) = (/& |
---|
| 1637 | & 5.7565E+00_JPRB,6.7240E+00_JPRB,7.7268E+00_JPRB,8.7632E+00_JPRB,9.8409E+00_JPRB/) |
---|
| 1638 | KBO( :,30,12) = (/& |
---|
| 1639 | & 5.0290E+00_JPRB,5.8636E+00_JPRB,6.7247E+00_JPRB,7.6290E+00_JPRB,8.5599E+00_JPRB/) |
---|
| 1640 | KBO( :,31,12) = (/& |
---|
| 1641 | & 4.4035E+00_JPRB,5.1182E+00_JPRB,5.8680E+00_JPRB,6.6555E+00_JPRB,7.4665E+00_JPRB/) |
---|
| 1642 | KBO( :,32,12) = (/& |
---|
| 1643 | & 3.8578E+00_JPRB,4.4752E+00_JPRB,5.1308E+00_JPRB,5.8151E+00_JPRB,6.5278E+00_JPRB/) |
---|
| 1644 | KBO( :,33,12) = (/& |
---|
| 1645 | & 3.3794E+00_JPRB,3.9167E+00_JPRB,4.4904E+00_JPRB,5.0880E+00_JPRB,5.7148E+00_JPRB/) |
---|
| 1646 | KBO( :,34,12) = (/& |
---|
| 1647 | & 2.9486E+00_JPRB,3.4193E+00_JPRB,3.9167E+00_JPRB,4.4410E+00_JPRB,4.9898E+00_JPRB/) |
---|
| 1648 | KBO( :,35,12) = (/& |
---|
| 1649 | & 2.5384E+00_JPRB,2.9485E+00_JPRB,3.3806E+00_JPRB,3.8382E+00_JPRB,4.3138E+00_JPRB/) |
---|
| 1650 | KBO( :,36,12) = (/& |
---|
| 1651 | & 2.1524E+00_JPRB,2.5062E+00_JPRB,2.8802E+00_JPRB,3.2776E+00_JPRB,3.6933E+00_JPRB/) |
---|
| 1652 | KBO( :,37,12) = (/& |
---|
| 1653 | & 1.7833E+00_JPRB,2.0847E+00_JPRB,2.4072E+00_JPRB,2.7505E+00_JPRB,3.1124E+00_JPRB/) |
---|
| 1654 | KBO( :,38,12) = (/& |
---|
| 1655 | & 1.4749E+00_JPRB,1.7326E+00_JPRB,2.0108E+00_JPRB,2.3067E+00_JPRB,2.6244E+00_JPRB/) |
---|
| 1656 | KBO( :,39,12) = (/& |
---|
| 1657 | & 1.2194E+00_JPRB,1.4403E+00_JPRB,1.6807E+00_JPRB,1.9373E+00_JPRB,2.2164E+00_JPRB/) |
---|
| 1658 | KBO( :,40,12) = (/& |
---|
| 1659 | & 9.9010E-01_JPRB,1.1776E+00_JPRB,1.3838E+00_JPRB,1.6055E+00_JPRB,1.8489E+00_JPRB/) |
---|
| 1660 | KBO( :,41,12) = (/& |
---|
| 1661 | & 8.0150E-01_JPRB,9.6002E-01_JPRB,1.1360E+00_JPRB,1.3281E+00_JPRB,1.5396E+00_JPRB/) |
---|
| 1662 | KBO( :,42,12) = (/& |
---|
| 1663 | & 6.4778E-01_JPRB,7.8194E-01_JPRB,9.3223E-01_JPRB,1.0980E+00_JPRB,1.2824E+00_JPRB/) |
---|
| 1664 | KBO( :,43,12) = (/& |
---|
| 1665 | & 5.1676E-01_JPRB,6.2955E-01_JPRB,7.5710E-01_JPRB,8.9908E-01_JPRB,1.0583E+00_JPRB/) |
---|
| 1666 | KBO( :,44,12) = (/& |
---|
| 1667 | & 4.0901E-01_JPRB,5.0320E-01_JPRB,6.1071E-01_JPRB,7.3181E-01_JPRB,8.6848E-01_JPRB/) |
---|
| 1668 | KBO( :,45,12) = (/& |
---|
| 1669 | & 3.2265E-01_JPRB,4.0131E-01_JPRB,4.9147E-01_JPRB,5.9412E-01_JPRB,7.1124E-01_JPRB/) |
---|
| 1670 | KBO( :,46,12) = (/& |
---|
| 1671 | & 2.5210E-01_JPRB,3.1747E-01_JPRB,3.9284E-01_JPRB,4.7937E-01_JPRB,5.7886E-01_JPRB/) |
---|
| 1672 | KBO( :,47,12) = (/& |
---|
| 1673 | & 1.9387E-01_JPRB,2.4750E-01_JPRB,3.1014E-01_JPRB,3.8262E-01_JPRB,4.6634E-01_JPRB/) |
---|
| 1674 | KBO( :,48,12) = (/& |
---|
| 1675 | & 1.4828E-01_JPRB,1.9192E-01_JPRB,2.4351E-01_JPRB,3.0403E-01_JPRB,3.7442E-01_JPRB/) |
---|
| 1676 | KBO( :,49,12) = (/& |
---|
| 1677 | & 1.1268E-01_JPRB,1.4796E-01_JPRB,1.9021E-01_JPRB,2.4026E-01_JPRB,2.9934E-01_JPRB/) |
---|
| 1678 | KBO( :,50,12) = (/& |
---|
| 1679 | & 8.5692E-02_JPRB,1.1419E-01_JPRB,1.4876E-01_JPRB,1.9007E-01_JPRB,2.3948E-01_JPRB/) |
---|
| 1680 | KBO( :,51,12) = (/& |
---|
| 1681 | & 6.4968E-02_JPRB,8.7898E-02_JPRB,1.1604E-01_JPRB,1.5016E-01_JPRB,1.9137E-01_JPRB/) |
---|
| 1682 | KBO( :,52,12) = (/& |
---|
| 1683 | & 4.8913E-02_JPRB,6.7280E-02_JPRB,9.0117E-02_JPRB,1.1814E-01_JPRB,1.5238E-01_JPRB/) |
---|
| 1684 | KBO( :,53,12) = (/& |
---|
| 1685 | & 3.6537E-02_JPRB,5.1125E-02_JPRB,6.9609E-02_JPRB,9.2472E-02_JPRB,1.2076E-01_JPRB/) |
---|
| 1686 | KBO( :,54,12) = (/& |
---|
| 1687 | & 2.7389E-02_JPRB,3.8999E-02_JPRB,5.3932E-02_JPRB,7.2676E-02_JPRB,9.6049E-02_JPRB/) |
---|
| 1688 | KBO( :,55,12) = (/& |
---|
| 1689 | & 2.0487E-02_JPRB,2.9701E-02_JPRB,4.1725E-02_JPRB,5.7075E-02_JPRB,7.6390E-02_JPRB/) |
---|
| 1690 | KBO( :,56,12) = (/& |
---|
| 1691 | & 1.5211E-02_JPRB,2.2473E-02_JPRB,3.2096E-02_JPRB,4.4552E-02_JPRB,6.0534E-02_JPRB/) |
---|
| 1692 | KBO( :,57,12) = (/& |
---|
| 1693 | & 1.1206E-02_JPRB,1.6892E-02_JPRB,2.4543E-02_JPRB,3.4596E-02_JPRB,4.7689E-02_JPRB/) |
---|
| 1694 | KBO( :,58,12) = (/& |
---|
| 1695 | & 8.2520E-03_JPRB,1.2686E-02_JPRB,1.8758E-02_JPRB,2.6873E-02_JPRB,3.7588E-02_JPRB/) |
---|
| 1696 | KBO( :,59,12) = (/& |
---|
| 1697 | & 6.5700E-03_JPRB,1.0221E-02_JPRB,1.5297E-02_JPRB,2.2161E-02_JPRB,3.1343E-02_JPRB/) |
---|
| 1698 | KBO( :,13,13) = (/& |
---|
| 1699 | & 9.2129E+01_JPRB,1.1302E+02_JPRB,1.3488E+02_JPRB,1.5732E+02_JPRB,1.8023E+02_JPRB/) |
---|
| 1700 | KBO( :,14,13) = (/& |
---|
| 1701 | & 8.7183E+01_JPRB,1.0718E+02_JPRB,1.2873E+02_JPRB,1.5116E+02_JPRB,1.7346E+02_JPRB/) |
---|
| 1702 | KBO( :,15,13) = (/& |
---|
| 1703 | & 8.2328E+01_JPRB,1.0157E+02_JPRB,1.2222E+02_JPRB,1.4315E+02_JPRB,1.6347E+02_JPRB/) |
---|
| 1704 | KBO( :,16,13) = (/& |
---|
| 1705 | & 7.8040E+01_JPRB,9.6014E+01_JPRB,1.1471E+02_JPRB,1.3306E+02_JPRB,1.5181E+02_JPRB/) |
---|
| 1706 | KBO( :,17,13) = (/& |
---|
| 1707 | & 7.3174E+01_JPRB,8.9440E+01_JPRB,1.0586E+02_JPRB,1.2255E+02_JPRB,1.3976E+02_JPRB/) |
---|
| 1708 | KBO( :,18,13) = (/& |
---|
| 1709 | & 6.7948E+01_JPRB,8.2226E+01_JPRB,9.6794E+01_JPRB,1.1202E+02_JPRB,1.2767E+02_JPRB/) |
---|
| 1710 | KBO( :,19,13) = (/& |
---|
| 1711 | & 6.1809E+01_JPRB,7.4613E+01_JPRB,8.7919E+01_JPRB,1.0172E+02_JPRB,1.1585E+02_JPRB/) |
---|
| 1712 | KBO( :,20,13) = (/& |
---|
| 1713 | & 5.5733E+01_JPRB,6.7276E+01_JPRB,7.9378E+01_JPRB,9.1765E+01_JPRB,1.0432E+02_JPRB/) |
---|
| 1714 | KBO( :,21,13) = (/& |
---|
| 1715 | & 5.0119E+01_JPRB,6.0399E+01_JPRB,7.1023E+01_JPRB,8.1955E+01_JPRB,9.3098E+01_JPRB/) |
---|
| 1716 | KBO( :,22,13) = (/& |
---|
| 1717 | & 4.5387E+01_JPRB,5.4362E+01_JPRB,6.3623E+01_JPRB,7.3263E+01_JPRB,8.3176E+01_JPRB/) |
---|
| 1718 | KBO( :,23,13) = (/& |
---|
| 1719 | & 4.0785E+01_JPRB,4.8586E+01_JPRB,5.6740E+01_JPRB,6.5256E+01_JPRB,7.4004E+01_JPRB/) |
---|
| 1720 | KBO( :,24,13) = (/& |
---|
| 1721 | & 3.6418E+01_JPRB,4.3297E+01_JPRB,5.0491E+01_JPRB,5.7972E+01_JPRB,6.5666E+01_JPRB/) |
---|
| 1722 | KBO( :,25,13) = (/& |
---|
| 1723 | & 3.2482E+01_JPRB,3.8561E+01_JPRB,4.4879E+01_JPRB,5.1407E+01_JPRB,5.8182E+01_JPRB/) |
---|
| 1724 | KBO( :,26,13) = (/& |
---|
| 1725 | & 2.9006E+01_JPRB,3.4335E+01_JPRB,3.9885E+01_JPRB,4.5662E+01_JPRB,5.1599E+01_JPRB/) |
---|
| 1726 | KBO( :,27,13) = (/& |
---|
| 1727 | & 2.5837E+01_JPRB,3.0498E+01_JPRB,3.5383E+01_JPRB,4.0444E+01_JPRB,4.5658E+01_JPRB/) |
---|
| 1728 | KBO( :,28,13) = (/& |
---|
| 1729 | & 2.2962E+01_JPRB,2.7037E+01_JPRB,3.1320E+01_JPRB,3.5758E+01_JPRB,4.0290E+01_JPRB/) |
---|
| 1730 | KBO( :,29,13) = (/& |
---|
| 1731 | & 2.0397E+01_JPRB,2.3995E+01_JPRB,2.7731E+01_JPRB,3.1631E+01_JPRB,3.5578E+01_JPRB/) |
---|
| 1732 | KBO( :,30,13) = (/& |
---|
| 1733 | & 1.8112E+01_JPRB,2.1250E+01_JPRB,2.4540E+01_JPRB,2.7936E+01_JPRB,3.1421E+01_JPRB/) |
---|
| 1734 | KBO( :,31,13) = (/& |
---|
| 1735 | & 1.6067E+01_JPRB,1.8811E+01_JPRB,2.1703E+01_JPRB,2.4693E+01_JPRB,2.7776E+01_JPRB/) |
---|
| 1736 | KBO( :,32,13) = (/& |
---|
| 1737 | & 1.4258E+01_JPRB,1.6681E+01_JPRB,1.9216E+01_JPRB,2.1851E+01_JPRB,2.4609E+01_JPRB/) |
---|
| 1738 | KBO( :,33,13) = (/& |
---|
| 1739 | & 1.2678E+01_JPRB,1.4812E+01_JPRB,1.7059E+01_JPRB,1.9407E+01_JPRB,2.1877E+01_JPRB/) |
---|
| 1740 | KBO( :,34,13) = (/& |
---|
| 1741 | & 1.1234E+01_JPRB,1.3124E+01_JPRB,1.5116E+01_JPRB,1.7220E+01_JPRB,1.9477E+01_JPRB/) |
---|
| 1742 | KBO( :,35,13) = (/& |
---|
| 1743 | & 9.8183E+00_JPRB,1.1494E+01_JPRB,1.3264E+01_JPRB,1.5165E+01_JPRB,1.7217E+01_JPRB/) |
---|
| 1744 | KBO( :,36,13) = (/& |
---|
| 1745 | & 8.4512E+00_JPRB,9.9248E+00_JPRB,1.1505E+01_JPRB,1.3215E+01_JPRB,1.5066E+01_JPRB/) |
---|
| 1746 | KBO( :,37,13) = (/& |
---|
| 1747 | & 7.1046E+00_JPRB,8.3927E+00_JPRB,9.7872E+00_JPRB,1.1310E+01_JPRB,1.2976E+01_JPRB/) |
---|
| 1748 | KBO( :,38,13) = (/& |
---|
| 1749 | & 5.9713E+00_JPRB,7.0990E+00_JPRB,8.3334E+00_JPRB,9.6940E+00_JPRB,1.1182E+01_JPRB/) |
---|
| 1750 | KBO( :,39,13) = (/& |
---|
| 1751 | & 5.0257E+00_JPRB,6.0152E+00_JPRB,7.1078E+00_JPRB,8.3261E+00_JPRB,9.6615E+00_JPRB/) |
---|
| 1752 | KBO( :,40,13) = (/& |
---|
| 1753 | & 4.1523E+00_JPRB,5.0116E+00_JPRB,5.9715E+00_JPRB,7.0484E+00_JPRB,8.2344E+00_JPRB/) |
---|
| 1754 | KBO( :,41,13) = (/& |
---|
| 1755 | & 3.4206E+00_JPRB,4.1640E+00_JPRB,5.0022E+00_JPRB,5.9574E+00_JPRB,7.0137E+00_JPRB/) |
---|
| 1756 | KBO( :,42,13) = (/& |
---|
| 1757 | & 2.8151E+00_JPRB,3.4582E+00_JPRB,4.1916E+00_JPRB,5.0330E+00_JPRB,5.9745E+00_JPRB/) |
---|
| 1758 | KBO( :,43,13) = (/& |
---|
| 1759 | & 2.2836E+00_JPRB,2.8346E+00_JPRB,3.4702E+00_JPRB,4.2076E+00_JPRB,5.0392E+00_JPRB/) |
---|
| 1760 | KBO( :,44,13) = (/& |
---|
| 1761 | & 1.8358E+00_JPRB,2.3065E+00_JPRB,2.8540E+00_JPRB,3.4947E+00_JPRB,4.2292E+00_JPRB/) |
---|
| 1762 | KBO( :,45,13) = (/& |
---|
| 1763 | & 1.4699E+00_JPRB,1.8708E+00_JPRB,2.3414E+00_JPRB,2.8971E+00_JPRB,3.5454E+00_JPRB/) |
---|
| 1764 | KBO( :,46,13) = (/& |
---|
| 1765 | & 1.1650E+00_JPRB,1.5043E+00_JPRB,1.9061E+00_JPRB,2.3856E+00_JPRB,2.9537E+00_JPRB/) |
---|
| 1766 | KBO( :,47,13) = (/& |
---|
| 1767 | & 9.0755E-01_JPRB,1.1912E+00_JPRB,1.5311E+00_JPRB,1.9396E+00_JPRB,2.4325E+00_JPRB/) |
---|
| 1768 | KBO( :,48,13) = (/& |
---|
| 1769 | & 7.0184E-01_JPRB,9.3709E-01_JPRB,1.2239E+00_JPRB,1.5710E+00_JPRB,1.9958E+00_JPRB/) |
---|
| 1770 | KBO( :,49,13) = (/& |
---|
| 1771 | & 5.3970E-01_JPRB,7.3243E-01_JPRB,9.7194E-01_JPRB,1.2677E+00_JPRB,1.6307E+00_JPRB/) |
---|
| 1772 | KBO( :,50,13) = (/& |
---|
| 1773 | & 4.1584E-01_JPRB,5.7380E-01_JPRB,7.7303E-01_JPRB,1.0235E+00_JPRB,1.3360E+00_JPRB/) |
---|
| 1774 | KBO( :,51,13) = (/& |
---|
| 1775 | & 3.1970E-01_JPRB,4.4857E-01_JPRB,6.1406E-01_JPRB,8.2493E-01_JPRB,1.0932E+00_JPRB/) |
---|
| 1776 | KBO( :,52,13) = (/& |
---|
| 1777 | & 2.4403E-01_JPRB,3.4872E-01_JPRB,4.8565E-01_JPRB,6.6228E-01_JPRB,8.9043E-01_JPRB/) |
---|
| 1778 | KBO( :,53,13) = (/& |
---|
| 1779 | & 1.8461E-01_JPRB,2.6942E-01_JPRB,3.8200E-01_JPRB,5.2938E-01_JPRB,7.2205E-01_JPRB/) |
---|
| 1780 | KBO( :,54,13) = (/& |
---|
| 1781 | & 1.4016E-01_JPRB,2.0879E-01_JPRB,3.0199E-01_JPRB,4.2537E-01_JPRB,5.8863E-01_JPRB/) |
---|
| 1782 | KBO( :,55,13) = (/& |
---|
| 1783 | & 1.0627E-01_JPRB,1.6160E-01_JPRB,2.3840E-01_JPRB,3.4179E-01_JPRB,4.8036E-01_JPRB/) |
---|
| 1784 | KBO( :,56,13) = (/& |
---|
| 1785 | & 7.9975E-02_JPRB,1.2430E-01_JPRB,1.8699E-01_JPRB,2.7356E-01_JPRB,3.9081E-01_JPRB/) |
---|
| 1786 | KBO( :,57,13) = (/& |
---|
| 1787 | & 5.9672E-02_JPRB,9.4998E-02_JPRB,1.4581E-01_JPRB,2.1774E-01_JPRB,3.1655E-01_JPRB/) |
---|
| 1788 | KBO( :,58,13) = (/& |
---|
| 1789 | & 4.4475E-02_JPRB,7.2566E-02_JPRB,1.1372E-01_JPRB,1.7325E-01_JPRB,2.5698E-01_JPRB/) |
---|
| 1790 | KBO( :,59,13) = (/& |
---|
| 1791 | & 3.6215E-02_JPRB,6.0132E-02_JPRB,9.5691E-02_JPRB,1.4806E-01_JPRB,2.2323E-01_JPRB/) |
---|
| 1792 | KBO( :,13,14) = (/& |
---|
| 1793 | & 2.6336E+02_JPRB,3.2548E+02_JPRB,3.9074E+02_JPRB,4.5756E+02_JPRB,5.2579E+02_JPRB/) |
---|
| 1794 | KBO( :,14,14) = (/& |
---|
| 1795 | & 2.7039E+02_JPRB,3.3171E+02_JPRB,3.9551E+02_JPRB,4.6127E+02_JPRB,5.2944E+02_JPRB/) |
---|
| 1796 | KBO( :,15,14) = (/& |
---|
| 1797 | & 2.7394E+02_JPRB,3.3456E+02_JPRB,3.9772E+02_JPRB,4.6386E+02_JPRB,5.3259E+02_JPRB/) |
---|
| 1798 | KBO( :,16,14) = (/& |
---|
| 1799 | & 2.7489E+02_JPRB,3.3472E+02_JPRB,3.9868E+02_JPRB,4.6474E+02_JPRB,5.3170E+02_JPRB/) |
---|
| 1800 | KBO( :,17,14) = (/& |
---|
| 1801 | & 2.7361E+02_JPRB,3.3269E+02_JPRB,3.9532E+02_JPRB,4.5778E+02_JPRB,5.2000E+02_JPRB/) |
---|
| 1802 | KBO( :,18,14) = (/& |
---|
| 1803 | & 2.6867E+02_JPRB,3.2519E+02_JPRB,3.8389E+02_JPRB,4.4282E+02_JPRB,5.0150E+02_JPRB/) |
---|
| 1804 | KBO( :,19,14) = (/& |
---|
| 1805 | & 2.5965E+02_JPRB,3.1265E+02_JPRB,3.6765E+02_JPRB,4.2321E+02_JPRB,4.7874E+02_JPRB/) |
---|
| 1806 | KBO( :,20,14) = (/& |
---|
| 1807 | & 2.4734E+02_JPRB,2.9762E+02_JPRB,3.4946E+02_JPRB,4.0232E+02_JPRB,4.5540E+02_JPRB/) |
---|
| 1808 | KBO( :,21,14) = (/& |
---|
| 1809 | & 2.3283E+02_JPRB,2.7966E+02_JPRB,3.2877E+02_JPRB,3.7834E+02_JPRB,4.2789E+02_JPRB/) |
---|
| 1810 | KBO( :,22,14) = (/& |
---|
| 1811 | & 2.2036E+02_JPRB,2.6406E+02_JPRB,3.0915E+02_JPRB,3.5433E+02_JPRB,3.9946E+02_JPRB/) |
---|
| 1812 | KBO( :,23,14) = (/& |
---|
| 1813 | & 2.0698E+02_JPRB,2.4687E+02_JPRB,2.8731E+02_JPRB,3.2870E+02_JPRB,3.7050E+02_JPRB/) |
---|
| 1814 | KBO( :,24,14) = (/& |
---|
| 1815 | & 1.9330E+02_JPRB,2.2881E+02_JPRB,2.6520E+02_JPRB,3.0278E+02_JPRB,3.4148E+02_JPRB/) |
---|
| 1816 | KBO( :,25,14) = (/& |
---|
| 1817 | & 1.7915E+02_JPRB,2.1082E+02_JPRB,2.4386E+02_JPRB,2.7843E+02_JPRB,3.1413E+02_JPRB/) |
---|
| 1818 | KBO( :,26,14) = (/& |
---|
| 1819 | & 1.6500E+02_JPRB,1.9389E+02_JPRB,2.2412E+02_JPRB,2.5557E+02_JPRB,2.8754E+02_JPRB/) |
---|
| 1820 | KBO( :,27,14) = (/& |
---|
| 1821 | & 1.5126E+02_JPRB,1.7765E+02_JPRB,2.0524E+02_JPRB,2.3351E+02_JPRB,2.6284E+02_JPRB/) |
---|
| 1822 | KBO( :,28,14) = (/& |
---|
| 1823 | & 1.3836E+02_JPRB,1.6228E+02_JPRB,1.8728E+02_JPRB,2.1350E+02_JPRB,2.4088E+02_JPRB/) |
---|
| 1824 | KBO( :,29,14) = (/& |
---|
| 1825 | & 1.2669E+02_JPRB,1.4825E+02_JPRB,1.7120E+02_JPRB,1.9571E+02_JPRB,2.2144E+02_JPRB/) |
---|
| 1826 | KBO( :,30,14) = (/& |
---|
| 1827 | & 1.1586E+02_JPRB,1.3560E+02_JPRB,1.5706E+02_JPRB,1.7985E+02_JPRB,2.0425E+02_JPRB/) |
---|
| 1828 | KBO( :,31,14) = (/& |
---|
| 1829 | & 1.0606E+02_JPRB,1.2445E+02_JPRB,1.4457E+02_JPRB,1.6605E+02_JPRB,1.8909E+02_JPRB/) |
---|
| 1830 | KBO( :,32,14) = (/& |
---|
| 1831 | & 9.7506E+01_JPRB,1.1472E+02_JPRB,1.3364E+02_JPRB,1.5393E+02_JPRB,1.7576E+02_JPRB/) |
---|
| 1832 | KBO( :,33,14) = (/& |
---|
| 1833 | & 9.0128E+01_JPRB,1.0634E+02_JPRB,1.2404E+02_JPRB,1.4330E+02_JPRB,1.6431E+02_JPRB/) |
---|
| 1834 | KBO( :,34,14) = (/& |
---|
| 1835 | & 8.3269E+01_JPRB,9.8432E+01_JPRB,1.1521E+02_JPRB,1.3353E+02_JPRB,1.5390E+02_JPRB/) |
---|
| 1836 | KBO( :,35,14) = (/& |
---|
| 1837 | & 7.5995E+01_JPRB,9.0208E+01_JPRB,1.0603E+02_JPRB,1.2357E+02_JPRB,1.4330E+02_JPRB/) |
---|
| 1838 | KBO( :,36,14) = (/& |
---|
| 1839 | & 6.8313E+01_JPRB,8.1602E+01_JPRB,9.6446E+01_JPRB,1.1317E+02_JPRB,1.3204E+02_JPRB/) |
---|
| 1840 | KBO( :,37,14) = (/& |
---|
| 1841 | & 5.9886E+01_JPRB,7.2145E+01_JPRB,8.5923E+01_JPRB,1.0161E+02_JPRB,1.1943E+02_JPRB/) |
---|
| 1842 | KBO( :,38,14) = (/& |
---|
| 1843 | & 5.2518E+01_JPRB,6.3836E+01_JPRB,7.6674E+01_JPRB,9.1446E+01_JPRB,1.0826E+02_JPRB/) |
---|
| 1844 | KBO( :,39,14) = (/& |
---|
| 1845 | & 4.6141E+01_JPRB,5.6624E+01_JPRB,6.8640E+01_JPRB,8.2585E+01_JPRB,9.8545E+01_JPRB/) |
---|
| 1846 | |
---|
| 1847 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART6',1,ZHOOK_HANDLE) |
---|
| 1848 | END SUBROUTINE PART6 |
---|
| 1849 | |
---|
| 1850 | |
---|
| 1851 | SUBROUTINE PART7 |
---|
| 1852 | |
---|
| 1853 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 1854 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART7',0,ZHOOK_HANDLE) |
---|
| 1855 | |
---|
| 1856 | |
---|
| 1857 | KBO( :,40,14) = (/& |
---|
| 1858 | & 3.9743E+01_JPRB,4.9296E+01_JPRB,6.0431E+01_JPRB,7.3425E+01_JPRB,8.8431E+01_JPRB/) |
---|
| 1859 | KBO( :,41,14) = (/& |
---|
| 1860 | & 3.4132E+01_JPRB,4.2840E+01_JPRB,5.3118E+01_JPRB,6.5214E+01_JPRB,7.9338E+01_JPRB/) |
---|
| 1861 | KBO( :,42,14) = (/& |
---|
| 1862 | & 2.9302E+01_JPRB,3.7264E+01_JPRB,4.6737E+01_JPRB,5.8014E+01_JPRB,7.1287E+01_JPRB/) |
---|
| 1863 | KBO( :,43,14) = (/& |
---|
| 1864 | & 2.4764E+01_JPRB,3.1960E+01_JPRB,4.0612E+01_JPRB,5.1039E+01_JPRB,6.3433E+01_JPRB/) |
---|
| 1865 | KBO( :,44,14) = (/& |
---|
| 1866 | & 2.0724E+01_JPRB,2.7192E+01_JPRB,3.5067E+01_JPRB,4.4640E+01_JPRB,5.6164E+01_JPRB/) |
---|
| 1867 | KBO( :,45,14) = (/& |
---|
| 1868 | & 1.7302E+01_JPRB,2.3086E+01_JPRB,3.0232E+01_JPRB,3.8995E+01_JPRB,4.9699E+01_JPRB/) |
---|
| 1869 | KBO( :,46,14) = (/& |
---|
| 1870 | & 1.4294E+01_JPRB,1.9412E+01_JPRB,2.5856E+01_JPRB,3.3850E+01_JPRB,4.3695E+01_JPRB/) |
---|
| 1871 | KBO( :,47,14) = (/& |
---|
| 1872 | & 1.1576E+01_JPRB,1.6045E+01_JPRB,2.1765E+01_JPRB,2.8969E+01_JPRB,3.7957E+01_JPRB/) |
---|
| 1873 | KBO( :,48,14) = (/& |
---|
| 1874 | & 9.3047E+00_JPRB,1.3187E+01_JPRB,1.8238E+01_JPRB,2.4704E+01_JPRB,3.2846E+01_JPRB/) |
---|
| 1875 | KBO( :,49,14) = (/& |
---|
| 1876 | & 7.4233E+00_JPRB,1.0766E+01_JPRB,1.5205E+01_JPRB,2.0973E+01_JPRB,2.8303E+01_JPRB/) |
---|
| 1877 | KBO( :,50,14) = (/& |
---|
| 1878 | & 5.9319E+00_JPRB,8.8036E+00_JPRB,1.2699E+01_JPRB,1.7857E+01_JPRB,2.4492E+01_JPRB/) |
---|
| 1879 | KBO( :,51,14) = (/& |
---|
| 1880 | & 4.7353E+00_JPRB,7.1869E+00_JPRB,1.0601E+01_JPRB,1.5199E+01_JPRB,2.1205E+01_JPRB/) |
---|
| 1881 | KBO( :,52,14) = (/& |
---|
| 1882 | & 3.7469E+00_JPRB,5.8275E+00_JPRB,8.7938E+00_JPRB,1.2866E+01_JPRB,1.8302E+01_JPRB/) |
---|
| 1883 | KBO( :,53,14) = (/& |
---|
| 1884 | & 2.9368E+00_JPRB,4.6957E+00_JPRB,7.2478E+00_JPRB,1.0838E+01_JPRB,1.5721E+01_JPRB/) |
---|
| 1885 | KBO( :,54,14) = (/& |
---|
| 1886 | & 2.3156E+00_JPRB,3.8057E+00_JPRB,6.0167E+00_JPRB,9.1925E+00_JPRB,1.3590E+01_JPRB/) |
---|
| 1887 | KBO( :,55,14) = (/& |
---|
| 1888 | & 1.8252E+00_JPRB,3.0811E+00_JPRB,5.0017E+00_JPRB,7.8029E+00_JPRB,1.1764E+01_JPRB/) |
---|
| 1889 | KBO( :,56,14) = (/& |
---|
| 1890 | & 1.4272E+00_JPRB,2.4767E+00_JPRB,4.1376E+00_JPRB,6.5946E+00_JPRB,1.0136E+01_JPRB/) |
---|
| 1891 | KBO( :,57,14) = (/& |
---|
| 1892 | & 1.1086E+00_JPRB,1.9781E+00_JPRB,3.3958E+00_JPRB,5.5471E+00_JPRB,8.7031E+00_JPRB/) |
---|
| 1893 | KBO( :,58,14) = (/& |
---|
| 1894 | & 8.6140E-01_JPRB,1.5824E+00_JPRB,2.7911E+00_JPRB,4.6768E+00_JPRB,7.4888E+00_JPRB/) |
---|
| 1895 | KBO( :,59,14) = (/& |
---|
| 1896 | & 7.4828E-01_JPRB,1.4056E+00_JPRB,2.5265E+00_JPRB,4.3052E+00_JPRB,6.9802E+00_JPRB/) |
---|
| 1897 | KBO( :,13,15) = (/& |
---|
| 1898 | & 1.0111E+03_JPRB,1.2570E+03_JPRB,1.4901E+03_JPRB,1.7375E+03_JPRB,1.9647E+03_JPRB/) |
---|
| 1899 | KBO( :,14,15) = (/& |
---|
| 1900 | & 1.0798E+03_JPRB,1.3354E+03_JPRB,1.5807E+03_JPRB,1.8253E+03_JPRB,2.0644E+03_JPRB/) |
---|
| 1901 | KBO( :,15,15) = (/& |
---|
| 1902 | & 1.1550E+03_JPRB,1.4096E+03_JPRB,1.6671E+03_JPRB,1.9146E+03_JPRB,2.1680E+03_JPRB/) |
---|
| 1903 | KBO( :,16,15) = (/& |
---|
| 1904 | & 1.2133E+03_JPRB,1.4796E+03_JPRB,1.7458E+03_JPRB,1.9980E+03_JPRB,2.2730E+03_JPRB/) |
---|
| 1905 | KBO( :,17,15) = (/& |
---|
| 1906 | & 1.2650E+03_JPRB,1.5359E+03_JPRB,1.8049E+03_JPRB,2.0803E+03_JPRB,2.3678E+03_JPRB/) |
---|
| 1907 | KBO( :,18,15) = (/& |
---|
| 1908 | & 1.3114E+03_JPRB,1.5935E+03_JPRB,1.8807E+03_JPRB,2.1759E+03_JPRB,2.4722E+03_JPRB/) |
---|
| 1909 | KBO( :,19,15) = (/& |
---|
| 1910 | & 1.3601E+03_JPRB,1.6562E+03_JPRB,1.9621E+03_JPRB,2.2640E+03_JPRB,2.5731E+03_JPRB/) |
---|
| 1911 | KBO( :,20,15) = (/& |
---|
| 1912 | & 1.4219E+03_JPRB,1.7257E+03_JPRB,2.0357E+03_JPRB,2.3424E+03_JPRB,2.6494E+03_JPRB/) |
---|
| 1913 | KBO( :,21,15) = (/& |
---|
| 1914 | & 1.4797E+03_JPRB,1.7824E+03_JPRB,2.0872E+03_JPRB,2.4001E+03_JPRB,2.7105E+03_JPRB/) |
---|
| 1915 | KBO( :,22,15) = (/& |
---|
| 1916 | & 1.5335E+03_JPRB,1.8378E+03_JPRB,2.1448E+03_JPRB,2.4560E+03_JPRB,2.7714E+03_JPRB/) |
---|
| 1917 | KBO( :,23,15) = (/& |
---|
| 1918 | & 1.5773E+03_JPRB,1.8793E+03_JPRB,2.1836E+03_JPRB,2.4946E+03_JPRB,2.8114E+03_JPRB/) |
---|
| 1919 | KBO( :,24,15) = (/& |
---|
| 1920 | & 1.6080E+03_JPRB,1.9047E+03_JPRB,2.2086E+03_JPRB,2.5288E+03_JPRB,2.8346E+03_JPRB/) |
---|
| 1921 | KBO( :,25,15) = (/& |
---|
| 1922 | & 1.6263E+03_JPRB,1.9189E+03_JPRB,2.2269E+03_JPRB,2.5372E+03_JPRB,2.8437E+03_JPRB/) |
---|
| 1923 | KBO( :,26,15) = (/& |
---|
| 1924 | & 1.6402E+03_JPRB,1.9311E+03_JPRB,2.2342E+03_JPRB,2.5429E+03_JPRB,2.8526E+03_JPRB/) |
---|
| 1925 | KBO( :,27,15) = (/& |
---|
| 1926 | & 1.6484E+03_JPRB,1.9393E+03_JPRB,2.2378E+03_JPRB,2.5479E+03_JPRB,2.8584E+03_JPRB/) |
---|
| 1927 | KBO( :,28,15) = (/& |
---|
| 1928 | & 1.6552E+03_JPRB,1.9438E+03_JPRB,2.2426E+03_JPRB,2.5488E+03_JPRB,2.8513E+03_JPRB/) |
---|
| 1929 | KBO( :,29,15) = (/& |
---|
| 1930 | & 1.6623E+03_JPRB,1.9469E+03_JPRB,2.2435E+03_JPRB,2.5469E+03_JPRB,2.8487E+03_JPRB/) |
---|
| 1931 | KBO( :,30,15) = (/& |
---|
| 1932 | & 1.6645E+03_JPRB,1.9461E+03_JPRB,2.2408E+03_JPRB,2.5383E+03_JPRB,2.8471E+03_JPRB/) |
---|
| 1933 | KBO( :,31,15) = (/& |
---|
| 1934 | & 1.6666E+03_JPRB,1.9464E+03_JPRB,2.2424E+03_JPRB,2.5437E+03_JPRB,2.8541E+03_JPRB/) |
---|
| 1935 | KBO( :,32,15) = (/& |
---|
| 1936 | & 1.6715E+03_JPRB,1.9532E+03_JPRB,2.2512E+03_JPRB,2.5534E+03_JPRB,2.8676E+03_JPRB/) |
---|
| 1937 | KBO( :,33,15) = (/& |
---|
| 1938 | & 1.6819E+03_JPRB,1.9666E+03_JPRB,2.2688E+03_JPRB,2.5748E+03_JPRB,2.8918E+03_JPRB/) |
---|
| 1939 | KBO( :,34,15) = (/& |
---|
| 1940 | & 1.6895E+03_JPRB,1.9778E+03_JPRB,2.2816E+03_JPRB,2.5925E+03_JPRB,2.9158E+03_JPRB/) |
---|
| 1941 | KBO( :,35,15) = (/& |
---|
| 1942 | & 1.6762E+03_JPRB,1.9659E+03_JPRB,2.2723E+03_JPRB,2.5875E+03_JPRB,2.9156E+03_JPRB/) |
---|
| 1943 | KBO( :,36,15) = (/& |
---|
| 1944 | & 1.6393E+03_JPRB,1.9297E+03_JPRB,2.2372E+03_JPRB,2.5554E+03_JPRB,2.8869E+03_JPRB/) |
---|
| 1945 | KBO( :,37,15) = (/& |
---|
| 1946 | & 1.5657E+03_JPRB,1.8547E+03_JPRB,2.1621E+03_JPRB,2.4812E+03_JPRB,2.8134E+03_JPRB/) |
---|
| 1947 | KBO( :,38,15) = (/& |
---|
| 1948 | & 1.4959E+03_JPRB,1.7834E+03_JPRB,2.0905E+03_JPRB,2.4085E+03_JPRB,2.7423E+03_JPRB/) |
---|
| 1949 | KBO( :,39,15) = (/& |
---|
| 1950 | & 1.4312E+03_JPRB,1.7180E+03_JPRB,2.0231E+03_JPRB,2.3408E+03_JPRB,2.6756E+03_JPRB/) |
---|
| 1951 | KBO( :,40,15) = (/& |
---|
| 1952 | & 1.3437E+03_JPRB,1.6273E+03_JPRB,1.9282E+03_JPRB,2.2440E+03_JPRB,2.5841E+03_JPRB/) |
---|
| 1953 | KBO( :,41,15) = (/& |
---|
| 1954 | & 1.2581E+03_JPRB,1.5370E+03_JPRB,1.8334E+03_JPRB,2.1461E+03_JPRB,2.4843E+03_JPRB/) |
---|
| 1955 | KBO( :,42,15) = (/& |
---|
| 1956 | & 1.1774E+03_JPRB,1.4499E+03_JPRB,1.7425E+03_JPRB,2.0516E+03_JPRB,2.3873E+03_JPRB/) |
---|
| 1957 | KBO( :,43,15) = (/& |
---|
| 1958 | & 1.0861E+03_JPRB,1.3512E+03_JPRB,1.6377E+03_JPRB,1.9415E+03_JPRB,2.2734E+03_JPRB/) |
---|
| 1959 | KBO( :,44,15) = (/& |
---|
| 1960 | & 9.9323E+02_JPRB,1.2501E+03_JPRB,1.5289E+03_JPRB,1.8275E+03_JPRB,2.1544E+03_JPRB/) |
---|
| 1961 | KBO( :,45,15) = (/& |
---|
| 1962 | & 9.0550E+02_JPRB,1.1536E+03_JPRB,1.4239E+03_JPRB,1.7214E+03_JPRB,2.0382E+03_JPRB/) |
---|
| 1963 | KBO( :,46,15) = (/& |
---|
| 1964 | & 8.1702E+02_JPRB,1.0558E+03_JPRB,1.3173E+03_JPRB,1.6071E+03_JPRB,1.9180E+03_JPRB/) |
---|
| 1965 | KBO( :,47,15) = (/& |
---|
| 1966 | & 7.2488E+02_JPRB,9.5181E+02_JPRB,1.2036E+03_JPRB,1.4836E+03_JPRB,1.7874E+03_JPRB/) |
---|
| 1967 | KBO( :,48,15) = (/& |
---|
| 1968 | & 6.3986E+02_JPRB,8.5318E+02_JPRB,1.0938E+03_JPRB,1.3648E+03_JPRB,1.6602E+03_JPRB/) |
---|
| 1969 | KBO( :,49,15) = (/& |
---|
| 1970 | & 5.5978E+02_JPRB,7.6064E+02_JPRB,9.8918E+02_JPRB,1.2514E+03_JPRB,1.5371E+03_JPRB/) |
---|
| 1971 | KBO( :,50,15) = (/& |
---|
| 1972 | & 4.9043E+02_JPRB,6.7832E+02_JPRB,8.9646E+02_JPRB,1.1489E+03_JPRB,1.4252E+03_JPRB/) |
---|
| 1973 | KBO( :,51,15) = (/& |
---|
| 1974 | & 4.2854E+02_JPRB,6.0344E+02_JPRB,8.1294E+02_JPRB,1.0522E+03_JPRB,1.3193E+03_JPRB/) |
---|
| 1975 | KBO( :,52,15) = (/& |
---|
| 1976 | & 3.7247E+02_JPRB,5.3364E+02_JPRB,7.3121E+02_JPRB,9.5966E+02_JPRB,1.2181E+03_JPRB/) |
---|
| 1977 | KBO( :,53,15) = (/& |
---|
| 1978 | & 3.2147E+02_JPRB,4.6899E+02_JPRB,6.5393E+02_JPRB,8.7133E+02_JPRB,1.1199E+03_JPRB/) |
---|
| 1979 | KBO( :,54,15) = (/& |
---|
| 1980 | & 2.7925E+02_JPRB,4.1444E+02_JPRB,5.8692E+02_JPRB,7.9382E+02_JPRB,1.0327E+03_JPRB/) |
---|
| 1981 | KBO( :,55,15) = (/& |
---|
| 1982 | & 2.4236E+02_JPRB,3.6648E+02_JPRB,5.2661E+02_JPRB,7.2283E+02_JPRB,9.5269E+02_JPRB/) |
---|
| 1983 | KBO( :,56,15) = (/& |
---|
| 1984 | & 2.0878E+02_JPRB,3.2240E+02_JPRB,4.7042E+02_JPRB,6.5558E+02_JPRB,8.7457E+02_JPRB/) |
---|
| 1985 | KBO( :,57,15) = (/& |
---|
| 1986 | & 1.7832E+02_JPRB,2.8217E+02_JPRB,4.1844E+02_JPRB,5.9173E+02_JPRB,8.0081E+02_JPRB/) |
---|
| 1987 | KBO( :,58,15) = (/& |
---|
| 1988 | & 1.5222E+02_JPRB,2.4706E+02_JPRB,3.7269E+02_JPRB,5.3459E+02_JPRB,7.3370E+02_JPRB/) |
---|
| 1989 | KBO( :,59,15) = (/& |
---|
| 1990 | & 1.4227E+02_JPRB,2.3374E+02_JPRB,3.5521E+02_JPRB,5.1259E+02_JPRB,7.0748E+02_JPRB/) |
---|
| 1991 | KBO( :,13,16) = (/& |
---|
| 1992 | & 3.6681E+03_JPRB,4.4146E+03_JPRB,5.0601E+03_JPRB,5.8217E+03_JPRB,6.4602E+03_JPRB/) |
---|
| 1993 | KBO( :,14,16) = (/& |
---|
| 1994 | & 4.1383E+03_JPRB,5.0055E+03_JPRB,5.7969E+03_JPRB,6.5815E+03_JPRB,7.3466E+03_JPRB/) |
---|
| 1995 | KBO( :,15,16) = (/& |
---|
| 1996 | & 4.7877E+03_JPRB,5.7010E+03_JPRB,6.6308E+03_JPRB,7.5076E+03_JPRB,8.4346E+03_JPRB/) |
---|
| 1997 | KBO( :,16,16) = (/& |
---|
| 1998 | & 5.4281E+03_JPRB,6.5150E+03_JPRB,7.5529E+03_JPRB,8.5202E+03_JPRB,9.5967E+03_JPRB/) |
---|
| 1999 | KBO( :,17,16) = (/& |
---|
| 2000 | & 6.1845E+03_JPRB,7.4144E+03_JPRB,8.5274E+03_JPRB,9.6391E+03_JPRB,1.0752E+04_JPRB/) |
---|
| 2001 | KBO( :,18,16) = (/& |
---|
| 2002 | & 7.0091E+03_JPRB,8.3702E+03_JPRB,9.5741E+03_JPRB,1.0846E+04_JPRB,1.1981E+04_JPRB/) |
---|
| 2003 | KBO( :,19,16) = (/& |
---|
| 2004 | & 7.8177E+03_JPRB,9.3538E+03_JPRB,1.0755E+04_JPRB,1.2016E+04_JPRB,1.3317E+04_JPRB/) |
---|
| 2005 | KBO( :,20,16) = (/& |
---|
| 2006 | & 8.7063E+03_JPRB,1.0319E+04_JPRB,1.1914E+04_JPRB,1.3366E+04_JPRB,1.4769E+04_JPRB/) |
---|
| 2007 | KBO( :,21,16) = (/& |
---|
| 2008 | & 9.6583E+03_JPRB,1.1430E+04_JPRB,1.3099E+04_JPRB,1.4798E+04_JPRB,1.6351E+04_JPRB/) |
---|
| 2009 | KBO( :,22,16) = (/& |
---|
| 2010 | & 1.0855E+04_JPRB,1.2791E+04_JPRB,1.4609E+04_JPRB,1.6400E+04_JPRB,1.8171E+04_JPRB/) |
---|
| 2011 | KBO( :,23,16) = (/& |
---|
| 2012 | & 1.2201E+04_JPRB,1.4278E+04_JPRB,1.6275E+04_JPRB,1.8206E+04_JPRB,2.0113E+04_JPRB/) |
---|
| 2013 | KBO( :,24,16) = (/& |
---|
| 2014 | & 1.3628E+04_JPRB,1.5860E+04_JPRB,1.8039E+04_JPRB,2.0176E+04_JPRB,2.2137E+04_JPRB/) |
---|
| 2015 | KBO( :,25,16) = (/& |
---|
| 2016 | & 1.5188E+04_JPRB,1.7579E+04_JPRB,1.9918E+04_JPRB,2.2170E+04_JPRB,2.4222E+04_JPRB/) |
---|
| 2017 | KBO( :,26,16) = (/& |
---|
| 2018 | & 1.6826E+04_JPRB,1.9365E+04_JPRB,2.1844E+04_JPRB,2.4184E+04_JPRB,2.6322E+04_JPRB/) |
---|
| 2019 | KBO( :,27,16) = (/& |
---|
| 2020 | & 1.8524E+04_JPRB,2.1162E+04_JPRB,2.3751E+04_JPRB,2.6170E+04_JPRB,2.8371E+04_JPRB/) |
---|
| 2021 | KBO( :,28,16) = (/& |
---|
| 2022 | & 2.0216E+04_JPRB,2.2951E+04_JPRB,2.5589E+04_JPRB,2.8116E+04_JPRB,3.0326E+04_JPRB/) |
---|
| 2023 | KBO( :,29,16) = (/& |
---|
| 2024 | & 2.1910E+04_JPRB,2.4742E+04_JPRB,2.7452E+04_JPRB,3.0040E+04_JPRB,3.2278E+04_JPRB/) |
---|
| 2025 | KBO( :,30,16) = (/& |
---|
| 2026 | & 2.3613E+04_JPRB,2.6515E+04_JPRB,2.9278E+04_JPRB,3.1815E+04_JPRB,3.4145E+04_JPRB/) |
---|
| 2027 | KBO( :,31,16) = (/& |
---|
| 2028 | & 2.5314E+04_JPRB,2.8268E+04_JPRB,3.1043E+04_JPRB,3.3568E+04_JPRB,3.5897E+04_JPRB/) |
---|
| 2029 | KBO( :,32,16) = (/& |
---|
| 2030 | & 2.6975E+04_JPRB,2.9937E+04_JPRB,3.2719E+04_JPRB,3.5244E+04_JPRB,3.7549E+04_JPRB/) |
---|
| 2031 | KBO( :,33,16) = (/& |
---|
| 2032 | & 2.8572E+04_JPRB,3.1529E+04_JPRB,3.4290E+04_JPRB,3.6787E+04_JPRB,3.9063E+04_JPRB/) |
---|
| 2033 | KBO( :,34,16) = (/& |
---|
| 2034 | & 2.9977E+04_JPRB,3.2921E+04_JPRB,3.5678E+04_JPRB,3.8134E+04_JPRB,4.0357E+04_JPRB/) |
---|
| 2035 | KBO( :,35,16) = (/& |
---|
| 2036 | & 3.0980E+04_JPRB,3.3963E+04_JPRB,3.6707E+04_JPRB,3.9142E+04_JPRB,4.1334E+04_JPRB/) |
---|
| 2037 | KBO( :,36,16) = (/& |
---|
| 2038 | & 3.1578E+04_JPRB,3.4586E+04_JPRB,3.7314E+04_JPRB,3.9783E+04_JPRB,4.1980E+04_JPRB/) |
---|
| 2039 | KBO( :,37,16) = (/& |
---|
| 2040 | & 3.1622E+04_JPRB,3.4683E+04_JPRB,3.7456E+04_JPRB,3.9972E+04_JPRB,4.2211E+04_JPRB/) |
---|
| 2041 | KBO( :,38,16) = (/& |
---|
| 2042 | & 3.1560E+04_JPRB,3.4667E+04_JPRB,3.7489E+04_JPRB,4.0060E+04_JPRB,4.2344E+04_JPRB/) |
---|
| 2043 | KBO( :,39,16) = (/& |
---|
| 2044 | & 3.1432E+04_JPRB,3.4581E+04_JPRB,3.7452E+04_JPRB,4.0068E+04_JPRB,4.2389E+04_JPRB/) |
---|
| 2045 | KBO( :,40,16) = (/& |
---|
| 2046 | & 3.0900E+04_JPRB,3.4111E+04_JPRB,3.7067E+04_JPRB,3.9756E+04_JPRB,4.2232E+04_JPRB/) |
---|
| 2047 | KBO( :,41,16) = (/& |
---|
| 2048 | & 3.0258E+04_JPRB,3.3539E+04_JPRB,3.6571E+04_JPRB,3.9344E+04_JPRB,4.1895E+04_JPRB/) |
---|
| 2049 | KBO( :,42,16) = (/& |
---|
| 2050 | & 2.9543E+04_JPRB,3.2906E+04_JPRB,3.6015E+04_JPRB,3.8861E+04_JPRB,4.1489E+04_JPRB/) |
---|
| 2051 | KBO( :,43,16) = (/& |
---|
| 2052 | & 2.8595E+04_JPRB,3.2035E+04_JPRB,3.5232E+04_JPRB,3.8174E+04_JPRB,4.0894E+04_JPRB/) |
---|
| 2053 | KBO( :,44,16) = (/& |
---|
| 2054 | & 2.7503E+04_JPRB,3.1021E+04_JPRB,3.4315E+04_JPRB,3.7350E+04_JPRB,4.0170E+04_JPRB/) |
---|
| 2055 | KBO( :,45,16) = (/& |
---|
| 2056 | & 2.6360E+04_JPRB,2.9953E+04_JPRB,3.3340E+04_JPRB,3.6512E+04_JPRB,3.9389E+04_JPRB/) |
---|
| 2057 | KBO( :,46,16) = (/& |
---|
| 2058 | & 2.5097E+04_JPRB,2.8760E+04_JPRB,3.2236E+04_JPRB,3.5509E+04_JPRB,3.8490E+04_JPRB/) |
---|
| 2059 | KBO( :,47,16) = (/& |
---|
| 2060 | & 2.3642E+04_JPRB,2.7372E+04_JPRB,3.0938E+04_JPRB,3.4319E+04_JPRB,3.7409E+04_JPRB/) |
---|
| 2061 | KBO( :,48,16) = (/& |
---|
| 2062 | & 2.2183E+04_JPRB,2.5937E+04_JPRB,2.9591E+04_JPRB,3.3067E+04_JPRB,3.6272E+04_JPRB/) |
---|
| 2063 | KBO( :,49,16) = (/& |
---|
| 2064 | & 2.0670E+04_JPRB,2.4507E+04_JPRB,2.8195E+04_JPRB,3.1753E+04_JPRB,3.5074E+04_JPRB/) |
---|
| 2065 | KBO( :,50,16) = (/& |
---|
| 2066 | & 1.9238E+04_JPRB,2.3103E+04_JPRB,2.6846E+04_JPRB,3.0481E+04_JPRB,3.3904E+04_JPRB/) |
---|
| 2067 | KBO( :,51,16) = (/& |
---|
| 2068 | & 1.7844E+04_JPRB,2.1722E+04_JPRB,2.5514E+04_JPRB,2.9217E+04_JPRB,3.2732E+04_JPRB/) |
---|
| 2069 | KBO( :,52,16) = (/& |
---|
| 2070 | & 1.6449E+04_JPRB,2.0331E+04_JPRB,2.4157E+04_JPRB,2.7921E+04_JPRB,3.1511E+04_JPRB/) |
---|
| 2071 | KBO( :,53,16) = (/& |
---|
| 2072 | & 1.5063E+04_JPRB,1.8925E+04_JPRB,2.2776E+04_JPRB,2.6593E+04_JPRB,3.0255E+04_JPRB/) |
---|
| 2073 | KBO( :,54,16) = (/& |
---|
| 2074 | & 1.3809E+04_JPRB,1.7636E+04_JPRB,2.1500E+04_JPRB,2.5353E+04_JPRB,2.9077E+04_JPRB/) |
---|
| 2075 | KBO( :,55,16) = (/& |
---|
| 2076 | & 1.2629E+04_JPRB,1.6403E+04_JPRB,2.0265E+04_JPRB,2.4149E+04_JPRB,2.7924E+04_JPRB/) |
---|
| 2077 | KBO( :,56,16) = (/& |
---|
| 2078 | & 1.1481E+04_JPRB,1.5182E+04_JPRB,1.9032E+04_JPRB,2.2931E+04_JPRB,2.6738E+04_JPRB/) |
---|
| 2079 | KBO( :,57,16) = (/& |
---|
| 2080 | & 1.0369E+04_JPRB,1.3975E+04_JPRB,1.7793E+04_JPRB,2.1704E+04_JPRB,2.5546E+04_JPRB/) |
---|
| 2081 | KBO( :,58,16) = (/& |
---|
| 2082 | & 9.3525E+03_JPRB,1.2853E+04_JPRB,1.6624E+04_JPRB,2.0533E+04_JPRB,2.4399E+04_JPRB/) |
---|
| 2083 | KBO( :,59,16) = (/& |
---|
| 2084 | & 8.9578E+03_JPRB,1.2412E+04_JPRB,1.6161E+04_JPRB,2.0067E+04_JPRB,2.3943E+04_JPRB/) |
---|
| 2085 | |
---|
| 2086 | ! The array SELFREFO contains the coefficient of the water vapor |
---|
| 2087 | ! self-continuum (including the energy term). The first index |
---|
| 2088 | ! refers to temperature in 7.2 degree increments. For instance, |
---|
| 2089 | ! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, |
---|
| 2090 | ! etc. The second index runs over the g-channel (1 to 16). |
---|
| 2091 | |
---|
| 2092 | SELFREFO( :, 1) = (/& |
---|
| 2093 | & 7.54232E-01_JPRB, 6.87231E-01_JPRB, 6.26181E-01_JPRB, 5.70555E-01_JPRB, 5.19870E-01_JPRB,& |
---|
| 2094 | & 4.73688E-01_JPRB, 4.31608E-01_JPRB, 3.93266E-01_JPRB, 3.58331E-01_JPRB, 3.26499E-01_JPRB/) |
---|
| 2095 | SELFREFO( :, 2) = (/& |
---|
| 2096 | & 1.01377E+00_JPRB, 9.30266E-01_JPRB, 8.53637E-01_JPRB, 7.83320E-01_JPRB, 7.18796E-01_JPRB,& |
---|
| 2097 | & 6.59587E-01_JPRB, 6.05254E-01_JPRB, 5.55398E-01_JPRB, 5.09648E-01_JPRB, 4.67667E-01_JPRB/) |
---|
| 2098 | SELFREFO( :, 3) = (/& |
---|
| 2099 | & 1.31954E+00_JPRB, 1.22523E+00_JPRB, 1.13766E+00_JPRB, 1.05635E+00_JPRB, 9.80853E-01_JPRB,& |
---|
| 2100 | & 9.10749E-01_JPRB, 8.45656E-01_JPRB, 7.85215E-01_JPRB, 7.29095E-01_JPRB, 6.76985E-01_JPRB/) |
---|
| 2101 | SELFREFO( :, 4) = (/& |
---|
| 2102 | & 2.18726E+00_JPRB, 2.05960E+00_JPRB, 1.93940E+00_JPRB, 1.82621E+00_JPRB, 1.71962E+00_JPRB,& |
---|
| 2103 | & 1.61926E+00_JPRB, 1.52476E+00_JPRB, 1.43577E+00_JPRB, 1.35197E+00_JPRB, 1.27306E+00_JPRB/) |
---|
| 2104 | SELFREFO( :, 5) = (/& |
---|
| 2105 | & 3.17440E+00_JPRB, 2.92794E+00_JPRB, 2.70061E+00_JPRB, 2.49094E+00_JPRB, 2.29754E+00_JPRB,& |
---|
| 2106 | & 2.11916E+00_JPRB, 1.95463E+00_JPRB, 1.80287E+00_JPRB, 1.66290E+00_JPRB, 1.53379E+00_JPRB/) |
---|
| 2107 | SELFREFO( :, 6) = (/& |
---|
| 2108 | & 2.69705E+00_JPRB, 2.48684E+00_JPRB, 2.29302E+00_JPRB, 2.11431E+00_JPRB, 1.94952E+00_JPRB,& |
---|
| 2109 | & 1.79758E+00_JPRB, 1.65748E+00_JPRB, 1.52830E+00_JPRB, 1.40919E+00_JPRB, 1.29936E+00_JPRB/) |
---|
| 2110 | SELFREFO( :, 7) = (/& |
---|
| 2111 | & 2.91893E+00_JPRB, 2.68371E+00_JPRB, 2.46745E+00_JPRB, 2.26862E+00_JPRB, 2.08581E+00_JPRB,& |
---|
| 2112 | & 1.91773E+00_JPRB, 1.76319E+00_JPRB, 1.62111E+00_JPRB, 1.49048E+00_JPRB, 1.37037E+00_JPRB/) |
---|
| 2113 | SELFREFO( :, 8) = (/& |
---|
| 2114 | & 2.91847E+00_JPRB, 2.69138E+00_JPRB, 2.48195E+00_JPRB, 2.28883E+00_JPRB, 2.11073E+00_JPRB,& |
---|
| 2115 | & 1.94648E+00_JPRB, 1.79502E+00_JPRB, 1.65535E+00_JPRB, 1.52654E+00_JPRB, 1.40776E+00_JPRB/) |
---|
| 2116 | SELFREFO( :, 9) = (/& |
---|
| 2117 | & 2.73994E+00_JPRB, 2.54834E+00_JPRB, 2.37014E+00_JPRB, 2.20440E+00_JPRB, 2.05026E+00_JPRB,& |
---|
| 2118 | & 1.90689E+00_JPRB, 1.77354E+00_JPRB, 1.64952E+00_JPRB, 1.53418E+00_JPRB, 1.42690E+00_JPRB/) |
---|
| 2119 | SELFREFO( :,10) = (/& |
---|
| 2120 | & 2.81902E+00_JPRB, 2.66010E+00_JPRB, 2.51014E+00_JPRB, 2.36863E+00_JPRB, 2.23510E+00_JPRB,& |
---|
| 2121 | & 2.10909E+00_JPRB, 1.99020E+00_JPRB, 1.87800E+00_JPRB, 1.77213E+00_JPRB, 1.67222E+00_JPRB/) |
---|
| 2122 | SELFREFO( :,11) = (/& |
---|
| 2123 | & 3.19430E+00_JPRB, 2.97671E+00_JPRB, 2.77395E+00_JPRB, 2.58500E+00_JPRB, 2.40891E+00_JPRB,& |
---|
| 2124 | & 2.24483E+00_JPRB, 2.09192E+00_JPRB, 1.94942E+00_JPRB, 1.81663E+00_JPRB, 1.69289E+00_JPRB/) |
---|
| 2125 | SELFREFO( :,12) = (/& |
---|
| 2126 | & 3.24778E+00_JPRB, 3.04535E+00_JPRB, 2.85553E+00_JPRB, 2.67755E+00_JPRB, 2.51066E+00_JPRB,& |
---|
| 2127 | & 2.35417E+00_JPRB, 2.20744E+00_JPRB, 2.06985E+00_JPRB, 1.94084E+00_JPRB, 1.81987E+00_JPRB/) |
---|
| 2128 | SELFREFO( :,13) = (/& |
---|
| 2129 | & 3.67142E+00_JPRB, 3.39875E+00_JPRB, 3.14634E+00_JPRB, 2.91267E+00_JPRB, 2.69636E+00_JPRB,& |
---|
| 2130 | & 2.49611E+00_JPRB, 2.31073E+00_JPRB, 2.13913E+00_JPRB, 1.98026E+00_JPRB, 1.83319E+00_JPRB/) |
---|
| 2131 | SELFREFO( :,14) = (/& |
---|
| 2132 | & 3.73679E+00_JPRB, 3.49113E+00_JPRB, 3.26162E+00_JPRB, 3.04719E+00_JPRB, 2.84686E+00_JPRB,& |
---|
| 2133 | & 2.65970E+00_JPRB, 2.48485E+00_JPRB, 2.32149E+00_JPRB, 2.16887E+00_JPRB, 2.02628E+00_JPRB/) |
---|
| 2134 | SELFREFO( :,15) = (/& |
---|
| 2135 | & 4.25684E+00_JPRB, 3.95885E+00_JPRB, 3.68171E+00_JPRB, 3.42397E+00_JPRB, 3.18428E+00_JPRB,& |
---|
| 2136 | & 2.96137E+00_JPRB, 2.75406E+00_JPRB, 2.56126E+00_JPRB, 2.38196E+00_JPRB, 2.21521E+00_JPRB/) |
---|
| 2137 | SELFREFO( :,16) = (/& |
---|
| 2138 | & 4.97048E+00_JPRB, 4.59255E+00_JPRB, 4.24336E+00_JPRB, 3.92072E+00_JPRB, 3.62261E+00_JPRB,& |
---|
| 2139 | & 3.34717E+00_JPRB, 3.09267E+00_JPRB, 2.85752E+00_JPRB, 2.64025E+00_JPRB, 2.43950E+00_JPRB/) |
---|
| 2140 | |
---|
| 2141 | ! The ith set of reference fractions are from the ith reference |
---|
| 2142 | ! pressure level. |
---|
| 2143 | FRACREFAO( :, 1) = (/& |
---|
| 2144 | & 0.18068060_JPRB,0.16803175_JPRB,0.15140158_JPRB,0.12221480_JPRB,& |
---|
| 2145 | & 0.10240850_JPRB,0.09330297_JPRB,0.07518960_JPRB,0.05611294_JPRB,& |
---|
| 2146 | & 0.03781487_JPRB,0.00387192_JPRB,0.00321285_JPRB,0.00244440_JPRB,& |
---|
| 2147 | & 0.00179546_JPRB,0.00107704_JPRB,0.00038798_JPRB,0.00005060_JPRB/) |
---|
| 2148 | |
---|
| 2149 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART7',1,ZHOOK_HANDLE) |
---|
| 2150 | END SUBROUTINE PART7 |
---|
| 2151 | |
---|
| 2152 | |
---|
| 2153 | SUBROUTINE PART8 |
---|
| 2154 | |
---|
| 2155 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
---|
| 2156 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART8',0,ZHOOK_HANDLE) |
---|
| 2157 | |
---|
| 2158 | |
---|
| 2159 | FRACREFAO( :, 2) = (/& |
---|
| 2160 | & 0.17927621_JPRB,0.16731168_JPRB,0.15129538_JPRB,0.12328085_JPRB,& |
---|
| 2161 | & 0.10243484_JPRB,0.09354796_JPRB,0.07538418_JPRB,0.05633071_JPRB,& |
---|
| 2162 | & 0.03810832_JPRB,0.00398347_JPRB,0.00320262_JPRB,0.00250029_JPRB,& |
---|
| 2163 | & 0.00178666_JPRB,0.00111127_JPRB,0.00039438_JPRB,0.00005169_JPRB/) |
---|
| 2164 | FRACREFAO( :, 3) = (/& |
---|
| 2165 | & 0.17762886_JPRB,0.16638555_JPRB,0.15115446_JPRB,0.12470623_JPRB,& |
---|
| 2166 | & 0.10253213_JPRB,0.09383459_JPRB,0.07560240_JPRB,0.05646568_JPRB,& |
---|
| 2167 | & 0.03844077_JPRB,0.00409142_JPRB,0.00322521_JPRB,0.00254918_JPRB,& |
---|
| 2168 | & 0.00179296_JPRB,0.00113652_JPRB,0.00040169_JPRB,0.00005259_JPRB/) |
---|
| 2169 | FRACREFAO( :, 4) = (/& |
---|
| 2170 | & 0.17566043_JPRB,0.16539773_JPRB,0.15092199_JPRB,0.12571971_JPRB,& |
---|
| 2171 | & 0.10340609_JPRB,0.09426189_JPRB,0.07559051_JPRB,0.05678188_JPRB,& |
---|
| 2172 | & 0.03881499_JPRB,0.00414102_JPRB,0.00328551_JPRB,0.00258795_JPRB,& |
---|
| 2173 | & 0.00181648_JPRB,0.00115145_JPRB,0.00040969_JPRB,0.00005357_JPRB/) |
---|
| 2174 | FRACREFAO( :, 5) = (/& |
---|
| 2175 | & 0.17335825_JPRB,0.16442548_JPRB,0.15070701_JPRB,0.12667464_JPRB,& |
---|
| 2176 | & 0.10452303_JPRB,0.09450833_JPRB,0.07599410_JPRB,0.05706393_JPRB,& |
---|
| 2177 | & 0.03910370_JPRB,0.00417880_JPRB,0.00335256_JPRB,0.00261708_JPRB,& |
---|
| 2178 | & 0.00185491_JPRB,0.00116627_JPRB,0.00041759_JPRB,0.00005464_JPRB/) |
---|
| 2179 | FRACREFAO( :, 6) = (/& |
---|
| 2180 | & 0.17082544_JPRB,0.16321516_JPRB,0.15044247_JPRB,0.12797612_JPRB,& |
---|
| 2181 | & 0.10574646_JPRB,0.09470057_JPRB,0.07647423_JPRB,0.05738756_JPRB,& |
---|
| 2182 | & 0.03935621_JPRB,0.00423789_JPRB,0.00342651_JPRB,0.00264549_JPRB,& |
---|
| 2183 | & 0.00190188_JPRB,0.00118281_JPRB,0.00042592_JPRB,0.00005583_JPRB/) |
---|
| 2184 | FRACREFAO( :, 7) = (/& |
---|
| 2185 | & 0.16809277_JPRB,0.16193336_JPRB,0.15013184_JPRB,0.12937409_JPRB,& |
---|
| 2186 | & 0.10720784_JPRB,0.09485368_JPRB,0.07692636_JPRB,0.05771774_JPRB,& |
---|
| 2187 | & 0.03966988_JPRB,0.00427754_JPRB,0.00349696_JPRB,0.00268946_JPRB,& |
---|
| 2188 | & 0.00193536_JPRB,0.00120222_JPRB,0.00043462_JPRB,0.00005712_JPRB/) |
---|
| 2189 | FRACREFAO( :, 8) = (/& |
---|
| 2190 | & 0.16517997_JPRB,0.16059248_JPRB,0.14984852_JPRB,0.13079269_JPRB,& |
---|
| 2191 | & 0.10865030_JPRB,0.09492947_JPRB,0.07759736_JPRB,0.05812201_JPRB,& |
---|
| 2192 | & 0.03997169_JPRB,0.00432356_JPRB,0.00355308_JPRB,0.00274031_JPRB,& |
---|
| 2193 | & 0.00197243_JPRB,0.00122401_JPRB,0.00044359_JPRB,0.00005849_JPRB/) |
---|
| 2194 | FRACREFAO( :, 9) = (/& |
---|
| 2195 | & 0.16209179_JPRB,0.15912023_JPRB,0.14938223_JPRB,0.13198245_JPRB,& |
---|
| 2196 | & 0.11077233_JPRB,0.09487948_JPRB,0.07831636_JPRB,0.05863440_JPRB,& |
---|
| 2197 | & 0.04028239_JPRB,0.00436804_JPRB,0.00360407_JPRB,0.00279885_JPRB,& |
---|
| 2198 | & 0.00200364_JPRB,0.00124861_JPRB,0.00045521_JPRB,0.00005996_JPRB/) |
---|
| 2199 | FRACREFAO( :,10) = (/& |
---|
| 2200 | & 0.15962425_JPRB,0.15789343_JPRB,0.14898103_JPRB,0.13275230_JPRB,& |
---|
| 2201 | & 0.11253940_JPRB,0.09503502_JPRB,0.07884382_JPRB,0.05908009_JPRB,& |
---|
| 2202 | & 0.04053524_JPRB,0.00439971_JPRB,0.00364269_JPRB,0.00284965_JPRB,& |
---|
| 2203 | & 0.00202758_JPRB,0.00127076_JPRB,0.00046408_JPRB,0.00006114_JPRB/) |
---|
| 2204 | FRACREFAO( :,11) = (/& |
---|
| 2205 | & 0.15926200_JPRB,0.15770932_JPRB,0.14891729_JPRB,0.13283882_JPRB,& |
---|
| 2206 | & 0.11276010_JPRB,0.09507311_JPRB,0.07892222_JPRB,0.05919230_JPRB,& |
---|
| 2207 | & 0.04054824_JPRB,0.00440833_JPRB,0.00365575_JPRB,0.00286459_JPRB,& |
---|
| 2208 | & 0.00203786_JPRB,0.00128405_JPRB,0.00046504_JPRB,0.00006146_JPRB/) |
---|
| 2209 | FRACREFAO( :,12) = (/& |
---|
| 2210 | & 0.15926351_JPRB,0.15770483_JPRB,0.14891177_JPRB,0.13279966_JPRB,& |
---|
| 2211 | & 0.11268171_JPRB,0.09515216_JPRB,0.07890341_JPRB,0.05924807_JPRB,& |
---|
| 2212 | & 0.04052851_JPRB,0.00440870_JPRB,0.00365425_JPRB,0.00286878_JPRB,& |
---|
| 2213 | & 0.00205747_JPRB,0.00128916_JPRB,0.00046589_JPRB,0.00006221_JPRB/) |
---|
| 2214 | FRACREFAO( :,13) = (/& |
---|
| 2215 | & 0.15937765_JPRB,0.15775780_JPRB,0.14892603_JPRB,0.13273248_JPRB,& |
---|
| 2216 | & 0.11252731_JPRB,0.09521657_JPRB,0.07885858_JPRB,0.05927679_JPRB,& |
---|
| 2217 | & 0.04050184_JPRB,0.00440285_JPRB,0.00365748_JPRB,0.00286791_JPRB,& |
---|
| 2218 | & 0.00207507_JPRB,0.00129193_JPRB,0.00046679_JPRB,0.00006308_JPRB/) |
---|
| 2219 | |
---|
| 2220 | IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART8',1,ZHOOK_HANDLE) |
---|
| 2221 | END SUBROUTINE PART8 |
---|
| 2222 | |
---|
| 2223 | |
---|
| 2224 | END SUBROUTINE RRTM_KGB2 |
---|