ocean_vcoord_enter_data Subroutine

private subroutine ocean_vcoord_enter_data(this)

Map every host allocatable onto the device. Idempotent guard via is_init.

Type Bound

ocean_vcoord_t

Arguments

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

Calls

proc~~ocean_vcoord_enter_data~~CallsGraph proc~ocean_vcoord_enter_data ocean_vcoord_t%ocean_vcoord_enter_data proc~ocean_vcoord_enter_data_impl ocean_vcoord_enter_data_impl proc~ocean_vcoord_enter_data->proc~ocean_vcoord_enter_data_impl

Source Code

   subroutine ocean_vcoord_enter_data(this)
      !! Map every host allocatable onto the device.  Idempotent guard
      !! via `is_init`.
      class(ocean_vcoord_t), intent(inout) :: this
      select type (this)
      type is (ocean_vcoord_t)
         call ocean_vcoord_enter_data_impl(this)
      end select
   end subroutine ocean_vcoord_enter_data