ocean_bdrag_exit_data_impl Subroutine

private subroutine ocean_bdrag_exit_data_impl(this)

Arguments

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

Calls

proc~~ocean_bdrag_exit_data_impl~~CallsGraph proc~ocean_bdrag_exit_data_impl ocean_bdrag_exit_data_impl proc~scratch_3d_buffer_exit_data_impl scratch_3d_buffer_exit_data_impl proc~ocean_bdrag_exit_data_impl->proc~scratch_3d_buffer_exit_data_impl

Called by

proc~~ocean_bdrag_exit_data_impl~~CalledByGraph proc~ocean_bdrag_exit_data_impl ocean_bdrag_exit_data_impl proc~ocean_bdrag_exit_data ocean_bottom_drag_t%ocean_bdrag_exit_data proc~ocean_bdrag_exit_data->proc~ocean_bdrag_exit_data_impl

Source Code

   subroutine ocean_bdrag_exit_data_impl(this)
      type(ocean_bottom_drag_t), intent(inout) :: this
      call scratch_3d_buffer_exit_data_impl(this%du_drag)
      call scratch_3d_buffer_exit_data_impl(this%dv_drag)
      !$acc exit data delete(this%lambda_bot_u, this%lambda_bot_v)
      call scratch_3d_buffer_exit_data_impl(this%lambda_side_u)
      call scratch_3d_buffer_exit_data_impl(this%lambda_side_v)
   end subroutine ocean_bdrag_exit_data_impl