ocean_lateral_mix_destroy Subroutine

private subroutine ocean_lateral_mix_destroy(this)

Type Bound

ocean_lateral_mix_t

Arguments

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

Calls

proc~~ocean_lateral_mix_destroy~~CallsGraph proc~ocean_lateral_mix_destroy ocean_lateral_mix_t%ocean_lateral_mix_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_lateral_mix_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_lateral_mix_destroy(this)
      class(ocean_lateral_mix_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%ah_face_x)) deallocate (this%ah_face_x)
      if (allocated(this%ah_face_y)) deallocate (this%ah_face_y)
      if (allocated(this%nu4_face_x)) deallocate (this%nu4_face_x)
      if (allocated(this%nu4_face_y)) deallocate (this%nu4_face_y)
      call this%vort_corner%destroy()
      this%nx_total = 0
      this%ny_total = 0
      this%nz_ml = 0
   end subroutine ocean_lateral_mix_destroy