ocean_gm_destroy Subroutine

   subroutine ocean_gm_destroy(this)
      class(ocean_gm_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%khth_u)) deallocate (this%khth_u)
      if (allocated(this%khth_v)) deallocate (this%khth_v)
      if (allocated(this%uhD)) deallocate (this%uhD)
      if (allocated(this%vhD)) deallocate (this%vhD)
      if (allocated(this%gm_src)) deallocate (this%gm_src)
      this%nx_total = 0
      this%ny_total = 0
      this%nz_ml = 0
   end subroutine ocean_gm_destroy