[cig-commits] r18864 - in seismo/2D/SPECFEM2D/trunk: OUTPUT_FILES src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-08-31 05:24:45 -0700 (Wed, 31 Aug 2011)
New Revision: 18864

Added:
   seismo/2D/SPECFEM2D/trunk/OUTPUT_FILES/NOISE_TOMOGRAPHY/
Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/noise_tomography.f90
Log:
changed directory 'NOISE_TOMOGRAPHY' to 'OUTPUT_FILES/NOISE_TOMOGRAPHY'


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/noise_tomography.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/noise_tomography.f90	2011-08-31 08:54:32 UTC (rev 18863)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/noise_tomography.f90	2011-08-31 12:24:45 UTC (rev 18864)
@@ -112,13 +112,13 @@
   integer :: i,ios
 
   !define master receiver
-  open(unit=509,file='NOISE_TOMOGRAPHY/irec_master',status='old',action='read',iostat=ios)
+  open(unit=509,file='OUTPUT_FILES/NOISE_TOMOGRAPHY/irec_master',status='old',action='read',iostat=ios)
   if (ios == 0) then
     read(509,*) irec_master
   else
     irec_master=1
     write(*,*) ''
-    write(*,*) 'Error opening NOISE_TOMOGRAPHY/irec_master.'
+    write(*,*) 'Error opening OUTPUT_FILES/NOISE_TOMOGRAPHY/irec_master.'
     write(*,*) 'Using irec_master=1. Continuing.'
     write(*,*) ''
   endif
@@ -227,7 +227,7 @@
   elseif(METHOD == 2) then
 
     ! METHOD 2: read in custom noise function
-    open(unit=55,file='NOISE_TOMOGRAPHY/S_squared',status='old')
+    open(unit=55,file='OUTPUT_FILES/NOISE_TOMOGRAPHY/S_squared',status='old')
     do it = 1,NSTEP
       READ(55,*) time_function_noise(it)
     enddo