ocean_mle_enter_data Subroutine

   subroutine ocean_mle_enter_data(this)
      ! select-type wrapper delegating to the non-poly `_impl` — the
      ! polymorphic dummy's stack descriptor must not be the map root
      ! (AMD libomptarget cross-slot overlap; see ocean_lateral_mix).
      ! Slot header + scalar knobs ride the orchestrator's root
      ! copyin(state) in ocean_state_enter_data.
      class(ocean_mle_t), intent(inout) :: this
      select type (this)
      type is (ocean_mle_t)
         call ocean_mle_enter_data_impl(this)
      end select
   end subroutine ocean_mle_enter_data