67 use physparam
, only : kind_phys
77 real (kind=kind_phys) :: upfxc
79 real (kind=kind_phys) :: upfx0
86 real (kind=kind_phys) :: upfxc
88 real (kind=kind_phys) :: upfx0
90 real (kind=kind_phys) :: dnfxc
92 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
115 integer,
parameter ::
ntbl = 10000
125 integer,
parameter :: nbdlw =
nbands
128 integer :: ng01, ng02, ng03, ng04, ng05, ng06, ng07, ng08,
129 & ng09, ng10, ng11, ng12, ng13, ng14, ng15, ng16
130 parameter(ng01=10, ng02=12, ng03=16, ng04=14, ng05=16, ng06=08,
131 & ng07=12, ng08=08, ng09=12, ng10=06, ng11=08, ng12=08,
132 & ng13=04, ng14=02, ng15=02, ng16=02)
135 integer :: ns01, ns02, ns03, ns04, ns05, ns06, ns07, ns08,
136 & ns09, ns10, ns11, ns12, ns13, ns14, ns15, ns16
137 parameter(ns01=00, ns02=10, ns03=22, ns04=38, ns05=52, ns06=68,
138 & ns07=76, ns08=88, ns09=96, ns10=108, ns11=114,
139 & ns12=122, ns13=130, ns14=134, ns15=136, ns16=138)
142 integer,
dimension(NGPTLW) ::
ngb
143 data ngb(:) / 10*1, 12*2, 16*3, 14*4, 16*5, 8*6, 12*7, 8*8,
144 & 12*9, 6*10, 8*11, 8*12, 4*13, 2*14, 2*15, 2*16 /
155 real (kind=kind_phys) :: delwave(
nbands)
156 data delwave / 340., 150., 130., 70., 120., 160., 100., 100.,
integer, parameter ngptlw
num of total g-points
Define type construct for radiation fluxes at surface.
integer, parameter maxxsec
num of halocarbon gasees
integer, parameter nplnk
dim for plank function table
Define type construct for optional radiation flux profiles.
integer, parameter ntbl
lookup table dimension
This module contains LW band parameters set up.
Define type construct for radiation fluxes at toa.
integer, parameter nrates
num of ref rates of binary species
integer, parameter maxgas
max num of absorbing gases
integer, parameter nbands
num of total spectral bands
integer, dimension(ngptlw) ngb
band indices for each g-point