ocean_varmix_destroy Subroutine

   subroutine ocean_varmix_destroy(this)
      class(ocean_varmix_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%f2_dx2_u)) deallocate (this%f2_dx2_u)
      if (allocated(this%f2_dx2_v)) deallocate (this%f2_dx2_v)
      if (allocated(this%beta_dx2_u)) deallocate (this%beta_dx2_u)
      if (allocated(this%beta_dx2_v)) deallocate (this%beta_dx2_v)
      if (allocated(this%l2_u)) deallocate (this%l2_u)
      if (allocated(this%l2_v)) deallocate (this%l2_v)
      if (allocated(this%res_fn_u)) deallocate (this%res_fn_u)
      if (allocated(this%res_fn_v)) deallocate (this%res_fn_v)
      if (allocated(this%sn_u)) deallocate (this%sn_u)
      if (allocated(this%sn_v)) deallocate (this%sn_v)
      if (allocated(this%khth_u)) deallocate (this%khth_u)
      if (allocated(this%khth_v)) deallocate (this%khth_v)
      if (allocated(this%khtr_u)) deallocate (this%khtr_u)
      if (allocated(this%khtr_v)) deallocate (this%khtr_v)
      this%nx_total = 0
      this%ny_total = 0
      this%nz_ml = 0
   end subroutine ocean_varmix_destroy