ocean_tidal_mixing_enter_data_impl Subroutine

private subroutine ocean_tidal_mixing_enter_data_impl(this)

Arguments

Type IntentOptional Attributes Name
type(ocean_tidal_mixing_t), intent(inout) :: this

Called by

proc~~ocean_tidal_mixing_enter_data_impl~~CalledByGraph proc~ocean_tidal_mixing_enter_data_impl ocean_tidal_mixing_enter_data_impl proc~ocean_tidal_mixing_enter_data ocean_tidal_mixing_t%ocean_tidal_mixing_enter_data proc~ocean_tidal_mixing_enter_data->proc~ocean_tidal_mixing_enter_data_impl

Source Code

   subroutine ocean_tidal_mixing_enter_data_impl(this)
      type(ocean_tidal_mixing_t), intent(inout) :: this
      if (allocated(this%e_in)) then
         !$acc enter data copyin(this%e_in)
      end if
      if (allocated(this%kd_int)) then
         !$acc enter data copyin(this%kd_int)
      end if
   end subroutine ocean_tidal_mixing_enter_data_impl