Changeset 10 for trunk/SOURCES/initial-phy-2.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/initial-phy-2.f90 (modified) (3 diffs)

trunk/SOURCES/initial-phy-2.f90

@@ -33 +33 @@
   ! ouverture du fichier parametre ..._param_list.dat
   !--------------------------------------------------------------
-  dirsource='SOURCES'
-  filin='../'//trim(dirsource)//'/Fichiers-parametres/'//trim(geoplace)//'_param_list.dat'
-  !write(6,*) filin
-
+  ! dirsource='SOURCES'
+  dirsource='../../SOURCES'
+  ! filin='../'//trim(dirsource)//'/Fichiers-parametres/'//trim(geoplace)//'_param_list.dat'
+  filin=trim(geoplace)//'_param_list.dat'
 
   open(num_param,file=filin) 
@@ -52 +52 @@
 428 format(A)             ! formats pour les ecritures dans 42
 
-  filin='../Param/param'//runname
+  ! filin='../Param/param'//runname
+  filin='param'//runname
   open(num_rep_42,file=filin)
 
@@ -101 +102 @@
   !------------------------------
 
-  filin='time-series/short'//runname//'.ritz'
+  ! filin='time-series/short'//runname//'.ritz'
+  filin='short'//runname//'.ritz'
   filin=TRIM(DIRNAMEOUT)//TRIM(filin)