FV3 Bundle
CRTM_Model_Profiles.f90
Go to the documentation of this file.
1 !
2 ! CRTM_Model_Profiles
3 !
4 ! Module to define a set of climatological model profiles
5 !
6 !
7 ! CREATION HISTORY:
8 ! Written by: Paul van Delst, CIMSS/SSEC 13-Nov-2001
9 ! paul.vandelst@noaa.gov
10 ! Modified by: Yong Chen, NESDIS/CIRA 22-Aug-2007
11 ! Yong.Chen@noaa.gov
12 ! Paul van Delst, 22-Oct-2007
13 ! paul.vandelst@noaa.gov
14 !
15 
16 
17 MODULE crtm_model_profiles
18 
19  ! -----------------
20  ! Environment setup
21  ! -----------------
22  ! Module use
23  USE type_kinds , ONLY: fp
24  USE crtm_atmosphere_define, ONLY: n_models => n_valid_climatology_models, &
25  tropical , &
26  midlatitude_summer , &
27  midlatitude_winter , &
28  subarctic_summer , &
29  subarctic_winter , &
30  us_standard_atmosphere
31 
32  ! Disable implicit typing
33  IMPLICIT NONE
34 
35 
36  ! ------------
37  ! Visibilities
38  ! ------------
39  PRIVATE
40  ! Parameters
41  PUBLIC :: model_level_pressure
42  ! Procedures
43  PUBLIC :: crtm_get_model_profile
44 
45 
46  ! -----------------
47  ! Module parameters
48  ! -----------------
49  CHARACTER(*), PARAMETER :: module_rcs_id = &
50  '$Id: CRTM_Model_Profiles.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'
51 
52  ! Model dimension info
53  INTEGER, PARAMETER :: n_model_levels = 101
54  INTEGER, PARAMETER :: n_model_layers = n_model_levels-1
55  INTEGER, PARAMETER :: n_model_absorbers = 6
56 
57  ! The absorber indices
58  INTEGER, PARAMETER :: h2o = 1
59  INTEGER, PARAMETER :: o3 = 2
60  INTEGER, PARAMETER :: co2 = 3
61  INTEGER, PARAMETER :: n2o = 4
62  INTEGER, PARAMETER :: co = 5
63  INTEGER, PARAMETER :: ch4 = 6
64 
65  ! The absorber ids
66  INTEGER, PARAMETER :: h2o_id = 1
67  INTEGER, PARAMETER :: co2_id = 2
68  INTEGER, PARAMETER :: o3_id = 3
69  INTEGER, PARAMETER :: n2o_id = 4
70  INTEGER, PARAMETER :: co_id = 5
71  INTEGER, PARAMETER :: ch4_id = 6
72 
73  ! The absorber id->index map
74  ! This maps the absorber ID to the local absorber array INDEX.
75  INTEGER, PARAMETER :: absorber_id_map(n_model_absorbers) = &
76  (/ h2o, &
77  co2, &
78  o3, &
79  n2o, &
80  co, &
81  ch4 /)
82  REAL(fp), PARAMETER :: model_level_pressure(0:n_model_layers) = &
83  (/ 0.00500000_fp, 0.01606500_fp, 0.03838300_fp, 0.07687900_fp, 0.13695400_fp, &
84  0.22441200_fp, 0.34540400_fp, 0.50637400_fp, 0.71402300_fp, 0.97527400_fp, &
85  1.29724000_fp, 1.68720000_fp, 2.15257300_fp, 2.70089700_fp, 3.33981200_fp, &
86  4.07703800_fp, 4.92036200_fp, 5.87762300_fp, 6.95669500_fp, 8.16548000_fp, &
87  9.51188900_fp, 11.00383500_fp, 12.64922300_fp, 14.45593600_fp, 16.43183300_fp, &
88  18.58473200_fp, 20.92240800_fp, 23.45258300_fp, 26.18291800_fp, 29.12100900_fp, &
89  32.27437800_fp, 35.65046700_fp, 39.25663300_fp, 43.10014400_fp, 47.18817100_fp, &
90  51.52778600_fp, 56.12595300_fp, 60.98953000_fp, 66.12525900_fp, 71.53976800_fp, &
91  77.23956000_fp, 83.23101600_fp, 89.52039000_fp, 96.11380300_fp, 103.01724400_fp, &
92  110.23656500_fp, 117.77748100_fp, 125.64556200_fp, 133.84624000_fp, 142.38479600_fp, &
93  151.26636600_fp, 160.49593900_fp, 170.07834800_fp, 180.01827900_fp, 190.32026000_fp, &
94  200.98866500_fp, 212.02771200_fp, 223.44146100_fp, 235.23381400_fp, 247.40851400_fp, &
95  259.96914200_fp, 272.91912000_fp, 286.26170600_fp, 300.00000000_fp, 314.13693600_fp, &
96  328.67528600_fp, 343.61765900_fp, 358.96650300_fp, 374.72409800_fp, 390.89256600_fp, &
97  407.47386100_fp, 424.46977600_fp, 441.88194100_fp, 459.71182100_fp, 477.96072200_fp, &
98  496.62978500_fp, 515.71998900_fp, 535.23215300_fp, 555.16693500_fp, 575.52483200_fp, &
99  596.30618200_fp, 617.51116300_fp, 639.13979700_fp, 661.19194600_fp, 683.66731600_fp, &
100  706.56546000_fp, 729.88577200_fp, 753.62749400_fp, 777.78971600_fp, 802.37137600_fp, &
101  827.37125900_fp, 852.78800300_fp, 878.62009600_fp, 904.86588000_fp, 931.52354900_fp, &
102  958.59115400_fp, 986.06660100_fp, 1013.94765500_fp, 1042.23194000_fp, 1070.91694000_fp, &
103  1100.00000000_fp /)
104 
105 
106  ! ----------------------
107  ! Module data statements
108  ! ----------------------
109  REAL(fp), SAVE :: level_temperature(0:n_model_layers,n_models)
110  DATA level_temperature(:,tropical) / &
111  178.174_fp, 192.328_fp, 210.111_fp, 225.459_fp, 239.120_fp, &
112  251.516_fp, 258.971_fp, 264.536_fp, 268.260_fp, 269.940_fp, &
113  267.898_fp, 263.813_fp, 259.762_fp, 256.009_fp, 252.506_fp, &
114  249.223_fp, 246.228_fp, 243.425_fp, 240.822_fp, 238.354_fp, &
115  236.044_fp, 233.852_fp, 231.779_fp, 229.858_fp, 228.013_fp, &
116  226.216_fp, 224.456_fp, 222.760_fp, 221.135_fp, 219.623_fp, &
117  218.157_fp, 216.716_fp, 215.232_fp, 213.323_fp, 211.116_fp, &
118  208.960_fp, 206.863_fp, 204.840_fp, 202.874_fp, 201.054_fp, &
119  199.289_fp, 197.557_fp, 195.862_fp, 195.130_fp, 196.031_fp, &
120  196.910_fp, 199.292_fp, 201.792_fp, 204.249_fp, 206.692_fp, &
121  209.083_fp, 211.535_fp, 214.055_fp, 216.524_fp, 218.876_fp, &
122  221.164_fp, 223.408_fp, 225.700_fp, 227.958_fp, 230.178_fp, &
123  232.509_fp, 234.797_fp, 237.043_fp, 239.252_fp, 241.422_fp, &
124  243.553_fp, 245.698_fp, 247.807_fp, 249.880_fp, 251.983_fp, &
125  254.067_fp, 256.118_fp, 258.148_fp, 260.155_fp, 262.131_fp, &
126  264.092_fp, 266.071_fp, 268.020_fp, 269.939_fp, 271.870_fp, &
127  273.782_fp, 275.665_fp, 277.531_fp, 279.397_fp, 281.235_fp, &
128  283.047_fp, 284.395_fp, 285.475_fp, 286.540_fp, 287.590_fp, &
129  289.118_fp, 290.683_fp, 292.227_fp, 293.750_fp, 295.281_fp, &
130  296.790_fp, 298.280_fp, 299.749_fp, 301.199_fp, 302.630_fp, &
131  304.043_fp /
132  DATA level_temperature(:,midlatitude_summer) / &
133  166.103_fp, 181.157_fp, 202.859_fp, 222.255_fp, 239.663_fp, &
134  252.229_fp, 261.666_fp, 268.978_fp, 272.709_fp, 275.659_fp, &
135  275.105_fp, 270.621_fp, 265.928_fp, 261.515_fp, 257.445_fp, &
136  253.718_fp, 250.248_fp, 247.060_fp, 244.068_fp, 241.271_fp, &
137  238.659_fp, 236.454_fp, 234.345_fp, 232.403_fp, 230.575_fp, &
138  228.818_fp, 227.618_fp, 226.594_fp, 225.605_fp, 224.701_fp, &
139  223.884_fp, 223.178_fp, 222.456_fp, 221.710_fp, 221.003_fp, &
140  220.320_fp, 219.654_fp, 218.993_fp, 218.317_fp, 217.695_fp, &
141  217.154_fp, 216.627_fp, 216.116_fp, 215.700_fp, 215.700_fp, &
142  215.700_fp, 215.700_fp, 215.700_fp, 215.700_fp, 215.700_fp, &
143  215.700_fp, 215.730_fp, 215.767_fp, 216.038_fp, 218.372_fp, &
144  220.660_fp, 222.920_fp, 225.181_fp, 227.399_fp, 229.604_fp, &
145  231.820_fp, 233.995_fp, 236.134_fp, 238.241_fp, 240.310_fp, &
146  242.374_fp, 244.466_fp, 246.522_fp, 248.550_fp, 250.576_fp, &
147  252.568_fp, 254.527_fp, 256.478_fp, 258.399_fp, 260.290_fp, &
148  262.111_fp, 263.867_fp, 265.596_fp, 267.301_fp, 269.024_fp, &
149  270.722_fp, 272.394_fp, 274.060_fp, 275.718_fp, 277.352_fp, &
150  278.963_fp, 280.560_fp, 282.137_fp, 283.691_fp, 285.218_fp, &
151  286.393_fp, 287.551_fp, 288.694_fp, 289.823_fp, 290.949_fp, &
152  292.059_fp, 293.155_fp, 294.236_fp, 295.303_fp, 296.356_fp, &
153  297.395_fp /
154  DATA level_temperature(:,midlatitude_winter) / &
155  200.964_fp, 216.091_fp, 227.925_fp, 237.836_fp, 246.210_fp, &
156  253.447_fp, 259.898_fp, 263.297_fp, 265.617_fp, 264.331_fp, &
157  258.371_fp, 252.296_fp, 246.806_fp, 241.773_fp, 237.138_fp, &
158  232.901_fp, 228.974_fp, 225.394_fp, 222.050_fp, 219.798_fp, &
159  218.606_fp, 217.468_fp, 216.770_fp, 216.126_fp, 215.508_fp, &
160  215.407_fp, 215.317_fp, 215.230_fp, 215.200_fp, 215.200_fp, &
161  215.200_fp, 215.200_fp, 215.200_fp, 215.200_fp, 215.200_fp, &
162  215.200_fp, 215.200_fp, 215.200_fp, 215.363_fp, 215.611_fp, &
163  215.854_fp, 216.092_fp, 216.324_fp, 216.551_fp, 216.773_fp, &
164  216.988_fp, 217.199_fp, 217.406_fp, 217.607_fp, 217.805_fp, &
165  217.998_fp, 218.188_fp, 218.374_fp, 218.557_fp, 218.736_fp, &
166  218.911_fp, 219.083_fp, 219.251_fp, 219.417_fp, 219.580_fp, &
167  220.181_fp, 222.085_fp, 223.955_fp, 225.794_fp, 227.652_fp, &
168  229.477_fp, 231.270_fp, 233.065_fp, 234.839_fp, 236.584_fp, &
169  238.315_fp, 240.046_fp, 241.750_fp, 243.426_fp, 245.108_fp, &
170  246.771_fp, 248.408_fp, 250.028_fp, 251.653_fp, 253.253_fp, &
171  254.830_fp, 256.399_fp, 257.966_fp, 259.509_fp, 261.030_fp, &
172  262.193_fp, 263.071_fp, 263.936_fp, 264.789_fp, 265.636_fp, &
173  266.477_fp, 267.306_fp, 268.124_fp, 268.933_fp, 269.738_fp, &
174  270.532_fp, 271.316_fp, 272.089_fp, 272.852_fp, 273.605_fp, &
175  274.348_fp /
176  DATA level_temperature(:,subarctic_summer) / &
177  162.600_fp, 176.793_fp, 198.862_fp, 219.134_fp, 237.464_fp, &
178  254.166_fp, 265.996_fp, 272.936_fp, 275.498_fp, 277.137_fp, &
179  276.306_fp, 274.243_fp, 271.376_fp, 267.499_fp, 262.519_fp, &
180  257.948_fp, 253.686_fp, 249.780_fp, 246.155_fp, 242.879_fp, &
181  239.836_fp, 237.823_fp, 235.897_fp, 234.239_fp, 232.785_fp, &
182  231.387_fp, 230.336_fp, 229.438_fp, 228.572_fp, 227.634_fp, &
183  226.602_fp, 225.672_fp, 225.200_fp, 225.200_fp, 225.200_fp, &
184  225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, &
185  225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, &
186  225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, &
187  225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, &
188  225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, 225.200_fp, &
189  225.200_fp, 226.105_fp, 228.344_fp, 230.542_fp, 232.719_fp, &
190  234.915_fp, 237.074_fp, 239.195_fp, 241.311_fp, 243.391_fp, &
191  245.437_fp, 247.492_fp, 249.535_fp, 251.545_fp, 253.541_fp, &
192  255.569_fp, 257.566_fp, 259.532_fp, 261.175_fp, 262.673_fp, &
193  264.149_fp, 265.604_fp, 267.058_fp, 268.491_fp, 269.903_fp, &
194  271.305_fp, 272.712_fp, 274.099_fp, 275.466_fp, 276.825_fp, &
195  278.180_fp, 279.516_fp, 280.835_fp, 282.152_fp, 283.486_fp, &
196  284.801_fp, 286.099_fp, 287.379_fp, 288.643_fp, 289.889_fp, &
197  291.120_fp /
198  DATA level_temperature(:,subarctic_winter) / &
199  214.590_fp, 231.481_fp, 244.770_fp, 248.281_fp, 250.442_fp, &
200  255.518_fp, 259.144_fp, 259.262_fp, 255.110_fp, 249.389_fp, &
201  244.240_fp, 239.569_fp, 235.403_fp, 231.542_fp, 227.948_fp, &
202  224.653_fp, 221.850_fp, 220.096_fp, 218.457_fp, 217.428_fp, &
203  216.448_fp, 215.538_fp, 214.690_fp, 213.877_fp, 213.104_fp, &
204  212.364_fp, 211.653_fp, 211.345_fp, 211.756_fp, 212.155_fp, &
205  212.541_fp, 212.915_fp, 213.277_fp, 213.629_fp, 213.971_fp, &
206  214.303_fp, 214.627_fp, 214.942_fp, 215.249_fp, 215.547_fp, &
207  215.839_fp, 216.123_fp, 216.401_fp, 216.673_fp, 216.938_fp, &
208  217.198_fp, 217.200_fp, 217.200_fp, 217.200_fp, 217.200_fp, &
209  217.200_fp, 217.200_fp, 217.200_fp, 217.200_fp, 217.200_fp, &
210  217.200_fp, 217.200_fp, 217.200_fp, 217.200_fp, 217.200_fp, &
211  217.200_fp, 217.200_fp, 217.457_fp, 218.476_fp, 219.477_fp, &
212  220.460_fp, 222.270_fp, 224.190_fp, 226.077_fp, 227.963_fp, &
213  229.873_fp, 231.752_fp, 233.601_fp, 235.457_fp, 237.298_fp, &
214  239.109_fp, 240.893_fp, 242.699_fp, 244.477_fp, 246.229_fp, &
215  247.892_fp, 249.174_fp, 250.437_fp, 251.682_fp, 252.835_fp, &
216  253.620_fp, 254.394_fp, 255.157_fp, 255.909_fp, 256.660_fp, &
217  257.400_fp, 258.129_fp, 258.849_fp, 258.826_fp, 258.408_fp, &
218  257.995_fp, 257.588_fp, 257.187_fp, 256.790_fp, 256.399_fp, &
219  256.013_fp /
220  DATA level_temperature(:,us_standard_atmosphere) / &
221  190.195_fp, 203.667_fp, 215.175_fp, 226.809_fp, 237.789_fp, &
222  247.507_fp, 256.483_fp, 263.555_fp, 268.955_fp, 270.636_fp, &
223  267.045_fp, 261.561_fp, 256.386_fp, 251.670_fp, 247.321_fp, &
224  243.261_fp, 239.551_fp, 236.057_fp, 232.759_fp, 229.832_fp, &
225  228.503_fp, 227.233_fp, 226.133_fp, 225.245_fp, 224.392_fp, &
226  223.595_fp, 222.847_fp, 222.126_fp, 221.425_fp, 220.733_fp, &
227  220.065_fp, 219.420_fp, 218.797_fp, 218.196_fp, 217.614_fp, &
228  217.106_fp, 216.700_fp, 216.700_fp, 216.700_fp, 216.700_fp, &
229  216.700_fp, 216.700_fp, 216.700_fp, 216.700_fp, 216.700_fp, &
230  216.700_fp, 216.700_fp, 216.700_fp, 216.700_fp, 216.700_fp, &
231  216.700_fp, 216.700_fp, 216.700_fp, 216.700_fp, 216.700_fp, &
232  216.723_fp, 216.757_fp, 216.790_fp, 218.296_fp, 220.415_fp, &
233  222.495_fp, 224.553_fp, 226.585_fp, 228.580_fp, 230.577_fp, &
234  232.588_fp, 234.564_fp, 236.514_fp, 238.474_fp, 240.401_fp, &
235  242.296_fp, 244.201_fp, 246.087_fp, 247.943_fp, 249.783_fp, &
236  251.627_fp, 253.442_fp, 255.229_fp, 257.021_fp, 258.798_fp, &
237  260.549_fp, 262.275_fp, 264.015_fp, 265.730_fp, 267.420_fp, &
238  269.095_fp, 270.776_fp, 272.433_fp, 274.067_fp, 275.689_fp, &
239  277.314_fp, 278.917_fp, 280.497_fp, 282.066_fp, 283.643_fp, &
240  285.200_fp, 286.736_fp, 288.251_fp, 289.746_fp, 291.221_fp, &
241  292.678_fp /
242 
243  REAL(fp), SAVE :: level_absorber(0:n_model_layers,n_model_absorbers,n_models)
244  DATA level_absorber(:,h2o,tropical) / &
245  8.77980825e-04_fp, 1.63665427e-03_fp, 2.41525886e-03_fp, 3.01358863e-03_fp, 3.42673415e-03_fp, &
246  3.69727056e-03_fp, 3.73182898e-03_fp, 3.73182898e-03_fp, 3.73182898e-03_fp, 3.70485491e-03_fp, &
247  3.62553040e-03_fp, 3.52250711e-03_fp, 3.42918702e-03_fp, 3.30368092e-03_fp, 3.18356224e-03_fp, &
248  3.07218031e-03_fp, 2.96914223e-03_fp, 2.87229788e-03_fp, 2.78234404e-03_fp, 2.69709168e-03_fp, &
249  2.61724153e-03_fp, 2.54151913e-03_fp, 2.46345214e-03_fp, 2.37323353e-03_fp, 2.28665909e-03_fp, &
250  2.20863685e-03_fp, 2.14020216e-03_fp, 2.07426306e-03_fp, 2.01766533e-03_fp, 1.99628659e-03_fp, &
251  1.90185294e-03_fp, 1.79636495e-03_fp, 1.75789394e-03_fp, 1.71098213e-03_fp, 1.65816603e-03_fp, &
252  1.63469692e-03_fp, 1.61839270e-03_fp, 1.61712589e-03_fp, 1.61712589e-03_fp, 1.65651334e-03_fp, &
253  1.69871321e-03_fp, 1.73942166e-03_fp, 1.77895400e-03_fp, 1.81305422e-03_fp, 1.83851684e-03_fp, &
254  1.86338111e-03_fp, 2.07865778e-03_fp, 2.31078836e-03_fp, 2.60268897e-03_fp, 3.11383907e-03_fp, &
255  3.61397564e-03_fp, 4.29053420e-03_fp, 5.15159631e-03_fp, 5.99495710e-03_fp, 9.54264560e-03_fp, &
256  1.36728122e-02_fp, 1.77218010e-02_fp, 2.69138794e-02_fp, 3.64198574e-02_fp, 4.62694696e-02_fp, &
257  7.10905559e-02_fp, 9.54559132e-02_fp, 1.19808735e-01_fp, 1.65311675e-01_fp, 2.10009241e-01_fp, &
258  2.53925406e-01_fp, 3.23805339e-01_fp, 3.93088062e-01_fp, 4.61199718e-01_fp, 5.57061296e-01_fp, &
259  6.58709582e-01_fp, 7.58695269e-01_fp, 8.89551039e-01_fp, 1.04316485e+00_fp, 1.19433850e+00_fp, &
260  1.36357009e+00_fp, 1.59234548e+00_fp, 1.81758872e+00_fp, 2.03938326e+00_fp, 2.24071288e+00_fp, &
261  2.43503683e+00_fp, 2.62646230e+00_fp, 2.96715923e+00_fp, 3.68750198e+00_fp, 4.39735364e+00_fp, &
262  5.09695512e+00_fp, 6.07752900e+00_fp, 7.20936332e+00_fp, 8.32520255e+00_fp, 9.42539639e+00_fp, &
263  1.01510542e+01_fp, 1.08244053e+01_fp, 1.14885020e+01_fp, 1.21559103e+01_fp, 1.31774892e+01_fp, &
264  1.41852861e+01_fp, 1.51795783e+01_fp, 1.61606176e+01_fp, 1.71286637e+01_fp, 1.80839545e+01_fp, &
265  1.90267237e+01_fp /
266  DATA level_absorber(:,o3,tropical) / &
267  4.76282998e-01_fp, 2.63575307e-01_fp, 2.38323078e-01_fp, 4.34252158e-01_fp, 7.32103525e-01_fp, &
268  1.05832797e+00_fp, 1.49900320e+00_fp, 1.96708261e+00_fp, 2.51463612e+00_fp, 3.08189624e+00_fp, &
269  3.82225579e+00_fp, 4.75582031e+00_fp, 5.80609455e+00_fp, 6.90465318e+00_fp, 7.85315879e+00_fp, &
270  8.62916701e+00_fp, 9.17872204e+00_fp, 9.64583838e+00_fp, 9.76328654e+00_fp, 9.83182051e+00_fp, &
271  9.68129051e+00_fp, 9.45808993e+00_fp, 9.15268309e+00_fp, 8.60873569e+00_fp, 8.08675973e+00_fp, &
272  7.46417712e+00_fp, 6.70969487e+00_fp, 5.98272612e+00_fp, 5.26763918e+00_fp, 4.51144304e+00_fp, &
273  3.87334450e+00_fp, 3.28178900e+00_fp, 2.66325567e+00_fp, 2.20360475e+00_fp, 1.86393581e+00_fp, &
274  1.62600430e+00_fp, 1.41629416e+00_fp, 1.19079017e+00_fp, 9.69572281e-01_fp, 7.60019680e-01_fp, &
275  5.56473977e-01_fp, 4.22289982e-01_fp, 3.16357103e-01_fp, 2.34147587e-01_fp, 1.90916468e-01_fp, &
276  1.48701241e-01_fp, 1.37969522e-01_fp, 1.30953035e-01_fp, 1.23887238e-01_fp, 1.16261319e-01_fp, &
277  1.08799712e-01_fp, 1.02767939e-01_fp, 9.82121846e-02_fp, 9.37500852e-02_fp, 8.87007788e-02_fp, &
278  8.35895445e-02_fp, 7.85787706e-02_fp, 7.42657223e-02_fp, 7.00914630e-02_fp, 6.60152554e-02_fp, &
279  6.25765013e-02_fp, 5.92008847e-02_fp, 5.59111488e-02_fp, 5.39198530e-02_fp, 5.19638019e-02_fp, &
280  5.00419464e-02_fp, 4.83436243e-02_fp, 4.66785655e-02_fp, 4.50416508e-02_fp, 4.40871060e-02_fp, &
281  4.33155387e-02_fp, 4.25565913e-02_fp, 4.18230593e-02_fp, 4.11113222e-02_fp, 4.04108911e-02_fp, &
282  3.97271370e-02_fp, 3.90712599e-02_fp, 3.84255092e-02_fp, 3.77896455e-02_fp, 3.71872689e-02_fp, &
283  3.65994968e-02_fp, 3.60204917e-02_fp, 3.55648316e-02_fp, 3.54061032e-02_fp, 3.52496865e-02_fp, &
284  3.50955285e-02_fp, 3.47584482e-02_fp, 3.43210595e-02_fp, 3.38898521e-02_fp, 3.34646906e-02_fp, &
285  3.29662458e-02_fp, 3.24653767e-02_fp, 3.19713915e-02_fp, 3.14763682e-02_fp, 3.07596938e-02_fp, &
286  3.00526880e-02_fp, 2.93551562e-02_fp, 2.86669218e-02_fp, 2.79878026e-02_fp, 2.73176317e-02_fp, &
287  2.66562451e-02_fp /
288  DATA level_absorber(:,co2,tropical) / &
289  3.74360000e+02_fp, 3.74361536e+02_fp, 3.74363355e+02_fp, 3.74366645e+02_fp, 3.74372000e+02_fp,&
290  3.74380012e+02_fp, 3.74391000e+02_fp, 3.74404976e+02_fp, 3.74427783e+02_fp, 3.74467018e+02_fp,&
291  3.74521289e+02_fp, 3.74580048e+02_fp, 3.74628801e+02_fp, 3.74664910e+02_fp, 3.74699114e+02_fp,&
292  3.74739482e+02_fp, 3.74792946e+02_fp, 3.74861608e+02_fp, 3.74938271e+02_fp, 3.75015741e+02_fp,&
293  3.75084934e+02_fp, 3.75140614e+02_fp, 3.75186705e+02_fp, 3.75224301e+02_fp, 3.75257801e+02_fp,&
294  3.75293898e+02_fp, 3.75341078e+02_fp, 3.75402006e+02_fp, 3.75483301e+02_fp, 3.75585596e+02_fp,&
295  3.75708307e+02_fp, 3.75851657e+02_fp, 3.76012795e+02_fp, 3.76192873e+02_fp, 3.76383982e+02_fp,&
296  3.76585651e+02_fp, 3.76809813e+02_fp, 3.77081169e+02_fp, 3.77391271e+02_fp, 3.77732795e+02_fp,&
297  3.78108482e+02_fp, 3.78481072e+02_fp, 3.78820139e+02_fp, 3.79146343e+02_fp, 3.79424024e+02_fp,&
298  3.79651892e+02_fp, 3.79872699e+02_fp, 3.80073036e+02_fp, 3.80265614e+02_fp, 3.80453361e+02_fp,&
299  3.80639313e+02_fp, 3.80813470e+02_fp, 3.80970199e+02_fp, 3.81124934e+02_fp, 3.81280663e+02_fp,&
300  3.81437259e+02_fp, 3.81594518e+02_fp, 3.81753006e+02_fp, 3.81910795e+02_fp, 3.82065175e+02_fp,&
301  3.82213512e+02_fp, 3.82349223e+02_fp, 3.82473964e+02_fp, 3.82577331e+02_fp, 3.82656946e+02_fp,&
302  3.82723325e+02_fp, 3.82777620e+02_fp, 3.82823139e+02_fp, 3.82861807e+02_fp, 3.82896325e+02_fp,&
303  3.82929211e+02_fp, 3.82963229e+02_fp, 3.83001367e+02_fp, 3.83044151e+02_fp, 3.83086855e+02_fp,&
304  3.83128253e+02_fp, 3.83164506e+02_fp, 3.83194127e+02_fp, 3.83218072e+02_fp, 3.83237331e+02_fp,&
305  3.83252313e+02_fp, 3.83264940e+02_fp, 3.83277627e+02_fp, 3.83291488e+02_fp, 3.83308524e+02_fp,&
306  3.83328380e+02_fp, 3.83347090e+02_fp, 3.83365096e+02_fp, 3.83394620e+02_fp, 3.83444994e+02_fp,&
307  3.83510928e+02_fp, 3.83581313e+02_fp, 3.83656398e+02_fp, 3.83737054e+02_fp, 3.83815572e+02_fp,&
308  3.83884500e+02_fp, 3.83941349e+02_fp, 3.83985090e+02_fp, 3.84014928e+02_fp, 3.84031542e+02_fp,&
309  3.84037247e+02_fp /
310  DATA level_absorber(:,n2o,tropical) / &
311  5.90294582e-04_fp, 7.86351255e-04_fp, 1.01522316e-03_fp, 1.28618783e-03_fp, 1.60853310e-03_fp,&
312  2.01337053e-03_fp, 2.59797101e-03_fp, 3.29258542e-03_fp, 4.25213249e-03_fp, 6.75783097e-03_fp,&
313  1.16944249e-02_fp, 1.80296550e-02_fp, 2.67314773e-02_fp, 3.85736817e-02_fp, 5.10524380e-02_fp,&
314  6.40658680e-02_fp, 7.77945300e-02_fp, 9.11964559e-02_fp, 1.02770322e-01_fp, 1.13621418e-01_fp,&
315  1.24199207e-01_fp, 1.34385570e-01_fp, 1.43289317e-01_fp, 1.49526613e-01_fp, 1.55511913e-01_fp,&
316  1.61150838e-01_fp, 1.66432154e-01_fp, 1.71520884e-01_fp, 1.77031958e-01_fp, 1.85212594e-01_fp,&
317  1.91861329e-01_fp, 1.97692921e-01_fp, 2.02888699e-01_fp, 2.09780841e-01_fp, 2.17876138e-01_fp,&
318  2.26838285e-01_fp, 2.35803338e-01_fp, 2.44031605e-01_fp, 2.51995340e-01_fp, 2.58779329e-01_fp,&
319  2.65292787e-01_fp, 2.70581419e-01_fp, 2.75327194e-01_fp, 2.79711107e-01_fp, 2.83559355e-01_fp,&
320  2.87317105e-01_fp, 2.89991708e-01_fp, 2.92492258e-01_fp, 2.94857299e-01_fp, 2.96893337e-01_fp,&
321  2.98885506e-01_fp, 3.00803155e-01_fp, 3.02646505e-01_fp, 3.04451986e-01_fp, 3.06135770e-01_fp,&
322  3.07765541e-01_fp, 3.09363285e-01_fp, 3.10954176e-01_fp, 3.12516926e-01_fp, 3.14043961e-01_fp,&
323  3.15361366e-01_fp, 3.16654575e-01_fp, 3.17910448e-01_fp, 3.18445922e-01_fp, 3.18971920e-01_fp,&
324  3.19488720e-01_fp, 3.19656558e-01_fp, 3.19813935e-01_fp, 3.19968653e-01_fp, 3.20000000e-01_fp,&
325  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
326  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
327  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
328  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
329  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
330  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
331  3.20000000e-01_fp /
332  DATA level_absorber(:,co,tropical) / &
333  3.52812285e+00_fp, 1.11741668e+00_fp, 3.86747360e-01_fp, 1.54743622e-01_fp, 8.78259542e-02_fp,&
334  7.16614777e-02_fp, 6.40422809e-02_fp, 5.83586828e-02_fp, 5.34678407e-02_fp, 4.82750435e-02_fp,&
335  4.30645954e-02_fp, 3.89983832e-02_fp, 3.54201339e-02_fp, 3.25130324e-02_fp, 3.00019827e-02_fp,&
336  2.78529759e-02_fp, 2.63238431e-02_fp, 2.50210223e-02_fp, 2.39375827e-02_fp, 2.29278597e-02_fp,&
337  2.18287310e-02_fp, 2.07289285e-02_fp, 1.96818700e-02_fp, 1.86918806e-02_fp, 1.77418882e-02_fp,&
338  1.69387390e-02_fp, 1.63068673e-02_fp, 1.56980371e-02_fp, 1.50643976e-02_fp, 1.42325850e-02_fp,&
339  1.35591265e-02_fp, 1.29813464e-02_fp, 1.25174376e-02_fp, 1.23200000e-02_fp, 1.23200000e-02_fp,&
340  1.27506375e-02_fp, 1.32696669e-02_fp, 1.43235123e-02_fp, 1.53951754e-02_fp, 1.72504724e-02_fp,&
341  1.91366614e-02_fp, 2.12856984e-02_fp, 2.35018057e-02_fp, 2.57606828e-02_fp, 2.81351339e-02_fp,&
342  3.04537459e-02_fp, 3.36726406e-02_fp, 3.69270879e-02_fp, 4.03112947e-02_fp, 4.43241409e-02_fp,&
343  4.82505240e-02_fp, 5.27364400e-02_fp, 5.78112971e-02_fp, 6.27818956e-02_fp, 6.78325727e-02_fp,&
344  7.28259138e-02_fp, 7.77211271e-02_fp, 8.18562263e-02_fp, 8.58499210e-02_fp, 8.97524961e-02_fp,&
345  9.31237001e-02_fp, 9.64329889e-02_fp, 9.96838639e-02_fp, 1.02956948e-01_fp, 1.06172111e-01_fp,&
346  1.09331051e-01_fp, 1.12249350e-01_fp, 1.15113623e-01_fp, 1.17929487e-01_fp, 1.20057230e-01_fp,&
347  1.21986162e-01_fp, 1.23883520e-01_fp, 1.25413019e-01_fp, 1.26660078e-01_fp, 1.27887330e-01_fp,&
348  1.28910042e-01_fp, 1.29353203e-01_fp, 1.29789520e-01_fp, 1.30219160e-01_fp, 1.30510903e-01_fp,&
349  1.30767695e-01_fp, 1.31020658e-01_fp, 1.31493200e-01_fp, 1.32523538e-01_fp, 1.33538878e-01_fp,&
350  1.34539553e-01_fp, 1.35768992e-01_fp, 1.37118952e-01_fp, 1.38449842e-01_fp, 1.39762065e-01_fp,&
351  1.41105284e-01_fp, 1.42435717e-01_fp, 1.43747865e-01_fp, 1.45042048e-01_fp, 1.46317267e-01_fp,&
352  1.47575290e-01_fp, 1.48816449e-01_fp, 1.50041068e-01_fp, 1.51249462e-01_fp, 1.52441934e-01_fp,&
353  1.53618781e-01_fp /
354  DATA level_absorber(:,ch4,tropical) / &
355  1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp,&
356  1.50000000e-01_fp, 1.58607339e-01_fp, 1.72598336e-01_fp, 1.97189468e-01_fp, 2.39181242e-01_fp,&
357  3.07727014e-01_fp, 3.81062249e-01_fp, 4.54802692e-01_fp, 5.25697446e-01_fp, 5.90423804e-01_fp,&
358  6.48924544e-01_fp, 6.97229645e-01_fp, 7.40933834e-01_fp, 7.81440295e-01_fp, 8.19818909e-01_fp,&
359  8.55643574e-01_fp, 8.89571062e-01_fp, 9.20809063e-01_fp, 9.47426361e-01_fp, 9.72968281e-01_fp,&
360  9.96515296e-01_fp, 1.01789205e+00_fp, 1.03848929e+00_fp, 1.06258095e+00_fp, 1.10589020e+00_fp,&
361  1.15260620e+00_fp, 1.20057459e+00_fp, 1.25067674e+00_fp, 1.29916852e+00_fp, 1.34615521e+00_fp,&
362  1.38501413e+00_fp, 1.42118891e+00_fp, 1.45003518e+00_fp, 1.47756414e+00_fp, 1.49730920e+00_fp,&
363  1.51585446e+00_fp, 1.53094691e+00_fp, 1.54450627e+00_fp, 1.55735341e+00_fp, 1.56922567e+00_fp,&
364  1.58081873e+00_fp, 1.58986706e+00_fp, 1.59845103e+00_fp, 1.60674605e+00_fp, 1.61452001e+00_fp,&
365  1.62212648e+00_fp, 1.62950203e+00_fp, 1.63664971e+00_fp, 1.64365056e+00_fp, 1.64983151e+00_fp,&
366  1.65572643e+00_fp, 1.66150550e+00_fp, 1.66620095e+00_fp, 1.67071556e+00_fp, 1.67511272e+00_fp,&
367  1.67849068e+00_fp, 1.68180660e+00_fp, 1.68505224e+00_fp, 1.68772961e+00_fp, 1.69035960e+00_fp,&
368  1.69294360e+00_fp, 1.69425246e+00_fp, 1.69551148e+00_fp, 1.69674922e+00_fp, 1.69750233e+00_fp,&
369  1.69812457e+00_fp, 1.69873662e+00_fp, 1.69917391e+00_fp, 1.69947807e+00_fp, 1.69977740e+00_fp,&
370  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
371  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
372  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
373  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
374  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
375  1.70000000e+00_fp /
376 
377  DATA level_absorber(:,h2o,midlatitude_summer) / &
378  8.80599931e-04_fp, 1.47572005e-03_fp, 1.97813347e-03_fp, 2.38351250e-03_fp, 2.72802818e-03_fp, &
379  3.00292035e-03_fp, 3.19132561e-03_fp, 3.32180485e-03_fp, 3.37724401e-03_fp, 3.42084323e-03_fp, &
380  3.42028608e-03_fp, 3.39397328e-03_fp, 3.32997533e-03_fp, 3.25260801e-03_fp, 3.17150369e-03_fp, &
381  3.13410940e-03_fp, 3.10449317e-03_fp, 3.08824187e-03_fp, 3.06740482e-03_fp, 3.03934609e-03_fp, &
382  3.01055985e-03_fp, 2.97174541e-03_fp, 2.93462097e-03_fp, 2.88485311e-03_fp, 2.83070490e-03_fp, &
383  2.77866814e-03_fp, 2.72916030e-03_fp, 2.68161015e-03_fp, 2.63574105e-03_fp, 2.57094018e-03_fp, &
384  2.48649721e-03_fp, 2.42662857e-03_fp, 2.34999817e-03_fp, 2.25339352e-03_fp, 2.19271705e-03_fp, &
385  2.13957036e-03_fp, 2.08783721e-03_fp, 2.04260672e-03_fp, 2.01023719e-03_fp, 1.98452690e-03_fp, &
386  1.96920466e-03_fp, 1.96410491e-03_fp, 1.97853791e-03_fp, 1.99496639e-03_fp, 2.02268300e-03_fp, &
387  2.04974830e-03_fp, 2.07583594e-03_fp, 2.10129201e-03_fp, 2.29281897e-03_fp, 2.67060180e-03_fp, &
388  3.04024471e-03_fp, 3.67850181e-03_fp, 4.36794406e-03_fp, 5.46397037e-03_fp, 1.02532782e-02_fp, &
389  1.49470824e-02_fp, 2.22350362e-02_fp, 3.65409017e-02_fp, 5.05732548e-02_fp, 7.11067223e-02_fp, &
390  1.03253429e-01_fp, 1.34809905e-01_fp, 1.67179038e-01_fp, 2.01107829e-01_fp, 2.34436101e-01_fp, &
391  2.71873055e-01_fp, 3.18610664e-01_fp, 3.64549797e-01_fp, 4.14550309e-01_fp, 4.86968165e-01_fp, &
392  5.58187485e-01_fp, 6.28241915e-01_fp, 7.17769497e-01_fp, 8.07854932e-01_fp, 8.96509358e-01_fp, &
393  1.00673091e+00_fp, 1.13686247e+00_fp, 1.26498487e+00_fp, 1.40046198e+00_fp, 1.68417177e+00_fp, &
394  1.96361553e+00_fp, 2.23889119e+00_fp, 2.56503717e+00_fp, 2.93826004e+00_fp, 3.30604729e+00_fp, &
395  3.66852373e+00_fp, 4.24303573e+00_fp, 4.84696946e+00_fp, 5.44236840e+00_fp, 6.03073164e+00_fp, &
396  6.69658337e+00_fp, 7.35322328e+00_fp, 8.00083839e+00_fp, 8.65543046e+00_fp, 9.43033313e+00_fp, &
397  1.01947817e+01_fp, 1.09489865e+01_fp, 1.16931386e+01_fp, 1.24274348e+01_fp, 1.31520557e+01_fp, &
398  1.38671785e+01_fp /
399  DATA level_absorber(:,o3,midlatitude_summer) / &
400  5.28761628e-01_fp, 1.96792365e-01_fp, 2.54518897e-01_fp, 4.75536727e-01_fp, 7.92056224e-01_fp, &
401  1.15672290e+00_fp, 1.48711958e+00_fp, 1.78681001e+00_fp, 2.33267719e+00_fp, 2.85792951e+00_fp, &
402  3.51791554e+00_fp, 4.36402526e+00_fp, 5.39690129e+00_fp, 6.48151796e+00_fp, 7.56018675e+00_fp, &
403  8.25159185e+00_fp, 8.73449876e+00_fp, 8.83901351e+00_fp, 8.75395997e+00_fp, 8.39305957e+00_fp, &
404  8.02923474e+00_fp, 7.57159438e+00_fp, 7.13388001e+00_fp, 6.75296026e+00_fp, 6.40472425e+00_fp, &
405  6.07006743e+00_fp, 5.70200930e+00_fp, 5.33504602e+00_fp, 4.98105597e+00_fp, 4.53413503e+00_fp, &
406  3.99106853e+00_fp, 3.60604361e+00_fp, 3.25661050e+00_fp, 2.94597039e+00_fp, 2.65143375e+00_fp, &
407  2.37328364e+00_fp, 2.15148077e+00_fp, 1.92042065e+00_fp, 1.66020348e+00_fp, 1.40703933e+00_fp, &
408  1.16068975e+00_fp, 9.52782106e-01_fp, 8.13550699e-01_fp, 6.92511553e-01_fp, 6.47949041e-01_fp, &
409  6.04433707e-01_fp, 5.62490237e-01_fp, 5.21562211e-01_fp, 4.89261010e-01_fp, 4.66483670e-01_fp, &
410  4.44197104e-01_fp, 3.97334483e-01_fp, 3.45605470e-01_fp, 2.97181021e-01_fp, 2.69526368e-01_fp, &
411  2.42423177e-01_fp, 2.18830070e-01_fp, 2.03628367e-01_fp, 1.88717304e-01_fp, 1.73248858e-01_fp, &
412  1.56581717e-01_fp, 1.40220595e-01_fp, 1.27885420e-01_fp, 1.21531632e-01_fp, 1.15290303e-01_fp, &
413  1.09042505e-01_fp, 1.02657654e-01_fp, 9.63818824e-02_fp, 9.05268627e-02_fp, 8.62821781e-02_fp, &
414  8.21077443e-02_fp, 7.80015891e-02_fp, 7.39311148e-02_fp, 6.99229303e-02_fp, 6.59784159e-02_fp, &
415  6.27189244e-02_fp, 6.00970366e-02_fp, 5.75156292e-02_fp, 5.50040365e-02_fp, 5.30191697e-02_fp, &
416  5.10641484e-02_fp, 4.91382877e-02_fp, 4.73518022e-02_fp, 4.56961666e-02_fp, 4.40646437e-02_fp, &
417  4.24566797e-02_fp, 4.10229808e-02_fp, 3.96358393e-02_fp, 3.82683009e-02_fp, 3.69259339e-02_fp, &
418  3.59937718e-02_fp, 3.50745060e-02_fp, 3.41678744e-02_fp, 3.32825328e-02_fp, 3.24819665e-02_fp, &
419  3.16922005e-02_fp, 3.09130175e-02_fp, 3.01442203e-02_fp, 2.93856052e-02_fp, 2.86369860e-02_fp, &
420  2.78981793e-02_fp /
421  DATA level_absorber(:,co2,midlatitude_summer) / &
422  3.74360000e+02_fp, 3.74361536e+02_fp, 3.74363355e+02_fp, 3.74366645e+02_fp, 3.74372000e+02_fp,&
423  3.74380012e+02_fp, 3.74391000e+02_fp, 3.74404976e+02_fp, 3.74427783e+02_fp, 3.74467018e+02_fp,&
424  3.74521289e+02_fp, 3.74580048e+02_fp, 3.74628801e+02_fp, 3.74664910e+02_fp, 3.74699114e+02_fp,&
425  3.74739482e+02_fp, 3.74792946e+02_fp, 3.74861608e+02_fp, 3.74938271e+02_fp, 3.75015741e+02_fp,&
426  3.75084934e+02_fp, 3.75140614e+02_fp, 3.75186705e+02_fp, 3.75224301e+02_fp, 3.75257801e+02_fp,&
427  3.75293898e+02_fp, 3.75341078e+02_fp, 3.75402006e+02_fp, 3.75483301e+02_fp, 3.75585596e+02_fp,&
428  3.75708307e+02_fp, 3.75851657e+02_fp, 3.76012795e+02_fp, 3.76192873e+02_fp, 3.76383982e+02_fp,&
429  3.76585651e+02_fp, 3.76809813e+02_fp, 3.77081169e+02_fp, 3.77391271e+02_fp, 3.77732795e+02_fp,&
430  3.78108482e+02_fp, 3.78481072e+02_fp, 3.78820139e+02_fp, 3.79146343e+02_fp, 3.79424024e+02_fp,&
431  3.79651892e+02_fp, 3.79872699e+02_fp, 3.80073036e+02_fp, 3.80265614e+02_fp, 3.80453361e+02_fp,&
432  3.80639313e+02_fp, 3.80813470e+02_fp, 3.80970199e+02_fp, 3.81124934e+02_fp, 3.81280663e+02_fp,&
433  3.81437259e+02_fp, 3.81594518e+02_fp, 3.81753006e+02_fp, 3.81910795e+02_fp, 3.82065175e+02_fp,&
434  3.82213512e+02_fp, 3.82349223e+02_fp, 3.82473964e+02_fp, 3.82577331e+02_fp, 3.82656946e+02_fp,&
435  3.82723325e+02_fp, 3.82777620e+02_fp, 3.82823139e+02_fp, 3.82861807e+02_fp, 3.82896325e+02_fp,&
436  3.82929211e+02_fp, 3.82963229e+02_fp, 3.83001367e+02_fp, 3.83044151e+02_fp, 3.83086855e+02_fp,&
437  3.83128253e+02_fp, 3.83164506e+02_fp, 3.83194127e+02_fp, 3.83218072e+02_fp, 3.83237331e+02_fp,&
438  3.83252313e+02_fp, 3.83264940e+02_fp, 3.83277627e+02_fp, 3.83291488e+02_fp, 3.83308524e+02_fp,&
439  3.83328380e+02_fp, 3.83347090e+02_fp, 3.83365096e+02_fp, 3.83394620e+02_fp, 3.83444994e+02_fp,&
440  3.83510928e+02_fp, 3.83581313e+02_fp, 3.83656398e+02_fp, 3.83737054e+02_fp, 3.83815572e+02_fp,&
441  3.83884500e+02_fp, 3.83941349e+02_fp, 3.83985090e+02_fp, 3.84014928e+02_fp, 3.84031542e+02_fp,&
442  3.84037247e+02_fp /
443  DATA level_absorber(:,n2o,midlatitude_summer) / &
444  4.44272444e-04_fp, 5.51336175e-04_fp, 6.72162275e-04_fp, 8.22959935e-04_fp, 1.01506641e-03_fp,&
445  1.28899910e-03_fp, 1.63390485e-03_fp, 2.01325058e-03_fp, 2.66128474e-03_fp, 3.38910082e-03_fp,&
446  5.36322688e-03_fp, 7.34627544e-03_fp, 1.01729639e-02_fp, 1.36170547e-02_fp, 1.74294441e-02_fp,&
447  2.21371446e-02_fp, 2.72182590e-02_fp, 3.33641284e-02_fp, 3.92555822e-02_fp, 4.49532363e-02_fp,&
448  5.06993205e-02_fp, 5.79385725e-02_fp, 6.48623503e-02_fp, 7.02113679e-02_fp, 7.47662764e-02_fp,&
449  7.91435800e-02_fp, 8.24240699e-02_fp, 8.53352826e-02_fp, 8.81436407e-02_fp, 9.17866925e-02_fp,&
450  9.63283383e-02_fp, 1.00999959e-01_fp, 1.06683310e-01_fp, 1.13579530e-01_fp, 1.23399170e-01_fp,&
451  1.34196806e-01_fp, 1.49944713e-01_fp, 1.64456225e-01_fp, 1.76738307e-01_fp, 1.90453894e-01_fp,&
452  2.06762225e-01_fp, 2.21287632e-01_fp, 2.32750973e-01_fp, 2.43522809e-01_fp, 2.51989738e-01_fp,&
453  2.60257554e-01_fp, 2.65338594e-01_fp, 2.69963449e-01_fp, 2.73760284e-01_fp, 2.76645402e-01_fp,&
454  2.79468355e-01_fp, 2.81828533e-01_fp, 2.84045468e-01_fp, 2.86278232e-01_fp, 2.89007777e-01_fp,&
455  2.91682900e-01_fp, 2.94105738e-01_fp, 2.95949414e-01_fp, 2.97757858e-01_fp, 3.00224080e-01_fp,&
456  3.03871092e-01_fp, 3.07451123e-01_fp, 3.10472940e-01_fp, 3.12678656e-01_fp, 3.14845340e-01_fp,&
457  3.16631854e-01_fp, 3.17661672e-01_fp, 3.18673891e-01_fp, 3.19526914e-01_fp, 3.19682739e-01_fp,&
458  3.19835987e-01_fp, 3.19986726e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
459  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
460  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
461  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
462  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
463  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
464  3.20000000e-01_fp /
465  DATA level_absorber(:,co,midlatitude_summer) / &
466  1.37767494e+00_fp, 5.57965300e-01_fp, 2.39585360e-01_fp, 1.07586828e-01_fp, 6.51303472e-02_fp,&
467  5.16888743e-02_fp, 4.39230705e-02_fp, 3.94284528e-02_fp, 3.77490113e-02_fp, 3.63193831e-02_fp,&
468  3.48375732e-02_fp, 3.33147544e-02_fp, 3.19873796e-02_fp, 3.07597204e-02_fp, 2.95981823e-02_fp,&
469  2.81191347e-02_fp, 2.67650414e-02_fp, 2.55682692e-02_fp, 2.44665687e-02_fp, 2.34695921e-02_fp,&
470  2.24856690e-02_fp, 2.13581764e-02_fp, 2.02798179e-02_fp, 1.92755631e-02_fp, 1.83248827e-02_fp,&
471  1.74112712e-02_fp, 1.67208634e-02_fp, 1.61062061e-02_fp, 1.55132649e-02_fp, 1.48078768e-02_fp,&
472  1.39861601e-02_fp, 1.33893734e-02_fp, 1.28549115e-02_fp, 1.23889507e-02_fp, 1.23200000e-02_fp,&
473  1.23861211e-02_fp, 1.29350798e-02_fp, 1.36569733e-02_fp, 1.47915046e-02_fp, 1.62652790e-02_fp,&
474  1.83198332e-02_fp, 2.04831706e-02_fp, 2.29104287e-02_fp, 2.53243310e-02_fp, 2.79089728e-02_fp,&
475  3.04328322e-02_fp, 3.39608441e-02_fp, 3.75297588e-02_fp, 4.13501941e-02_fp, 4.54652835e-02_fp,&
476  4.94917069e-02_fp, 5.43611506e-02_fp, 5.93455611e-02_fp, 6.42671772e-02_fp, 6.94389467e-02_fp,&
477  7.45076007e-02_fp, 7.92373561e-02_fp, 8.32377855e-02_fp, 8.71617682e-02_fp, 9.08749833e-02_fp,&
478  9.42765887e-02_fp, 9.76157205e-02_fp, 1.00894232e-01_fp, 1.04113919e-01_fp, 1.07276631e-01_fp,&
479  1.10343709e-01_fp, 1.13272254e-01_fp, 1.16150752e-01_fp, 1.18833734e-01_fp, 1.20765964e-01_fp,&
480  1.22666234e-01_fp, 1.24535399e-01_fp, 1.25821421e-01_fp, 1.27033334e-01_fp, 1.28225997e-01_fp,&
481  1.29027858e-01_fp, 1.29466791e-01_fp, 1.29898945e-01_fp, 1.30315105e-01_fp, 1.30573625e-01_fp,&
482  1.30828258e-01_fp, 1.31079093e-01_fp, 1.31730107e-01_fp, 1.32752782e-01_fp, 1.33760572e-01_fp,&
483  1.34753805e-01_fp, 1.36033546e-01_fp, 1.37347121e-01_fp, 1.38642142e-01_fp, 1.39920093e-01_fp,&
484  1.41251754e-01_fp, 1.42564990e-01_fp, 1.43860178e-01_fp, 1.45136666e-01_fp, 1.46387549e-01_fp,&
485  1.47621563e-01_fp, 1.48839036e-01_fp, 1.50040284e-01_fp, 1.51225617e-01_fp, 1.52395332e-01_fp,&
486  1.53549720e-01_fp /
487  DATA level_absorber(:,ch4,midlatitude_summer) / &
488  1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp,&
489  1.50000000e-01_fp, 1.52769504e-01_fp, 1.57204193e-01_fp, 1.77111000e-01_fp, 1.98037434e-01_fp,&
490  2.39280928e-01_fp, 2.80650840e-01_fp, 3.20355156e-01_fp, 3.57473145e-01_fp, 3.92076264e-01_fp,&
491  4.24362792e-01_fp, 4.54872141e-01_fp, 4.83876882e-01_fp, 5.11460808e-01_fp, 5.37806255e-01_fp,&
492  5.63850970e-01_fp, 5.93931310e-01_fp, 6.22700800e-01_fp, 6.49559097e-01_fp, 6.75015046e-01_fp,&
493  6.99478417e-01_fp, 7.25509106e-01_fp, 7.51257436e-01_fp, 7.76096066e-01_fp, 8.19108788e-01_fp,&
494  8.81383992e-01_fp, 9.41062665e-01_fp, 9.99670977e-01_fp, 1.05745012e+00_fp, 1.10974729e+00_fp,&
495  1.15867523e+00_fp, 1.19749049e+00_fp, 1.23307224e+00_fp, 1.26273659e+00_fp, 1.28880857e+00_fp,&
496  1.30950192e+00_fp, 1.32819400e+00_fp, 1.34350940e+00_fp, 1.35854608e+00_fp, 1.37369743e+00_fp,&
497  1.38849246e+00_fp, 1.40200310e+00_fp, 1.41510003e+00_fp, 1.42719056e+00_fp, 1.43819956e+00_fp,&
498  1.44897136e+00_fp, 1.45953315e+00_fp, 1.46987885e+00_fp, 1.48006168e+00_fp, 1.49047705e+00_fp,&
499  1.50068475e+00_fp, 1.51124436e+00_fp, 1.52307171e+00_fp, 1.53467305e+00_fp, 1.54657860e+00_fp,&
500  1.55918976e+00_fp, 1.57156930e+00_fp, 1.58369042e+00_fp, 1.59554203e+00_fp, 1.60718392e+00_fp,&
501  1.61645186e+00_fp, 1.62095731e+00_fp, 1.62538577e+00_fp, 1.63007656e+00_fp, 1.63630956e+00_fp,&
502  1.64243946e+00_fp, 1.64846903e+00_fp, 1.65529090e+00_fp, 1.66208944e+00_fp, 1.66877998e+00_fp,&
503  1.67427858e+00_fp, 1.67866791e+00_fp, 1.68298945e+00_fp, 1.68716783e+00_fp, 1.69004028e+00_fp,&
504  1.69286953e+00_fp, 1.69565659e+00_fp, 1.69742982e+00_fp, 1.69825901e+00_fp, 1.69907614e+00_fp,&
505  1.69988146e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
506  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
507  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
508  1.70000000e+00_fp /
509 
510  DATA level_absorber(:,h2o,midlatitude_winter) / &
511  8.74332246e-04_fp, 1.49718079e-03_fp, 1.95195793e-03_fp, 2.35711591e-03_fp, 2.65468785e-03_fp, &
512  2.85767582e-03_fp, 3.00096567e-03_fp, 3.04944903e-03_fp, 3.08308098e-03_fp, 3.10985748e-03_fp, &
513  3.10985748e-03_fp, 3.10985748e-03_fp, 3.09351587e-03_fp, 3.07299566e-03_fp, 3.05427505e-03_fp, &
514  3.03702602e-03_fp, 3.02095600e-03_fp, 3.00616912e-03_fp, 2.99230417e-03_fp, 2.97922469e-03_fp, &
515  2.96686654e-03_fp, 2.95506941e-03_fp, 2.94405213e-03_fp, 2.93351392e-03_fp, 2.92340138e-03_fp, &
516  2.91367493e-03_fp, 2.90431481e-03_fp, 2.89529602e-03_fp, 2.87835857e-03_fp, 2.85745031e-03_fp, &
517  2.83684182e-03_fp, 2.82482238e-03_fp, 2.81705932e-03_fp, 2.80603976e-03_fp, 2.79887173e-03_fp, &
518  2.79887173e-03_fp, 2.79887173e-03_fp, 2.79887173e-03_fp, 2.79887173e-03_fp, 2.79887173e-03_fp, &
519  2.79887173e-03_fp, 2.79887173e-03_fp, 2.81434083e-03_fp, 2.84255984e-03_fp, 2.87009063e-03_fp, &
520  2.89695072e-03_fp, 2.92319027e-03_fp, 2.94883936e-03_fp, 2.97391660e-03_fp, 3.01152488e-03_fp, &
521  3.05970643e-03_fp, 3.10686597e-03_fp, 3.32681239e-03_fp, 3.55402722e-03_fp, 3.91087891e-03_fp, &
522  4.78254265e-03_fp, 5.63707400e-03_fp, 7.47526348e-03_fp, 1.15169670e-02_fp, 1.54824914e-02_fp, &
523  1.97084441e-02_fp, 2.48533895e-02_fp, 2.99050194e-02_fp, 3.51272761e-02_fp, 4.51472902e-02_fp, &
524  5.49921348e-02_fp, 6.46667487e-02_fp, 8.45843276e-02_fp, 1.07466432e-01_fp, 1.29966066e-01_fp, &
525  1.62099986e-01_fp, 2.12027416e-01_fp, 2.61145512e-01_fp, 3.09475916e-01_fp, 3.63203514e-01_fp, &
526  4.17297509e-01_fp, 4.70548251e-01_fp, 5.28053350e-01_fp, 6.04854643e-01_fp, 6.80491245e-01_fp, &
527  7.54990531e-01_fp, 8.54663471e-01_fp, 9.85885149e-01_fp, 1.11518275e+00_fp, 1.24259726e+00_fp, &
528  1.35998736e+00_fp, 1.46918467e+00_fp, 1.57682899e+00_fp, 1.68295208e+00_fp, 1.78567781e+00_fp, &
529  1.88517492e+00_fp, 1.98329553e+00_fp, 2.08006757e+00_fp, 2.18395930e+00_fp, 2.30730386e+00_fp, &
530  2.42898440e+00_fp, 2.54903439e+00_fp, 2.66748424e+00_fp, 2.78436530e+00_fp, 2.89970630e+00_fp, &
531  3.01353544e+00_fp /
532  DATA level_absorber(:,o3,midlatitude_winter) / &
533  5.13824109e-01_fp, 2.41632954e-01_fp, 3.01139649e-01_fp, 4.80917555e-01_fp, 7.91364237e-01_fp, &
534  1.18908931e+00_fp, 1.64984950e+00_fp, 2.25519636e+00_fp, 2.88203086e+00_fp, 3.80482427e+00_fp, &
535  4.62171912e+00_fp, 5.64746315e+00_fp, 6.42547774e+00_fp, 6.95559661e+00_fp, 7.13618951e+00_fp, &
536  7.16580449e+00_fp, 7.11413005e+00_fp, 6.99974493e+00_fp, 6.86599321e+00_fp, 6.65957726e+00_fp, &
537  6.38140684e+00_fp, 6.11586435e+00_fp, 5.93419689e+00_fp, 5.76476456e+00_fp, 5.60217603e+00_fp, &
538  5.44579517e+00_fp, 5.29530398e+00_fp, 5.15030072e+00_fp, 4.92238564e+00_fp, 4.65345678e+00_fp, &
539  4.38838356e+00_fp, 4.13446410e+00_fp, 3.88989110e+00_fp, 3.65366241e+00_fp, 3.38741275e+00_fp, &
540  3.05569077e+00_fp, 2.73064175e+00_fp, 2.41212341e+00_fp, 2.13743042e+00_fp, 1.88945447e+00_fp, &
541  1.67691975e+00_fp, 1.48641733e+00_fp, 1.32538682e+00_fp, 1.18927599e+00_fp, 1.07098983e+00_fp, &
542  9.84619020e-01_fp, 9.00243622e-01_fp, 8.58883440e-01_fp, 8.18564495e-01_fp, 7.79803354e-01_fp, &
543  7.42464818e-01_fp, 7.05918287e-01_fp, 6.40673216e-01_fp, 5.74770590e-01_fp, 5.11627432e-01_fp, &
544  4.55289027e-01_fp, 4.00057942e-01_fp, 3.49484701e-01_fp, 3.07909396e-01_fp, 2.67117714e-01_fp, &
545  2.30569056e-01_fp, 2.05080137e-01_fp, 1.80053518e-01_fp, 1.55870755e-01_fp, 1.39525396e-01_fp, &
546  1.23465785e-01_fp, 1.07683866e-01_fp, 9.82162019e-02_fp, 9.08257439e-02_fp, 8.35588159e-02_fp, &
547  7.68041071e-02_fp, 7.08774194e-02_fp, 6.50468045e-02_fp, 5.93096935e-02_fp, 5.57481739e-02_fp, &
548  5.26523318e-02_fp, 4.96047496e-02_fp, 4.65702815e-02_fp, 4.34473838e-02_fp, 4.03718448e-02_fp, &
549  3.73425513e-02_fp, 3.52424995e-02_fp, 3.42842253e-02_fp, 3.33400020e-02_fp, 3.24095305e-02_fp, &
550  3.15057165e-02_fp, 3.06253763e-02_fp, 2.97575562e-02_fp, 2.89020001e-02_fp, 2.84289367e-02_fp, &
551  2.83112407e-02_fp, 2.81951729e-02_fp, 2.80807004e-02_fp, 2.79853632e-02_fp, 2.79347499e-02_fp, &
552  2.78848194e-02_fp, 2.78355580e-02_fp, 2.77869531e-02_fp, 2.77389920e-02_fp, 2.76916629e-02_fp, &
553  2.76449541e-02_fp /
554  DATA level_absorber(:,co2,midlatitude_winter) / &
555  3.74360000e+02_fp, 3.74361536e+02_fp, 3.74363355e+02_fp, 3.74366645e+02_fp, 3.74372000e+02_fp,&
556  3.74380012e+02_fp, 3.74391000e+02_fp, 3.74404976e+02_fp, 3.74427783e+02_fp, 3.74467018e+02_fp,&
557  3.74521289e+02_fp, 3.74580048e+02_fp, 3.74628801e+02_fp, 3.74664910e+02_fp, 3.74699114e+02_fp,&
558  3.74739482e+02_fp, 3.74792946e+02_fp, 3.74861608e+02_fp, 3.74938271e+02_fp, 3.75015741e+02_fp,&
559  3.75084934e+02_fp, 3.75140614e+02_fp, 3.75186705e+02_fp, 3.75224301e+02_fp, 3.75257801e+02_fp,&
560  3.75293898e+02_fp, 3.75341078e+02_fp, 3.75402006e+02_fp, 3.75483301e+02_fp, 3.75585596e+02_fp,&
561  3.75708307e+02_fp, 3.75851657e+02_fp, 3.76012795e+02_fp, 3.76192873e+02_fp, 3.76383982e+02_fp,&
562  3.76585651e+02_fp, 3.76809813e+02_fp, 3.77081169e+02_fp, 3.77391271e+02_fp, 3.77732795e+02_fp,&
563  3.78108482e+02_fp, 3.78481072e+02_fp, 3.78820139e+02_fp, 3.79146343e+02_fp, 3.79424024e+02_fp,&
564  3.79651892e+02_fp, 3.79872699e+02_fp, 3.80073036e+02_fp, 3.80265614e+02_fp, 3.80453361e+02_fp,&
565  3.80639313e+02_fp, 3.80813470e+02_fp, 3.80970199e+02_fp, 3.81124934e+02_fp, 3.81280663e+02_fp,&
566  3.81437259e+02_fp, 3.81594518e+02_fp, 3.81753006e+02_fp, 3.81910795e+02_fp, 3.82065175e+02_fp,&
567  3.82213512e+02_fp, 3.82349223e+02_fp, 3.82473964e+02_fp, 3.82577331e+02_fp, 3.82656946e+02_fp,&
568  3.82723325e+02_fp, 3.82777620e+02_fp, 3.82823139e+02_fp, 3.82861807e+02_fp, 3.82896325e+02_fp,&
569  3.82929211e+02_fp, 3.82963229e+02_fp, 3.83001367e+02_fp, 3.83044151e+02_fp, 3.83086855e+02_fp,&
570  3.83128253e+02_fp, 3.83164506e+02_fp, 3.83194127e+02_fp, 3.83218072e+02_fp, 3.83237331e+02_fp,&
571  3.83252313e+02_fp, 3.83264940e+02_fp, 3.83277627e+02_fp, 3.83291488e+02_fp, 3.83308524e+02_fp,&
572  3.83328380e+02_fp, 3.83347090e+02_fp, 3.83365096e+02_fp, 3.83394620e+02_fp, 3.83444994e+02_fp,&
573  3.83510928e+02_fp, 3.83581313e+02_fp, 3.83656398e+02_fp, 3.83737054e+02_fp, 3.83815572e+02_fp,&
574  3.83884500e+02_fp, 3.83941349e+02_fp, 3.83985090e+02_fp, 3.84014928e+02_fp, 3.84031542e+02_fp,&
575  3.84037247e+02_fp /
576  DATA level_absorber(:,n2o,midlatitude_winter) / &
577  5.32276359e-04_fp, 7.23016133e-04_fp, 9.47945748e-04_fp, 1.22656559e-03_fp, 1.58250604e-03_fp,&
578  2.03057156e-03_fp, 2.57026674e-03_fp, 3.44052011e-03_fp, 4.70738858e-03_fp, 8.65747482e-03_fp,&
579  1.32391894e-02_fp, 1.93061481e-02_fp, 2.56077835e-02_fp, 3.17531520e-02_fp, 3.76105133e-02_fp,&
580  4.36059374e-02_fp, 4.95376252e-02_fp, 5.45353578e-02_fp, 5.90382101e-02_fp, 6.40643550e-02_fp,&
581  6.96198615e-02_fp, 7.49232807e-02_fp, 7.91165296e-02_fp, 8.30778781e-02_fp, 8.68791824e-02_fp,&
582  8.99154484e-02_fp, 9.28289249e-02_fp, 9.56361598e-02_fp, 1.00246690e-01_fp, 1.05684336e-01_fp,&
583  1.10720681e-01_fp, 1.16786637e-01_fp, 1.23333665e-01_fp, 1.31129223e-01_fp, 1.41059910e-01_fp,&
584  1.55379299e-01_fp, 1.68366138e-01_fp, 1.80151508e-01_fp, 1.95061984e-01_fp, 2.11478013e-01_fp,&
585  2.25000121e-01_fp, 2.36763755e-01_fp, 2.46825487e-01_fp, 2.55445858e-01_fp, 2.62739108e-01_fp,&
586  2.67619001e-01_fp, 2.72386226e-01_fp, 2.75524844e-01_fp, 2.78589110e-01_fp, 2.81257053e-01_fp,&
587  2.83581018e-01_fp, 2.85855719e-01_fp, 2.88651003e-01_fp, 2.91427399e-01_fp, 2.93981427e-01_fp,&
588  2.95838354e-01_fp, 2.97658790e-01_fp, 3.00002012e-01_fp, 3.03549523e-01_fp, 3.07030153e-01_fp,&
589  3.10136589e-01_fp, 3.12263305e-01_fp, 3.14351453e-01_fp, 3.16350257e-01_fp, 3.17340887e-01_fp,&
590  3.18314194e-01_fp, 3.19270678e-01_fp, 3.19613722e-01_fp, 3.19761590e-01_fp, 3.19906986e-01_fp,&
591  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
592  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
593  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
594  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
595  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
596  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
597  3.20000000e-01_fp /
598  DATA level_absorber(:,co,midlatitude_winter) / &
599  4.34896419e+00_fp, 2.34472097e+00_fp, 1.29914967e+00_fp, 7.14807742e-01_fp, 4.16057775e-01_fp,&
600  2.53527748e-01_fp, 1.58357108e-01_fp, 1.02771632e-01_fp, 5.90536475e-02_fp, 3.71617519e-02_fp,&
601  3.04969215e-02_fp, 2.70650268e-02_fp, 2.46909672e-02_fp, 2.29690134e-02_fp, 2.18613521e-02_fp,&
602  2.09570291e-02_fp, 2.01819828e-02_fp, 1.94787351e-02_fp, 1.88233694e-02_fp, 1.82191633e-02_fp,&
603  1.76628179e-02_fp, 1.71317172e-02_fp, 1.67285960e-02_fp, 1.63490656e-02_fp, 1.59848688e-02_fp,&
604  1.56715859e-02_fp, 1.53706069e-02_fp, 1.50806033e-02_fp, 1.45448405e-02_fp, 1.38917852e-02_fp,&
605  1.32754956e-02_fp, 1.27596248e-02_fp, 1.23200000e-02_fp, 1.23200000e-02_fp, 1.25057649e-02_fp,&
606  1.30531084e-02_fp, 1.39253234e-02_fp, 1.50826255e-02_fp, 1.68458149e-02_fp, 1.89139370e-02_fp,&
607  2.12692565e-02_fp, 2.37600987e-02_fp, 2.63325170e-02_fp, 2.89639987e-02_fp, 3.19548689e-02_fp,&
608  3.57205917e-02_fp, 3.93993709e-02_fp, 4.38670145e-02_fp, 4.82376259e-02_fp, 5.30762733e-02_fp,&
609  5.83013232e-02_fp, 6.34156076e-02_fp, 6.87629524e-02_fp, 7.40234922e-02_fp, 7.89676257e-02_fp,&
610  8.29968067e-02_fp, 8.69468074e-02_fp, 9.06678577e-02_fp, 9.39766577e-02_fp, 9.72230773e-02_fp,&
611  1.00403260e-01_fp, 1.03507630e-01_fp, 1.06555702e-01_fp, 1.09542919e-01_fp, 1.12360024e-01_fp,&
612  1.15127865e-01_fp, 1.17847864e-01_fp, 1.19910147e-01_fp, 1.21743714e-01_fp, 1.23546628e-01_fp,&
613  1.25120364e-01_fp, 1.26303387e-01_fp, 1.27467242e-01_fp, 1.28612429e-01_fp, 1.29152081e-01_fp,&
614  1.29567816e-01_fp, 1.29977071e-01_fp, 1.30349154e-01_fp, 1.30592920e-01_fp, 1.30832988e-01_fp,&
615  1.31069445e-01_fp, 1.31630992e-01_fp, 1.32597104e-01_fp, 1.33549041e-01_fp, 1.34487123e-01_fp,&
616  1.35604109e-01_fp, 1.36858158e-01_fp, 1.38094364e-01_fp, 1.39313107e-01_fp, 1.40535555e-01_fp,&
617  1.41760555e-01_fp, 1.42968607e-01_fp, 1.44160056e-01_fp, 1.45332653e-01_fp, 1.46482954e-01_fp,&
618  1.47617742e-01_fp, 1.48737320e-01_fp, 1.49841978e-01_fp, 1.50932000e-01_fp, 1.52007660e-01_fp,&
619  1.53069225e-01_fp /
620  DATA level_absorber(:,ch4,midlatitude_winter) / &
621  1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp,&
622  1.51999548e-01_fp, 1.56869968e-01_fp, 1.76961071e-01_fp, 2.00547370e-01_fp, 2.44302970e-01_fp,&
623  2.88471902e-01_fp, 3.29417957e-01_fp, 3.67663628e-01_fp, 4.03292534e-01_fp, 4.36401976e-01_fp,&
624  4.67558697e-01_fp, 4.96958787e-01_fp, 5.28259891e-01_fp, 5.59289448e-01_fp, 5.88481357e-01_fp,&
625  6.15980717e-01_fp, 6.42232262e-01_fp, 6.66747463e-01_fp, 6.90197020e-01_fp, 7.12699181e-01_fp,&
626  7.37703969e-01_fp, 7.61812385e-01_fp, 7.85041673e-01_fp, 8.31687107e-01_fp, 8.90821477e-01_fp,&
627  9.52450437e-01_fp, 1.01148653e+00_fp, 1.06822443e+00_fp, 1.12019482e+00_fp, 1.16713489e+00_fp,&
628  1.20583594e+00_fp, 1.24008873e+00_fp, 1.27034847e+00_fp, 1.29465569e+00_fp, 1.31548570e+00_fp,&
629  1.33315401e+00_fp, 1.34887060e+00_fp, 1.36445613e+00_fp, 1.37988206e+00_fp, 1.39464172e+00_fp,&
630  1.40846089e+00_fp, 1.42196099e+00_fp, 1.43392375e+00_fp, 1.44561634e+00_fp, 1.45686625e+00_fp,&
631  1.46771142e+00_fp, 1.47832669e+00_fp, 1.48911567e+00_fp, 1.49970981e+00_fp, 1.51044689e+00_fp,&
632  1.52235925e+00_fp, 1.53403752e+00_fp, 1.54581070e+00_fp, 1.55807779e+00_fp, 1.57011361e+00_fp,&
633  1.58188316e+00_fp, 1.59331029e+00_fp, 1.60453019e+00_fp, 1.61521988e+00_fp, 1.61955388e+00_fp,&
634  1.62381210e+00_fp, 1.62799671e+00_fp, 1.63354886e+00_fp, 1.63946359e+00_fp, 1.64527944e+00_fp,&
635  1.65135814e+00_fp, 1.65799461e+00_fp, 1.66452356e+00_fp, 1.67094777e+00_fp, 1.67552081e+00_fp,&
636  1.67967816e+00_fp, 1.68377071e+00_fp, 1.68754615e+00_fp, 1.69025466e+00_fp, 1.69292208e+00_fp,&
637  1.69554939e+00_fp, 1.69734945e+00_fp, 1.69813279e+00_fp, 1.69890463e+00_fp, 1.69966523e+00_fp,&
638  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
639  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
640  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
641  1.70000000e+00_fp /
642 
643  DATA level_absorber(:,h2o,subarctic_summer) / &
644  8.69383728e-04_fp, 1.36116616e-03_fp, 1.76469831e-03_fp, 2.10026204e-03_fp, 2.44573806e-03_fp, &
645  2.68348563e-03_fp, 2.86237283e-03_fp, 2.99606196e-03_fp, 3.04567272e-03_fp, 3.07754036e-03_fp, &
646  3.10655579e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, &
647  3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, &
648  3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10332744e-03_fp, 3.09229744e-03_fp, &
649  3.08169754e-03_fp, 3.07164176e-03_fp, 3.06200913e-03_fp, 3.05271704e-03_fp, 3.03799773e-03_fp, &
650  3.01659788e-03_fp, 3.00831971e-03_fp, 2.99845479e-03_fp, 2.98689086e-03_fp, 2.95285888e-03_fp, &
651  2.91662195e-03_fp, 2.88155558e-03_fp, 2.84738628e-03_fp, 2.81403006e-03_fp, 2.76435656e-03_fp, &
652  2.70130163e-03_fp, 2.63110641e-03_fp, 2.55605408e-03_fp, 2.51179113e-03_fp, 2.49757023e-03_fp, &
653  2.48788599e-03_fp, 2.48788599e-03_fp, 2.48788599e-03_fp, 2.48788599e-03_fp, 2.48788599e-03_fp, &
654  2.55305414e-03_fp, 2.66197293e-03_fp, 2.77071777e-03_fp, 3.13346408e-03_fp, 3.48887207e-03_fp, &
655  4.22682497e-03_fp, 5.83106127e-03_fp, 7.40422819e-03_fp, 1.09552220e-02_fp, 1.69722497e-02_fp, &
656  2.28773144e-02_fp, 3.34187290e-02_fp, 5.08394269e-02_fp, 6.79481093e-02_fp, 9.32770644e-02_fp, &
657  1.45896166e-01_fp, 1.97605412e-01_fp, 2.48431246e-01_fp, 3.24174426e-01_fp, 3.98706765e-01_fp, &
658  4.72005572e-01_fp, 5.61681354e-01_fp, 6.58406539e-01_fp, 7.53580570e-01_fp, 8.61983503e-01_fp, &
659  1.02204873e+00_fp, 1.17961877e+00_fp, 1.33475601e+00_fp, 1.52343275e+00_fp, 1.72391468e+00_fp, &
660  1.92138205e+00_fp, 2.11943114e+00_fp, 2.36062938e+00_fp, 2.59829098e+00_fp, 2.83249127e+00_fp, &
661  3.08782910e+00_fp, 3.40062556e+00_fp, 3.70897345e+00_fp, 4.01296376e+00_fp, 4.31618141e+00_fp, &
662  4.62075034e+00_fp, 4.92110566e+00_fp, 5.21733292e+00_fp, 5.57739905e+00_fp, 6.06579203e+00_fp, &
663  6.54759618e+00_fp, 7.02294405e+00_fp, 7.49195601e+00_fp, 7.95475623e+00_fp, 8.41145844e+00_fp, &
664  8.86217434e+00_fp /
665  DATA level_absorber(:,o3,subarctic_summer) / &
666  6.02447863e-01_fp, 1.85384866e-01_fp, 2.45755187e-01_fp, 4.43875328e-01_fp, 7.61277121e-01_fp, &
667  1.05158664e+00_fp, 1.34585211e+00_fp, 1.65291517e+00_fp, 2.07443467e+00_fp, 2.48432665e+00_fp, &
668  3.12568202e+00_fp, 3.95253307e+00_fp, 4.85091650e+00_fp, 5.83269455e+00_fp, 6.90940812e+00_fp, &
669  7.44284770e+00_fp, 7.78765316e+00_fp, 7.73487051e+00_fp, 7.58385625e+00_fp, 7.21986676e+00_fp, &
670  6.85994658e+00_fp, 6.36681745e+00_fp, 5.89515953e+00_fp, 5.61600841e+00_fp, 5.47413698e+00_fp, &
671  5.33779770e+00_fp, 5.11691393e+00_fp, 4.86911782e+00_fp, 4.63008203e+00_fp, 4.40678739e+00_fp, &
672  4.20034843e+00_fp, 3.86871267e+00_fp, 3.57850376e+00_fp, 3.33060533e+00_fp, 2.98547464e+00_fp, &
673  2.63590625e+00_fp, 2.29762991e+00_fp, 2.01200498e+00_fp, 1.79748565e+00_fp, 1.58901363e+00_fp, &
674  1.38625538e+00_fp, 1.21632217e+00_fp, 1.07152004e+00_fp, 9.65303396e-01_fp, 8.96710707e-01_fp, &
675  8.30054162e-01_fp, 7.65667586e-01_fp, 7.02740825e-01_fp, 6.58995663e-01_fp, 6.17019138e-01_fp, &
676  5.76716277e-01_fp, 5.37801027e-01_fp, 4.99725104e-01_fp, 4.65860708e-01_fp, 4.32681386e-01_fp, &
677  3.98552843e-01_fp, 3.61453664e-01_fp, 3.25072988e-01_fp, 2.87804478e-01_fp, 2.49240970e-01_fp, &
678  2.11395041e-01_fp, 1.82920946e-01_fp, 1.67893374e-01_fp, 1.53134955e-01_fp, 1.38232663e-01_fp, &
679  1.22272790e-01_fp, 1.06588886e-01_fp, 9.11729285e-02_fp, 8.69304911e-02_fp, 8.27823305e-02_fp, &
680  7.87028231e-02_fp, 7.50455252e-02_fp, 7.16194928e-02_fp, 6.82484027e-02_fp, 6.48620845e-02_fp, &
681  6.12800313e-02_fp, 5.77538175e-02_fp, 5.42820463e-02_fp, 5.15875999e-02_fp, 4.92297424e-02_fp, &
682  4.69073391e-02_fp, 4.46667180e-02_fp, 4.30751373e-02_fp, 4.15068937e-02_fp, 3.99614901e-02_fp, &
683  3.84894396e-02_fp, 3.71657147e-02_fp, 3.58608157e-02_fp, 3.45743575e-02_fp, 3.33635638e-02_fp, &
684  3.22617141e-02_fp, 3.11751081e-02_fp, 3.01034363e-02_fp, 2.89659113e-02_fp, 2.76858761e-02_fp, &
685  2.64231096e-02_fp, 2.51772645e-02_fp, 2.39480253e-02_fp, 2.27350665e-02_fp, 2.15380901e-02_fp, &
686  2.03568032e-02_fp /
687  DATA level_absorber(:,co2,subarctic_summer) / &
688  3.74360000e+02_fp, 3.74361536e+02_fp, 3.74363355e+02_fp, 3.74366645e+02_fp, 3.74372000e+02_fp,&
689  3.74380012e+02_fp, 3.74391000e+02_fp, 3.74404976e+02_fp, 3.74427783e+02_fp, 3.74467018e+02_fp,&
690  3.74521289e+02_fp, 3.74580048e+02_fp, 3.74628801e+02_fp, 3.74664910e+02_fp, 3.74699114e+02_fp,&
691  3.74739482e+02_fp, 3.74792946e+02_fp, 3.74861608e+02_fp, 3.74938271e+02_fp, 3.75015741e+02_fp,&
692  3.75084934e+02_fp, 3.75140614e+02_fp, 3.75186705e+02_fp, 3.75224301e+02_fp, 3.75257801e+02_fp,&
693  3.75293898e+02_fp, 3.75341078e+02_fp, 3.75402006e+02_fp, 3.75483301e+02_fp, 3.75585596e+02_fp,&
694  3.75708307e+02_fp, 3.75851657e+02_fp, 3.76012795e+02_fp, 3.76192873e+02_fp, 3.76383982e+02_fp,&
695  3.76585651e+02_fp, 3.76809813e+02_fp, 3.77081169e+02_fp, 3.77391271e+02_fp, 3.77732795e+02_fp,&
696  3.78108482e+02_fp, 3.78481072e+02_fp, 3.78820139e+02_fp, 3.79146343e+02_fp, 3.79424024e+02_fp,&
697  3.79651892e+02_fp, 3.79872699e+02_fp, 3.80073036e+02_fp, 3.80265614e+02_fp, 3.80453361e+02_fp,&
698  3.80639313e+02_fp, 3.80813470e+02_fp, 3.80970199e+02_fp, 3.81124934e+02_fp, 3.81280663e+02_fp,&
699  3.81437259e+02_fp, 3.81594518e+02_fp, 3.81753006e+02_fp, 3.81910795e+02_fp, 3.82065175e+02_fp,&
700  3.82213512e+02_fp, 3.82349223e+02_fp, 3.82473964e+02_fp, 3.82577331e+02_fp, 3.82656946e+02_fp,&
701  3.82723325e+02_fp, 3.82777620e+02_fp, 3.82823139e+02_fp, 3.82861807e+02_fp, 3.82896325e+02_fp,&
702  3.82929211e+02_fp, 3.82963229e+02_fp, 3.83001367e+02_fp, 3.83044151e+02_fp, 3.83086855e+02_fp,&
703  3.83128253e+02_fp, 3.83164506e+02_fp, 3.83194127e+02_fp, 3.83218072e+02_fp, 3.83237331e+02_fp,&
704  3.83252313e+02_fp, 3.83264940e+02_fp, 3.83277627e+02_fp, 3.83291488e+02_fp, 3.83308524e+02_fp,&
705  3.83328380e+02_fp, 3.83347090e+02_fp, 3.83365096e+02_fp, 3.83394620e+02_fp, 3.83444994e+02_fp,&
706  3.83510928e+02_fp, 3.83581313e+02_fp, 3.83656398e+02_fp, 3.83737054e+02_fp, 3.83815572e+02_fp,&
707  3.83884500e+02_fp, 3.83941349e+02_fp, 3.83985090e+02_fp, 3.84014928e+02_fp, 3.84031542e+02_fp,&
708  3.84037247e+02_fp /
709  DATA level_absorber(:,n2o,subarctic_summer) / &
710  4.04678710e-04_fp, 4.88629908e-04_fp, 5.81597226e-04_fp, 6.98665057e-04_fp, 8.66076326e-04_fp,&
711  1.09254970e-03_fp, 1.37473925e-03_fp, 1.71306712e-03_fp, 2.24713918e-03_fp, 2.77477543e-03_fp,&
712  4.37100282e-03_fp, 5.85837731e-03_fp, 7.75858832e-03_fp, 1.00121396e-02_fp, 1.25283411e-02_fp,&
713  1.64767185e-02_fp, 2.08269136e-02_fp, 2.65436487e-02_fp, 3.19488939e-02_fp, 3.70537919e-02_fp,&
714  4.21364042e-02_fp, 4.94801353e-02_fp, 5.65038392e-02_fp, 6.23204035e-02_fp, 6.72362289e-02_fp,&
715  7.19603764e-02_fp, 7.65838738e-02_fp, 8.10689382e-02_fp, 8.53955431e-02_fp, 9.12237456e-02_fp,&
716  9.89169668e-02_fp, 1.06397144e-01_fp, 1.13723457e-01_fp, 1.20912521e-01_fp, 1.28719501e-01_fp,&
717  1.37318014e-01_fp, 1.49552266e-01_fp, 1.62199775e-01_fp, 1.75607050e-01_fp, 1.87748687e-01_fp,&
718  1.98799005e-01_fp, 2.07516551e-01_fp, 2.14467026e-01_fp, 2.20282502e-01_fp, 2.24992563e-01_fp,&
719  2.29170681e-01_fp, 2.32304171e-01_fp, 2.35366599e-01_fp, 2.38698351e-01_fp, 2.41972507e-01_fp,&
720  2.44720297e-01_fp, 2.47094148e-01_fp, 2.49416788e-01_fp, 2.51486287e-01_fp, 2.53513908e-01_fp,&
721  2.55456000e-01_fp, 2.57257968e-01_fp, 2.59025021e-01_fp, 2.60756013e-01_fp, 2.62451477e-01_fp,&
722  2.64115398e-01_fp, 2.65772579e-01_fp, 2.67435203e-01_fp, 2.69068048e-01_fp, 2.70714811e-01_fp,&
723  2.72472087e-01_fp, 2.74198987e-01_fp, 2.75896376e-01_fp, 2.77827320e-01_fp, 2.79726544e-01_fp,&
724  2.81594355e-01_fp, 2.83870321e-01_fp, 2.86321664e-01_fp, 2.88733685e-01_fp, 2.91342676e-01_fp,&
725  2.94762429e-01_fp, 2.98128883e-01_fp, 3.01443350e-01_fp, 3.03495087e-01_fp, 3.05020759e-01_fp,&
726  3.06523484e-01_fp, 3.07940251e-01_fp, 3.08505789e-01_fp, 3.09063031e-01_fp, 3.09612161e-01_fp,&
727  3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp,&
728  3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp,&
729  3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp, 3.10000000e-01_fp,&
730  3.10000000e-01_fp /
731  DATA level_absorber(:,co,subarctic_summer) / &
732  1.71842575e+00_fp, 6.59646252e-01_fp, 2.60919500e-01_fp, 1.11713491e-01_fp, 6.89879139e-02_fp,&
733  5.25152363e-02_fp, 4.31507231e-02_fp, 3.73850267e-02_fp, 3.44871859e-02_fp, 3.22844327e-02_fp,&
734  3.02244094e-02_fp, 2.85601870e-02_fp, 2.72113285e-02_fp, 2.60616500e-02_fp, 2.50454787e-02_fp,&
735  2.41130105e-02_fp, 2.32324874e-02_fp, 2.23879097e-02_fp, 2.15599695e-02_fp, 2.07137029e-02_fp,&
736  1.99069220e-02_fp, 1.91302207e-02_fp, 1.83873668e-02_fp, 1.77461225e-02_fp, 1.71821859e-02_fp,&
737  1.66402382e-02_fp, 1.61718864e-02_fp, 1.57413450e-02_fp, 1.53260149e-02_fp, 1.47582182e-02_fp,&
738  1.40012823e-02_fp, 1.33838115e-02_fp, 1.28421903e-02_fp, 1.23773801e-02_fp, 1.23200000e-02_fp,&
739  1.24257527e-02_fp, 1.29839052e-02_fp, 1.37895804e-02_fp, 1.49586948e-02_fp, 1.66470195e-02_fp,&
740  1.87607730e-02_fp, 2.11187891e-02_fp, 2.36431630e-02_fp, 2.62316032e-02_fp, 2.88838703e-02_fp,&
741  3.18494987e-02_fp, 3.55925170e-02_fp, 3.92506499e-02_fp, 4.38548884e-02_fp, 4.84051253e-02_fp,&
742  5.33909524e-02_fp, 5.86406656e-02_fp, 6.37839543e-02_fp, 6.92022781e-02_fp, 7.45109596e-02_fp,&
743  7.93937256e-02_fp, 8.34569858e-02_fp, 8.74415173e-02_fp, 9.11194131e-02_fp, 9.44372049e-02_fp,&
744  9.76932685e-02_fp, 1.00884966e-01_fp, 1.04011979e-01_fp, 1.07082982e-01_fp, 1.10074068e-01_fp,&
745  1.12929641e-01_fp, 1.15735854e-01_fp, 1.18494110e-01_fp, 1.20396727e-01_fp, 1.22265806e-01_fp,&
746  1.24103969e-01_fp, 1.25515276e-01_fp, 1.26711764e-01_fp, 1.27889061e-01_fp, 1.28894408e-01_fp,&
747  1.29329122e-01_fp, 1.29757061e-01_fp, 1.30178392e-01_fp, 1.30479196e-01_fp, 1.30728851e-01_fp,&
748  1.30974752e-01_fp, 1.31270918e-01_fp, 1.32267343e-01_fp, 1.33249150e-01_fp, 1.34216665e-01_fp,&
749  1.35274569e-01_fp, 1.36577451e-01_fp, 1.37861795e-01_fp, 1.39127997e-01_fp, 1.40395403e-01_fp,&
750  1.41675457e-01_fp, 1.42937800e-01_fp, 1.44182795e-01_fp, 1.45411068e-01_fp, 1.46623220e-01_fp,&
751  1.47819026e-01_fp, 1.48998803e-01_fp, 1.50162858e-01_fp, 1.51311490e-01_fp, 1.52444988e-01_fp,&
752  1.53563633e-01_fp /
753  DATA level_absorber(:,ch4,subarctic_summer) / &
754  1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp,&
755  1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.57489541e-01_fp, 1.65685832e-01_fp,&
756  1.96393702e-01_fp, 2.33487726e-01_fp, 2.74168722e-01_fp, 3.18562823e-01_fp, 3.66746837e-01_fp,&
757  4.14976317e-01_fp, 4.59660892e-01_fp, 4.98405892e-01_fp, 5.33407516e-01_fp, 5.62890349e-01_fp,&
758  5.90648953e-01_fp, 6.13415753e-01_fp, 6.35190414e-01_fp, 6.54993271e-01_fp, 6.73223677e-01_fp,&
759  6.90743243e-01_fp, 7.07523538e-01_fp, 7.23661097e-01_fp, 7.39228508e-01_fp, 7.64354093e-01_fp,&
760  8.01237515e-01_fp, 8.38470079e-01_fp, 8.75503278e-01_fp, 9.12440196e-01_fp, 9.55424196e-01_fp,&
761  9.99027270e-01_fp, 1.04508895e+00_fp, 1.09069924e+00_fp, 1.13628397e+00_fp, 1.17725478e+00_fp,&
762  1.21425814e+00_fp, 1.24673563e+00_fp, 1.27569594e+00_fp, 1.30202817e+00_fp, 1.32580711e+00_fp,&
763  1.34824959e+00_fp, 1.36842412e+00_fp, 1.38814112e+00_fp, 1.40745203e+00_fp, 1.42634139e+00_fp,&
764  1.44261492e+00_fp, 1.45701369e+00_fp, 1.47110683e+00_fp, 1.48427637e+00_fp, 1.49717942e+00_fp,&
765  1.50992471e+00_fp, 1.52264448e+00_fp, 1.53511779e+00_fp, 1.54748480e+00_fp, 1.55978523e+00_fp,&
766  1.57185681e+00_fp, 1.58365632e+00_fp, 1.59516679e+00_fp, 1.60647110e+00_fp, 1.61603703e+00_fp,&
767  1.62043022e+00_fp, 1.62474747e+00_fp, 1.62899094e+00_fp, 1.63511848e+00_fp, 1.64114776e+00_fp,&
768  1.64707732e+00_fp, 1.65357350e+00_fp, 1.66028551e+00_fp, 1.66688985e+00_fp, 1.67294408e+00_fp,&
769  1.67729122e+00_fp, 1.68157061e+00_fp, 1.68578392e+00_fp, 1.68899107e+00_fp, 1.69176502e+00_fp,&
770  1.69449724e+00_fp, 1.69705750e+00_fp, 1.69786541e+00_fp, 1.69866147e+00_fp, 1.69944594e+00_fp,&
771  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
772  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
773  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
774  1.70000000e+00_fp /
775 
776  DATA level_absorber(:,h2o,subarctic_winter) / &
777  8.84696872e-04_fp, 1.54955175e-03_fp, 2.03052785e-03_fp, 2.47065038e-03_fp, 2.74191225e-03_fp, &
778  2.92146556e-03_fp, 3.03039715e-03_fp, 3.06709313e-03_fp, 3.10012079e-03_fp, 3.10985748e-03_fp, &
779  3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, &
780  3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, &
781  3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, &
782  3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.10985748e-03_fp, 3.09146619e-03_fp, &
783  3.07147389e-03_fp, 3.05208862e-03_fp, 3.03329059e-03_fp, 3.01505782e-03_fp, 2.99733188e-03_fp, &
784  2.98010536e-03_fp, 2.96333121e-03_fp, 2.94701069e-03_fp, 2.93111777e-03_fp, 2.91562533e-03_fp, &
785  2.90051362e-03_fp, 2.88576944e-03_fp, 2.87137086e-03_fp, 2.85730694e-03_fp, 2.84353388e-03_fp, &
786  2.83008447e-03_fp, 2.81700923e-03_fp, 2.80423099e-03_fp, 2.79170619e-03_fp, 2.77943253e-03_fp, &
787  2.77862415e-03_fp, 3.14321091e-03_fp, 3.50019707e-03_fp, 4.03488780e-03_fp, 4.91460361e-03_fp, &
788  5.77677700e-03_fp, 7.22889321e-03_fp, 9.30815524e-03_fp, 1.13476641e-02_fp, 1.33261166e-02_fp, &
789  1.52411067e-02_fp, 1.71209366e-02_fp, 1.87015151e-02_fp, 1.94619961e-02_fp, 2.02090171e-02_fp, &
790  2.09429787e-02_fp, 3.85915946e-02_fp, 5.87588759e-02_fp, 7.85852755e-02_fp, 9.68791925e-02_fp, &
791  1.12588983e-01_fp, 1.28041819e-01_fp, 1.43244161e-01_fp, 1.71432368e-01_fp, 2.04090211e-01_fp, &
792  2.36234320e-01_fp, 2.67877346e-01_fp, 3.27052478e-01_fp, 3.85437353e-01_fp, 4.42936821e-01_fp, &
793  5.00201056e-01_fp, 5.60201978e-01_fp, 6.19315101e-01_fp, 6.77561459e-01_fp, 7.32076449e-01_fp, &
794  7.71902320e-01_fp, 8.11157232e-01_fp, 8.49853863e-01_fp, 8.87881652e-01_fp, 9.15307184e-01_fp, &
795  9.42350623e-01_fp, 9.69019926e-01_fp, 9.95322689e-01_fp, 9.85632908e-01_fp, 9.56886655e-01_fp, &
796  9.28528213e-01_fp, 9.00549779e-01_fp, 8.72944270e-01_fp, 8.45704377e-01_fp, 8.18823407e-01_fp, &
797  7.92294783e-01_fp /
798  DATA level_absorber(:,o3,subarctic_winter) / &
799  6.64488655e-01_fp, 2.70387123e-01_fp, 4.89988085e-01_fp, 6.44061875e-01_fp, 8.95052643e-01_fp, &
800  1.31605255e+00_fp, 1.82244415e+00_fp, 2.41243879e+00_fp, 2.87476351e+00_fp, 3.67618430e+00_fp, &
801  4.54517916e+00_fp, 5.26145086e+00_fp, 5.80774687e+00_fp, 6.07829864e+00_fp, 6.24554631e+00_fp, &
802  6.21897368e+00_fp, 6.16447409e+00_fp, 6.02603072e+00_fp, 5.89135176e+00_fp, 5.68564390e+00_fp, &
803  5.48967750e+00_fp, 5.30381111e+00_fp, 5.12709769e+00_fp, 4.95779587e+00_fp, 4.85867873e+00_fp, &
804  4.79704146e+00_fp, 4.73772631e+00_fp, 4.67583708e+00_fp, 4.60726127e+00_fp, 4.54086129e+00_fp, &
805  4.42972331e+00_fp, 4.24271853e+00_fp, 4.10758583e+00_fp, 3.98549190e+00_fp, 3.81449433e+00_fp, &
806  3.59662883e+00_fp, 3.27299705e+00_fp, 2.94629363e+00_fp, 2.61411140e+00_fp, 2.31486882e+00_fp, &
807  2.04760764e+00_fp, 1.81770663e+00_fp, 1.63250734e+00_fp, 1.46370947e+00_fp, 1.33084427e+00_fp, &
808  1.20110129e+00_fp, 1.07496781e+00_fp, 9.51699345e-01_fp, 8.42396537e-01_fp, 7.43729115e-01_fp, &
809  6.47186109e-01_fp, 5.52641076e-01_fp, 4.60067038e-01_fp, 3.93909310e-01_fp, 3.76229324e-01_fp, &
810  3.58901894e-01_fp, 3.41887263e-01_fp, 3.25172172e-01_fp, 3.08776655e-01_fp, 2.86854038e-01_fp, &
811  2.58462510e-01_fp, 2.30592267e-01_fp, 2.01994858e-01_fp, 1.70228779e-01_fp, 1.39024942e-01_fp, &
812  1.08366609e-01_fp, 9.61530320e-02_fp, 8.71327802e-02_fp, 7.82649952e-02_fp, 6.97853309e-02_fp, &
813  6.19016706e-02_fp, 5.41469585e-02_fp, 4.65179519e-02_fp, 4.31724147e-02_fp, 4.14266931e-02_fp, &
814  3.97084331e-02_fp, 3.80169583e-02_fp, 3.65604959e-02_fp, 3.51271963e-02_fp, 3.37156327e-02_fp, &
815  3.23437308e-02_fp, 3.10974815e-02_fp, 2.98696723e-02_fp, 2.86598662e-02_fp, 2.74879278e-02_fp, &
816  2.64305466e-02_fp, 2.53883245e-02_fp, 2.43609248e-02_fp, 2.33525872e-02_fp, 2.27333876e-02_fp, &
817  2.21228147e-02_fp, 2.15206889e-02_fp, 2.09268386e-02_fp, 2.03303186e-02_fp, 1.97360877e-02_fp, &
818  1.91498734e-02_fp, 1.85715146e-02_fp, 1.80008647e-02_fp, 1.74377726e-02_fp, 1.68821001e-02_fp, &
819  1.63337111e-02_fp /
820  DATA level_absorber(:,co2,subarctic_winter) / &
821  3.74360000e+02_fp, 3.74361536e+02_fp, 3.74363355e+02_fp, 3.74366645e+02_fp, 3.74372000e+02_fp,&
822  3.74380012e+02_fp, 3.74391000e+02_fp, 3.74404976e+02_fp, 3.74427783e+02_fp, 3.74467018e+02_fp,&
823  3.74521289e+02_fp, 3.74580048e+02_fp, 3.74628801e+02_fp, 3.74664910e+02_fp, 3.74699114e+02_fp,&
824  3.74739482e+02_fp, 3.74792946e+02_fp, 3.74861608e+02_fp, 3.74938271e+02_fp, 3.75015741e+02_fp,&
825  3.75084934e+02_fp, 3.75140614e+02_fp, 3.75186705e+02_fp, 3.75224301e+02_fp, 3.75257801e+02_fp,&
826  3.75293898e+02_fp, 3.75341078e+02_fp, 3.75402006e+02_fp, 3.75483301e+02_fp, 3.75585596e+02_fp,&
827  3.75708307e+02_fp, 3.75851657e+02_fp, 3.76012795e+02_fp, 3.76192873e+02_fp, 3.76383982e+02_fp,&
828  3.76585651e+02_fp, 3.76809813e+02_fp, 3.77081169e+02_fp, 3.77391271e+02_fp, 3.77732795e+02_fp,&
829  3.78108482e+02_fp, 3.78481072e+02_fp, 3.78820139e+02_fp, 3.79146343e+02_fp, 3.79424024e+02_fp,&
830  3.79651892e+02_fp, 3.79872699e+02_fp, 3.80073036e+02_fp, 3.80265614e+02_fp, 3.80453361e+02_fp,&
831  3.80639313e+02_fp, 3.80813470e+02_fp, 3.80970199e+02_fp, 3.81124934e+02_fp, 3.81280663e+02_fp,&
832  3.81437259e+02_fp, 3.81594518e+02_fp, 3.81753006e+02_fp, 3.81910795e+02_fp, 3.82065175e+02_fp,&
833  3.82213512e+02_fp, 3.82349223e+02_fp, 3.82473964e+02_fp, 3.82577331e+02_fp, 3.82656946e+02_fp,&
834  3.82723325e+02_fp, 3.82777620e+02_fp, 3.82823139e+02_fp, 3.82861807e+02_fp, 3.82896325e+02_fp,&
835  3.82929211e+02_fp, 3.82963229e+02_fp, 3.83001367e+02_fp, 3.83044151e+02_fp, 3.83086855e+02_fp,&
836  3.83128253e+02_fp, 3.83164506e+02_fp, 3.83194127e+02_fp, 3.83218072e+02_fp, 3.83237331e+02_fp,&
837  3.83252313e+02_fp, 3.83264940e+02_fp, 3.83277627e+02_fp, 3.83291488e+02_fp, 3.83308524e+02_fp,&
838  3.83328380e+02_fp, 3.83347090e+02_fp, 3.83365096e+02_fp, 3.83394620e+02_fp, 3.83444994e+02_fp,&
839  3.83510928e+02_fp, 3.83581313e+02_fp, 3.83656398e+02_fp, 3.83737054e+02_fp, 3.83815572e+02_fp,&
840  3.83884500e+02_fp, 3.83941349e+02_fp, 3.83985090e+02_fp, 3.84014928e+02_fp, 3.84031542e+02_fp,&
841  3.84037247e+02_fp /
842  DATA level_absorber(:,n2o,subarctic_winter) / &
843  5.17198983e-04_fp, 7.11536301e-04_fp, 9.48007739e-04_fp, 1.24801137e-03_fp, 1.64041627e-03_fp,&
844  2.16645303e-03_fp, 2.83368434e-03_fp, 3.69729454e-03_fp, 6.09623043e-03_fp, 9.27422811e-03_fp,&
845  1.31757691e-02_fp, 1.80052348e-02_fp, 2.37410463e-02_fp, 2.96412008e-02_fp, 3.54866165e-02_fp,&
846  4.20289857e-02_fp, 4.79313556e-02_fp, 5.27310397e-02_fp, 5.73774069e-02_fp, 6.39764445e-02_fp,&
847  7.02630984e-02_fp, 7.56102331e-02_fp, 8.01481893e-02_fp, 8.44958826e-02_fp, 8.79882612e-02_fp,&
848  9.09838274e-02_fp, 9.38665113e-02_fp, 9.77779709e-02_fp, 1.03675568e-01_fp, 1.08971973e-01_fp,&
849  1.14729917e-01_fp, 1.21462068e-01_fp, 1.29099406e-01_fp, 1.37452693e-01_fp, 1.52215216e-01_fp,&
850  1.65924691e-01_fp, 1.77898993e-01_fp, 1.92127311e-01_fp, 2.09042820e-01_fp, 2.23468543e-01_fp,&
851  2.35470992e-01_fp, 2.46008954e-01_fp, 2.54805887e-01_fp, 2.62466946e-01_fp, 2.67471565e-01_fp,&
852  2.72358493e-01_fp, 2.75567476e-01_fp, 2.78690269e-01_fp, 2.81382493e-01_fp, 2.83750501e-01_fp,&
853  2.86085530e-01_fp, 2.88959724e-01_fp, 2.91773947e-01_fp, 2.94245610e-01_fp, 2.96119685e-01_fp,&
854  2.97956394e-01_fp, 3.00636131e-01_fp, 3.04213144e-01_fp, 3.07721801e-01_fp, 3.10578647e-01_fp,&
855  3.12692245e-01_fp, 3.14767024e-01_fp, 3.16541666e-01_fp, 3.17500641e-01_fp, 3.18442645e-01_fp,&
856  3.19368177e-01_fp, 3.19624635e-01_fp, 3.19767904e-01_fp, 3.19908752e-01_fp, 3.20000000e-01_fp,&
857  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
858  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
859  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
860  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
861  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
862  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
863  3.20000000e-01_fp /
864  DATA level_absorber(:,co,subarctic_winter) / &
865  4.35656598e+00_fp, 2.43514308e+00_fp, 1.55469614e+00_fp, 1.08495496e+00_fp, 7.79402033e-01_fp,&
866  5.84873371e-01_fp, 4.46359217e-01_fp, 3.46017623e-01_fp, 2.46910564e-01_fp, 1.75979932e-01_fp,&
867  1.29950471e-01_fp, 9.61525780e-02_fp, 6.92625474e-02_fp, 5.43125173e-02_fp, 4.31666585e-02_fp,&
868  3.64648489e-02_fp, 3.08725149e-02_fp, 2.77250297e-02_fp, 2.47823468e-02_fp, 2.29351100e-02_fp,&
869  2.11753172e-02_fp, 1.97639849e-02_fp, 1.86507012e-02_fp, 1.75840942e-02_fp, 1.68047114e-02_fp,&
870  1.61852579e-02_fp, 1.55891474e-02_fp, 1.49176343e-02_fp, 1.40878561e-02_fp, 1.34500082e-02_fp,&
871  1.28943113e-02_fp, 1.24268008e-02_fp, 1.23200000e-02_fp, 1.23678829e-02_fp, 1.29321646e-02_fp,&
872  1.36855778e-02_fp, 1.48614326e-02_fp, 1.64760993e-02_fp, 1.86071469e-02_fp, 2.09449587e-02_fp,&
873  2.34863679e-02_fp, 2.60832597e-02_fp, 2.87686390e-02_fp, 3.17448465e-02_fp, 3.56068187e-02_fp,&
874  3.93779700e-02_fp, 4.39278210e-02_fp, 4.83819098e-02_fp, 5.33583043e-02_fp, 5.86823769e-02_fp,&
875  6.39020575e-02_fp, 6.93478990e-02_fp, 7.46801107e-02_fp, 7.95408520e-02_fp, 8.36072411e-02_fp,&
876  8.75925540e-02_fp, 9.12593075e-02_fp, 9.45956240e-02_fp, 9.78681847e-02_fp, 1.01048533e-01_fp,&
877  1.04133754e-01_fp, 1.07162312e-01_fp, 1.10087238e-01_fp, 1.12814322e-01_fp, 1.15493148e-01_fp,&
878  1.18125130e-01_fp, 1.20045469e-01_fp, 1.21822008e-01_fp, 1.23568521e-01_fp, 1.25099574e-01_fp,&
879  1.26251507e-01_fp, 1.27384585e-01_fp, 1.28499304e-01_fp, 1.29099439e-01_fp, 1.29505421e-01_fp,&
880  1.29905015e-01_fp, 1.30298382e-01_fp, 1.30538057e-01_fp, 1.30773454e-01_fp, 1.31005280e-01_fp,&
881  1.31341808e-01_fp, 1.32290598e-01_fp, 1.33225354e-01_fp, 1.34146395e-01_fp, 1.35111222e-01_fp,&
882  1.36337883e-01_fp, 1.37546960e-01_fp, 1.38738834e-01_fp, 1.39914322e-01_fp, 1.41110500e-01_fp,&
883  1.42290016e-01_fp, 1.43453214e-01_fp, 1.44600424e-01_fp, 1.45721631e-01_fp, 1.46822057e-01_fp,&
884  1.47907643e-01_fp, 1.48978677e-01_fp, 1.50035439e-01_fp, 1.51078199e-01_fp, 1.52107220e-01_fp,&
885  1.53122757e-01_fp /
886  DATA level_absorber(:,ch4,subarctic_winter) / &
887  1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp,&
888  1.55069153e-01_fp, 1.67676017e-01_fp, 1.90682027e-01_fp, 2.30495504e-01_fp, 2.79166399e-01_fp,&
889  3.31746928e-01_fp, 3.86884549e-01_fp, 4.41306475e-01_fp, 4.87840601e-01_fp, 5.29545878e-01_fp,&
890  5.63825555e-01_fp, 5.94823817e-01_fp, 6.20252912e-01_fp, 6.44276841e-01_fp, 6.65135395e-01_fp,&
891  6.85006552e-01_fp, 7.03873196e-01_fp, 7.21827104e-01_fp, 7.39028258e-01_fp, 7.55478495e-01_fp,&
892  7.71257609e-01_fp, 7.86442117e-01_fp, 8.08616151e-01_fp, 8.44138889e-01_fp, 8.79243617e-01_fp,&
893  9.13830688e-01_fp, 9.48239458e-01_fp, 9.82854212e-01_fp, 1.01738566e+00_fp, 1.05728437e+00_fp,&
894  1.09726582e+00_fp, 1.13879831e+00_fp, 1.17731675e+00_fp, 1.21257869e+00_fp, 1.24474140e+00_fp,&
895  1.27389715e+00_fp, 1.30069819e+00_fp, 1.32477401e+00_fp, 1.34768553e+00_fp, 1.36850120e+00_fp,&
896  1.38882736e+00_fp, 1.40775479e+00_fp, 1.42624501e+00_fp, 1.44252537e+00_fp, 1.45712809e+00_fp,&
897  1.47139389e+00_fp, 1.48463031e+00_fp, 1.49759055e+00_fp, 1.51038528e+00_fp, 1.52311484e+00_fp,&
898  1.53559060e+00_fp, 1.54800344e+00_fp, 1.56037255e+00_fp, 1.57250529e+00_fp, 1.58425840e+00_fp,&
899  1.59561505e+00_fp, 1.60676311e+00_fp, 1.61605729e+00_fp, 1.62025280e+00_fp, 1.62437407e+00_fp,&
900  1.62842328e+00_fp, 1.63398538e+00_fp, 1.63971615e+00_fp, 1.64535007e+00_fp, 1.65124152e+00_fp,&
901  1.65770358e+00_fp, 1.66405987e+00_fp, 1.67031317e+00_fp, 1.67499439e+00_fp, 1.67905421e+00_fp,&
902  1.68305015e+00_fp, 1.68698382e+00_fp, 1.68964508e+00_fp, 1.69226060e+00_fp, 1.69483644e+00_fp,&
903  1.69711498e+00_fp, 1.69788427e+00_fp, 1.69864218e+00_fp, 1.69938897e+00_fp, 1.70000000e+00_fp,&
904  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
905  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
906  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
907  1.70000000e+00_fp /
908 
909  DATA level_absorber(:,h2o,us_standard_atmosphere) / &
910  8.86997040e-04_fp, 1.52427987e-03_fp, 2.01101378e-03_fp, 2.40599752e-03_fp, 2.72437587e-03_fp, &
911  2.96236227e-03_fp, 3.10396312e-03_fp, 3.19368814e-03_fp, 3.23610094e-03_fp, 3.25981037e-03_fp, &
912  3.25671227e-03_fp, 3.23196162e-03_fp, 3.19285497e-03_fp, 3.13971111e-03_fp, 3.10625749e-03_fp, &
913  3.08100578e-03_fp, 3.06248483e-03_fp, 3.04448043e-03_fp, 3.02081059e-03_fp, 2.99803553e-03_fp, &
914  2.97440450e-03_fp, 2.95184624e-03_fp, 2.92511340e-03_fp, 2.89196774e-03_fp, 2.86016092e-03_fp, &
915  2.82977471e-03_fp, 2.80069281e-03_fp, 2.77267144e-03_fp, 2.73864263e-03_fp, 2.68478764e-03_fp, &
916  2.64118787e-03_fp, 2.59714199e-03_fp, 2.54483821e-03_fp, 2.50568261e-03_fp, 2.47311126e-03_fp, &
917  2.44672175e-03_fp, 2.42271064e-03_fp, 2.40621873e-03_fp, 2.39238370e-03_fp, 2.38458004e-03_fp, &
918  2.38110201e-03_fp, 2.38850647e-03_fp, 2.39914434e-03_fp, 2.42737549e-03_fp, 2.45492999e-03_fp, &
919  2.71901083e-03_fp, 2.99417069e-03_fp, 3.24509817e-03_fp, 3.47714919e-03_fp, 3.78040842e-03_fp, &
920  4.95999293e-03_fp, 6.11455674e-03_fp, 7.57663188e-03_fp, 9.42311177e-03_fp, 1.12322375e-02_fp, &
921  1.42466434e-02_fp, 1.78602949e-02_fp, 2.14039606e-02_fp, 2.73154771e-02_fp, 3.41753036e-02_fp, &
922  4.09074844e-02_fp, 5.42724979e-02_fp, 7.17133280e-02_fp, 8.88417820e-02_fp, 1.15945509e-01_fp, &
923  1.56046471e-01_fp, 1.95454032e-01_fp, 2.34255117e-01_fp, 2.72750760e-01_fp, 3.10602956e-01_fp, &
924  3.47828689e-01_fp, 4.06535547e-01_fp, 4.70306893e-01_fp, 5.33055556e-01_fp, 6.01901014e-01_fp, &
925  6.85096335e-01_fp, 7.66994753e-01_fp, 8.47628708e-01_fp, 9.65099457e-01_fp, 1.09450413e+00_fp, &
926  1.22196301e+00_fp, 1.34952968e+00_fp, 1.52006224e+00_fp, 1.68809431e+00_fp, 1.85367915e+00_fp, &
927  2.03383153e+00_fp, 2.26692831e+00_fp, 2.49671002e+00_fp, 2.72324444e+00_fp, 2.94770972e+00_fp, &
928  3.17163654e+00_fp, 3.39246541e+00_fp, 3.61025923e+00_fp, 3.83453885e+00_fp, 4.08727861e+00_fp, &
929  4.33660869e+00_fp, 4.58259770e+00_fp, 4.82530792e+00_fp, 5.06480362e+00_fp, 5.30114363e+00_fp, &
930  5.53438577e+00_fp /
931  DATA level_absorber(:,o3,us_standard_atmosphere) / &
932  4.73303997e-01_fp, 2.74146902e-01_fp, 2.80243651e-01_fp, 5.10480276e-01_fp, 8.31073636e-01_fp, &
933  1.12571713e+00_fp, 1.58104620e+00_fp, 2.16173433e+00_fp, 2.87091990e+00_fp, 3.74371439e+00_fp, &
934  4.73885897e+00_fp, 5.61330664e+00_fp, 6.34570524e+00_fp, 7.09761422e+00_fp, 7.50525354e+00_fp, &
935  7.77591671e+00_fp, 7.81936233e+00_fp, 7.80536994e+00_fp, 7.56992926e+00_fp, 7.33375237e+00_fp, &
936  7.02220367e+00_fp, 6.72479815e+00_fp, 6.44285088e+00_fp, 6.17639446e+00_fp, 5.92070090e+00_fp, &
937  5.68739719e+00_fp, 5.47387081e+00_fp, 5.26813104e+00_fp, 5.03222902e+00_fp, 4.69211312e+00_fp, &
938  4.38133099e+00_fp, 4.07406867e+00_fp, 3.74952993e+00_fp, 3.39674005e+00_fp, 3.03656514e+00_fp, &
939  2.78144823e+00_fp, 2.52642430e+00_fp, 2.23528370e+00_fp, 1.96713487e+00_fp, 1.74480839e+00_fp, &
940  1.53398068e+00_fp, 1.34350343e+00_fp, 1.16379657e+00_fp, 1.01995634e+00_fp, 8.79563704e-01_fp, &
941  7.81925294e-01_fp, 6.89400605e-01_fp, 6.15902146e-01_fp, 5.56537854e-01_fp, 4.99365854e-01_fp, &
942  4.53753714e-01_fp, 4.09109075e-01_fp, 3.72418996e-01_fp, 3.45262678e-01_fp, 3.18655731e-01_fp, &
943  2.88188006e-01_fp, 2.55989671e-01_fp, 2.24414924e-01_fp, 1.95655516e-01_fp, 1.68400469e-01_fp, &
944  1.41652577e-01_fp, 1.23541576e-01_fp, 1.10965251e-01_fp, 9.86141761e-02_fp, 8.73600481e-02_fp, &
945  7.74538294e-02_fp, 6.77189026e-02_fp, 5.91969666e-02_fp, 5.63118453e-02_fp, 5.34749481e-02_fp, &
946  5.06850024e-02_fp, 4.80182173e-02_fp, 4.54157757e-02_fp, 4.28550687e-02_fp, 4.08112252e-02_fp, &
947  3.98355325e-02_fp, 3.88750495e-02_fp, 3.79293958e-02_fp, 3.69055940e-02_fp, 3.58639488e-02_fp, &
948  3.48379664e-02_fp, 3.38620749e-02_fp, 3.36773243e-02_fp, 3.34952826e-02_fp, 3.33158922e-02_fp, &
949  3.31308212e-02_fp, 3.29213219e-02_fp, 3.27148022e-02_fp, 3.25112010e-02_fp, 3.21398618e-02_fp, &
950  3.13748034e-02_fp, 3.06203294e-02_fp, 2.98762248e-02_fp, 2.91576054e-02_fp, 2.84997705e-02_fp, &
951  2.78508104e-02_fp, 2.72105464e-02_fp, 2.65788165e-02_fp, 2.59554534e-02_fp, 2.53403040e-02_fp, &
952  2.47332178e-02_fp /
953  DATA level_absorber(:,co2,us_standard_atmosphere) / &
954  3.74360000e+02_fp, 3.74361536e+02_fp, 3.74363355e+02_fp, 3.74366645e+02_fp, 3.74372000e+02_fp,&
955  3.74380012e+02_fp, 3.74391000e+02_fp, 3.74404976e+02_fp, 3.74427783e+02_fp, 3.74467018e+02_fp,&
956  3.74521289e+02_fp, 3.74580048e+02_fp, 3.74628801e+02_fp, 3.74664910e+02_fp, 3.74699114e+02_fp,&
957  3.74739482e+02_fp, 3.74792946e+02_fp, 3.74861608e+02_fp, 3.74938271e+02_fp, 3.75015741e+02_fp,&
958  3.75084934e+02_fp, 3.75140614e+02_fp, 3.75186705e+02_fp, 3.75224301e+02_fp, 3.75257801e+02_fp,&
959  3.75293898e+02_fp, 3.75341078e+02_fp, 3.75402006e+02_fp, 3.75483301e+02_fp, 3.75585596e+02_fp,&
960  3.75708307e+02_fp, 3.75851657e+02_fp, 3.76012795e+02_fp, 3.76192873e+02_fp, 3.76383982e+02_fp,&
961  3.76585651e+02_fp, 3.76809813e+02_fp, 3.77081169e+02_fp, 3.77391271e+02_fp, 3.77732795e+02_fp,&
962  3.78108482e+02_fp, 3.78481072e+02_fp, 3.78820139e+02_fp, 3.79146343e+02_fp, 3.79424024e+02_fp,&
963  3.79651892e+02_fp, 3.79872699e+02_fp, 3.80073036e+02_fp, 3.80265614e+02_fp, 3.80453361e+02_fp,&
964  3.80639313e+02_fp, 3.80813470e+02_fp, 3.80970199e+02_fp, 3.81124934e+02_fp, 3.81280663e+02_fp,&
965  3.81437259e+02_fp, 3.81594518e+02_fp, 3.81753006e+02_fp, 3.81910795e+02_fp, 3.82065175e+02_fp,&
966  3.82213512e+02_fp, 3.82349223e+02_fp, 3.82473964e+02_fp, 3.82577331e+02_fp, 3.82656946e+02_fp,&
967  3.82723325e+02_fp, 3.82777620e+02_fp, 3.82823139e+02_fp, 3.82861807e+02_fp, 3.82896325e+02_fp,&
968  3.82929211e+02_fp, 3.82963229e+02_fp, 3.83001367e+02_fp, 3.83044151e+02_fp, 3.83086855e+02_fp,&
969  3.83128253e+02_fp, 3.83164506e+02_fp, 3.83194127e+02_fp, 3.83218072e+02_fp, 3.83237331e+02_fp,&
970  3.83252313e+02_fp, 3.83264940e+02_fp, 3.83277627e+02_fp, 3.83291488e+02_fp, 3.83308524e+02_fp,&
971  3.83328380e+02_fp, 3.83347090e+02_fp, 3.83365096e+02_fp, 3.83394620e+02_fp, 3.83444994e+02_fp,&
972  3.83510928e+02_fp, 3.83581313e+02_fp, 3.83656398e+02_fp, 3.83737054e+02_fp, 3.83815572e+02_fp,&
973  3.83884500e+02_fp, 3.83941349e+02_fp, 3.83985090e+02_fp, 3.84014928e+02_fp, 3.84031542e+02_fp,&
974  3.84037247e+02_fp /
975  DATA level_absorber(:,n2o,us_standard_atmosphere) / &
976  5.89486325e-04_fp, 7.99946346e-04_fp, 1.04611880e-03_fp, 1.33724706e-03_fp, 1.68957918e-03_fp,&
977  2.09942616e-03_fp, 2.70755658e-03_fp, 3.48736380e-03_fp, 4.44336017e-03_fp, 7.72942738e-03_fp,&
978  1.30073625e-02_fp, 2.03461663e-02_fp, 2.98432661e-02_fp, 4.18880873e-02_fp, 5.40792692e-02_fp,&
979  6.58805180e-02_fp, 8.04411489e-02_fp, 9.43692730e-02_fp, 1.06420058e-01_fp, 1.17701210e-01_fp,&
980  1.27237718e-01_fp, 1.36341497e-01_fp, 1.44126168e-01_fp, 1.50236934e-01_fp, 1.56100816e-01_fp,&
981  1.61635299e-01_fp, 1.66872091e-01_fp, 1.71917921e-01_fp, 1.77678822e-01_fp, 1.85921925e-01_fp,&
982  1.92424046e-01_fp, 1.98214388e-01_fp, 2.03446973e-01_fp, 2.10881540e-01_fp, 2.19202070e-01_fp,&
983  2.28789801e-01_fp, 2.38051329e-01_fp, 2.46642502e-01_fp, 2.54743418e-01_fp, 2.61970292e-01_fp,&
984  2.68584503e-01_fp, 2.73917915e-01_fp, 2.78988261e-01_fp, 2.83254910e-01_fp, 2.87419312e-01_fp,&
985  2.90390197e-01_fp, 2.93213136e-01_fp, 2.95690079e-01_fp, 2.97903682e-01_fp, 3.00050400e-01_fp,&
986  3.01938057e-01_fp, 3.03785697e-01_fp, 3.05562317e-01_fp, 3.07261854e-01_fp, 3.08926999e-01_fp,&
987  3.10513780e-01_fp, 3.12045420e-01_fp, 3.13547383e-01_fp, 3.14897771e-01_fp, 3.16169239e-01_fp,&
988  3.17417050e-01_fp, 3.18213314e-01_fp, 3.18721192e-01_fp, 3.19219973e-01_fp, 3.19567457e-01_fp,&
989  3.19722145e-01_fp, 3.19874159e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
990  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
991  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
992  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
993  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
994  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
995  3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp, 3.20000000e-01_fp,&
996  3.20000000e-01_fp /
997  DATA level_absorber(:,co,us_standard_atmosphere) / &
998  3.00647777e+00_fp, 1.05484796e+00_fp, 4.37113095e-01_fp, 2.42958176e-01_fp, 1.60383696e-01_fp,&
999  1.05793717e-01_fp, 7.91855724e-02_fp, 6.07096526e-02_fp, 4.95672747e-02_fp, 4.03060655e-02_fp,&
1000  3.45252104e-02_fp, 3.08152747e-02_fp, 2.78069818e-02_fp, 2.55716490e-02_fp, 2.38328681e-02_fp,&
1001  2.23333516e-02_fp, 2.10958744e-02_fp, 1.99815939e-02_fp, 1.91748256e-02_fp, 1.84330003e-02_fp,&
1002  1.79010834e-02_fp, 1.73933030e-02_fp, 1.69355053e-02_fp, 1.65375950e-02_fp, 1.61557609e-02_fp,&
1003  1.58112322e-02_fp, 1.54995184e-02_fp, 1.51991714e-02_fp, 1.48088029e-02_fp, 1.41299591e-02_fp,&
1004  1.35022431e-02_fp, 1.29347868e-02_fp, 1.24675917e-02_fp, 1.23200000e-02_fp, 1.23200000e-02_fp,&
1005  1.28636200e-02_fp, 1.35187590e-02_fp, 1.46748552e-02_fp, 1.60817398e-02_fp, 1.81745222e-02_fp,&
1006  2.03532098e-02_fp, 2.28437230e-02_fp, 2.53146716e-02_fp, 2.79472850e-02_fp, 3.05168094e-02_fp,&
1007  3.41912717e-02_fp, 3.78653057e-02_fp, 4.19526285e-02_fp, 4.63154386e-02_fp, 5.06640593e-02_fp,&
1008  5.58608944e-02_fp, 6.09475620e-02_fp, 6.60756108e-02_fp, 7.12827006e-02_fp, 7.63844225e-02_fp,&
1009  8.07307713e-02_fp, 8.46449614e-02_fp, 8.84833111e-02_fp, 9.19373730e-02_fp, 9.51910260e-02_fp,&
1010  9.83841442e-02_fp, 1.01535134e-01_fp, 1.04639536e-01_fp, 1.07688333e-01_fp, 1.10627726e-01_fp,&
1011  1.13443039e-01_fp, 1.16209689e-01_fp, 1.18799981e-01_fp, 1.20669129e-01_fp, 1.22507030e-01_fp,&
1012  1.24314531e-01_fp, 1.25646968e-01_fp, 1.26836493e-01_fp, 1.28006938e-01_fp, 1.28934641e-01_fp,&
1013  1.29360087e-01_fp, 1.29778903e-01_fp, 1.30191251e-01_fp, 1.30482931e-01_fp, 1.30728989e-01_fp,&
1014  1.30971346e-01_fp, 1.31242494e-01_fp, 1.32233190e-01_fp, 1.33209351e-01_fp, 1.34171304e-01_fp,&
1015  1.35203575e-01_fp, 1.36496783e-01_fp, 1.37771591e-01_fp, 1.39028391e-01_fp, 1.40283563e-01_fp,&
1016  1.41558660e-01_fp, 1.42816117e-01_fp, 1.44056291e-01_fp, 1.45281170e-01_fp, 1.46494885e-01_fp,&
1017  1.47692233e-01_fp, 1.48873531e-01_fp, 1.50039087e-01_fp, 1.51189201e-01_fp, 1.52324160e-01_fp,&
1018  1.53444248e-01_fp /
1019  DATA level_absorber(:,ch4,us_standard_atmosphere) / &
1020  1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp, 1.50000000e-01_fp,&
1021  1.50552291e-01_fp, 1.60308394e-01_fp, 1.77517906e-01_fp, 2.02072607e-01_fp, 2.53316226e-01_fp,&
1022  3.24972887e-01_fp, 4.00692685e-01_fp, 4.74959957e-01_fp, 5.44959372e-01_fp, 6.04030660e-01_fp,&
1023  6.57082145e-01_fp, 7.05860369e-01_fp, 7.51727113e-01_fp, 7.94348838e-01_fp, 8.34000842e-01_fp,&
1024  8.65763874e-01_fp, 8.96085623e-01_fp, 9.24380276e-01_fp, 9.50457613e-01_fp, 9.75481387e-01_fp,&
1025  9.98476211e-01_fp, 1.01967275e+00_fp, 1.04009635e+00_fp, 1.06600553e+00_fp, 1.10964549e+00_fp,&
1026  1.15707124e+00_fp, 1.20560302e+00_fp, 1.25606009e+00_fp, 1.30555719e+00_fp, 1.35385117e+00_fp,&
1027  1.39288867e+00_fp, 1.42936262e+00_fp, 1.45906050e+00_fp, 1.48581806e+00_fp, 1.50639458e+00_fp,&
1028  1.52524144e+00_fp, 1.54047976e+00_fp, 1.55512336e+00_fp, 1.56828642e+00_fp, 1.58113405e+00_fp,&
1029  1.59123501e+00_fp, 1.60092569e+00_fp, 1.60992576e+00_fp, 1.61837769e+00_fp, 1.62658318e+00_fp,&
1030  1.63390267e+00_fp, 1.64106699e+00_fp, 1.64775732e+00_fp, 1.65390458e+00_fp, 1.65992744e+00_fp,&
1031  1.66492870e+00_fp, 1.66935343e+00_fp, 1.67369244e+00_fp, 1.67730198e+00_fp, 1.68056215e+00_fp,&
1032  1.68376167e+00_fp, 1.68656657e+00_fp, 1.68910596e+00_fp, 1.69159986e+00_fp, 1.69353966e+00_fp,&
1033  1.69477716e+00_fp, 1.69599327e+00_fp, 1.69709677e+00_fp, 1.69769972e+00_fp, 1.69829259e+00_fp,&
1034  1.69887566e+00_fp, 1.69923097e+00_fp, 1.69952110e+00_fp, 1.69980657e+00_fp, 1.70000000e+00_fp,&
1035  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
1036  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
1037  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
1038  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
1039  1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp, 1.70000000e+00_fp,&
1040  1.70000000e+00_fp /
1041 
1042 
1043 CONTAINS
1044 
1045 
1046 !--------------------------------------------------------------------------------
1047 !:sdoc+:
1048 !
1049 ! NAME:
1050 ! CRTM_Get_Model_Profile
1051 !
1052 ! PURPOSE:
1053 ! Subroutine to retrieve climatological model profile levels for
1054 ! supplementing a user input profile for use in the CRTM.
1055 !
1056 ! Currently the only absorbers available are water vapour and ozone.
1057 !
1058 ! CALLING SEQUENCE:
1059 ! CALL CRTM_Get_Model_Profile( Absorber_Id, &
1060 ! Pressure , &
1061 ! Temperature, &
1062 ! Absorber , &
1063 ! Model=Model )
1064 !
1065 !
1066 ! INPUTS:
1067 ! Absorber_Id: Integer array containing the absorber id's.
1068 ! UNITS: N/A
1069 ! TYPE: INTEGER
1070 ! DIMENSION: Rank-1 (J)
1071 ! ATTRIBUTES: INTENT(IN)
1072 !
1073 ! OUTPUTS:
1074 ! Pressure: Model profile pressure levels.
1075 ! UNITS: hectoPascals
1076 ! TYPE: REAL(fp)
1077 ! DIMENSION: Rank-1 (0:)
1078 ! ATTRIBUTES: INTENT(OUT)
1079 !
1080 ! Temperature: Model profile level temperatures.
1081 ! UNITS: Kelvin
1082 ! TYPE: REAL(fp)
1083 ! DIMENSION: Rank-1 (0:)
1084 ! ATTRIBUTES: INTENT(OUT)
1085 !
1086 ! Absorber: Model profile level absorber amounts.
1087 ! Note that the number and order of the absorbers will
1088 ! change in the future.
1089 ! UNITS: g/kg (H2O) and ppmv (everything else)
1090 ! TYPE: REAL(fp)
1091 ! DIMENSION: Rank-2 (0:,J)
1092 ! ATTRIBUTES: INTENT(OUT)
1093 !
1094 ! OPTIONAL INPUTS:
1095 ! Model: Integer flag defining the climatological profile
1096 ! to retrieve. Valid values are:
1097 ! 1: Tropical
1098 ! 2: Midlatitude summer
1099 ! 3: Midlatitude winter
1100 ! 4: Subarctic summer
1101 ! 5: Subarctic winter
1102 ! 6: U.S. Standard Atmosphere (DEFAULT)
1103 ! If no model is specified, or if an invalid model
1104 ! is specified, the U.S. Standard Atmosphere model
1105 ! is used.
1106 ! UNITS: N/A
1107 ! TYPE: INTEGER
1108 ! DIMENSION: Scalar
1109 ! ATTRIBUTES: INTENT(IN), OPTIONAL
1110 !
1111 ! COMMENTS:
1112 ! - The model profiles are specified at the AIRS 101 pressure levels. If
1113 ! the output arguments are larger than this, only the 101 defined
1114 ! levels are filled with profile data.
1115 ! - Currently the only absorbers available are water vapour and ozone.
1116 !
1117 !:sdoc-:
1118 !--------------------------------------------------------------------------------
1119 
1120  SUBROUTINE crtm_get_model_profile( absorber_id, p, t, a, Model )
1121  ! Arguments
1122  INTEGER , INTENT(IN) :: absorber_id(:)
1123  REAL(fp), INTENT(OUT) :: p(0:), t(0:), a(0:,:)
1124  INTEGER , OPTIONAL, INTENT(IN) :: model
1125  ! Local Variables
1126  INTEGER :: i, j, k
1127 
1128  ! Use US Std Atm if passed model is invalid
1129  i = us_standard_atmosphere
1130  IF ( PRESENT(model) ) THEN
1131  i = model
1132  IF ( i < 1 .OR. i > n_models ) i = us_standard_atmosphere
1133  END IF
1134 
1135  ! Get the requireds number of levels
1136  k = min(SIZE(p)-1,n_model_layers)
1137  p = model_level_pressure(0:k)
1138  t = level_temperature(0:k,i)
1139  DO j = 1, SIZE(absorber_id)
1140  a(0:k,j) = level_absorber(0:k,absorber_id_map(absorber_id(j)),i)
1141  END DO
1142 
1143  END SUBROUTINE crtm_get_model_profile
1144 
1145 END MODULE crtm_model_profiles
crtm_model_profiles::co2
integer, parameter co2
Definition: CRTM_Model_Profiles.f90:60
crtm_model_profiles::ch4_id
integer, parameter ch4_id
Definition: CRTM_Model_Profiles.f90:71
crtm_model_profiles::o3
integer, parameter o3
Definition: CRTM_Model_Profiles.f90:59
crtm_atmosphere_define::n_valid_climatology_models
integer, parameter, public n_valid_climatology_models
Definition: CRTM_Atmosphere_Define.f90:332
crtm_model_profiles::module_rcs_id
character(*), parameter module_rcs_id
Definition: CRTM_Model_Profiles.f90:49
crtm_model_profiles::h2o
integer, parameter h2o
Definition: CRTM_Model_Profiles.f90:58
type_kinds::fp
integer, parameter, public fp
Definition: Type_Kinds.f90:124
crtm_model_profiles::o3_id
integer, parameter o3_id
Definition: CRTM_Model_Profiles.f90:68
crtm_model_profiles::absorber_id_map
integer, dimension(n_model_absorbers), parameter absorber_id_map
Definition: CRTM_Model_Profiles.f90:75
crtm_model_profiles::ch4
integer, parameter ch4
Definition: CRTM_Model_Profiles.f90:63
crtm_model_profiles::n_model_absorbers
integer, parameter n_model_absorbers
Definition: CRTM_Model_Profiles.f90:55
crtm_model_profiles::n_model_layers
integer, parameter n_model_layers
Definition: CRTM_Model_Profiles.f90:54
crtm_model_profiles::n2o
integer, parameter n2o
Definition: CRTM_Model_Profiles.f90:61
crtm_atmosphere_define::tropical
integer, parameter, public tropical
Definition: CRTM_Atmosphere_Define.f90:334
crtm_model_profiles::h2o_id
integer, parameter h2o_id
Definition: CRTM_Model_Profiles.f90:66
crtm_atmosphere_define::us_standard_atmosphere
integer, parameter, public us_standard_atmosphere
Definition: CRTM_Atmosphere_Define.f90:339
crtm_atmosphere_define::subarctic_winter
integer, parameter, public subarctic_winter
Definition: CRTM_Atmosphere_Define.f90:338
crtm_atmosphere_define::midlatitude_winter
integer, parameter, public midlatitude_winter
Definition: CRTM_Atmosphere_Define.f90:336
crtm_atmosphere_define::subarctic_summer
integer, parameter, public subarctic_summer
Definition: CRTM_Atmosphere_Define.f90:337
crtm_model_profiles::level_temperature
real(fp), dimension(0:n_model_layers, n_models), save level_temperature
Definition: CRTM_Model_Profiles.f90:109
crtm_model_profiles::co
integer, parameter co
Definition: CRTM_Model_Profiles.f90:62
crtm_model_profiles::level_absorber
real(fp), dimension(0:n_model_layers, n_model_absorbers, n_models), save level_absorber
Definition: CRTM_Model_Profiles.f90:243
crtm_model_profiles::co_id
integer, parameter co_id
Definition: CRTM_Model_Profiles.f90:70
type_kinds
Definition: Type_Kinds.f90:12
crtm_model_profiles
Definition: CRTM_Model_Profiles.f90:17
crtm_model_profiles::n_model_levels
integer, parameter n_model_levels
Definition: CRTM_Model_Profiles.f90:53
crtm_model_profiles::n2o_id
integer, parameter n2o_id
Definition: CRTM_Model_Profiles.f90:69
crtm_model_profiles::model_level_pressure
real(fp), dimension(0:n_model_layers), parameter, public model_level_pressure
Definition: CRTM_Model_Profiles.f90:82
crtm_atmosphere_define::midlatitude_summer
integer, parameter, public midlatitude_summer
Definition: CRTM_Atmosphere_Define.f90:335
min
#define min(a, b)
Definition: mosaic_util.h:32
crtm_model_profiles::co2_id
integer, parameter co2_id
Definition: CRTM_Model_Profiles.f90:67
crtm_atmosphere_define
Definition: CRTM_Atmosphere_Define.f90:13
crtm_model_profiles::crtm_get_model_profile
subroutine, public crtm_get_model_profile(absorber_id, p, t, a, Model)
Definition: CRTM_Model_Profiles.f90:1121