ocean_slopes_enter_data Subroutine

private subroutine ocean_slopes_enter_data(this)

Poly TBP delegating to a type(...)-arg _impl (AMD-crash rule: bare polymorphic copyin(this) maps the stack descriptor → AMD libomptarget cross-slot overlap crash).

Type Bound

ocean_slopes_t

Arguments

Type IntentOptional Attributes Name
class(ocean_slopes_t), intent(inout) :: this

Calls

proc~~ocean_slopes_enter_data~~CallsGraph proc~ocean_slopes_enter_data ocean_slopes_t%ocean_slopes_enter_data proc~ocean_slopes_enter_data_impl ocean_slopes_enter_data_impl proc~ocean_slopes_enter_data->proc~ocean_slopes_enter_data_impl

Source Code

   subroutine ocean_slopes_enter_data(this)
      !! Poly TBP delegating to a `type(...)`-arg `_impl` (AMD-crash rule:
      !! bare polymorphic `copyin(this)` maps the stack descriptor → AMD
      !! libomptarget cross-slot overlap crash).
      class(ocean_slopes_t), intent(inout) :: this
      select type (this)
      type is (ocean_slopes_t)
         call ocean_slopes_enter_data_impl(this)
      end select
   end subroutine ocean_slopes_enter_data