radsw_datatb.f File Reference

Go to the source code of this file.

Modules
module	module_radsw_ref
	This module contains reference temperature and pressure.
module	module_radsw_cldprtb
	This module contains coefficients of cloud optical properties for each of the spectral bands. It is modified from AER/ECMWF RRTM SW radiation package subroutine "susrtop".
module	module_radsw_sflux
	This module contains spectral distribution of solar radiation flux used to obtain the incoming solar flux at toa.
module	module_radsw_kgb16
	This module sets up absorption coefficients for band 16: 2600-3250 cm-1 (low - h2o, ch4; high - ch4)
module	module_radsw_kgb17
	This module sets up absorption coeffients for band 17: 3250-4000 cm-1 (low - h2o,co2; high - h2o,co2)
module	module_radsw_kgb18
	This module sets up absorption coeffients for band 18: 4000-4650 cm-1 (low - h2o,ch4; high - ch4)
module	module_radsw_kgb19
	This module sets up absorption coeffients for band 19: 4650-5150 cm-1 (low - h2o,co2; high - co2)
module	module_radsw_kgb20
	This module sets up absorption coeffients for band 20: 5150-6150 cm-1 (low - h2o; high - h2o)
module	module_radsw_kgb21
	This module sets up absorption coeffients for band 21: 6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)
module	module_radsw_kgb22
	This module sets up absorption coeffients for band 22: 7700-8050 cm-1 (low - h2o, o2; high - o2)
module	module_radsw_kgb23
	This module sets up absorption coeffients for band 23: 8050-12850 cm-1 (low - h2o; high - nothing)
module	module_radsw_kgb24
	This module sets up absorption coeffients for band 24: 12850-16000 cm-1 (low - h2o, o2; high - o2)
module	module_radsw_kgb25
	This module sets up absorption coeffients for band 25: 16000-22650 cm-1 (low - h2o; high - nothing)
module	module_radsw_kgb26
	This module sets up absorption coeffients for band 26: 22650-29000 cm-1 (low - nothing; high - nothing)
module	module_radsw_kgb27
	This module sets up absorption coeffients for band 27: 29000-38000 cm-1 (low - o3; high - o3)
module	module_radsw_kgb28
	This module sets up absorption coeffients for band 28: 38000-50000 cm-1 (low - o3,o2; high - o3,o2)
module	module_radsw_kgb29
	This module sets up absorption coeffients for band 29: 820-2600 cm-1 (low - h2o; high - co2)

