70 use physparam
, only : kind_phys
753 use physparam
, only : kind_phys
760 real (kind=kind_phys),
dimension(59) :: pref, preflog, tref
808 real (kind=kind_phys),
dimension(7,59) :: chi_mls
809 data chi_mls(1,1:12) /
813 data chi_mls(1,13:59) /
825 data chi_mls(2,1:12) /
829 data chi_mls(2,13:59) /
841 data chi_mls(3,1:12) /
845 data chi_mls(3,13:59) /
857 data chi_mls(4,1:12) /
861 data chi_mls(4,13:59) /
873 data chi_mls(5,1:12) /
877 data chi_mls(5,13:59) /
889 data chi_mls(6,1:12) /
893 data chi_mls(6,13:59) /
905 data chi_mls(7,1:12) /
909 data chi_mls(7,13:59) /
931 use physparam
, only : kind_phys
941 data ipat / 1, 2, 3,3,3, 4,4,4, 5,5,5,5,5,5,5,5 /
945 real (kind=kind_phys),
parameter ::
absrain = 0.33e-3
950 real (kind=kind_phys),
parameter ::
abssnow1 = 2.34e-3
966 real (kind=kind_phys),
dimension(58,NBANDS) ::
absliq1
1211 data absice1 / 0.0036, 1.136, 0.0068, 0.600, 0.0003, 1.338,
1219 real (kind=kind_phys),
dimension(43,NBANDS) ::
absice2
1403 real (kind=kind_phys),
dimension(46,NBANDS) ::
absice3
1406 data absice3(:,1) / 3.110649e-03,4.666352e-02,
1417 data absice3(:,2) / 3.984966e-04,1.681097e-02,
1428 data absice3(:,3) / 6.933163e-02,8.540475e-02,
1439 data absice3(:,4) / 1.765735e-01,1.382700e-01,
1450 data absice3(:,5) / 2.339673e-01,1.692124e-01,
1461 data absice3(:,6) / 1.145369e-01,1.174566e-01,
1472 data absice3(:,7) / 1.222345e-02,5.344230e-02,
1483 data absice3(:,8) / 6.711058e-02,6.918198e-02,
1494 data absice3(:,9) / 1.236780e-01,9.222386e-02,
1505 data absice3(:,10) / 1.655966e-01,1.134205e-01,
1516 data absice3(:,11) / 1.775615e-01,1.180046e-01,
1527 data absice3(:,12) / 9.465447e-02,6.432047e-02,
1538 data absice3(:,13) / 1.560311e-01,9.961097e-02,
1549 data absice3(:,14) / 1.559547e-01,9.896700e-02,
1560 data absice3(:,15) / 1.102926e-01,7.176622e-02,
1571 data absice3(:,16) / 1.688344e-01,1.077072e-01,
1617 use physparam
, only : kind_phys
1682 real (kind=kind_phys),
public :: ka_mn2(ng01,
mmn01)
1684 real (kind=kind_phys),
public :: kb_mn2(ng01,
mmn01)
1687 data absa(:, 1:33) /
1754 data absa(:,34:65) /
1821 data absb(:, 1:30) /
1882 data absb(:,31:60) /
1943 data absb(:,61:90) /
2004 data absb(:, 91:120) /
2065 data absb(:,121:150) /
2126 data absb(:,151:180) /
2187 data absb(:,181:210) /
2248 data absb(:,211:235) /
2431 use physparam
, only : kind_phys
2492 data absa(:, 1: 25) /
2553 data absa(:, 26: 50) /
2614 data absa(:, 51: 65) /
2652 data absb(:, 1: 25) /
2713 data absb(:, 26: 50) /
2774 data absb(:, 51: 75) /
2835 data absb(:, 76:100) /
2896 data absb(:,101:125) /
2957 data absb(:,126:150) /
3018 data absb(:,151:175) /
3079 data absb(:,176:200) /
3140 data absb(:,201:225) /
3201 data absb(:,226:235) /
3268 data fracrefa(:) / 1.638800e-01,1.524100e-01,
3273 data fracrefb(:) / 1.469700e-01,1.482600e-01,
3289 use physparam
, only : kind_phys
3392 data absa(:, 1: 20) /
3457 data absa(:, 21: 40) /
3522 data absa(:, 41: 60) /
3587 data absa(:, 61: 80) /
3652 data absa(:, 81:100) /
3717 data absa(:,101:120) /
3782 data absa(:,121:140) /
3847 data absa(:,141:160) /
3912 data absa(:,161:180) /
3977 data absa(:,181:200) /
4042 data absa(:,201:220) /
4107 data absa(:,221:240) /
4172 data absa(:,241:260) /
4237 data absa(:,261:280) /
4302 data absa(:,281:300) /
4367 data absa(:,301:320) /
4432 data absa(:,321:340) /
4497 data absa(:,341:360) /
4562 data absa(:,361:380) /
4627 data absa(:,381:400) /
4692 data absa(:,401:420) /
4757 data absa(:,421:440) /
4822 data absa(:,441:460) /
4887 data absa(:,461:480) /
4952 data absa(:,481:500) /
5017 data absa(:,501:520) /
5082 data absa(:,521:540) /
5147 data absa(:,541:560) /
5212 data absa(:,561:580) /
5277 data absa(:,581:585) /
5311 data absb(:, 1: 20) /
5376 data absb(:, 21: 40) /
5441 data absb(:, 41: 60) /
5506 data absb(:, 61: 80) /
5571 data absb(:, 81:100) /
5636 data absb(:,101:120) /
5701 data absb(:,121:140) /
5766 data absb(:,141:160) /
5831 data absb(:,161:180) /
5896 data absb(:,181:200) /
5961 data absb(:,201:220) /
6026 data absb(:,221:240) /
6091 data absb(:,241:260) /
6156 data absb(:,261:280) /
6221 data absb(:,281:300) /
6286 data absb(:,301:320) /
6351 data absb(:,321:340) /
6416 data absb(:,341:360) /
6481 data absb(:,361:380) /
6546 data absb(:,381:400) /
6611 data absb(:,401:420) /
6676 data absb(:,421:440) /
6741 data absb(:,441:460) /
6806 data absb(:,461:480) /
6871 data absb(:,481:500) /
6936 data absb(:,501:520) /
7001 data absb(:,521:540) /
7066 data absb(:,541:560) /
7131 data absb(:,561:580) /
7196 data absb(:,581:600) /
7261 data absb(:,601:620) /
7326 data absb(:,621:640) /
7391 data absb(:,641:660) /
7456 data absb(:,661:680) /
7521 data absb(:,681:700) /
7586 data absb(:,701:720) /
7651 data absb(:,721:740) /
7716 data absb(:,741:760) /
7781 data absb(:,761:780) /
7846 data absb(:,781:800) /
7911 data absb(:,801:820) /
7976 data absb(:,821:840) /
8041 data absb(:,841:860) /
8106 data absb(:,861:880) /
8171 data absb(:,881:900) /
8236 data absb(:,901:920) /
8301 data absb(:,921:940) /
8366 data absb(:,941:960) /
8431 data absb(:,961:980) /
8496 data absb(:, 981:1000) /
8561 data absb(:,1001:1020) /
8626 data absb(:,1021:1040) /
8691 data absb(:,1041:1060) /
8756 data absb(:,1061:1080) /
8821 data absb(:,1081:1100) /
8886 data absb(:,1101:1120) /
8951 data absb(:,1121:1140) /
9016 data absb(:,1141:1160) /
9081 data absb(:,1161:1175) /
10164 use physparam
, only : kind_phys
10240 data absa(:, 1: 20) /
10297 data absa(:, 21: 40) /
10354 data absa(:, 41: 60) /
10411 data absa(:, 61: 80) /
10468 data absa(:, 81:100) /
10525 data absa(:,101:120) /
10582 data absa(:,121:140) /
10639 data absa(:,141:160) /
10696 data absa(:,161:180) /
10753 data absa(:,181:200) /
10810 data absa(:,201:220) /
10867 data absa(:,221:240) /
10924 data absa(:,241:260) /
10981 data absa(:,261:280) /
11038 data absa(:,281:300) /
11095 data absa(:,301:320) /
11152 data absa(:,321:340) /
11209 data absa(:,341:360) /
11266 data absa(:,361:380) /
11323 data absa(:,381:400) /
11380 data absa(:,401:420) /
11437 data absa(:,421:440) /
11494 data absa(:,441:460) /
11551 data absa(:,461:480) /
11608 data absa(:,481:500) /
11665 data absa(:,501:520) /
11722 data absa(:,521:540) /
11779 data absa(:,541:560) /
11836 data absa(:,561:580) /
11893 data absa(:,581:585) /
11909 data absb(:, 1: 20) /
11966 data absb(:, 21: 40) /
12023 data absb(:, 41: 60) /
12080 data absb(:, 61: 80) /
12137 data absb(:, 81:100) /
12194 data absb(:,101:120) /
12251 data absb(:,121:140) /
12308 data absb(:,141:160) /
12365 data absb(:,161:180) /
12422 data absb(:,181:200) /
12479 data absb(:,201:220) /
12536 data absb(:,221:240) /
12593 data absb(:,241:260) /
12650 data absb(:,261:280) /
12707 data absb(:,281:300) /
12764 data absb(:,301:320) /
12821 data absb(:,321:340) /
12878 data absb(:,341:360) /
12935 data absb(:,361:380) /
12992 data absb(:,381:400) /
13049 data absb(:,401:420) /
13106 data absb(:,421:440) /
13163 data absb(:,441:460) /
13220 data absb(:,461:480) /
13277 data absb(:,481:500) /
13334 data absb(:,501:520) /
13391 data absb(:,521:540) /
13448 data absb(:,541:560) /
13505 data absb(:,561:580) /
13562 data absb(:,581:600) /
13619 data absb(:,601:620) /
13676 data absb(:,621:640) /
13733 data absb(:,641:660) /
13790 data absb(:,661:680) /
13847 data absb(:,681:700) /
13904 data absb(:,701:720) /
13961 data absb(:,721:740) /
14018 data absb(:,741:760) /
14075 data absb(:,761:780) /
14132 data absb(:,781:800) /
14189 data absb(:,801:820) /
14246 data absb(:,821:840) /
14303 data absb(:,841:860) /
14360 data absb(:,861:880) /
14417 data absb(:,881:900) /
14474 data absb(:,901:920) /
14531 data absb(:,921:940) /
14588 data absb(:,941:960) /
14645 data absb(:,961:980) /
14702 data absb(:, 981:1000) /
14759 data absb(:,1001:1020) /
14816 data absb(:,1021:1040) /
14873 data absb(:,1041:1060) /
14930 data absb(:,1061:1080) /
14987 data absb(:,1081:1100) /
15044 data absb(:,1101:1120) /
15101 data absb(:,1121:1140) /
15158 data absb(:,1141:1160) /
15215 data absb(:,1161:1175) /
15365 use physparam
, only : kind_phys
15443 real (kind=kind_phys),
public :: ka_mo3(ng05,
maf05,
mmo05)
15446 real (kind=kind_phys),
public ::
ccl4(ng05)
15449 data absa(:, 1: 20) /
15514 data absa(:, 21: 40) /
15579 data absa(:, 41: 60) /
15644 data absa(:, 61: 80) /
15709 data absa(:, 81:100) /
15774 data absa(:,101:120) /
15839 data absa(:,121:140) /
15904 data absa(:,141:160) /
15969 data absa(:,161:180) /
16034 data absa(:,181:200) /
16099 data absa(:,201:220) /
16164 data absa(:,221:240) /
16229 data absa(:,241:260) /
16294 data absa(:,261:280) /
16359 data absa(:,281:300) /
16424 data absa(:,301:320) /
16489 data absa(:,321:340) /
16554 data absa(:,341:360) /
16619 data absa(:,361:380) /
16684 data absa(:,381:400) /
16749 data absa(:,401:420) /
16814 data absa(:,421:440) /
16879 data absa(:,441:460) /
16944 data absa(:,461:480) /
17009 data absa(:,481:500) /
17074 data absa(:,501:520) /
17139 data absa(:,521:540) /
17204 data absa(:,541:560) /
17269 data absa(:,561:580) /
17334 data absa(:,581:585) /
17353 data absb(:, 1: 20) /
17418 data absb(:, 21: 40) /
17483 data absb(:, 41: 60) /
17548 data absb(:, 61: 80) /
17613 data absb(:, 81: 100) /
17678 data absb(:, 101: 120) /
17743 data absb(:, 121: 140) /
17808 data absb(:, 141: 160) /
17873 data absb(:, 161: 180) /
17938 data absb(:, 181: 200) /
18003 data absb(:, 201: 220) /
18068 data absb(:, 221: 240) /
18133 data absb(:, 241: 260) /
18198 data absb(:, 261: 280) /
18263 data absb(:, 281: 300) /
18328 data absb(:, 301: 320) /
18393 data absb(:, 321: 340) /
18458 data absb(:, 341: 360) /
18523 data absb(:, 361: 380) /
18588 data absb(:, 381: 400) /
18653 data absb(:, 401: 420) /
18718 data absb(:, 421: 440) /
18783 data absb(:, 441: 460) /
18848 data absb(:, 461: 480) /
18913 data absb(:, 481: 500) /
18978 data absb(:, 501: 520) /
19043 data absb(:, 521: 540) /
19108 data absb(:, 541: 560) /
19173 data absb(:, 561: 580) /
19238 data absb(:, 581: 600) /
19303 data absb(:, 601: 620) /
19368 data absb(:, 621: 640) /
19433 data absb(:, 641: 660) /
19498 data absb(:, 661: 680) /
19563 data absb(:, 681: 700) /
19628 data absb(:, 701: 720) /
19693 data absb(:, 721: 740) /
19758 data absb(:, 741: 760) /
19823 data absb(:, 761: 780) /
19888 data absb(:, 781: 800) /
19953 data absb(:, 801: 820) /
20018 data absb(:, 821: 840) /
20083 data absb(:, 841: 860) /
20148 data absb(:, 861: 880) /
20213 data absb(:, 881: 900) /
20278 data absb(:, 901: 920) /
20343 data absb(:, 921: 940) /
20408 data absb(:, 941: 960) /
20473 data absb(:, 961: 980) /
20538 data absb(:, 981:1000) /
20603 data absb(:,1001:1020) /
20668 data absb(:,1021:1040) /
20733 data absb(:,1041:1060) /
20798 data absb(:,1061:1080) /
20863 data absb(:,1081:1100) /
20928 data absb(:,1101:1120) /
20993 data absb(:,1121:1140) /
21058 data absb(:,1141:1160) /
21123 data absb(:,1161:1175) /
21173 data ka_mo3(:,:, 1) /
21203 data ka_mo3(:,:, 2) / 1.012860e-02,
21233 data ka_mo3(:,:, 3) / 1.101860e-02,4.750030e-02,
21263 data ka_mo3(:,:, 4) / 1.198690e-02,5.002660e-02,1.232440e-01,
21293 data ka_mo3(:,:, 5) /
21323 data ka_mo3(:,:, 6) /
21353 data ka_mo3(:,:, 7) / 1.543280e-02,
21383 data ka_mo3(:,:, 8) / 1.678900e-02,6.154910e-02,
21413 data ka_mo3(:,:, 9) / 1.826440e-02,6.482270e-02,1.432520e-01,
21443 data ka_mo3(:,:,10) /
21473 data ka_mo3(:,:,11) /
21503 data ka_mo3(:,:,12) / 2.351490e-02,
21533 data ka_mo3(:,:,13) / 2.558130e-02,7.975320e-02,
21563 data ka_mo3(:,:,14) / 2.782930e-02,8.399490e-02,1.665090e-01,
21593 data ka_mo3(:,:,15) /
21623 data ka_mo3(:,:,16) /
21653 data ka_mo3(:,:,17) / 3.582950e-02,
21683 data ka_mo3(:,:,18) / 3.897810e-02,1.033410e-01,
21713 data ka_mo3(:,:,19) / 4.240340e-02,1.088380e-01,1.935410e-01,
21847 data ccl4(:) / 2.614070e+01,5.397760e+01,
21863 use physparam
, only : kind_phys
21925 real (kind=kind_phys),
public :: cfc12(ng06)
21927 data absa(:, 1:30) /
21976 data absa(:, 31:65) /
22098 data fracrefa(:) / 2.912700e-01,2.825200e-01,2.259000e-01,
22106 data cfc11adj(:) / 0.000000e+00,9.159319e+01,7.840117e+01,
22109 data cfc12(:) / 5.316576e+01,2.458745e+01,2.874905e+01,
22124 use physparam
, only : kind_phys
22146 real (kind=kind_phys),
public :: forref(ng07,
mfr07)
22210 data absa( : , 1: 25) /
22271 data absa( : , 26: 50) /
22332 data absa( : , 51: 75) /
22393 data absa( : , 76:100) /
22454 data absa( : ,101:125) /
22515 data absa( : ,126:150) /
22576 data absa( : ,151:175) /
22637 data absa( : ,176:200) /
22698 data absa( : ,201:225) /
22759 data absa( : ,226:250) /
22820 data absa( : ,251:275) /
22881 data absa( : ,276:300) /
22942 data absa( : ,301:325) /
23003 data absa( : ,326:350) /
23064 data absa( : ,351:375) /
23125 data absa( : ,376:400) /
23186 data absa( : ,401:425) /
23247 data absa( : ,426:450) /
23308 data absa( : ,451:475) /
23369 data absa( : ,476:500) /
23430 data absa( : ,501:525) /
23491 data absa( : ,526:550) /
23552 data absa( : ,551:575) /
23613 data absa( : ,576:585) /
23640 data absb( : , 1: 25) /
23701 data absb( : , 26: 50) /
23762 data absb( : , 51: 75) /
23823 data absb( : , 76:100) /
23884 data absb( : ,101:125) /
23945 data absb( : ,126:150) /
24006 data absb( : ,151:175) /
24067 data absb( : ,176:200) /
24128 data absb( : ,201:225) /
24189 data absb( : ,226:235) /
24216 data ka_mco2(:,:, 1) / 1.370502e-05,2.621626e-05,3.432130e-05,
24238 data ka_mco2(:,:, 2) / 1.642307e-05,3.128890e-05,4.113010e-05,
24260 data ka_mco2(:,:, 3) / 1.968156e-05,3.734321e-05,4.928960e-05,
24282 data ka_mco2(:,:, 4) / 2.358835e-05,4.456897e-05,5.906790e-05,
24304 data ka_mco2(:,:, 5) / 2.827272e-05,5.319301e-05,7.078600e-05,
24326 data ka_mco2(:,:, 6) / 3.388984e-05,6.348576e-05,8.482880e-05,
24348 data ka_mco2(:,:, 7) / 4.062601e-05,7.577034e-05,1.016570e-04,
24370 data ka_mco2(:,:, 8) / 4.870476e-05,9.043200e-05,1.218250e-04,
24392 data ka_mco2(:,:, 9) / 5.839452e-05,1.079313e-04,1.459930e-04,
24414 data ka_mco2(:,:,10) / 7.001733e-05,1.288159e-04,1.749550e-04,
24436 data ka_mco2(:,:,11) / 8.396036e-05,1.537426e-04,2.096630e-04,
24458 data ka_mco2(:,:,12) / 1.006871e-04,1.834932e-04,2.512570e-04,
24480 data ka_mco2(:,:,13) / 1.207562e-04,2.190005e-04,3.011030e-04,
24502 data ka_mco2(:,:,14) / 1.448370e-04,2.613795e-04,3.608370e-04,
24524 data ka_mco2(:,:,15) / 1.737337e-04,3.119591e-04,4.324210e-04,
24546 data ka_mco2(:,:,16) / 2.084117e-04,3.723273e-04,5.182060e-04,
24568 data ka_mco2(:,:,17) / 2.500320e-04,4.443780e-04,6.210100e-04,
24613 data ka_mco2(:,:,19) / 3.599558e-04,
24719 data forref(:, :) /
24757 data fracrefb(:) / 3.131500e-01,2.756000e-01,1.163400e-01,
24772 use physparam
, only : kind_phys
24845 real (kind=kind_phys),
public ::
cfc12(ng08)
24857 data absa(:, 1:30) /
24906 data absa(:,31:65) /
24965 data absb(:, 1: 30) /
25014 data absb(:, 31: 60) /
25063 data absb(:, 61: 90) /
25112 data absb(:, 91:120) /
25161 data absb(:,121:150) /
25210 data absb(:,151:180) /
25259 data absb(:,181:210) /
25308 data absb(:,211:235) /
25545 data fracrefa(:) / 3.144100e-01,2.758600e-01,2.129730e-01,
25549 data fracrefb(:) / 2.965200e-01,2.735400e-01,2.225400e-01,
25553 data cfc12(:) / 8.741204e+01,7.104260e+01,6.062525e+01,
25556 data cfc22adj(:) / 1.127704e+02,7.130121e+01,6.180924e+01,
25569 use physparam
, only : kind_phys
25662 data absa( :, 1: 25) /
25723 data absa( :, 26: 50) /
25784 data absa( :, 51: 75) /
25845 data absa( :, 76:100) /
25906 data absa( :,101:125) /
25967 data absa( :,126:150) /
26028 data absa( :,151:175) /
26089 data absa( :,176:200) /
26150 data absa( :,201:225) /
26211 data absa( :,226:250) /
26272 data absa( :,251:275) /
26333 data absa( :,276:300) /
26394 data absa( :,301:325) /
26455 data absa( :,326:350) /
26516 data absa( :,351:375) /
26577 data absa( :,376:400) /
26638 data absa( :,401:425) /
26699 data absa( :,426:450) /
26760 data absa( :,451:475) /
26821 data absa( :,476:500) /
26882 data absa( :,501:525) /
26943 data absa( :,526:550) /
27004 data absa( :,551:575) /
27065 data absa( :,576:585) /
27102 data absb(:, 1: 25) /
27163 data absb(:, 26: 50) /
27224 data absb(:, 51: 75) /
27285 data absb(:, 76:100) /
27346 data absb(:,101:125) /
27407 data absb(:,126:150) /
27468 data absb(:,151:175) /
27529 data absb(:,176:200) /
27590 data absb(:,201:225) /
27651 data absb(:,226:235) /
27701 data ka_mn2o(:,:, 2) / 5.590510e-02,9.771370e-02,
27747 data ka_mn2o(:,:, 4) / 5.968050e-02,
27770 data ka_mn2o(:,:, 5) / 6.166280e-02,1.074550e-01,1.895160e-01,
27815 data ka_mn2o(:,:, 7) / 6.582720e-02,1.144830e-01,
27861 data ka_mn2o(:,:, 9) / 7.027280e-02,
27884 data ka_mn2o(:,:,10) / 7.260690e-02,1.258960e-01,2.536830e-01,
27929 data ka_mn2o(:,:,12) / 7.751030e-02,1.341300e-01,
27975 data ka_mn2o(:,:,14) / 8.274490e-02,
27998 data ka_mn2o(:,:,15) / 8.549330e-02,1.475020e-01,3.395770e-01,
28043 data ka_mn2o(:,:,17) / 9.126700e-02,1.571490e-01,
28089 data ka_mn2o(:,:,19) / 9.743060e-02,
28233 data fracrefb(:) / 2.091400e-01,1.507700e-01,1.287800e-01,
28248 use physparam
, only : kind_phys
28310 data absa(:, 1:40) /
28359 data absa(:,41:65) /
28392 data absb(:, 1: 40) /
28441 data absb(:, 41: 80) /
28490 data absb(:, 81:120) /
28539 data absb(:,121:160) /
28588 data absb(:,161:200) /
28637 data absb(:,201:235) /
28705 data fracrefa(:) / 3.232800e-01,2.663600e-01,
28709 data fracrefb(:) / 3.307100e-01,2.709100e-01,
28723 use physparam
, only : kind_phys
28803 data absa(:, 1:30) /
28852 data absa(:,31:60) /
28901 data absa(:,61:65) /
28922 data absb(:, 1: 30) /
28971 data absb(:, 31: 60) /
29020 data absb(:, 61: 90) /
29069 data absb(:, 91:120) /
29118 data absb(:,121:150) /
29167 data absb(:,151:180) /
29216 data absb(:,181:210) /
29265 data absb(:,211:235) /
29405 data fracrefa(:) / 1.460100e-01,1.382400e-01,2.770300e-01,
29409 data fracrefb(:) / 7.292800e-02,1.490000e-01,3.175900e-01,
29423 use physparam
, only : kind_phys
29475 data absa( :, 1: 30) /
29524 data absa( :, 31: 60) /
29573 data absa( :, 61: 90) /
29622 data absa( :, 91:120) /
29671 data absa( :,121:150) /
29720 data absa( :,151:180) /
29769 data absa( :,181:210) /
29818 data absa( :,211:240) /
29867 data absa( :,241:270) /
29916 data absa( :,271:300) /
29965 data absa( :,301:330) /
30014 data absa( :,331:360) /
30063 data absa( :,361:390) /
30112 data absa( :,391:420) /
30161 data absa( :,421:450) /
30210 data absa( :,451:480) /
30259 data absa( :,481:510) /
30308 data absa( :,511:540) /
30357 data absa( :,541:570) /
30406 data absa( :,571:585) /
30495 use physparam
, only : kind_phys
30564 real (kind=kind_phys),
public :: ka_mco(ng13,
maf13,
mmo13)
30565 real (kind=kind_phys),
public :: kb_mo3(ng13,
mmo13)
30567 data absa(:, 1: 60) /
30616 data absa(:, 61:120) /
30665 data absa(:,121:180) /
30714 data absa(:,181:240) /
30763 data absa(:,241:300) /
30812 data absa(:,301:360) /
30861 data absa(:,361:420) /
30910 data absa(:,421:480) /
30959 data absa(:,481:540) /
31008 data absa(:,541:585) /
31199 data ka_mco(:,:, 1: 5) /
31236 data ka_mco(:,:, 6:10) /
31273 data ka_mco(:,:,11:15) /
31310 data ka_mco(:,:,16:19) /
31341 data kb_mo3(:, :) /
31378 data fracrefa(:,:) / 5.101700e-01,3.306330e-01,
31402 use physparam
, only : kind_phys
31503 data absb(:, 1:120) /
31552 data absb(:,121:235) /
31611 data fracrefa(:) / 9.520200e-01,4.797805e-02 /
31614 data fracrefb(:) / 9.474890e-01,5.252305e-02 /
31627 use physparam
, only : kind_phys
31692 data absa( :, 1:120) /
31741 data absa( :,121:240) /
31790 data absa( :,241:360) /
31839 data absa( :,361:480) /
31888 data absa( :,481:585) /
31933 data ka_mn2(:,:, 1:10) /
31970 data ka_mn2(:,:,11:19) /
32017 data fracrefa(:,:) / 9.171470e-01,8.285743e-02,9.171570e-01,
32033 use physparam
, only : kind_phys
32101 data absa( :, 1:120) /
32150 data absa( :,121:240) /
32199 data absa( :,241:360) /
32248 data absa( :,361:480) /
32297 data absa( :,481:585) /
32341 data absb(:, 1:120) /
32390 data absb(:,121:235) /
32451 data fracrefa(:,:) / 6.722400e-01,3.277719e-01,7.402200e-01,
32457 data fracrefb(:) / 6.882100e-01,3.117782e-01 /
integer, public mfr10
mfr10=4
real(kind=kind_phys), dimension(ng09, mmn09), public kb_mn2o
the array kb_mxxx contains the absorption coefficient for a minor species at the NG09=12 chosen g-val...
real(kind=kind_phys), dimension(ng08, mmc08), public ka_mco2
minor gas mapping level:lower - co2, p = 1053.63 mb, t = 294.2 k
This module sets up absorption coefficients for band 12: 1800-2080 cm-1 (low - h2o, co2; high - /)
integer, public msf16
MSF16=10.
real(kind=kind_phys), dimension(ng09), public fracrefb
planck fraction mapping level : p 3.20e-2 mb, t = 197.92 k
integer, public mbf05
mbf05=5
integer, public msb08
msb08=235
integer, public msa04
msa04=585
real(kind=kind_phys), dimension(ng07, msb07), public absb
the array absb(NG07,235) = kb(NG07,5,13:59) contains absorption coefs at the NG07=12 chosen g-values ...
real(kind=kind_phys), dimension(ng15, msa15), public absa
the array absa(NG15,585) = ka(NG15,9,5,13) contains absorption coefs at the NG15=2 g-intervals for a ...
integer, public msf14
MSF14=10.
real(kind=kind_phys), dimension(ng05, mbf05), public fracrefb
planck fraction mapping level : p = 0.2369280 mbar, t = 253.60 k
real(kind=kind_phys), dimension(ng04, msf04), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng15, msf15), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng06, msa06), public absa
the array absa(NG06,65) = ka(NG06,5,13) contains absorption coefs at the NG06=8 g-intervals for a ran...
real(kind=kind_phys), dimension(ng08, mmc08), public ka_mo3
minor gas mapping level:lower - o3, p = 317.348 mb, t = 240.77 k
real(kind=kind_phys), dimension(ng08, msb08), public absb
the array absb(NG08,235) = kb(NG08,5,13:59) contains absorption coefs at the NG08=8 chosen g-values f...
real(kind=kind_phys), dimension(ng09, maf09), public fracrefa
planck fractions mapping level : p=212.7250 mb, t = 223.06 k
This module sets up absorption coefficients for band 15: 2380-2600 cm-1 (low - n2o, co2; high - /)
real(kind=kind_phys), dimension(ng04, msa04), public absa
the array absa(NG04,585) = ka(NG04,9,5,13) contains absorption coefs at the NG04=14 g-intervals for a...
real(kind=kind_phys), dimension(ng01, msf01), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public mfr14
MFR14=4.
real(kind=kind_phys), dimension(58, nbands) absliq1
Hu and Stamnes method . the liquid water absorption coefficients are listed for a range of effective...
real(kind=kind_phys), dimension(ng10, msa10), public absa
the array absa(NG10,65) = ka(NG10,5,13) contains absorption coefs at the NG10=6 chosen g-values for a...
integer, public msf01
msf01=10
integer, public maf13
maf13=9
real(kind=kind_phys), dimension(ng03, maf03), public fracrefa
planck fraction mapping level: p=212.7250 mbar, t = 223.06 k
integer, public maf04
maf04=9
real(kind=kind_phys), dimension(ng11, msa11), public absa
the array absa(NG11,65) = ka(NG11,5,13) contains absorption coefs at the NG11=8 chosen g-values for a...
real(kind=kind_phys), dimension(ng13, msf13), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public maf15
MAF15=9.
integer, public msf09
msf09=10
real(kind=kind_phys), dimension(ng09, msa09), public absa
the array absa(NG09,585) = ka(NG09,9,5,13) contains absorption coefs at the NG09=12 g-intervals for a...
This module sets up absorption coefficients for band 06: 820-980 cm-1 (low - h2o; high - /) ...
integer, public msa13
msa13=585
real(kind=kind_phys), dimension(ng16, maf16), public fracrefa
planck fraction mapping level: p = 387.6100 mbar, t = 250.17 k
real(kind=kind_phys), dimension(ng14), public fracrefa
planck fraction mapping level : p = 142.5940 mb, t = 215.70 k
real(kind=kind_phys), dimension(ng07), public fracrefb
planck data fraction mapping level : p=95.58 mbar, t= 215.70 k
real(kind=kind_phys), dimension(ng10), public fracrefb
planck fraction mapping level : p = 95.58350 mb, t = 215.70 k
real(kind=kind_phys), dimension(ng13), public fracrefb
planck fraction mapping level : p=4.758820 mb, t = 250.85 k
integer, public mfr16
MFR16=4.
real(kind=kind_phys), dimension(ng09, mfr09), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
integer, public mmn09
mmn09=19
real(kind=kind_phys), dimension(ng05), public ccl4
minor gas (o3, ccl4) mapping level : p = 317.34 mbar, t = 240.77 k
integer, public mfr04
mfr04=4
integer, public mmo13
mmo13=19
integer, public msb04
msb04=1175
integer, public mfr02
mfr02=4
real(kind=kind_phys), dimension(43, nbands) absice2
for iflagice =2, absice2 are the ice water absorption coefficients used for streamer method...
real(kind=kind_phys), dimension(ng04, msb04), public absb
the array absb(NG04,1175) = kb(NG04,5,5,13:59) contains absorption coefs at the NG04=14 g-intervals f...
real(kind=kind_phys), dimension(ng08, mfr08), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
real(kind=kind_phys), dimension(ng14, mfr14), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
This module sets up absorption coefficients for band 09: 1180-1390 cm-1 (low - h2o, ch4; high - ch4)
real(kind=kind_phys), dimension(ng08), public cfc22adj
original cfc22 is multiplied by 1.485 to account for the 780-850 cm-1 and 1290-1335 cm-1 bands...
This module sets up absorption coefficients for band 11: 1480-1800 cm-1 (low - h2o; high - h2o) ...
real(kind=kind_phys), dimension(ng01, msb01), public absb
the array absb(NG01,235) = kb(NG01,5,13:59) contains absorption coefs at the NG01=10 chosen g-values ...
real(kind=kind_phys), dimension(ng05, mfr05), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
real(kind=kind_phys), dimension(ng09, maf09, mmn09), public ka_mn2o
the array ka_mxxx contains the absorption coefficient for a minor species at the 16 chosen g-values f...
real(kind=kind_phys), dimension(ng01), public fracrefb
planck fraction mapping level: p = 212.7250 mbar, t = 223.06 k these planck fractions were calculated...
real(kind=kind_phys), dimension(ng16, msf16), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public mfr15
MFR15=4.
real(kind=kind_phys), dimension(ng08), public cfc12
minor gas mapping level:lower - cfc12
real(kind=kind_phys), dimension(ng03, mbf03), public fracrefb
planck fraction mapping level: p = 95.8 mbar, t = 215.7 k
real(kind=kind_phys), dimension(ng08, msa08), public absa
the array absa(NG08,65) = ka(NG08,5,13) contains absorption coefs at the NG08=8 g-intervals for a ran...
integer, public msa16
MSA16=585.
real(kind=kind_phys), dimension(ng02, msa02), public absa
the array absa(NG02,65) = ka(NG02,5,13) contains absorption coefs at the NG02=12 chosen g-values for ...
integer, public msb11
msb11=235
This module sets up absorption coefficients for band 02: 250-500 cm-1 (low - h2o; high - h2o) ...
integer, public msb16
MSB16=235.
integer, parameter nplnk
dim for plank function table
real(kind=kind_phys), parameter absrain
absrain is the rain drop absorption coefficient .
real(kind=kind_phys), dimension(ng11, mfr11), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
real(kind=kind_phys), dimension(ng14, msa14), public absa
the array absa(NG14,65) = ka(NG14,5,13) contains absorption coefs at the NG14=2 chosen g-values for a...
real(kind=kind_phys), dimension(ng09, msb09), public absb
the array absb(NG09,235) = kb(NG09,5,13:59) contains absorption coefs at the NG09=12 chosen g-values ...
real(kind=kind_phys), dimension(ng06, mmc06), public ka_mco2
the array kao_mxx contains the absorption coefficient for a minor species at the NG06=8 chosen g-valu...
real(kind=kind_phys), dimension(ng11, msb11), public absb
the array absb(NG11,235) = kb(NG11,5,13:59) contains absorption coefs at the NG11=8 chosen g-values f...
integer, public msb03
msb03=1175
integer, dimension(nbands) ipat
ipat is bands index for ebert&curry ice cloud (for iflagice=1)
integer, public mmn01
mmn01=19
integer, public msf12
msf12=10
integer, public msa01
msa01=65
real(kind=kind_phys), dimension(2) absice0
for iflagice = 2 or 3, absice0 are the ice water absorption coefficients used for large ice partical ...
integer, public mfr13
mfr13=4
This module sets up absorption coefficients for band 05: 700-820 cm-1 (low - h2o, co2; high - co2...
real(kind=kind_phys), parameter abssnow1
abssnow1 is the snow flake absorption coefficient , ncar coeff
real(kind=kind_phys), dimension(ng14), public fracrefb
planck fraction mapping level : p = 4.758820mb, t = 250.85 k
real(kind=kind_phys), dimension(ng04, mbf04), public fracrefb
planck fraction mapping level : p = 95.58350 mb, t = 215.70 k
real(kind=kind_phys), dimension(ng02), public fracrefa
planck fraction mapping level: p = 1053.630 mbar, t = 294.2 k
integer, public msa07
msa07=585
integer, public mfr08
mfr08=4
integer, public msf06
msf06=10
real(kind=kind_phys), dimension(ng03, mbf03, mmn03), public kb_mn2o
the array kb_mxxx contains the absorption coefficient for a minor species at the NG03=16 chosen g-val...
real(kind=kind_phys), parameter abssnow0
abssnow0 is the snow flake absorption coefficient (micron), fu coeff
real(kind=kind_phys), dimension(ng08, mmc08), public kb_mco2
minor gas mapping level:upper - co2, p = 35.1632 mb, t = 223.28 k
real(kind=kind_phys), dimension(ng01, msa01), public absa
the array absa(NG01,65) = ka(NG01,5,13) contains absorption coefs at the NG01=10 chosen g-values for ...
real(kind=kind_phys), dimension(ng07, maf07, mmc07), public ka_mco2
the array ka_mxxx contains the absorption coefficient for a minor species at the NG07=12 chosen g-val...
real(kind=kind_phys), dimension(ng12, msf12), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng03, msb03), public absb
the array absb(NG03,1175) = kb(NG03,5,5,13:59) contains absorption coefs at the NG03=16 g-intervals f...
real(kind=kind_phys), dimension(ng08), public fracrefb
planck fraction mapping level : p=95.5835 mb, t= 215.7 k
real(kind=kind_phys), dimension(ng02), public fracrefb
planck fraction mapping level: p = 3.206e-2 mb, t = 197.92 k
real(kind=kind_phys), dimension(ng11, mmo11), public ka_mo2
the array ka_mxx contains the absorption coefficient for a minor species at the NG11=8 chosen g-value...
real(kind=kind_phys), dimension(ng12, mfr12), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
This module contains reference temperature and pressure.
real(kind=kind_phys), dimension(nplnk, nbands), public totplnk
plank flux data
real(kind=kind_phys), dimension(ng15, mfr15), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
This module sets up absorption coefficients for band 14: 2250-2380 cm-1 (low - co2; high - co2) ...
integer, public msf04
msf04=10
integer, public maf03
maf03=9
real(kind=kind_phys), dimension(ng06), public fracrefa
planck fraction mapping level : p = 473.4280 mb, t = 259.83 k
integer, public msa12
msa12=585
real(kind=kind_phys), dimension(ng14, msf14), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng02, msb02), public absb
the array absb(NG02,235) = kb(NG02,5,13:59) contains absorption coefs at the NG02=12 chosen g-values ...
integer, public mmc08
mmc08=19
real(kind=kind_phys), dimension(46, nbands) absice3
for iflagice = 3, absice3 are the ice water absorption coefficients used for fu parameterization. particle size 5 - 140 micron in increments of 3 microns. units = m2/g. hexagonal ice particle parameterization absorption units (abs coef/iwc):
real(kind=kind_phys), dimension(ng05, msf05), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng06), public cfc11adj
lower - co2, p = 706.2720 mb, t = 294.2 k upper - cfc11, cfc12 original cfc11 is multiplied by 1...
real(kind=kind_phys), dimension(ng11), public fracrefb
planck fraction mapping level : p=0.353 mb, t = 262.11 k
This module sets up absorption coefficients for band 01: 10-250 cm-1 (low - h2o; high - h2o) ...
integer, public msf15
MSF15=10.
real(kind=kind_phys), dimension(ng05, maf05), public fracrefa
planck fraction mapping level : p = 473.42 mb, t = 259.83 k
real(kind=kind_phys), dimension(ng08, msf08), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng13, msa13), public absa
the array absa(NG13,585) = ka(NG13,9,5,13) contains absorption coefs at the NG13=4 g-intervals for a ...
integer, public maf12
maf12=9
real(kind=kind_phys), dimension(ng02, msf02), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng15, maf15, mmn15), public ka_mn2
the array ka_mxx contains the absorption coefficient for a minor species at the NG15=2 chosen g-value...
integer, public msb10
msb10=235
real(kind=kind_phys), dimension(ng01), public fracrefa
planck fraction mapping level: p = 212.7250 mbar, t = 223.06 k
real(kind=kind_phys), dimension(ng07, mmc07), public kb_mco2
the array kb_mxxx contains absorption coefficient for a minor species at the NG07=12 chosen g-values ...
real(kind=kind_phys), dimension(ng16, mfr16), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
This module sets up absorption coefficients for band 08: 1080-1180 cm-1 (low - h2o; high - o3) ...
real(kind=kind_phys), dimension(ng04, maf04), public fracrefa
planck fraction mapping level: p=212.7250 mbar, t = 223.06 k
real(kind=kind_phys), dimension(ng05, msa05), public absa
the array absa(NG05,585) = ka(NG05,9,5,13) contains absorption coefs at the NG05=16 g-intervals for a...
integer, public msa08
msa08=65
integer, public mmo11
mmo11=19
real(kind=kind_phys), dimension(ng13, mfr13), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
This module sets up absorption coefficients for band 10: 1390-1480 cm-1 (low - h2o; high - h2o) ...
integer, public mmn03
mmn03=19
integer, public mfr03
mfr03=4
real(kind=kind_phys), dimension(ng09, msf09), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msb09
msb09=235
real(kind=kind_phys), dimension(ng07, maf07), public fracrefa
planck fraction mapping level : p = 706.27 mb, t = 278.94 k
integer, public msb07
msb07=235
integer, public msb05
msb05=1175
real(kind=kind_phys), dimension(ng08), public fracrefa
planck fraction mapping level : p=473.4280 mb, t = 259.83 k
real(kind=kind_phys), dimension(ng03, msa03), public absa
the array absa(NG03,585) = ka(NG03,9,5,13) contains absorption coefs at the NG03=16 g-intervals for a...
integer, public mfr05
mfr05=4
real(kind=kind_phys), dimension(ng10, msf10), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msf02
msf02=10
real(kind=kind_phys), dimension(ng06, mfr06), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
integer, public maf07
maf07=9
real(kind=kind_phys), dimension(ng08, mmc08), public kb_mn2o
minor gas mapping level:upper - n2o, p = 8.716e-2 mb, t = 226.03 k
This module contains LW band parameters set up.
integer, public mbf03
mbf03=5
integer, public mmc07
mmc07=19
real(kind=kind_phys), dimension(ng01, mfr01), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
real(kind=kind_phys), dimension(ng07, msf07), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
This module sets up absorption coefficients for band 13: 2080-2250 cm-1 (low - h2o, n2o; high - /)
real(kind=kind_phys), dimension(ng11, msf11), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msf13
msf13=10
real(kind=kind_phys), dimension(ng13, maf13, mmo13), public ka_mco2
the array ka_mxxx contains the absorption coefficient for a minor species at the NG13=4 chosen g-valu...
integer, public maf16
MAF16=9.
real(kind=kind_phys), dimension(ng16, msa16), public absa
the array absa(NG16,585) = ka(NG16,9,5,13) contains absorption coefs at the NG16=2 g-intervals for a ...
This module sets up absorption coefficients for band 04: 630-700 cm-1 (low - h2o, co2; high - co2...
real(kind=kind_phys), dimension(2, 5) absice1
for iflagice = 1, absice1 are the ice water absorption coefficients used for ebert and curry method ...
integer, public mfr11
mfr11=4
real(kind=kind_phys), dimension(ng10), public fracrefa
planck fraction mapping level : p = 212.7250, t = 223.06 k
integer, public mfr06
mfr06=4
integer, public mfr09
mfr09=4
integer, public msa10
msa10=65
real(kind=kind_phys), dimension(ng14, msb14), public absb
the array absb(NG14,235) = kb(NG14,5,13:59) contains absorption coefs at the NG14=2 chosen g-values f...
integer, public mmc06
mmc06=19
real(kind=kind_phys), dimension(ng12, msa12), public absa
the array absa(NG12,585) = ka(NG12,9,5,13) contains absorption coefs at the NG12=8 g-intervals for a ...
real(kind=kind_phys), dimension(ng08, mmc08), public ka_mn2o
minor gas mapping level:lower - n2o, p = 706.2720 mb, t= 278.94 k
integer, public mmn15
MMN15=19.
real(kind=kind_phys), dimension(ng07, msa07), public absa
the array absa(NG07,585) = ka(NG07,9,5,13) contains absorption coefs at the NG07=12 g-intervals for a...
integer, public mfr07
mfr07=4
This module sets up absorption coefficients for band 07: 980-1080 cm-1 (low - h2o, o3; high - o3)
real(kind=kind_phys), dimension(ng03, msf03), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msf10
msf10=10
integer, public msf05
msf05=10
integer, public mbf04
mbf04=5
real(kind=kind_phys), dimension(ng16, msb16), public absb
the array absb(NG16,235) = kb(NG16,5,13:59) contains absorption coefs at the NG16=2 chosen g-values f...
integer, public msa03
msa03=585
integer, public mfr01
mfr01=4
integer, public msb02
msb02=235
integer, public msf11
msf11=10
integer, public msb01
msb01=235
integer, public msa14
MSA14=65.
real(kind=kind_phys), dimension(ng10, mfr10), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
integer, public msa15
MSA15=585.
real(kind=kind_phys), dimension(ng16), public fracrefb
planck fraction mapping level : p=95.58350 mb, t = 215.70 k
real(kind=kind_phys), dimension(ng05, msb05), public absb
the array absb(NG05,1175) = kb(NG05,5,5,13:59) contains absorption coefs at the NG05=16 g-intervals f...
real(kind=kind_phys), dimension(ng11), public fracrefa
planck fraction mapping level : p=1053.63 mb, t= 294.2 k
This module sets up absorption coefficients for band 16: 2600-3000 cm-1 (low - h2o, ch4; high - /)
integer, public msa05
msa05=585
integer, public msa11
msa11=65
real(kind=kind_phys), dimension(ng02, mfr02), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
real(kind=kind_phys), dimension(ng15, maf15), public fracrefa
planck fraction mapping level : p = 1053. mb, t = 294.2 k
real(kind=kind_phys), dimension(ng06, msf06), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public maf05
maf05=9
This module contains cloud property coefficients.
This module sets up absorption coefficients for band 03: 500-630 cm-1 (low - h2o, co2; high - h2o...
integer, public maf09
maf09=9
real(kind=kind_phys), dimension(ng13, maf13), public fracrefa
planck fraction mapping level : p=473.4280 mb, t = 259.83 k
integer, public mmo05
mmo05=19
real(kind=kind_phys), dimension(ng12, maf12), public fracrefa
planck fraction mapping level : p = 174.1640 mbar, t= 215.78 k
integer, public mfr12
mfr12=4
This module contains plank flux data.
real(kind=kind_phys), dimension(ng03, mfr03), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
real(kind=kind_phys), dimension(ng11, mmo11), public kb_mo2
the array kb_mxx contains the absorption coefficient for a minor species at the NG11=8 chosen g-value...
integer, public msf03
msf03=10
integer, parameter nbands
num of total spectral bands
integer, public msb14
MSB14=235.
integer, public msf07
msf07=10
real(kind=kind_phys), dimension(ng03, maf03, mmn03), public ka_mn2o
the array ka_mxxx(NG03,9,19) contains the absorption coefficient for a minor species at the NG03=16 c...
integer, public msa06
msa06=65
real(kind=kind_phys), dimension(ng04, mfr04), public forref
the array forref contains the coefficient of the water vapor foreign-continuum (including the energy ...
integer, public msa02
msa02=65
integer, public msf08
msf08=10
integer, public msa09
msa09=585
real(kind=kind_phys), dimension(ng10, msb10), public absb
the array absb(NG10,235) = kb(NG10,5,13:59) contains absorption coefs at the NG10=6 chosen g-values f...