[cig-commits] r18865 - in seismo/3D/SPECFEM3D_GLOBE/trunk: . OUTPUT_FILES src/specfem3D

[dkomati1 at geodynamics.org]

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

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


Copied: seismo/3D/SPECFEM3D_GLOBE/trunk/OUTPUT_FILES/NOISE_TOMOGRAPHY (from rev 18864, seismo/3D/SPECFEM3D_GLOBE/trunk/NOISE_TOMOGRAPHY)

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90	2011-08-31 12:24:45 UTC (rev 18864)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90	2011-08-31 12:27:05 UTC (rev 18865)
@@ -113,7 +113,7 @@
 
 
   ! read master receiver ID -- the ID in DATA/STATIONS
-  filename = 'NOISE_TOMOGRAPHY/'//'irec_master_noise'
+  filename = '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')
@@ -338,7 +338,7 @@
 
   noise_src(:) = 0._CUSTOM_REAL
   ! noise file (source time function)
-  filename = 'NOISE_TOMOGRAPHY/'//'S_squared'
+  filename = 'OUTPUT_FILES/NOISE_TOMOGRAPHY/'//'S_squared'
   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 is generated by Matlab scripts')
@@ -351,7 +351,7 @@
   close(IIN_NOISE)
 
   ! master receiver component direction, \nu_master
-  filename = 'NOISE_TOMOGRAPHY/'//'nu_master'
+  filename = 'OUTPUT_FILES/NOISE_TOMOGRAPHY/'//'nu_master'
   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! nu_master is the component direction (NEZ) for master receiver')