Variables
real(kind=kind_phys), dimension(59)	module_radsw_ref::preflog
real(kind=kind_phys), dimension(59)	module_radsw_ref::tref
real(kind=kind_phys), dimension(58, nblow:nbhgh), public	module_radsw_cldprtb::extliq1
real(kind=kind_phys), dimension(58, nblow:nbhgh), public	module_radsw_cldprtb::ssaliq1
real(kind=kind_phys), dimension(58, nblow:nbhgh), public	module_radsw_cldprtb::asyliq1
real(kind=kind_phys), dimension(43, nblow:nbhgh), public	module_radsw_cldprtb::extice2
real(kind=kind_phys), dimension(43, nblow:nbhgh), public	module_radsw_cldprtb::ssaice2
real(kind=kind_phys), dimension(43, nblow:nbhgh), public	module_radsw_cldprtb::asyice2
real(kind=kind_phys), dimension(46, nblow:nbhgh), public	module_radsw_cldprtb::extice3
real(kind=kind_phys), dimension(46, nblow:nbhgh), public	module_radsw_cldprtb::ssaice3
real(kind=kind_phys), dimension(46, nblow:nbhgh), public	module_radsw_cldprtb::asyice3
real(kind=kind_phys), dimension(46, nblow:nbhgh), public	module_radsw_cldprtb::fdlice3
real(kind=kind_phys), dimension(5), public	module_radsw_cldprtb::abari
real(kind=kind_phys), dimension(5), public	module_radsw_cldprtb::bbari
real(kind=kind_phys), dimension(5), public	module_radsw_cldprtb::cbari
real(kind=kind_phys), dimension(5), public	module_radsw_cldprtb::dbari
real(kind=kind_phys), dimension(5), public	module_radsw_cldprtb::ebari
real(kind=kind_phys), dimension(5), public	module_radsw_cldprtb::fbari
real(kind=kind_phys), public	module_radsw_cldprtb::a0r
real(kind=kind_phys), public	module_radsw_cldprtb::a1r
real(kind=kind_phys), public	module_radsw_cldprtb::a0s
real(kind=kind_phys), public	module_radsw_cldprtb::a1s
real(kind=kind_phys), dimension(nblow:nbhgh), public	module_radsw_cldprtb::b0r
real(kind=kind_phys), dimension(nblow:nbhgh), public	module_radsw_cldprtb::b0s
real(kind=kind_phys), dimension(nblow:nbhgh), public	module_radsw_cldprtb::b1s
real(kind=kind_phys), dimension(nblow:nbhgh), public	module_radsw_cldprtb::c0r
real(kind=kind_phys), dimension(nblow:nbhgh), public	module_radsw_cldprtb::c0s
integer, parameter	module_radsw_sflux::mfs01 = 1
integer, parameter	module_radsw_sflux::mfs02 = 5
integer, parameter	module_radsw_sflux::mfs03 = 9
integer, parameter	module_radsw_sflux::mfb01 = 7
integer, parameter	module_radsw_sflux::mfb02 = 2
integer, parameter	module_radsw_sflux::mfb03 = 5
real(kind=kind_phys), dimension(nblow:nbhgh), public	module_radsw_sflux::strrat
real(kind=kind_phys), dimension(nblow:nbhgh), public	module_radsw_sflux::specwt
integer, dimension(nblow:nbhgh), public	module_radsw_sflux::layreffr
integer, dimension(nblow:nbhgh), public	module_radsw_sflux::ix1
integer, dimension(nblow:nbhgh), public	module_radsw_sflux::ix2
integer, dimension(nblow:nbhgh), public	module_radsw_sflux::ibx
real(kind=kind_phys), parameter, public	module_radsw_sflux::scalekur =50.15/48.37
real(kind=kind_phys), dimension(ngmax, mfs01, mfb01), target, public	module_radsw_sflux::sfluxref01
real(kind=kind_phys), dimension(ngmax, mfs02, mfb02), target, public	module_radsw_sflux::sfluxref02
real(kind=kind_phys), dimension(ngmax, mfs03, mfb03), target, public	module_radsw_sflux::sfluxref03
integer, public	module_radsw_kgb16::msa16
integer, public	module_radsw_kgb16::msb16
integer, public	module_radsw_kgb16::msf16
integer, public	module_radsw_kgb16::mfr16
real(kind=kind_phys), dimension(msf16, ng16), public	module_radsw_kgb16::selfref
real(kind=kind_phys), dimension(msa16, ng16), public	module_radsw_kgb16::absa
real(kind=kind_phys), dimension(msb16, ng16), public	module_radsw_kgb16::absb
real(kind=kind_phys), dimension(mfr16, ng16), public	module_radsw_kgb16::forref
real(kind=kind_phys), parameter, public	module_radsw_kgb16::rayl = 2.91e-10
integer, public	module_radsw_kgb17::msa17
integer, public	module_radsw_kgb17::msb17
integer, public	module_radsw_kgb17::msf17
integer, public	module_radsw_kgb17::mfr17
real(kind=kind_phys), dimension(msf17, ng17), public	module_radsw_kgb17::selfref
real(kind=kind_phys), dimension(msa17, ng17), public	module_radsw_kgb17::absa
real(kind=kind_phys), dimension(msb17, ng17), public	module_radsw_kgb17::absb
real(kind=kind_phys), dimension(mfr17, ng17), public	module_radsw_kgb17::forref
real(kind=kind_phys), parameter, public	module_radsw_kgb17::rayl = 6.86e-10
integer, public	module_radsw_kgb18::msa18
integer, public	module_radsw_kgb18::msb18
integer, public	module_radsw_kgb18::msf18
integer, public	module_radsw_kgb18::mfr18
real(kind=kind_phys), dimension(msf18, ng18), public	module_radsw_kgb18::selfref
real(kind=kind_phys), dimension(msa18, ng18), public	module_radsw_kgb18::absa
real(kind=kind_phys), dimension(msb18, ng18), public	module_radsw_kgb18::absb
real(kind=kind_phys), dimension(mfr18, ng18), public	module_radsw_kgb18::forref
real(kind=kind_phys), parameter, public	module_radsw_kgb18::rayl = 1.39e-09
integer, public	module_radsw_kgb19::msa19
integer, public	module_radsw_kgb19::msb19
integer, public	module_radsw_kgb19::msf19
integer, public	module_radsw_kgb19::mfr19
real(kind=kind_phys), dimension(msf19, ng19), public	module_radsw_kgb19::selfref
real(kind=kind_phys), dimension(msa19, ng19), public	module_radsw_kgb19::absa
real(kind=kind_phys), dimension(msb19, ng19), public	module_radsw_kgb19::absb
real(kind=kind_phys), dimension(mfr19, ng19), public	module_radsw_kgb19::forref
real(kind=kind_phys), parameter, public	module_radsw_kgb19::rayl = 2.29e-09
integer, public	module_radsw_kgb20::msa20
integer, public	module_radsw_kgb20::msb20
integer, public	module_radsw_kgb20::msf20
integer, public	module_radsw_kgb20::mfr20
real(kind=kind_phys), dimension(mfr20, ng20), public	module_radsw_kgb20::forref
real(kind=kind_phys), dimension(ng20), public	module_radsw_kgb20::absch4
real(kind=kind_phys), dimension(msa20, ng20), public	module_radsw_kgb20::absa
real(kind=kind_phys), dimension(msb20, ng20), public	module_radsw_kgb20::absb
real(kind=kind_phys), dimension(msf20, ng20), public	module_radsw_kgb20::selfref
real(kind=kind_phys), parameter, public	module_radsw_kgb20::rayl = 4.12e-09
integer, public	module_radsw_kgb21::msa21
integer, public	module_radsw_kgb21::msb21
integer, public	module_radsw_kgb21::msf21
integer, public	module_radsw_kgb21::mfr21
real(kind=kind_phys), dimension(mfr21, ng21), public	module_radsw_kgb21::forref
real(kind=kind_phys), dimension(msa21, ng21), public	module_radsw_kgb21::absa
real(kind=kind_phys), dimension(msb21, ng21), public	module_radsw_kgb21::absb
real(kind=kind_phys), dimension(msf21, ng21), public	module_radsw_kgb21::selfref
real(kind=kind_phys), parameter, public	module_radsw_kgb21::rayl = 9.41e-09
integer, public	module_radsw_kgb22::msa22
integer, public	module_radsw_kgb22::msb22
integer, public	module_radsw_kgb22::msf22
integer, public	module_radsw_kgb22::mfr22
real(kind=kind_phys), dimension(mfr22, ng22), public	module_radsw_kgb22::forref
real(kind=kind_phys), dimension(msa22, ng22), public	module_radsw_kgb22::absa
real(kind=kind_phys), dimension(msb22, ng22), public	module_radsw_kgb22::absb
real(kind=kind_phys), dimension(msf22, ng22), public	module_radsw_kgb22::selfref
real(kind=kind_phys), parameter, public	module_radsw_kgb22::rayl = 1.54e-08
integer, public	module_radsw_kgb23::msa23
integer, public	module_radsw_kgb23::msf23
integer, public	module_radsw_kgb23::mfr23
real(kind=kind_phys), dimension(mfr23, ng23), public	module_radsw_kgb23::forref
real(kind=kind_phys), dimension(msa23, ng23), public	module_radsw_kgb23::absa
real(kind=kind_phys), dimension(msf23, ng23), public	module_radsw_kgb23::selfref
real(kind=kind_phys), dimension(ng23), public	module_radsw_kgb23::rayl
real(kind=kind_phys), parameter, public	module_radsw_kgb23::givfac = 1.029
integer, public	module_radsw_kgb24::msa24
integer, public	module_radsw_kgb24::msb24
integer, public	module_radsw_kgb24::msf24
integer, public	module_radsw_kgb24::mfr24
integer, public	module_radsw_kgb24::mfx24
real(kind=kind_phys), dimension(mfr24, ng24), public	module_radsw_kgb24::forref
real(kind=kind_phys), dimension(msa24, ng24), public	module_radsw_kgb24::absa
real(kind=kind_phys), dimension(msb24, ng24), public	module_radsw_kgb24::absb
real(kind=kind_phys), dimension(msf24, ng24), public	module_radsw_kgb24::selfref
real(kind=kind_phys), dimension(ng24), public	module_radsw_kgb24::abso3a
real(kind=kind_phys), dimension(ng24), public	module_radsw_kgb24::abso3b
real(kind=kind_phys), dimension(ng24, mfx24), public	module_radsw_kgb24::rayla
real(kind=kind_phys), dimension(ng24), public	module_radsw_kgb24::raylb
integer, public	module_radsw_kgb25::msa25
real(kind=kind_phys), dimension(msa25, ng25), public	module_radsw_kgb25::absa
real(kind=kind_phys), dimension(ng25), public	module_radsw_kgb25::rayl
real(kind=kind_phys), dimension(ng25), public	module_radsw_kgb25::abso3a
real(kind=kind_phys), dimension(ng25), public	module_radsw_kgb25::abso3b
real(kind=kind_phys), dimension(ng26), public	module_radsw_kgb26::rayl
integer, public	module_radsw_kgb27::msa27
integer, public	module_radsw_kgb27::msb27
real(kind=kind_phys), dimension(msa27, ng27), public	module_radsw_kgb27::absa
real(kind=kind_phys), dimension(msb27, ng27), public	module_radsw_kgb27::absb
real(kind=kind_phys), dimension(ng27), public	module_radsw_kgb27::rayl
integer, public	module_radsw_kgb28::msa28
integer, public	module_radsw_kgb28::msb28
real(kind=kind_phys), dimension(msa28, ng28), public	module_radsw_kgb28::absa
real(kind=kind_phys), dimension(msb28, ng28), public	module_radsw_kgb28::absb
real(kind=kind_phys), parameter, public	module_radsw_kgb28::rayl = 2.02e-05
integer, public	module_radsw_kgb29::msa29
integer, public	module_radsw_kgb29::msb29
integer, public	module_radsw_kgb29::msf29
integer, public	module_radsw_kgb29::mfr29
real(kind=kind_phys), dimension(mfr29, ng29), public	module_radsw_kgb29::forref
real(kind=kind_phys), dimension(msa29, ng29), public	module_radsw_kgb29::absa
real(kind=kind_phys), dimension(msb29, ng29), public	module_radsw_kgb29::absb
real(kind=kind_phys), dimension(msf29, ng29), public	module_radsw_kgb29::selfref
real(kind=kind_phys), dimension(ng29), public	module_radsw_kgb29::absh2o
real(kind=kind_phys), dimension(ng29), public	module_radsw_kgb29::absco2
real(kind=kind_phys), parameter, public	module_radsw_kgb29::rayl = 9.30e-11