coriolis_adv_enter_data_impl Subroutine

private subroutine coriolis_adv_enter_data_impl(this)

Arguments

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

Calls

proc~~coriolis_adv_enter_data_impl~~CallsGraph proc~coriolis_adv_enter_data_impl coriolis_adv_enter_data_impl proc~scratch_3d_buffer_enter_data_impl scratch_3d_buffer_enter_data_impl proc~coriolis_adv_enter_data_impl->proc~scratch_3d_buffer_enter_data_impl

Called by

proc~~coriolis_adv_enter_data_impl~~CalledByGraph proc~coriolis_adv_enter_data_impl coriolis_adv_enter_data_impl proc~coriolis_adv_enter_data coriolis_adv_t%coriolis_adv_enter_data proc~coriolis_adv_enter_data->proc~coriolis_adv_enter_data_impl

Source Code

   subroutine coriolis_adv_enter_data_impl(this)
      type(coriolis_adv_t), intent(inout) :: this
      call scratch_3d_buffer_enter_data_impl(this%q_corner)
      call scratch_3d_buffer_enter_data_impl(this%ke_centre)
      call scratch_3d_buffer_enter_data_impl(this%pv_flux_x)
      call scratch_3d_buffer_enter_data_impl(this%pv_flux_y)
      call scratch_3d_buffer_enter_data_impl(this%mass_flux_u)
      call scratch_3d_buffer_enter_data_impl(this%mass_flux_v)
      !$acc enter data copyin(this%f_corner)
   end subroutine coriolis_adv_enter_data_impl