module_radsw_parameters Module Reference

This module is for specifying the band structures and program parameters used by the RRTMG-SW scheme.

Data Types
type	cmpfsw_type
	derived type for special components of surface SW fluxes More...
type	profsw_type
	derived type for SW fluxes' column profiles (at layer interfaces) More...
type	sfcfsw_type
	derived type for SW fluxes at surface More...
type	topfsw_type
	derived type for SW fluxes at TOA More...

Variables
integer, parameter	nblow = 16
	band range lower index
integer, parameter	nbhgh = 29
	band range upper index
integer, parameter	nbands = NBHGH-NBLOW+1
	total number of SW bands (14)
integer, parameter	ngptsw = 112
	total number of g-point in all bands
integer, parameter	ngmax = 16
	maximum number of g-point in one band
integer, parameter	maxgas = 7
	maximum number of absorbing gases
integer, parameter	ntbmx = 10000
	index upper limit of optical depth and transmittance tables
integer, parameter	nswstr = 1
integer, parameter	nbdsw = NBANDS
integer	ng16
	The actual number of g-point for bands 16-29.
integer	ng17
integer	ng18
integer	ng19
integer	ng20
integer	ng21
integer	ng22
integer	ng23
integer	ng24
integer	ng25
integer	ng26
integer	ng27
integer	ng28
integer	ng29
integer, dimension(nblow:nbhgh)	ng
integer	ns16
integer	ns17
integer	ns18
integer	ns19
integer	ns20
integer	ns21
integer	ns22
integer	ns23
integer	ns24
integer	ns25
integer	ns26
integer	ns27
integer	ns28
integer	ns29
integer, dimension(nblow:nbhgh)	ngs
	array contains values of NS16-NS29
integer, dimension(ngptsw), parameter	ngb = (/ 16,16,16,16,16,16, 17,17,17,17,17,17,17,17,17,17,17,17, 18,18,18,18,18,18,18,18, 19,19,19,19,19,19,19,19, 20,20,20,20,20,20,20,20,20,20, 21,21,21,21,21,21,21,21,21,21, 22,22, 23,23,23,23,23,23,23,23,23,23, 24,24,24,24,24,24,24,24, 25,25,25,25,25,25, 26,26,26,26,26,26, 27,27,27,27,27,27,27,27, 28,28,28,28,28,28, 29,29,29,29,29,29,29,29,29,29,29,29 /)
	reverse checking of band index for each g-point
Starting/ending wavenumber for each of the SW bands
real(kind=kind_phys), dimension(nbands), parameter	wvnum1 = (/ 2600.0, 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, 8050.0,12850.0,16000.0,22650.0,29000.0,38000.0, 820.0 /)
real(kind=kind_phys), dimension(nbands), parameter	wvnum2 = (/ 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, 8050.0, 12850.0,16000.0,22650.0,29000.0,38000.0,50000.0, 2600.0 /)