68 use physparam
, only : kind_phys
77 real (kind=kind_phys) :: upfxc
79 real (kind=kind_phys) :: dnfxc
81 real (kind=kind_phys) :: upfx0
87 real (kind=kind_phys) :: upfxc
89 real (kind=kind_phys) :: dnfxc
91 real (kind=kind_phys) :: upfx0
93 real (kind=kind_phys) :: dnfx0
99 real (kind=kind_phys) :: upfxc
101 real (kind=kind_phys) :: dnfxc
103 real (kind=kind_phys) :: upfx0
105 real (kind=kind_phys) :: dnfx0
112 real (kind=kind_phys) :: uvbfc
114 real (kind=kind_phys) :: uvbf0
116 real (kind=kind_phys) :: nirbm
118 real (kind=kind_phys) :: nirdf
120 real (kind=kind_phys) :: visbm
122 real (kind=kind_phys) :: visdf
142 integer,
parameter :: nswstr = 1
144 integer,
parameter :: nbdsw =
nbands
147 integer :: ng16, ng17, ng18, ng19, ng20, ng21, ng22,
148 & ng23, ng24, ng25, ng26, ng27, ng28, ng29
149 parameter( ng16=06, ng17=12, ng18=08, ng19=08, ng20=10,
150 & ng21=10, ng22=02, ng23=10, ng24=08, ng25=06,
151 & ng26=06, ng27=08, ng28=06, ng29=12)
153 integer,
dimension(NBLOW:NBHGH) :: ng
154 data ng / ng16, ng17, ng18, ng19, ng20, ng21, ng22,
155 & ng23, ng24, ng25, ng26, ng27, ng28, ng29 /
158 integer :: ns16, ns17, ns18, ns19, ns20, ns21, ns22,
159 & ns23, ns24, ns25, ns26, ns27, ns28, ns29
160 parameter( ns16=00, ns17=ns16+ng16, ns18=ns17+ng17,
161 & ns19=ns18+ng18, ns20=ns19+ng19, ns21=ns20+ng20,
162 & ns22=ns21+ng21, ns23=ns22+ng22, ns24=ns23+ng23,
163 & ns25=ns24+ng24, ns26=ns25+ng25, ns27=ns26+ng26,
164 & ns28=ns27+ng27, ns29=ns28+ng28 )
166 integer,
dimension(NBLOW:NBHGH) :: ngs
167 data ngs / ns16, ns17, ns18, ns19, ns20, ns21, ns22,
171 integer,
dimension(NGPTSW) ::
ngb
172 data ngb(:) / 16,16,16,16,16,16,
173 & 17,17,17,17,17,17,17,17,17,17,17,17,
174 & 18,18,18,18,18,18,18,18,
175 & 19,19,19,19,19,19,19,19,
176 & 20,20,20,20,20,20,20,20,20,20,
177 & 21,21,21,21,21,21,21,21,21,21,
179 & 23,23,23,23,23,23,23,23,23,23,
180 & 24,24,24,24,24,24,24,24,
183 & 27,27,27,27,27,27,27,27,
185 & 29,29,29,29,29,29,29,29,29,29,29,29 /
188 real (kind=kind_phys),
dimension(NBANDS):: wvnum1, wvnum2
integer, parameter nbands
number of spectral bands
Define type construct for optional component downward fluxes at surface.
integer, parameter nbhgh
band range upper limit
integer, parameter ntbmx
index upper limit of trans table
integer, parameter ngptsw
total number of g-point in all bands
Define type construct for optional radiation flux profiles.
This module contains SW band parameters set up.
integer, parameter nblow
band range lower limit
Define type construct for radiation fluxes at toa.
integer, dimension(ngptsw) ngb
band index for each g-point
integer, parameter maxgas
max num of absorbing gases
Define type construct for radiation fluxes at surface.
integer, parameter ngmax
max num of g-point in one band