init Subroutine

    subroutine init(self)
        class(eos_water), intent(inout) :: self

        select case (spc_obj%eos_water)
        case ('tait')
            self%p_water => p_water_tait
        case ('monaghan')
            self%p_water => p_water_monaghan
        case ('morris')
            self%p_water => p_water_morris
        case default
            self%p_water => p_water_tait
        end select

    end subroutine init