ocean_tides_destroy Subroutine

   subroutine ocean_tides_destroy(this)
      class(ocean_tides_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%species_c)) deallocate (this%species_c)
      if (allocated(this%omega_c)) deallocate (this%omega_c)
      if (allocated(this%amp_c)) deallocate (this%amp_c)
      if (allocated(this%love_c)) deallocate (this%love_c)
      if (allocated(this%phase0)) deallocate (this%phase0)
      if (allocated(this%f_nodal)) deallocate (this%f_nodal)
      if (allocated(this%u_nodal)) deallocate (this%u_nodal)
      if (allocated(this%amp_cos)) deallocate (this%amp_cos)
      if (allocated(this%amp_sin)) deallocate (this%amp_sin)
      if (allocated(this%cos_struct)) deallocate (this%cos_struct)
      if (allocated(this%sin_struct)) deallocate (this%sin_struct)
      if (allocated(this%eta_eq)) deallocate (this%eta_eq)
      if (allocated(this%eta_sal)) deallocate (this%eta_sal)
      if (allocated(this%eta_forcing)) deallocate (this%eta_forcing)
   end subroutine ocean_tides_destroy