ocean_hvisc_enter_data_impl Subroutine

private subroutine ocean_hvisc_enter_data_impl(this)

Arguments

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

Calls

proc~~ocean_hvisc_enter_data_impl~~CallsGraph proc~ocean_hvisc_enter_data_impl ocean_hvisc_enter_data_impl proc~scratch_3d_buffer_enter_data_impl scratch_3d_buffer_enter_data_impl proc~ocean_hvisc_enter_data_impl->proc~scratch_3d_buffer_enter_data_impl

Called by

proc~~ocean_hvisc_enter_data_impl~~CalledByGraph proc~ocean_hvisc_enter_data_impl ocean_hvisc_enter_data_impl proc~ocean_hvisc_enter_data ocean_horizontal_viscosity_t%ocean_hvisc_enter_data proc~ocean_hvisc_enter_data->proc~ocean_hvisc_enter_data_impl

Source Code

   subroutine ocean_hvisc_enter_data_impl(this)
      type(ocean_horizontal_viscosity_t), intent(inout) :: this
      call scratch_3d_buffer_enter_data_impl(this%du_visc)
      call scratch_3d_buffer_enter_data_impl(this%dv_visc)
      call scratch_3d_buffer_enter_data_impl(this%lap_u)
      call scratch_3d_buffer_enter_data_impl(this%lap_v)
      call scratch_3d_buffer_enter_data_impl(this%str_xx)
      call scratch_3d_buffer_enter_data_impl(this%str_xy)
      call scratch_3d_buffer_enter_data_impl(this%ah_t)
      call scratch_3d_buffer_enter_data_impl(this%ah_q)
      !$acc enter data copyin(this%ke_diss)
   end subroutine ocean_hvisc_enter_data_impl