ocean_data_input_enter_data Subroutine

private subroutine ocean_data_input_enter_data(this)

Type-bound wrapper — delegates to the non-polymorphic impl (the AMD libomptarget cross-slot-overlap fix; see rdb_ocean_surface_stress.F90).

Type Bound

ocean_data_input_t

Arguments

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

Calls

proc~~ocean_data_input_enter_data~~CallsGraph proc~ocean_data_input_enter_data ocean_data_input_t%ocean_data_input_enter_data proc~ocean_data_input_enter_data_impl ocean_data_input_enter_data_impl proc~ocean_data_input_enter_data->proc~ocean_data_input_enter_data_impl

Source Code

   subroutine ocean_data_input_enter_data(this)
      !! Type-bound wrapper — delegates to the non-polymorphic impl (the
      !! AMD libomptarget cross-slot-overlap fix; see
      !! `rdb_ocean_surface_stress.F90`).
      class(ocean_data_input_t), intent(inout) :: this
      select type (this)
      type is (ocean_data_input_t)
         call ocean_data_input_enter_data_impl(this)
      end select
   end subroutine ocean_data_input_enter_data