[cig-commits] r21790 - seismo/3D/SPECFEM3D/branches/full_aniso_kernels_matharu/src/generate_databases

[lefebvre at geodynamics.org]

Author: lefebvre
Date: 2013-04-10 06:15:07 -0700 (Wed, 10 Apr 2013)
New Revision: 21790

Modified:
   seismo/3D/SPECFEM3D/branches/full_aniso_kernels_matharu/src/generate_databases/model_gll.f90
Log:
path corrected ("/" added between the directory and the file name) when reading the model files.
	modified:   ../src/generate_databases/model_gll.f90

Modified: seismo/3D/SPECFEM3D/branches/full_aniso_kernels_matharu/src/generate_databases/model_gll.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/full_aniso_kernels_matharu/src/generate_databases/model_gll.f90	2013-04-10 11:49:16 UTC (rev 21789)
+++ seismo/3D/SPECFEM3D/branches/full_aniso_kernels_matharu/src/generate_databases/model_gll.f90	2013-04-10 13:15:07 UTC (rev 21790)
@@ -49,7 +49,7 @@
   character(len=256) :: prname_lp,filename
 
   ! processors name
-  write(prname_lp,'(a,i6.6,a)') trim(LOCAL_PATH)//'proc',myrank,'_'
+  write(prname_lp,'(a,i6.6,a)') trim(LOCAL_PATH)// '/' //'proc',myrank,'_'
 
   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!! if only vp structure is available (as is often the case in exploration seismology),