#* Calib2k_pms mon_modele
#* script pour calibrer en zsx=.0245 le modele de nom : mon_modele
#* en partant de la PMS
#* les fichiers mon_modele.don et 5d-4_B.pms
#* doivent être dans l'environnement


#* Auteur: P.Morel, Département J.D. Cassini, O.C.A.

#* on place 1 dans le fichier .tempo
#* on calcule une évolution
#* on calibre on remet 0/1 si calibre oui/non
#* on continue tant qu'il y a 1 dans mon_modele.tempo

unalias cp
unalias mv
unalias rm

echo 'calibration du modele' $1

rm $1.tempo
rm $1.calib

echo 'création du fichier' $1'.tempo'
cat << mark > $1.tempo	
1
mark

echo 'création du fichier' $1'.calib'
cat << mark > $1.calib
mark

while (`cat $1.tempo` != 0)	#* tant qu'il n'y a pas 0 dans .tempo

echo 'execution de cesam2k'
cesam2k.out << mark
3	#modele de PMS
o
5d-4_B.pms
$1
5.d-4
o	#ok?
o	#ok?
mark

if ( $status != 0 )exit		#* on sort s'il y a eu Pb

echo 'exécution de calib2k'

calib2k.out << mark >> $1.calib	#* calibration
$1
mark

if ( $status != 0 )exit		#* on sort s'il y a eu Pb

end

rm $1.tempo