[cig-commits] r21002 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH

[percygalvez at geodynamics.org]

Author: percygalvez
Date: 2012-11-07 08:31:51 -0800 (Wed, 07 Nov 2012)
New Revision: 21002

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90
Log:
clock with outputfile

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90	2012-11-07 09:30:00 UTC (rev 21001)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/decompose_mesh_SCOTCH/decompose_mesh_SCOTCH.f90	2012-11-07 16:31:51 UTC (rev 21002)
@@ -98,7 +98,7 @@
     integer*4 :: today(3),now(3)
     integer   :: IOUT=178
      
-    open(unit=IOUT, file=localpath_name(1:len_trim(localpath_name))//OUTPUT_FILE,&
+    open(unit=IOUT, file=outputpath_name(1:len_trim(outputpath_name))//OUTPUT_FILE,&
          status='unknown', form='formatted', iostat = ierr, access='append')
 
     write(6,*) 'Writing a message'