subroutine flake::flake_radflux | ( | real (kind = kind_phys), intent(in) | depth_w, |
real (kind = kind_phys), intent(in) | albedo_water, | ||
real (kind = kind_phys), intent(in) | albedo_ice, | ||
real (kind = kind_phys), intent(in) | albedo_snow, | ||
type (opticpar_medium), intent(in) | opticpar_water, | ||
type (opticpar_medium), intent(in) | opticpar_ice, | ||
type (opticpar_medium), intent(in) | opticpar_snow, | ||
real (kind = kind_phys), intent(in) | depth_bs ) |