ocean_redi_destroy Subroutine

   subroutine ocean_redi_destroy(this)
      class(ocean_redi_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%uPoL)) deallocate (this%uPoL)
      if (allocated(this%uPoR)) deallocate (this%uPoR)
      if (allocated(this%uKoL)) deallocate (this%uKoL)
      if (allocated(this%uKoR)) deallocate (this%uKoR)
      if (allocated(this%uhEff)) deallocate (this%uhEff)
      if (allocated(this%vPoL)) deallocate (this%vPoL)
      if (allocated(this%vPoR)) deallocate (this%vPoR)
      if (allocated(this%vKoL)) deallocate (this%vKoL)
      if (allocated(this%vKoR)) deallocate (this%vKoR)
      if (allocated(this%vhEff)) deallocate (this%vhEff)
      if (allocated(this%uKb)) deallocate (this%uKb)
      if (allocated(this%uKt)) deallocate (this%uKt)
      if (allocated(this%vKb)) deallocate (this%vKb)
      if (allocated(this%vKt)) deallocate (this%vKt)
      if (allocated(this%khtr_u)) deallocate (this%khtr_u)
      if (allocated(this%khtr_v)) deallocate (this%khtr_v)
      if (allocated(this%tr_snap)) deallocate (this%tr_snap)
      this%nx_total = 0
      this%ny_total = 0
      this%nz_ml = 0
      this%nsurf = 0
   end subroutine ocean_redi_destroy