ocean_lateral_mix_enter_data Subroutine

   subroutine ocean_lateral_mix_enter_data(this)
      ! No bare `copyin(this)`: mapping the polymorphic dummy's stack
      ! descriptor makes a deep struct mapper on a recycled stack address
      ! that AMD libomptarget rejects (cross-slot overlap).  Slot header +
      ! scalar presence come from the orchestrator's root copyin(state)
      ! (every slot is inline in ocean_state_t).
      class(ocean_lateral_mix_t), intent(inout) :: this
      select type (this)
      type is (ocean_lateral_mix_t)
         call ocean_lateral_mix_enter_data_impl(this)
      end select
   end subroutine ocean_lateral_mix_enter_data