ocean_vdiff_destroy Subroutine

private subroutine ocean_vdiff_destroy(this)

Type Bound

ocean_vdiff_t

Arguments

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

Calls

proc~~ocean_vdiff_destroy~~CallsGraph proc~ocean_vdiff_destroy ocean_vdiff_t%ocean_vdiff_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_vdiff_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_vdiff_destroy(this)
      class(ocean_vdiff_t), intent(inout) :: this
      this%is_init = .false.
      call this%a_diag_t%destroy()
      call this%b_diag_t%destroy()
      call this%c_diag_t%destroy()
      call this%rhs_t%destroy()
      call this%a_diag_u%destroy()
      call this%b_diag_u%destroy()
      call this%c_diag_u%destroy()
      call this%rhs_u%destroy()
      call this%a_diag_v%destroy()
      call this%b_diag_v%destroy()
      call this%c_diag_v%destroy()
      call this%rhs_v%destroy()
      call this%kv_scalar_buf%destroy()
      if (allocated(this%kv_bbl_u)) deallocate (this%kv_bbl_u)
      if (allocated(this%kv_bbl_v)) deallocate (this%kv_bbl_v)
      if (allocated(this%bbl_thick_u)) deallocate (this%bbl_thick_u)
      if (allocated(this%bbl_thick_v)) deallocate (this%bbl_thick_v)
      if (allocated(this%bbl_conc_t)) deallocate (this%bbl_conc_t)
      if (allocated(this%bbl_conc_s)) deallocate (this%bbl_conc_s)
   end subroutine ocean_vdiff_destroy