[cig-commits] r18866 - in seismo/3D/SPECFEM3D/trunk: in_out_files/OUTPUT_FILES src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-08-31 05:31:44 -0700 (Wed, 31 Aug 2011)
New Revision: 18866

Added:
   seismo/3D/SPECFEM3D/trunk/in_out_files/OUTPUT_FILES/NOISE_TOMOGRAPHY/
Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/noise_tomography.f90
Log:
changed directory 'NOISE_TOMOGRAPHY' to 'OUTPUT_FILES/NOISE_TOMOGRAPHY'


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/noise_tomography.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/noise_tomography.f90	2011-08-31 12:27:05 UTC (rev 18865)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/noise_tomography.f90	2011-08-31 12:31:44 UTC (rev 18866)
@@ -126,7 +126,7 @@
   character(len=256) :: filename
 
   ! read master receiver ID -- the ID in "STATIONS"
-  filename = trim(OUTPUT_FILES_PATH)//'/../NOISE_TOMOGRAPHY/irec_master_noise'
+  filename = trim(OUTPUT_FILES_PATH)//'/../OUTPUT_FILES/NOISE_TOMOGRAPHY/irec_master_noise'
   open(unit=IIN_NOISE,file=trim(filename),status='old',action='read',iostat=ios)
   if( ios /= 0 ) &
     call exit_MPI(myrank, 'file '//trim(filename)//' does NOT exist! This file contains the ID of the master receiver')
@@ -359,7 +359,7 @@
 
   noise_src(:) = 0._CUSTOM_REAL
   ! noise file (source time function)
-  filename = trim(OUTPUT_FILES_PATH)//'/../NOISE_TOMOGRAPHY/S_squared'
+  filename = trim(OUTPUT_FILES_PATH)//'/../OUTPUT_FILES/NOISE_TOMOGRAPHY/S_squared'
   open(unit=IIN_NOISE,file=trim(filename),status='old',action='read',iostat=ios)
   if( ios /= 0 .and. myrank == 0 )  &
     call exit_MPI(myrank, 'file '//trim(filename)//' does NOT exist! This file should have been generated using Matlab scripts')
@@ -374,7 +374,7 @@
 
 
   ! master receiver component direction, \nu_master
-  filename = trim(OUTPUT_FILES_PATH)//'/../NOISE_TOMOGRAPHY/nu_master'
+  filename = trim(OUTPUT_FILES_PATH)//'/../OUTPUT_FILES/NOISE_TOMOGRAPHY/nu_master'
   open(unit=IIN_NOISE,file=trim(filename),status='old',action='read',iostat=ios)
   if( ios /= 0 .and. myrank == 0 ) &
     call exit_MPI(myrank,&