character(len=128) function mo_compute_bc::reduce_1lev |
( |
class(ty_fluxes_1lev), 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 ) |
|
private |