ocean_tides_enter_data Subroutine

private subroutine ocean_tides_enter_data(this)

Attach the device-resident tide arrays. Only when enabled. select-type -> non-poly _impl (AMD libomptarget class-box rule).

Type Bound

ocean_tides_t

Arguments

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

Calls

proc~~ocean_tides_enter_data~~CallsGraph proc~ocean_tides_enter_data ocean_tides_t%ocean_tides_enter_data proc~ocean_tides_enter_data_impl ocean_tides_enter_data_impl proc~ocean_tides_enter_data->proc~ocean_tides_enter_data_impl

Source Code

   subroutine ocean_tides_enter_data(this)
      !! Attach the device-resident tide arrays.  Only when enabled.
      !! select-type -> non-poly `_impl` (AMD libomptarget class-box rule).
      class(ocean_tides_t), intent(inout) :: this
      if (.not. this%enable) return
      select type (this)
      type is (ocean_tides_t)
         call ocean_tides_enter_data_impl(this)
      end select
   end subroutine ocean_tides_enter_data