Type-Bound Procedures
generic, public :: alloc_nstr => alloc_only_nstr, init_and_alloc_nstr, copy_and_alloc_nstr
-
private function alloc_only_nstr(this, nmom, ncol, nlay) result(err_message)
Arguments
Type | Intent | Optional | Attributes | | Name | |
class(ty_optical_props_nstr) |
|
| | :: |
this | |
integer, |
intent(in) |
| | :: |
nmom | |
integer, |
intent(in) |
| | :: |
ncol | |
integer, |
intent(in) |
| | :: |
nlay | |
Return Value character(len=128)
-
private function init_and_alloc_nstr(this, nmom, ncol, nlay, band_lims_wvn, band_lims_gpt, name) result(err_message)
Arguments
Type | Intent | Optional | Attributes | | Name | |
class(ty_optical_props_nstr) |
|
| | :: |
this | |
integer, |
intent(in) |
| | :: |
nmom | |
integer, |
intent(in) |
| | :: |
ncol | |
integer, |
intent(in) |
| | :: |
nlay | |
real(kind=wp), |
intent(in), |
| dimension(:,:) | :: |
band_lims_wvn | |
integer, |
intent(in), |
optional | dimension(:,:) | :: |
band_lims_gpt | |
character(len=*), |
intent(in), |
optional | | :: |
name | |
Return Value character(len=128)
-
private function copy_and_alloc_nstr(this, nmom, ncol, nlay, spectral_desc, name) result(err_message)
Arguments
Type | Intent | Optional | Attributes | | Name | |
class(ty_optical_props_nstr) |
|
| | :: |
this | |
integer, |
intent(in) |
| | :: |
nmom | |
integer, |
intent(in) |
| | :: |
ncol | |
integer, |
intent(in) |
| | :: |
nlay | |
class(ty_optical_props), |
intent(in) |
| | :: |
spectral_desc | |
character(len=*), |
intent(in), |
optional | | :: |
name | |
Return Value character(len=128)
procedure, public :: bands_are_equal
procedure, public :: convert_band2gpt
procedure, public :: convert_gpt2band
procedure, public :: delta_scale => delta_scale_nstr
-
private function delta_scale_nstr(this, for) result(err_message)
Arguments
Type | Intent | Optional | Attributes | | Name | |
class(ty_optical_props_nstr), |
intent(inout) |
| | :: |
this | |
real(kind=wp), |
intent(in), |
optional | dimension(:,:,:) | :: |
for | |
Return Value character(len=128)
procedure, public :: expand
procedure, public :: finalize => finalize_base
procedure, public :: finalize_nstr
-
private function finalize_nstr(this) result(err_message)
Arguments
Return Value character(len=128)
procedure, public :: get_band_lims_gpoint
procedure, public :: get_band_lims_wavelength
procedure, public :: get_band_lims_wavenumber
procedure, public :: get_gpoint_bands
procedure, public :: get_name
-
private function get_name(this)
Arguments
Return Value character(len=name_len)
procedure, public :: get_nband
-
private pure function get_nband(this)
Number of bands
Arguments
Return Value integer
procedure, public :: get_ncol
-
private pure function get_ncol(this)
Arguments
Return Value integer
procedure, public :: get_ngpt
-
private pure function get_ngpt(this)
Number of g-points
Arguments
Return Value integer
procedure, public :: get_nlay
-
private pure function get_nlay(this)
Arguments
Return Value integer
procedure, public :: get_nmom
-
private pure function get_nmom(this)
Arguments
Return Value integer
procedure, public :: get_subset => subset_nstr_range
-
private function subset_nstr_range(full, start, n, subset) result(err_message)
Arguments
Return Value character(len=128)
procedure, public :: gpoints_are_equal
procedure, public :: increment
Increment another set of values
generic, public :: init => init_base, init_base_from_copy
procedure, public :: is_initialized => is_initialized_base
procedure, public :: set_name
procedure, public :: validate => validate_nstream
-
private function validate_nstream(this) result(err_message)
Arguments
Return Value character(len=128)