2 integer :: ncol__
,nlayers__
,nbndlw__
,ngptlw__
3 ! changed to arguments
for thread
safety (could reduce
this list a bit
)
7 real :: pavel(ncol__
, nlayers__
)
8 real :: wx1(ncol__
,nlayers__
)
9 real :: wx2(ncol__
,nlayers__
)
10 real :: wx3(ncol__
,nlayers__
)
11 real :: wx4(ncol__
,nlayers__
)
12 real :: coldry(ncol__
, nlayers__
)
13 integer :: laytrop(ncol__
)
14 integer :: jp(ncol__
,nlayers__
)
15 integer :: jt(ncol__
,nlayers__
)
16 integer :: jt1(ncol__
,nlayers__
)
17 real :: colh2o(ncol__
,nlayers__
)
18 real :: colco2(ncol__
,nlayers__
)
19 real :: colo3(ncol__
,nlayers__
)
20 real :: coln2o(ncol__
,nlayers__
)
21 real :: colco(ncol__
,nlayers__
)
22 real :: colch4(ncol__
,nlayers__
)
23 real :: colo2(ncol__
,nlayers__
)
24 real :: colbrd(ncol__
,nlayers__
)
25 integer :: indself(ncol__
,nlayers__
)
26 integer :: indfor(ncol__
,nlayers__
)
27 real :: selffac(ncol__
,nlayers__
)
28 real :: selffrac(ncol__
,nlayers__
)
29 real :: forfac(ncol__
,nlayers__
)
30 real :: forfrac(ncol__
,nlayers__
)
31 integer :: indminor(ncol__
,nlayers__
)
32 real :: minorfrac(ncol__
,nlayers__
)
33 real :: scaleminor(ncol__
,nlayers__
)
34 real :: scaleminorn2(ncol__
,nlayers__
)
35 real :: fac00(ncol__
,nlayers__
), fac01(ncol__
,nlayers__
), fac10(ncol__
,nlayers__
), fac11(ncol__
,nlayers__
)
36 real :: rat_h2oco2(ncol__
,nlayers__
),rat_h2oco2_1(ncol__
,nlayers__
), &
37 rat_h2oo3(ncol__
,nlayers__
),rat_h2oo3_1(ncol__
,nlayers__
), &
38 rat_h2on2o(ncol__
,nlayers__
),rat_h2on2o_1(ncol__
,nlayers__
), &
39 rat_h2och4(ncol__
,nlayers__
),rat_h2och4_1(ncol__
,nlayers__
), &
40 rat_n2oco2(ncol__
,nlayers__
),rat_n2oco2_1(ncol__
,nlayers__
), &
41 rat_o3co2(ncol__
,nlayers__
),rat_o3co2_1(ncol__
,nlayers__
)
42 ! Dimensions
: (ncol__
,nlayers__
)
43 real :: tauaa(ncol__
, nlayers__
, nbndlw__
)
44 ! Dimensions
: (ncol__
,nlayers__
,ngptlw__
)
46 integer :: nspad(nbndlw__
)
47 integer :: nspbd(nbndlw__
)
