ocean_bdrag_destroy Subroutine

private subroutine ocean_bdrag_destroy(this)

Type Bound

ocean_bottom_drag_t

Arguments

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

Calls

proc~~ocean_bdrag_destroy~~CallsGraph proc~ocean_bdrag_destroy ocean_bottom_drag_t%ocean_bdrag_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_bdrag_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_bdrag_destroy(this)
      class(ocean_bottom_drag_t), intent(inout) :: this
      this%is_init = .false.
      call this%du_drag%destroy()
      call this%dv_drag%destroy()
      if (allocated(this%lambda_bot_u)) deallocate (this%lambda_bot_u)
      if (allocated(this%lambda_bot_v)) deallocate (this%lambda_bot_v)
      call this%lambda_side_u%destroy()
      call this%lambda_side_v%destroy()
   end subroutine ocean_bdrag_destroy