c*****************************************************************

	SUBROUTINE init_ctes_phys

c routine PUBLIC du module mod_donnees

c initialisation des constantes physiques sans utiliser le fichier de données

c Auteur: P. Morel, Laboratoire Lagrange, O.C.A., CESAM2k

c---------------------------------------------------------------

	CHARACTER (len=1) :: oui

c--------------------------------------------------------------

	PRINT*,'Utilisation des constantes par défaut? saisir o/n'
	READ*,oui
	IF(oui /= 'o')THEN
	 PRINT*,'saisir le nom des constantes à utiliser'
	 PRINT*,'ctes_31, ctes_85, ctes_94m, ctes_ba, ctes_gaia'
	 READ*,nom_ctes
	ELSE
	 nom_ctes='ctes_94'
	ENDIF

c nom arbitraire pour le fichier de données
	 nom_fich2='dummy'

c initialisation des constantes
	 CALL ini_ctes

	RETURN

	END SUBROUTINE init_ctes_phys