Changeset 10 for trunk/SOURCES/util_recovery.f90

Timestamp:

02/12/15 16:09:32 (9 years ago)

Author:

dumas

Message:

Modification chemin dirnameinp et dirsource pour lancer GRISLI depuis le répertoire RESULTATS/ma_simule. Lecture du fichier param dans le repertoire de la simulation avec nom standard type hemin40_param_list.dat. Pour le moment seule la version Hemin-40 est utilisable.

File:

• trunk/SOURCES/util_recovery.f90 (modified) (1 diff)

trunk/SOURCES/util_recovery.f90

@@ -34 +34 @@
     if (itracebug.eq.1)  call tracebug(' Entree dans routine init_recovery ')
 
-    open(num_file,file='../SOURCES/Fichiers-parametres/TEMPS-CPTR-NC.dat')
+    !open(num_file,file='../SOURCES/Fichiers-parametres/TEMPS-CPTR-NC.dat')
+    open(num_file,file=trim(dirsource)//'/Fichiers-parametres/TEMPS-CPTR-NC.dat')
 
     ! passe les commentaires qui se terminent par une ligne de ~~~