Code to define the derived data types and provide table search routines.
fms_mod
time_manager_mod
call rad_utilities_init
call check_derived_types
call locate_in_table (table_axis, x, dx, ix, k_min, k_max)
table_axis | table_axis contains the axis information such as, min, increment,
and first column values. [table_axis_type] |
x | array from which data is to be searched [real] |
k_min | minimum k value of the search domain [integer] |
k_max | maximum k value of the search domain [integer] |
dx | residual between x and x(ix+first_column) [real] |
ix | index values of the searched domain in the array [integer] |
call looktab_type1 (tab, ix, iy, dx, dy, answer, k_min, k_max)
tab | The data array that contains function values and differentials [longwave_tables1_type] |
ix | x subscript of input data array [integer] |
iy | y subscript of input data array [integer] |
dx | x step in the x subscript space [real] |
dy | y step in the y subscript space [real] |
k_min | the minimum k value of the domain [integer] |
k_max | the maximum k value of the domain [integer] |
answer | the answer to be calculated [real] |
call looktab_type2 (tab, ix, iy, dx, dy, answer, k_min, k_max, m)
tab | The data array that contains function values and differentials [longwave_tables2_type] |
ix | x subscript of input data array [integer] |
iy | y subscript of input data array [integer] |
dx | x step in the x subscript space [real] |
dy | y step in the y subscript space [real] |
k_min | the minimum k value of the domain [integer] |
k_max | the maximum k value of the domain [integer] |
m | the z indice of the differential arrays [integer] |
answer | the answer to be calculated [real] |
call looktab_type3 (tab, ix, dx, answer, k_min, k_max, n)
tab | The data array that contains function values and differentials [longwave_tables3_type] |
ix | x subscript of input data array [integer] |
dx | x step in the x subscript space [real] |
k_min | the minimum k value of the domain [integer] |
k_max | the maximum k value of the domain [integer] |
n | the z indice of the differential arrays [integer] |
answer | the answer to be calculated [real] |
call table1_alloc (tab, dim1, dim2)
dim1 | size of the x dimension [integer] |
dim2 | size of the y dimension [integer] |
tab | The longwave tables [longwave_tables1_type] |
call table2_alloc (tab, dim1, dim2)
dim1 | size of the x dimension [integer] |
dim2 | size of the y dimension [integer] |
dim3 | size of the z dimension [integer] |
tab | The longwave tables [longwave_tables2_type] |
call table3_alloc (tab, dim1, dim2)
dim1 | size of the x dimension [integer] |
dim2 | size of the y dimension [integer] |
tab | The longwave tables [longwave_tables3_type] |
call thickavg_3d (nivl1 , nivl2 , nivls , & nbands, $ extivl , ssalbivl , asymmivl, solflxivl, & solflxband, extband , ssalbband , asymmband)
nivl1 | interval number for the specified single-scattering
properties corresponding to the first psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivl2 | interval number for the specified single-scattering
properties corresponding to the last psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivls | number of specified scattering spectral intervals [integer] |
nbands | number of spectral bands [integer] |
extivl | the specified spectral values of the extinction coefficient [real] |
asymmivl | the specified spectral values of the asymmetry factor [real] |
solflxivl | the solar flux in each specified scattering spectral interval [real] |
solflxband | the solar flux in each parameterization band [real] |
ssalbivl | the specified spectral values of the single-scattering albedo [real] |
extband | the parameterization band values of the extinction coefficient [real] |
ssalbband | the parameterization band values of the single-scattering albedo [real] |
asymmband | the parameterization band values of the asymmetry factor [real] |
call thickavg_0d (nivl1 , nivl2 , nivls , & nbands, & extivl , ssalbivl , asymmivl, solflxivl, & solflxband, extband , ssalbband , asymmband)
nivl1 | interval number for the specified single-scattering
properties corresponding to the first psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivl2 | interval number for the specified single-scattering
properties corresponding to the last psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivls | number of specified scattering spectral intervals [integer] |
nbands | number of spectral bands [integer] |
extivl | the specified spectral values of the extinction coefficient [real] |
asymmivl | the specified spectral values of the asymmetry factor [real] |
solflxivl | the solar flux in each specified scattering spectral interval [real] |
solflxband | the solar flux in each parameterization band [real] |
ssalbivl | the specified spectral values of the single-scattering albedo [real] |
extband | the parameterization band values of the extinction coefficient [real] |
ssalbband | the parameterization band values of the single-scattering albedo [real] |
asymmband | the parameterization band values of the asymmetry factor [real] |
call thickavg_isccp
nband |
[integer] |
nivl1 | interval number for the specified single-scattering
properties corresponding to the first psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivl2 | interval number for the specified single-scattering
properties corresponding to the last psuedo-
monochromatic frequency in a given parameterization
band [integer] |
extivl | the specified spectral values of the extinction coefficient [real] |
solflxivl | the solar flux in each specified scattering spectral interval [real] |
solflxband | the solar flux in each parameterization band [real] |
mask | mask is .true. at gridpoints where extband needs to be calculated [logical] |
extband | the parameterization band values of the extinction coefficient [real] |
call thickavg_1band
nband |
[integer] |
nivl1 | interval number for the specified single-scattering
properties corresponding to the first psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivl2 | interval number for the specified single-scattering
properties corresponding to the last psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivls | number of specified scattering spectral intervals [integer] |
nbands | number of spectral bands [integer] |
extivl | the specified spectral values of the extinction coefficient [real] |
asymmivl | the specified spectral values of the asymmetry factor [real] |
solflxivl | the solar flux in each specified scattering spectral interval [real] |
solflxband | the solar flux in each parameterization band [real] |
mask | mask is .true. at gridpoints where band calculations are needed [logical] |
ssalbivl | the specified spectral values of the single-scattering albedo [real] |
extband | the parameterization band values of the extinction coefficient [real] |
ssalbband | the parameterization band values of the single-scattering albedo [real] |
asymmband | the parameterization band values of the asymmetry factor [real] |
call thinavg (nivl1 , nivl2 , nivls , & nbands, & extivl , ssalbivl , asymmivl, solflxivl, & solflxband, extband , ssalbband , asymmband)
nivl1 | interval number for the specified single-scattering
properties corresponding to the first psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivl2 | interval number for the specified single-scattering
properties corresponding to the last psuedo-
monochromatic frequency in a given parameterization
band [integer] |
nivls | number of specified scattering spectral intervals [integer] |
extivl | the specified spectral values of the extinction coefficient [real] |
nbands | number of spectral bands [integer] |
asymmivl | the specified spectral values of the asymmetry factor [real] |
solflxivl | the solar flux in each specified scattering spectral interval [real] |
solflxband | the solar flux in each parameterization band [real] |
ssalbivl | the specified spectral values of the single-scattering albedo [real] |
extband | the parameterization band values of the extinction coefficient [real] |
ssalbband | the parameterization band values of the single-scattering albedo [real] |
asymmband | the parameterization band values of the asymmetry factor [real] |
call rad_utilities_end