[cig-commits] r20211 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src

[ampuero at geodynamics.org]

Author: ampuero
Date: 2012-05-27 22:45:33 -0700 (Sun, 27 May 2012)
New Revision: 20211

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/create_regions_mesh.f90
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_object.f90
Log:
disabled debug output (txt file) in fault_object

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/create_regions_mesh.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/create_regions_mesh.f90	2012-05-27 22:30:38 UTC (rev 20210)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/create_regions_mesh.f90	2012-05-28 05:45:33 UTC (rev 20211)
@@ -319,8 +319,8 @@
                         c55store,c56store,c66store, &
                         ispec_is_acoustic,ispec_is_elastic,ispec_is_poroelastic)
 
-  call fault_save_arrays_test(prname,IOUT)  ! for debugging
-  call fault_save_arrays(prname,IOUT)
+!  call fault_save_arrays_test(prname)  ! for debugging
+  call fault_save_arrays(prname)
 
 ! computes the approximate amount of static memory needed to run the solver
   call memory_eval(nspec,nglob,maxval(nibool_interfaces_ext_mesh),num_interfaces_ext_mesh,static_memory_size)

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_object.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_object.f90	2012-05-27 22:30:38 UTC (rev 20210)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_object.f90	2012-05-28 05:45:33 UTC (rev 20211)
@@ -528,11 +528,11 @@
 
 !====================================================================================
 ! saves all fault data in ASCII files for verification
-subroutine fault_save_arrays_test(prname,IOUT)
+subroutine fault_save_arrays_test(prname)
 
   character(len=256), intent(in) :: prname ! 'proc***'
-  integer, intent(in) :: IOUT
 
+  integer, parameter :: IOUT = 121 !WARNING: not very robust. Could instead look for an available ID
   integer :: nbfaults,iflt,ier
   character(len=256) :: filename 
 
@@ -601,11 +601,11 @@
 
 !=================================================================================
 ! saves fault data needed by the solver in binary files 
-subroutine fault_save_arrays(prname,IOUT)
+subroutine fault_save_arrays(prname)
 
   character(len=256), intent(in) :: prname ! 'proc***'
-  integer, intent(in) :: IOUT
 
+  integer, parameter :: IOUT = 121 !WARNING: not very robust. Could instead look for an available ID
   integer :: nbfaults,iflt,ier
   character(len=256) :: filename
   integer :: size_Kelvin_Voigt
@@ -617,6 +617,7 @@
   open(unit=IOUT,file=trim(filename),status='unknown',action='write',form='unformatted',iostat=ier)
   if( ier /= 0 ) then
     write(IOUT) 'error opening file ',trim(filename)
+    ! JPA instead of IOUT this error message should go to an error log file
     stop 
   endif
    
@@ -635,6 +636,7 @@
   open(unit=IOUT,file=trim(filename),status='unknown',action='write',form='unformatted',iostat=ier)
   if( ier /= 0 ) then
     write(IOUT,*) 'error opening file ',trim(filename)
+    ! JPA instead of IOUT this error message should go to an error log file
     stop 
   endif