ocean_vdiff_enter_data_impl Subroutine

private subroutine ocean_vdiff_enter_data_impl(this)

Arguments

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

Calls

proc~~ocean_vdiff_enter_data_impl~~CallsGraph proc~ocean_vdiff_enter_data_impl ocean_vdiff_enter_data_impl proc~scratch_3d_buffer_enter_data_impl scratch_3d_buffer_enter_data_impl proc~ocean_vdiff_enter_data_impl->proc~scratch_3d_buffer_enter_data_impl

Called by

proc~~ocean_vdiff_enter_data_impl~~CalledByGraph proc~ocean_vdiff_enter_data_impl ocean_vdiff_enter_data_impl proc~ocean_vdiff_enter_data ocean_vdiff_t%ocean_vdiff_enter_data proc~ocean_vdiff_enter_data->proc~ocean_vdiff_enter_data_impl

Source Code

   subroutine ocean_vdiff_enter_data_impl(this)
      type(ocean_vdiff_t), intent(inout) :: this
      call scratch_3d_buffer_enter_data_impl(this%a_diag_t)
      call scratch_3d_buffer_enter_data_impl(this%b_diag_t)
      call scratch_3d_buffer_enter_data_impl(this%c_diag_t)
      call scratch_3d_buffer_enter_data_impl(this%rhs_t)
      call scratch_3d_buffer_enter_data_impl(this%a_diag_u)
      call scratch_3d_buffer_enter_data_impl(this%b_diag_u)
      call scratch_3d_buffer_enter_data_impl(this%c_diag_u)
      call scratch_3d_buffer_enter_data_impl(this%rhs_u)
      call scratch_3d_buffer_enter_data_impl(this%a_diag_v)
      call scratch_3d_buffer_enter_data_impl(this%b_diag_v)
      call scratch_3d_buffer_enter_data_impl(this%c_diag_v)
      call scratch_3d_buffer_enter_data_impl(this%rhs_v)
      call scratch_3d_buffer_enter_data_impl(this%kv_scalar_buf)
      !$acc enter data copyin(this%kv_bbl_u, this%kv_bbl_v, this%bbl_thick_u, this%bbl_thick_v)
      !$acc enter data copyin(this%bbl_conc_t, this%bbl_conc_s)
   end subroutine ocean_vdiff_enter_data_impl