77 use physparam
, only : kind_phys
84 real (kind=kind_phys),
dimension(59) ::
preflog, tref
183 use physparam
, only : kind_phys
196 real (kind=kind_phys),
dimension(58,nblow:nbhgh),
public :: &
199 real (kind=kind_phys),
dimension(58,nblow:nbhgh),
public :: &
202 real (kind=kind_phys),
dimension(58,nblow:nbhgh),
public :: &
206 real (kind=kind_phys),
dimension(43,nblow:nbhgh),
public :: &
209 real (kind=kind_phys),
dimension(43,nblow:nbhgh),
public :: &
212 real (kind=kind_phys),
dimension(43,nblow:nbhgh),
public :: &
216 real (kind=kind_phys),
dimension(46,nblow:nbhgh),
public :: &
219 real (kind=kind_phys),
dimension(46,nblow:nbhgh),
public :: &
222 real (kind=kind_phys),
dimension(46,nblow:nbhgh),
public :: &
225 real (kind=kind_phys),
dimension(46,nblow:nbhgh),
public :: &
230 real (kind=kind_phys),
dimension(5),
public :: &
231 & abari, bbari, cbari, dbari, ebari, fbari
235 data abari(:)/ 3.448e-03,3.448e-03,3.448e-03,3.448e-03,3.448e-03 /
236 data bbari(:)/ 2.431e+00,2.431e+00,2.431e+00,2.431e+00,2.431e+00 /
237 data cbari(:)/ 1.000e-05,1.100e-04,1.240e-02,3.779e-02,4.666e-01 /
238 data dbari(:)/ 0.000e+00,1.405e-05,6.867e-04,1.284e-03,2.050e-05 /
239 data ebari(:)/ 7.661e-01,7.730e-01,7.865e-01,8.172e-01,9.595e-01 /
240 data fbari(:)/ 5.851e-04,5.665e-04,7.204e-04,7.463e-04,1.076e-04 /
243 data extliq1(:, 16) /
256 data extliq1(:, 17) /
269 data extliq1(:, 18) /
282 data extliq1(:, 19) /
295 data extliq1(:, 20) /
308 data extliq1(:, 21) /
321 data extliq1(:, 22) /
334 data extliq1(:, 23) /
347 data extliq1(:, 24) /
360 data extliq1(:, 25) /
373 data extliq1(:, 26) /
386 data extliq1(:, 27) /
399 data extliq1(:, 28) /
412 data extliq1(:, 29) /
427 data ssaliq1(:, 16) /
440 data ssaliq1(:, 17) /
453 data ssaliq1(:, 18) /
466 data ssaliq1(:, 19) /
479 data ssaliq1(:, 20) /
492 data ssaliq1(:, 21) /
505 data ssaliq1(:, 22) /
518 data ssaliq1(:, 23) /
531 data ssaliq1(:, 24) /
544 data ssaliq1(:, 25) /
557 data ssaliq1(:, 26) /
570 data ssaliq1(:, 27) /
583 data ssaliq1(:, 28) /
596 data ssaliq1(:, 29) /
611 data asyliq1(:, 16) /
624 data asyliq1(:, 17) /
637 data asyliq1(:, 18) /
650 data asyliq1(:, 19) /
663 data asyliq1(:, 20) /
676 data asyliq1(:, 21) /
689 data asyliq1(:, 22) /
702 data asyliq1(:, 23) /
715 data asyliq1(:, 24) /
728 data asyliq1(:, 25) /
741 data asyliq1(:, 26) /
754 data asyliq1(:, 27) /
767 data asyliq1(:, 28) /
780 data asyliq1(:, 29) /
796 data extice2(:, 16) /
806 data extice2(:, 17) /
816 data extice2(:, 18) /
826 data extice2(:, 19) /
836 data extice2(:, 20) /
846 data extice2(:, 21) /
856 data extice2(:, 22) /
866 data extice2(:, 23) /
876 data extice2(:, 24) /
886 data extice2(:, 25) /
896 data extice2(:, 26) /
906 data extice2(:, 27) /
916 data extice2(:, 28) /
926 data extice2(:, 29) /
938 data ssaice2(:, 16) /
948 data ssaice2(:, 17) /
958 data ssaice2(:, 18) /
968 data ssaice2(:, 19) /
978 data ssaice2(:, 20) /
988 data ssaice2(:, 21) /
998 data ssaice2(:, 22) /
1008 data ssaice2(:, 23) /
1018 data ssaice2(:, 24) /
1028 data ssaice2(:, 25) /
1038 data ssaice2(:, 26) /
1048 data ssaice2(:, 27) /
1058 data ssaice2(:, 28) /
1068 data ssaice2(:, 29) /
1080 data asyice2(:, 16) /
1090 data asyice2(:, 17) /
1100 data asyice2(:, 18) /
1110 data asyice2(:, 19) /
1120 data asyice2(:, 20) /
1130 data asyice2(:, 21) /
1140 data asyice2(:, 22) /
1150 data asyice2(:, 23) /
1160 data asyice2(:, 24) /
1170 data asyice2(:, 25) /
1180 data asyice2(:, 26) /
1190 data asyice2(:, 27) /
1200 data asyice2(:, 28) /
1210 data asyice2(:, 29) /
1223 data extice3(:, 16) /
1234 data extice3(:, 17) /
1245 data extice3(:, 18) /
1256 data extice3(:, 19) /
1267 data extice3(:, 20) /
1278 data extice3(:, 21) /
1289 data extice3(:, 22) /
1300 data extice3(:, 23) /
1311 data extice3(:, 24) /
1322 data extice3(:, 25) /
1333 data extice3(:, 26) /
1344 data extice3(:, 27) /
1355 data extice3(:, 28) /
1366 data extice3(:, 29) /
1379 data ssaice3(:, 16) /
1390 data ssaice3(:, 17) /
1401 data ssaice3(:, 18) /
1412 data ssaice3(:, 19) /
1423 data ssaice3(:, 20) /
1434 data ssaice3(:, 21) /
1445 data ssaice3(:, 22) /
1456 data ssaice3(:, 23) /
1467 data ssaice3(:, 24) /
1478 data ssaice3(:, 25) /
1489 data ssaice3(:, 26) /
1500 data ssaice3(:, 27) /
1511 data ssaice3(:, 28) /
1522 data ssaice3(:, 29) /
1535 data asyice3(:, 16) /
1546 data asyice3(:, 17) /
1557 data asyice3(:, 18) /
1568 data asyice3(:, 19) /
1579 data asyice3(:, 20) /
1590 data asyice3(:, 21) /
1601 data asyice3(:, 22) /
1612 data asyice3(:, 23) /
1623 data asyice3(:, 24) /
1634 data asyice3(:, 25) /
1645 data asyice3(:, 26) /
1656 data asyice3(:, 27) /
1667 data asyice3(:, 28) /
1678 data asyice3(:, 29) /
1691 data fdlice3(:, 16) /
1702 data fdlice3(:, 17) /
1713 data fdlice3(:, 18) /
1724 data fdlice3(:, 19) /
1735 data fdlice3(:, 20) /
1746 data fdlice3(:, 21) /
1757 data fdlice3(:, 22) /
1768 data fdlice3(:, 23) /
1779 data fdlice3(:, 24) /
1790 data fdlice3(:, 25) /
1801 data fdlice3(:, 26) /
1812 data fdlice3(:, 27) /
1823 data fdlice3(:, 28) /
1834 data fdlice3(:, 29) /
1848 real (kind=kind_phys),
public :: a0r, a1r, a0s, a1s
1849 data a0r,a1r / 3.07e-3, 0.0 /, a0s,a1s / 0.0, 1.5 /
1851 real (kind=kind_phys),
dimension(nblow:nbhgh),
public :: &
1852 & b0r, b0s, b1s, c0r, c0s
1853 data b0r / 0.466, 0.437, 0.416, 0.391, 0.374, 0.352, 0.183, &
1854 & 0.048, 0.012, 0.000, 0.000, 0.000, 0.000, 0.496 /
1855 data c0r / 0.975, 0.965, 0.960, 0.955, 0.952, 0.950, 0.944, &
1856 & 0.894, 0.884, 0.883, 0.883, 0.883, 0.883, 0.980 /
1857 data b0s / 7*0.460, 2*0.000, 4*0.000, 0.460 /
1858 data b1s / 7*0.000, 2*1.62e-5, 4*0.000, 0.000 /
1859 data c0s / 7*0.970, 2*0.970, 4*0.700, 0.970 /
1887 use physparam
, only : kind_phys
1889 & ng20, ng21, ng22, ng23, ng24, &
1890 & ng25, ng26, ng27, ng28, ng29, &
1897 integer,
parameter :: mfs01 = 1
1898 integer,
parameter :: mfs02 = 5
1899 integer,
parameter :: mfs03 = 9
1900 integer,
parameter :: mfb01 = 7
1901 integer,
parameter :: mfb02 = 2
1902 integer,
parameter :: mfb03 = 5
1904 real (kind=kind_phys),
dimension(nblow:nbhgh),
public :: &
1912 data strrat / 2.52131e+2, 3.64641e-1, 3.89589e+1, 5.49281e+0,
1916 data specwt / 8.,4.,8.,8.,0.,8.,8.,0.,8.,0.,0.,0.,4.,0. /
1918 integer,
dimension(nblow:nbhgh),
public :: layreffr, ix1, ix2, ibx
1920 data layreffr/ 18,30, 6, 3, 3, 8, 2, 6, 1, 2, 0,32,58,49 /
1921 data ix1 / 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 3, 0 /
1922 data ix2 / 5, 2, 5, 2, 0, 2, 6, 0, 6, 0, 0, 0, 6, 0 /
1923 data ibx / 1, 1, 1, 2, 2, 3, 4, 3, 5, 4, 5, 6, 2, 7 /
1925 real (kind=kind_phys),
parameter,
public :: scalekur=50.15/48.37
1927 real (kind=kind_phys),
target,
public :: &
1928 & sfluxref01(NGMAX,MFS01,MFB01),
1934 data sfluxref01(:,:,1) / .36511300e+1,
1940 data sfluxref01(:,:,2) / .93408100e+1,
1946 data sfluxref01(:,:,3) / .10462440e+3,
1952 data sfluxref01(:,:,4) / .42685800e+2,
1958 data sfluxref01(:,:,5) / .29007900e+2,
1970 data sfluxref01(:,:,6) / .14052600e+2,
1976 data sfluxref01(:,:,7) / .13288000e+1,
1983 data sfluxref02(:,:,1) /
2002 data sfluxref02(:,:,2) /
2022 data sfluxref03(:,:,1) /
2054 data sfluxref03(:,:,2) /
2086 data sfluxref03(:,:,3) /
2118 data sfluxref03(:,:,4) /
2150 data sfluxref03(:,:,5) /
2207 use physparam
, only : kind_phys
2262 real (kind=kind_phys),
public :: forref(
mfr16,ng16)
2265 real (kind=kind_phys),
parameter,
public ::
rayl = 2.91e-10
2283 data absa( 1:180, 1) /
2321 data absa(181:315, 1) /
2350 data absa(316:450, 1) /
2379 data absa(451:585, 1) /
2408 data absa( 1:180, 2) /
2446 data absa(181:315, 2) /
2475 data absa(316:450, 2) /
2504 data absa(451:585, 2) /
2533 data absa( 1:180, 3) /
2571 data absa(181:315, 3) /
2600 data absa(316:450, 3) /
2629 data absa(451:585, 3) /
2658 data absa( 1:180, 4) /
2696 data absa(181:315, 4) /
2725 data absa(316:450, 4) /
2754 data absa(451:585, 4) /
2783 data absa( 1:180, 5) /
2821 data absa(181:315, 5) /
2850 data absa(316:450, 5) /
2879 data absa(451:585, 5) /
2908 data absa( 1:180, 6) /
2946 data absa(181:315, 6) /
2975 data absa(316:450, 6) /
3004 data absa(451:585, 6) /
3046 data absb( 1:120, 1) /
3072 data absb(121:235, 1) /
3097 data absb( 1:120, 2) /
3123 data absb(121:235, 2) /
3148 data absb( 1:120, 3) /
3174 data absb(121:235, 3) /
3199 data absb( 1:120, 4) /
3225 data absb(121:235, 4) /
3250 data absb( 1:120, 5) /
3276 data absb(121:235, 5) /
3301 data absb( 1:120, 6) /
3327 data absb(121:235, 6) /
3353 data forref(1:3,1: 6) / .6585271e-05,.9433300e-05,.7977931e-04,
3401 use physparam
, only : kind_phys
3456 real (kind=kind_phys),
public :: forref(
mfr17,ng17)
3459 real (kind=kind_phys),
parameter,
public ::
rayl = 6.86e-10
3461 data absa( 1:180, 1) /
3499 data absa(181:315, 1) /
3528 data absa(316:450, 1) /
3557 data absa(451:585, 1) /
3586 data absa( 1:180, 2) /
3624 data absa(181:315, 2) /
3653 data absa(316:450, 2) /
3682 data absa(451:585, 2) /
3711 data absa( 1:180, 3) /
3749 data absa(181:315, 3) /
3778 data absa(316:450, 3) /
3807 data absa(451:585, 3) /
3836 data absa( 1:180, 4) /
3874 data absa(181:315, 4) /
3903 data absa(316:450, 4) /
3932 data absa(451:585, 4) /
3961 data absa( 1:180, 5) /
3999 data absa(181:315, 5) /
4028 data absa(316:450, 5) /
4057 data absa(451:585, 5) /
4086 data absa( 1:180, 6) /
4124 data absa(181:315, 6) /
4153 data absa(316:450, 6) /
4182 data absa(451:585, 6) /
4211 data absa( 1:180, 7) /
4249 data absa(181:315, 7) /
4278 data absa(316:450, 7) /
4307 data absa(451:585, 7) /
4336 data absa( 1:180, 8) /
4374 data absa(181:315, 8) /
4403 data absa(316:450, 8) /
4432 data absa(451:585, 8) /
4461 data absa( 1:180, 9) /
4499 data absa(181:315, 9) /
4528 data absa(316:450, 9) /
4557 data absa(451:585, 9) /
4586 data absa( 1:180,10) /
4624 data absa(181:315,10) /
4653 data absa(316:450,10) /
4682 data absa(451:585,10) /
4711 data absa( 1:180,11) /
4749 data absa(181:315,11) /
4778 data absa(316:450,11) /
4807 data absa(451:585,11) /
4836 data absa( 1:180,12) /
4874 data absa(181:315,12) /
4903 data absa(316:450,12) /
4932 data absa(451:585,12) /
4962 data absb( 1:175, 1) /
4999 data absb(176:350, 1) /
5036 data absb(351:525, 1) /
5073 data absb(526:700, 1) /
5110 data absb(701:875, 1) /
5147 data absb(876:1050, 1) /
5184 data absb(1051:1175, 1) /
5211 data absb( 1:175, 2) /
5248 data absb(176:350, 2) /
5285 data absb(351:525, 2) /
5322 data absb(526:700, 2) /
5359 data absb(701:875, 2) /
5396 data absb(876:1050, 2) /
5433 data absb(1051:1175, 2) /
5460 data absb( 1:175, 3) /
5497 data absb(176:350, 3) /
5534 data absb(351:525, 3) /
5571 data absb(526:700, 3) /
5608 data absb(701:875, 3) /
5645 data absb(876:1050, 3) /
5682 data absb(1051:1175, 3) /
5709 data absb( 1:175, 4) /
5746 data absb(176:350, 4) /
5783 data absb(351:525, 4) /
5820 data absb(526:700, 4) /
5857 data absb(701:875, 4) /
5894 data absb(876:1050, 4) /
5931 data absb(1051:1175, 4) /
5958 data absb( 1:175, 5) /
5995 data absb(176:350, 5) /
6032 data absb(351:525, 5) /
6069 data absb(526:700, 5) /
6106 data absb(701:875, 5) /
6143 data absb(876:1050, 5) /
6180 data absb(1051:1175, 5) /
6207 data absb( 1:175, 6) /
6244 data absb(176:350, 6) /
6281 data absb(351:525, 6) /
6318 data absb(526:700, 6) /
6355 data absb(701:875, 6) /
6392 data absb(876:1050, 6) /
6429 data absb(1051:1175, 6) /
6456 data absb( 1:175, 7) /
6493 data absb(176:350, 7) /
6530 data absb(351:525, 7) /
6567 data absb(526:700, 7) /
6604 data absb(701:875, 7) /
6641 data absb(876:1050, 7) /
6678 data absb(1051:1175, 7) /
6705 data absb( 1:175, 8) /
6742 data absb(176:350, 8) /
6779 data absb(351:525, 8) /
6816 data absb(526:700, 8) /
6853 data absb(701:875, 8) /
6890 data absb(876:1050, 8) /
6927 data absb(1051:1175, 8) /
6954 data absb( 1:175, 9) /
6991 data absb(176:350, 9) /
7028 data absb(351:525, 9) /
7065 data absb(526:700, 9) /
7102 data absb(701:875, 9) /
7139 data absb(876:1050, 9) /
7176 data absb(1051:1175, 9) /
7203 data absb( 1:175,10) /
7240 data absb(176:350,10) /
7277 data absb(351:525,10) /
7314 data absb(526:700,10) /
7351 data absb(701:875,10) /
7388 data absb(876:1050,10) /
7425 data absb(1051:1175,10) /
7452 data absb( 1:175,11) /
7489 data absb(176:350,11) /
7526 data absb(351:525,11) /
7563 data absb(526:700,11) /
7600 data absb(701:875,11) /
7637 data absb(876:1050,11) /
7674 data absb(1051:1175,11) /
7701 data absb( 1:175,12) /
7738 data absb(176:350,12) /
7775 data absb(351:525,12) /
7812 data absb(526:700,12) /
7849 data absb(701:875,12) /
7886 data absb(876:1050,12) /
7923 data absb(1051:1175,12) /
7951 data forref(1:4,1:12) / .5532580e-03,.5554860e-03,.6013390e-03,
8011 use physparam
, only : kind_phys
8066 real (kind=kind_phys),
public :: forref(
mfr18,ng18)
8069 real (kind=kind_phys),
parameter,
public ::
rayl = 1.39e-09
8072 data absa( 1:180, 1) /
8110 data absa(181:315, 1) /
8139 data absa(316:450, 1) /
8168 data absa(451:585, 1) /
8197 data absa( 1:180, 2) /
8235 data absa(181:315, 2) /
8264 data absa(316:450, 2) /
8293 data absa(451:585, 2) /
8322 data absa( 1:180, 3) /
8360 data absa(181:315, 3) /
8389 data absa(316:450, 3) /
8418 data absa(451:585, 3) /
8447 data absa( 1:180, 4) /
8485 data absa(181:315, 4) /
8514 data absa(316:450, 4) /
8543 data absa(451:585, 4) /
8572 data absa( 1:180, 5) /
8610 data absa(181:315, 5) /
8639 data absa(316:450, 5) /
8668 data absa(451:585, 5) /
8697 data absa( 1:180, 6) /
8735 data absa(181:315, 6) /
8764 data absa(316:450, 6) /
8793 data absa(451:585, 6) /
8822 data absa( 1:180, 7) /
8860 data absa(181:315, 7) /
8889 data absa(316:450, 7) /
8918 data absa(451:585, 7) /
8947 data absa( 1:180, 8) /
8985 data absa(181:315, 8) /
9014 data absa(316:450, 8) /
9043 data absa(451:585, 8) /
9072 data absb( 1:120, 1) /
9098 data absb(121:235, 1) /
9123 data absb( 1:120, 2) /
9149 data absb(121:235, 2) /
9174 data absb( 1:120, 3) /
9200 data absb(121:235, 3) /
9225 data absb( 1:120, 4) /
9251 data absb(121:235, 4) /
9276 data absb( 1:120, 5) /
9302 data absb(121:235, 5) /
9327 data absb( 1:120, 6) /
9353 data absb(121:235, 6) /
9378 data absb( 1:120, 7) /
9404 data absb(121:235, 7) /
9429 data absb( 1:120, 8) /
9455 data absb(121:235, 8) /
9481 data forref(1:3,1: 8) /
9529 use physparam
, only : kind_phys
9584 real (kind=kind_phys),
public :: forref(
mfr19,ng19)
9587 real (kind=kind_phys),
parameter,
public ::
rayl = 2.29e-09
9589 data absa( 1:180, 1) /
9627 data absa(181:315, 1) /
9656 data absa(316:450, 1) /
9685 data absa(451:585, 1) /
9714 data absa( 1:180, 2) /
9752 data absa(181:315, 2) /
9781 data absa(316:450, 2) /
9810 data absa(451:585, 2) /
9839 data absa( 1:180, 3) /
9877 data absa(181:315, 3) /
9906 data absa(316:450, 3) /
9935 data absa(451:585, 3) /
9964 data absa( 1:180, 4) /
10002 data absa(181:315, 4) /
10031 data absa(316:450, 4) /
10060 data absa(451:585, 4) /
10089 data absa( 1:180, 5) /
10127 data absa(181:315, 5) /
10156 data absa(316:450, 5) /
10185 data absa(451:585, 5) /
10214 data absa( 1:180, 6) /
10252 data absa(181:315, 6) /
10281 data absa(316:450, 6) /
10310 data absa(451:585, 6) /
10339 data absa( 1:180, 7) /
10377 data absa(181:315, 7) /
10406 data absa(316:450, 7) /
10435 data absa(451:585, 7) /
10464 data absa( 1:180, 8) /
10502 data absa(181:315, 8) /
10531 data absa(316:450, 8) /
10560 data absa(451:585, 8) /
10590 data absb( 1:120, 1) /
10616 data absb(121:235, 1) /
10641 data absb( 1:120, 2) /
10667 data absb(121:235, 2) /
10692 data absb( 1:120, 3) /
10718 data absb(121:235, 3) /
10743 data absb( 1:120, 4) /
10769 data absb(121:235, 4) /
10794 data absb( 1:120, 5) /
10820 data absb(121:235, 5) /
10845 data absb( 1:120, 6) /
10871 data absb(121:235, 6) /
10896 data absb( 1:120, 7) /
10922 data absb(121:235, 7) /
10947 data absb( 1:120, 8) /
10973 data absb(121:235, 8) /
11000 data forref(1:3,1: 8) /
11049 use physparam
, only : kind_phys
11067 real (kind=kind_phys),
public :: forref(
mfr20,ng20)
11110 real (kind=kind_phys),
parameter,
public ::
rayl = 4.12e-09
11112 data absa( 1: 65, 1) /
11127 data absa( 1: 65, 2) /
11142 data absa( 1: 65, 3) /
11157 data absa( 1: 65, 4) /
11172 data absa( 1: 65, 5) /
11187 data absa( 1: 65, 6) /
11202 data absa( 1: 65, 7) /
11217 data absa( 1: 65, 8) /
11232 data absa( 1: 65, 9) /
11247 data absa( 1: 65,10) /
11262 data absb( 1:120, 1) /
11288 data absb(121:235, 1) /
11313 data absb( 1:120, 2) /
11339 data absb(121:235, 2) /
11364 data absb( 1:120, 3) /
11390 data absb(121:235, 3) /
11415 data absb( 1:120, 4) /
11441 data absb(121:235, 4) /
11466 data absb( 1:120, 5) /
11492 data absb(121:235, 5) /
11517 data absb( 1:120, 6) /
11543 data absb(121:235, 6) /
11568 data absb( 1:120, 7) /
11594 data absb(121:235, 7) /
11619 data absb( 1:120, 8) /
11645 data absb(121:235, 8) /
11670 data absb( 1:120, 9) /
11696 data absb(121:235, 9) /
11721 data absb( 1:120,10) /
11747 data absb(121:235,10) /
11773 data forref(1:4,1:10) /
11834 use physparam
, only : kind_phys
11852 real (kind=kind_phys),
public :: forref(
mfr21,ng21)
11892 real (kind=kind_phys),
parameter,
public ::
rayl = 9.41e-09
11895 data absa( 1:180, 1) /
11933 data absa(181:315, 1) /
11962 data absa(316:450, 1) /
11991 data absa(451:585, 1) /
12020 data absa( 1:180, 2) /
12058 data absa(181:315, 2) /
12087 data absa(316:450, 2) /
12116 data absa(451:585, 2) /
12145 data absa( 1:180, 3) /
12183 data absa(181:315, 3) /
12212 data absa(316:450, 3) /
12241 data absa(451:585, 3) /
12270 data absa( 1:180, 4) /
12308 data absa(181:315, 4) /
12337 data absa(316:450, 4) /
12366 data absa(451:585, 4) /
12395 data absa( 1:180, 5) /
12433 data absa(181:315, 5) /
12462 data absa(316:450, 5) /
12491 data absa(451:585, 5) /
12520 data absa( 1:180, 6) /
12558 data absa(181:315, 6) /
12587 data absa(316:450, 6) /
12616 data absa(451:585, 6) /
12645 data absa( 1:180, 7) /
12683 data absa(181:315, 7) /
12712 data absa(316:450, 7) /
12741 data absa(451:585, 7) /
12770 data absa( 1:180, 8) /
12808 data absa(181:315, 8) /
12837 data absa(316:450, 8) /
12866 data absa(451:585, 8) /
12895 data absa( 1:180, 9) /
12933 data absa(181:315, 9) /
12962 data absa(316:450, 9) /
12991 data absa(451:585, 9) /
13020 data absa( 1:180,10) /
13058 data absa(181:315,10) /
13087 data absa(316:450,10) /
13116 data absa(451:585,10) /
13146 data absb( 1:175, 1) /
13183 data absb(176:350, 1) /
13220 data absb(351:525, 1) /
13257 data absb(526:700, 1) /
13294 data absb(701:875, 1) /
13331 data absb(876:1050, 1) /
13368 data absb(1051:1175, 1) /
13395 data absb( 1:175, 2) /
13432 data absb(176:350, 2) /
13469 data absb(351:525, 2) /
13506 data absb(526:700, 2) /
13543 data absb(701:875, 2) /
13580 data absb(876:1050, 2) /
13617 data absb(1051:1175, 2) /
13644 data absb( 1:175, 3) /
13681 data absb(176:350, 3) /
13718 data absb(351:525, 3) /
13755 data absb(526:700, 3) /
13792 data absb(701:875, 3) /
13829 data absb(876:1050, 3) /
13866 data absb(1051:1175, 3) /
13893 data absb( 1:175, 4) /
13930 data absb(176:350, 4) /
13967 data absb(351:525, 4) /
14004 data absb(526:700, 4) /
14041 data absb(701:875, 4) /
14078 data absb(876:1050, 4) /
14115 data absb(1051:1175, 4) /
14142 data absb( 1:175, 5) /
14179 data absb(176:350, 5) /
14216 data absb(351:525, 5) /
14253 data absb(526:700, 5) /
14290 data absb(701:875, 5) /
14327 data absb(876:1050, 5) /
14364 data absb(1051:1175, 5) /
14391 data absb( 1:175, 6) /
14428 data absb(176:350, 6) /
14465 data absb(351:525, 6) /
14502 data absb(526:700, 6) /
14539 data absb(701:875, 6) /
14576 data absb(876:1050, 6) /
14613 data absb(1051:1175, 6) /
14640 data absb( 1:175, 7) /
14677 data absb(176:350, 7) /
14714 data absb(351:525, 7) /
14751 data absb(526:700, 7) /
14788 data absb(701:875, 7) /
14825 data absb(876:1050, 7) /
14862 data absb(1051:1175, 7) /
14889 data absb( 1:175, 8) /
14926 data absb(176:350, 8) /
14963 data absb(351:525, 8) /
15000 data absb(526:700, 8) /
15037 data absb(701:875, 8) /
15074 data absb(876:1050, 8) /
15111 data absb(1051:1175, 8) /
15138 data absb( 1:175, 9) /
15175 data absb(176:350, 9) /
15212 data absb(351:525, 9) /
15249 data absb(526:700, 9) /
15286 data absb(701:875, 9) /
15323 data absb(876:1050, 9) /
15360 data absb(1051:1175, 9) /
15387 data absb( 1:175,10) /
15424 data absb(176:350,10) /
15461 data absb(351:525,10) /
15498 data absb(526:700,10) /
15535 data absb(701:875,10) /
15572 data absb(876:1050,10) /
15609 data absb(1051:1175,10) /
15637 data forref(1:4,1:10) /
15692 use physparam
, only : kind_phys
15710 real (kind=kind_phys),
public :: forref(
mfr22,ng22)
15750 real (kind=kind_phys),
parameter,
public ::
rayl = 1.54e-08
15753 data absa( 1:180, 1) /
15791 data absa(181:315, 1) /
15820 data absa(316:450, 1) /
15849 data absa(451:585, 1) /
15878 data absa( 1:180, 2) /
15916 data absa(181:315, 2) /
15945 data absa(316:450, 2) /
15974 data absa(451:585, 2) /
16004 data absb( 1:120, 1) /
16030 data absb(121:235, 1) /
16055 data absb( 1:120, 2) /
16081 data absb(121:235, 2) /
16107 data forref(1:3,1: 2) / .8005249e-06,
16140 use physparam
, only : kind_phys
16156 real (kind=kind_phys),
public :: forref(
mfr23,ng23)
16183 real (kind=kind_phys),
public ::
rayl(ng23)
16186 real (kind=kind_phys),
parameter,
public ::
givfac = 1.029
16193 data absa( 1: 65, 1) /
16208 data absa( 1: 65, 2) /
16223 data absa( 1: 65, 3) /
16238 data absa( 1: 65, 4) /
16253 data absa( 1: 65, 5) /
16268 data absa( 1: 65, 6) /
16283 data absa( 1: 65, 7) /
16298 data absa( 1: 65, 8) /
16313 data absa( 1: 65, 9) /
16328 data absa( 1: 65,10) /
16344 data forref(1:3,1:10) /
16397 use physparam
, only : kind_phys
16418 real (kind=kind_phys),
public :: forref(
mfr24,ng24)
16464 real (kind=kind_phys),
public :: raylb(ng24)
16466 data rayla(1: 8,1:9) / .1368516e-06,.1805397e-06,
16482 data raylb(1: 8) / .1320456e-06,.1720100e-06,.2114786e-06,
16486 data abso3a(1: 8) / .1300197e+00,.1988798e+00,.1272878e+00,
16489 data abso3b(1: 8) / .3634220e-01,.8528316e-01,.1832493e+00,
16493 data absa( 1:180, 1) /
16531 data absa(181:315, 1) /
16560 data absa(316:450, 1) /
16589 data absa(451:585, 1) /
16618 data absa( 1:180, 2) /
16656 data absa(181:315, 2) /
16685 data absa(316:450, 2) /
16714 data absa(451:585, 2) /
16743 data absa( 1:180, 3) /
16781 data absa(181:315, 3) /
16810 data absa(316:450, 3) /
16839 data absa(451:585, 3) /
16868 data absa( 1:180, 4) /
16906 data absa(181:315, 4) /
16935 data absa(316:450, 4) /
16964 data absa(451:585, 4) /
16993 data absa( 1:180, 5) /
17031 data absa(181:315, 5) /
17060 data absa(316:450, 5) /
17089 data absa(451:585, 5) /
17118 data absa( 1:180, 6) /
17156 data absa(181:315, 6) /
17185 data absa(316:450, 6) /
17214 data absa(451:585, 6) /
17243 data absa( 1:180, 7) /
17281 data absa(181:315, 7) /
17310 data absa(316:450, 7) /
17339 data absa(451:585, 7) /
17368 data absa( 1:180, 8) /
17406 data absa(181:315, 8) /
17435 data absa(316:450, 8) /
17464 data absa(451:585, 8) /
17505 data absb( 1:120, 1) /
17531 data absb(121:235, 1) /
17556 data absb( 1:120, 2) /
17582 data absb(121:235, 2) /
17607 data absb( 1:120, 3) /
17633 data absb(121:235, 3) /
17658 data absb( 1:120, 4) /
17684 data absb(121:235, 4) /
17709 data absb( 1:120, 5) /
17735 data absb(121:235, 5) /
17760 data absb( 1:120, 6) /
17786 data absb(121:235, 6) /
17811 data absb( 1:120, 7) /
17837 data absb(121:235, 7) /
17862 data absb( 1:120, 8) /
17888 data absb(121:235, 8) /
17914 data forref(1:3,1: 8) /
17963 use physparam
, only : kind_phys
17973 parameter(
msa25=65)
17993 real (kind=kind_phys),
public ::
rayl(ng25)
18001 data rayl(1: 6) / .9811320e-06,
18004 data abso3a(1: 6) / .2326640e-01,
18007 data abso3b(1: 6) / .1769170e-01,
18011 data absa( 1: 65, 1) /
18026 data absa( 1: 65, 2) /
18041 data absa( 1: 65, 3) /
18056 data absa( 1: 65, 4) /
18071 data absa( 1: 65, 5) /
18086 data absa( 1: 65, 6) /
18124 use physparam
, only : kind_phys
18133 real (kind=kind_phys),
public ::
rayl(ng26)
18135 data rayl(1: 6) / .1212630e-05,
18161 use physparam
, only : kind_phys
18207 real (kind=kind_phys),
public ::
rayl(ng27)
18210 data rayl(1: 8) / .3445340e-05,.4144800e-05,.4950690e-05,
18213 data absa( 1: 65, 1) /
18228 data absa( 1: 65, 2) /
18243 data absa( 1: 65, 3) /
18258 data absa( 1: 65, 4) /
18273 data absa( 1: 65, 5) /
18288 data absa( 1: 65, 6) /
18303 data absa( 1: 65, 7) /
18318 data absa( 1: 65, 8) /
18334 data absb( 1:120, 1) /
18360 data absb(121:235, 1) /
18385 data absb( 1:120, 2) /
18411 data absb(121:235, 2) /
18436 data absb( 1:120, 3) /
18462 data absb(121:235, 3) /
18487 data absb( 1:120, 4) /
18513 data absb(121:235, 4) /
18538 data absb( 1:120, 5) /
18564 data absb(121:235, 5) /
18589 data absb( 1:120, 6) /
18615 data absb(121:235, 6) /
18640 data absb( 1:120, 7) /
18666 data absb(121:235, 7) /
18691 data absb( 1:120, 8) /
18717 data absb(121:235, 8) /
18765 use physparam
, only : kind_phys
18811 real (kind=kind_phys),
parameter,
public ::
rayl = 2.02e-05
18813 data absa( 1:180, 1) /
18851 data absa(181:315, 1) /
18880 data absa(316:450, 1) /
18909 data absa(451:585, 1) /
18938 data absa( 1:180, 2) /
18976 data absa(181:315, 2) /
19005 data absa(316:450, 2) /
19034 data absa(451:585, 2) /
19063 data absa( 1:180, 3) /
19101 data absa(181:315, 3) /
19130 data absa(316:450, 3) /
19159 data absa(451:585, 3) /
19188 data absa( 1:180, 4) /
19226 data absa(181:315, 4) /
19255 data absa(316:450, 4) /
19284 data absa(451:585, 4) /
19313 data absa( 1:180, 5) /
19351 data absa(181:315, 5) /
19380 data absa(316:450, 5) /
19409 data absa(451:585, 5) /
19438 data absa( 1:180, 6) /
19476 data absa(181:315, 6) /
19505 data absa(316:450, 6) /
19534 data absa(451:585, 6) /
19563 data absb( 1:175, 1) /
19600 data absb(176:350, 1) /
19637 data absb(351:525, 1) /
19674 data absb(526:700, 1) /
19711 data absb(701:875, 1) /
19748 data absb(876:1050, 1) /
19785 data absb(1051:1175, 1) /
19812 data absb( 1:175, 2) /
19849 data absb(176:350, 2) /
19886 data absb(351:525, 2) /
19923 data absb(526:700, 2) /
19960 data absb(701:875, 2) /
19997 data absb(876:1050, 2) /
20034 data absb(1051:1175, 2) /
20061 data absb( 1:175, 3) /
20098 data absb(176:350, 3) /
20135 data absb(351:525, 3) /
20172 data absb(526:700, 3) /
20209 data absb(701:875, 3) /
20246 data absb(876:1050, 3) /
20283 data absb(1051:1175, 3) /
20310 data absb( 1:175, 4) /
20347 data absb(176:350, 4) /
20384 data absb(351:525, 4) /
20421 data absb(526:700, 4) /
20458 data absb(701:875, 4) /
20495 data absb(876:1050, 4) /
20532 data absb(1051:1175, 4) /
20559 data absb( 1:175, 5) /
20596 data absb(176:350, 5) /
20633 data absb(351:525, 5) /
20670 data absb(526:700, 5) /
20707 data absb(701:875, 5) /
20744 data absb(876:1050, 5) /
20781 data absb(1051:1175, 5) /
20808 data absb( 1:175, 6) /
20845 data absb(176:350, 6) /
20882 data absb(351:525, 6) /
20919 data absb(526:700, 6) /
20956 data absb(701:875, 6) /
20993 data absb(876:1050, 6) /
21030 data absb(1051:1175, 6) /
21080 use physparam
, only : kind_phys
21098 real (kind=kind_phys),
public :: forref(
mfr29,ng29)
21144 real (kind=kind_phys),
parameter,
public ::
rayl = 9.30e-11
21147 data absh2o(1:12) / .2995080e-03,.3950120e-02,
21152 data absco2(1:12) / .2900730e-05,.2123820e-04,
21156 data absa( 1: 65, 1) /
21171 data absa( 1: 65, 2) /
21186 data absa( 1: 65, 3) /
21201 data absa( 1: 65, 4) /
21216 data absa( 1: 65, 5) /
21231 data absa( 1: 65, 6) /
21246 data absa( 1: 65, 7) /
21261 data absa( 1: 65, 8) /
21276 data absa( 1: 65, 9) /
21291 data absa( 1: 65,10) /
21306 data absa( 1: 65,11) /
21321 data absa( 1: 65,12) /
21348 data absb( 1:120, 1) /
21374 data absb(121:235, 1) /
21399 data absb( 1:120, 2) /
21425 data absb(121:235, 2) /
21450 data absb( 1:120, 3) /
21476 data absb(121:235, 3) /
21501 data absb( 1:120, 4) /
21527 data absb(121:235, 4) /
21552 data absb( 1:120, 5) /
21578 data absb(121:235, 5) /
21603 data absb( 1:120, 6) /
21629 data absb(121:235, 6) /
21654 data absb( 1:120, 7) /
21680 data absb(121:235, 7) /
21705 data absb( 1:120, 8) /
21731 data absb(121:235, 8) /
21756 data absb( 1:120, 9) /
21782 data absb(121:235, 9) /
21807 data absb( 1:120,10) /
21833 data absb(121:235,10) /
21858 data absb( 1:120,11) /
21884 data absb(121:235,11) /
21909 data absb( 1:120,12) /
21935 data absb(121:235,12) /
21961 data forref(1:4,1:12) / .2998180e-05,.2092820e-05,.9883530e-04,
real(kind=kind_phys), dimension(msf22, ng22), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
integer, public mfr23
mfr23=3
integer, public msa22
msa22=585
This module sets up absorption coeffients for band 19: 4650-5150 cm-1 (low - h2o,co2; high - co2) ...
integer, public msf24
msf24=10
integer, public msa25
msa25=65
integer, public msf23
msf23=10
real(kind=kind_phys), dimension(msf24, ng24), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
real(kind=kind_phys), dimension(msf18, ng18), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msf17
msf17=10
This module sets up absorption coeffients for band 24: 12850-16000 cm-1 (low - h2o, o2; high - o2)
integer, public mfr19
MFR19=3.
real(kind=kind_phys), dimension(msa19, ng19), public absa
the array absa(585,NG19) (ka(9,5,13,NG19)) contains absorption coefs at the 16 chosen g-values for a ...
real(kind=kind_phys), dimension(msa23, ng23), public absa
the array absa(65,NG23) (ka(5,13,NG23)) contains absorption coefs at the 16 chosen g-values for a ran...
integer, public msb19
MSB19=235.
integer, public msa16
msa16=585
real(kind=kind_phys), dimension(ng24), public abso3a
o3
real(kind=kind_phys), dimension(msb28, ng28), public absb
the array absb(1175,6) (kb(5,5,13:59,6)) contains absorption coefs at the 16 chosen g-values for a ra...
This module sets up absorption coeffients for band 27: 29000-38000 cm-1 (low - o3; high - o3) ...
real(kind=kind_phys), dimension(msf16, ng16), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, parameter nbhgh
band range upper limit
This module sets up absorption coeffients for band 20: 5150-6150 cm-1 (low - h2o; high - h2o) ...
real(kind=kind_phys), dimension(msb24, ng24), public absb
the array absb(235,8) (kb(5,13:59,8)) contains absorption coefs at the 16 chosen g-values for a range...
integer, public msb21
msb21=1175
real(kind=kind_phys), dimension(ng26), public rayl
rayleigh extinction coefficient at all v
real(kind=kind_phys), dimension(msf23, ng23), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
integer, public mfr24
mfr24=3
This module contains coefficients of cloud optical properties for each of the spectral bands...
real(kind=kind_phys), dimension(msb22, ng22), public absb
the array absb(235,2) (kb(5,13:59,2)) contains absorption coefs at the 16 chosen g-values for a range...
real(kind=kind_phys), dimension(ng24, mfx24), public rayla
rayleigh extinction coefficient at all v
This module sets up absorption coeffients for band 23: 8050-12850 cm-1 (low - h2o; high - nothing) ...
real(kind=kind_phys), dimension(msf19, ng19), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msb17
msb17=1175
real(kind=kind_phys), dimension(msa29, ng29), public absa
the array absa(65,NG29) (ka(5,13,NG29)) contains absorption coefs at the 16 chosen g-values for a ran...
real(kind=kind_phys), dimension(msa22, ng22), public absa
the array absa(585,NG22) (ka(9,5,13,NG22)) contains absorption coefs at the 16 chosen g-values for a ...
integer, public msa19
MSA19=585.
real(kind=kind_phys), dimension(msa27, ng27), public absa
the array absa(65,NG27) (ka(5,13,NG27)) contains absorption coefs at the 16 chosen g-values for a ran...
integer, public mfr17
mfr17=4
real(kind=kind_phys), dimension(msb27, ng27), public absb
the array absb(235,8) (kb(5,13:59,8)) contains absorption coefs at the 16 chosen g-values for a range...
real(kind=kind_phys), dimension(msf20, ng20), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(msa16, ng16), public absa
the array absa(585,NG16) (ka(9,5,13,NG16)) contains absorption coefs at the 16 chosen g-values for a ...
real(kind=kind_phys), dimension(msa24, ng24), public absa
the array absa(585,NG24) (ka(9,5,13,NG24)) contains absorption coefs at the 16 chosen g-values for a ...
integer, public msa23
msa23=65
This module sets up absorption coeffients for band 18: 4000-4650 cm-1 (low - h2o,ch4; high - ch4) ...
integer, public mfr20
mfr20=4
integer, public msf29
msf29=10
real(kind=kind_phys), dimension(msb29, ng29), public absb
the array absb(235,12) (kb(5,13:59,12)) contains absorption coefs at the 16 chosen g-values for a ran...
real(kind=kind_phys), dimension(ng20), public absch4
ch4
real(kind=kind_phys), dimension(59) preflog
Reference pressure and temperature.
real(kind=kind_phys), dimension(ng25), public abso3b
o3
This module contains reference temperature and pressure.
integer, public msa24
msa24=585
This module contains SW band parameters set up.
real(kind=kind_phys), dimension(msb21, ng21), public absb
the array absb(1175,10) (kb(5,5,13:59,10)) contains absorption coefs at the 16 chosen g-values for a ...
integer, parameter nblow
band range lower limit
This module sets up absorption coeffients for band 26: 22650-29000 cm-1 (low - nothing; high - nothin...
integer, public mfr18
mfr18=3
integer, public msa20
msa20=65
integer, public msa17
msa17=585
integer, public msf19
MSF19=10.
integer, public msa29
msa29=65
This module sets up absorption coeffients for band 29: 820-2600 cm-1 (low - h2o; high - co2) ...
integer, public msb29
msb29=235
This module sets up absorption coeffients for band 17: 3250-4000 cm-1 (low - h2o,co2; high - h2o...
real(kind=kind_phys), dimension(msa25, ng25), public absa
the array absa(65,NG25) (ka(5,13,NG25)) contains absorption coefs at the 16 chosen g-values for a ran...
integer, public msf18
msf18=10
This module sets up absorption coeffients for band 22: 7700-8050 cm-1 (low - h2o, o2; high - o2) ...
real(kind=kind_phys), dimension(msf29, ng29), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msf21
msf21=10
integer, public mfx24
mfx24=9
integer, public msa27
msa27=65
integer, public msf16
msf16=10
This module contains spectral distribution of solar radiation flux used to obtain the incoming solar ...
real(kind=kind_phys), dimension(msa17, ng17), public absa
the array absa(585,NG17) (ka((9,5,13,NG17)) contains absorption coefs at the 16 chosen g-values for a...
integer, public msb27
msb27=235
real(kind=kind_phys), dimension(ng23), public rayl
rayleigh extinction coefficient at all v
real(kind=kind_phys), dimension(ng25), public abso3a
o3
integer, public mfr21
mfr21=4
real(kind=kind_phys), dimension(msa21, ng21), public absa
the array absa(585,NG21) (ka((9,5,13,NG21)) contains absorption coefs at the 16 chosen g-values for a...
This module sets up absorption coeffients for band 25: 16000-22650 cm-1 (low - h2o; high - nothing) ...
real(kind=kind_phys), dimension(msb20, ng20), public absb
the array absb(235,10) (kb(5,13:59,10)) contains absorption coefs at the 16 chosen g-values for a ran...
real(kind=kind_phys), dimension(msa18, ng18), public absa
the array absa(585,NG18) (ka(9,5,13,NG18)) contains absorption coefs at the 16 chosen g-values for a ...
integer, public msb20
msb20=235
real(kind=kind_phys), dimension(msb16, ng16), public absb
the array absb(235,6) (kb(5,13:59,6)) contains absorption coefs at the 16 chosen g-values for a range...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
integer, public mfr22
mfr22=3
integer, public msb18
msb18=235
integer, public msa21
msa21=585
real(kind=kind_phys), dimension(msb17, ng17), public absb
the array absb(1175,12) (kb(5,5,13:59,12)) contains absorption coefs at the 16 chosen g-values for a ...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient
integer, public mfr29
mfr29=4
real(kind=kind_phys), dimension(msa20, ng20), public absa
the array absa(65,NG20) (ka(5,13,NG20)) contains absorption coefs at the 16 chosen g-values for a ran...
integer, public msb22
msb22=235
integer, public mfr16
mfr16=3
This module sets up absorption coeffients for band 21: 6150-7700 cm-1 (low - h2o,co2; high - h2o...
real(kind=kind_phys), dimension(msb18, ng18), public absb
the array absb(235,8) (kb(5,13:59,8)) contains absorption coefs at the 16 chosen g-values for a range...
integer, public msf22
msf22=10
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at v =
real(kind=kind_phys), parameter, public givfac
average giver et al. correction factor for this band.
integer, public msa18
msa18=585
real(kind=kind_phys), dimension(msf21, ng21), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng27), public rayl
rayleigh extinction coefficient
real(kind=kind_phys), dimension(msf17, ng17), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
integer, public msb24
msb24=235
real(kind=kind_phys), dimension(ng29), public absh2o
h2o
real(kind=kind_phys), dimension(msb19, ng19), public absb
the array absb(235,8) (kb(5,13:59,8)) contains absorption coefs at the 16 chosen g-values for a range...
This module sets up absorption coeffients for band 28: 38000-50000 cm-1 (low - o3,o2; high - o3,o2)
integer, public msb16
msb16=235
real(kind=kind_phys), dimension(msa28, ng28), public absa
the array absa(585,NG28) (ka((9,5,13,NG28)) contains absorption coefs at the 16 chosen g-values for a...
integer, public msf20
msf20=10
This module sets up absorption coefficients for band 16: 2600-3250 cm-1 (low - h2o, ch4; high - ch4)
integer, parameter ngmax
max num of g-point in one band
integer, public msb28
msb28=1175
real(kind=kind_phys), dimension(ng24), public abso3b
o3
integer, public msa28
msa28=585
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at v = 3625
real(kind=kind_phys), dimension(ng29), public absco2
co2
real(kind=kind_phys), dimension(ng25), public rayl
rayleigh extinction coefficient
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at