procedure(reduce_abstract), deferred, public mo_fluxes::ty_fluxes::reduce |
( |
class(ty_fluxes), intent(inout) | this, |
|
|
real(kind=wp), dimension(:,:,:), intent(in) | gpt_flux_up, |
|
|
real(kind=wp), dimension(:,:,:), intent(in) | gpt_flux_dn, |
|
|
class(ty_optical_props), intent(in) | spectral_disc, |
|
|
logical, intent(in) | top_at_1, |
|
|
real(kind=wp), dimension(:,:,:), intent(in), optional | gpt_flux_dn_dir ) |
|
pure virtual |