ocean_hvisc_destroy Subroutine

private subroutine ocean_hvisc_destroy(this)

Type Bound

ocean_horizontal_viscosity_t

Arguments

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

Calls

proc~~ocean_hvisc_destroy~~CallsGraph proc~ocean_hvisc_destroy ocean_horizontal_viscosity_t%ocean_hvisc_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_hvisc_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_hvisc_destroy(this)
      class(ocean_horizontal_viscosity_t), intent(inout) :: this
      this%is_init = .false.
      call this%du_visc%destroy()
      call this%dv_visc%destroy()
      call this%lap_u%destroy()
      call this%lap_v%destroy()
      call this%str_xx%destroy()
      call this%str_xy%destroy()
      call this%ah_t%destroy()
      call this%ah_q%destroy()
      if (allocated(this%ke_diss)) deallocate (this%ke_diss)
   end subroutine ocean_hvisc_destroy