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

[surendra at geodynamics.org]

Author: surendra
Date: 2012-05-29 21:05:30 -0700 (Tue, 29 May 2012)
New Revision: 20224

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:
Moved parallel fault flag for mesher to 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-30 01:30:01 UTC (rev 20223)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/create_regions_mesh.f90	2012-05-30 04:05:30 UTC (rev 20224)
@@ -56,7 +56,7 @@
   use fault_object, only: fault_read_input,fault_setup, &
                           fault_save_arrays,fault_save_arrays_test,&
                           nnodes_coords_open,nodes_coords_open,ANY_FAULT_IN_THIS_PROC,&
-                          ANY_FAULT
+                          ANY_FAULT, PARALLEL_FAULT
 
   implicit none
 
@@ -160,7 +160,6 @@
 !real(kind=CUSTOM_REAL), dimension(:,:), allocatable :: ibedrock
 
 
-  logical, save :: PARALLEL_FAULT = .false.
 
 ! initializes arrays
   call sync_all()

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-30 01:30:01 UTC (rev 20223)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_object.f90	2012-05-30 04:05:30 UTC (rev 20224)
@@ -55,6 +55,7 @@
   integer, save :: nnodes_coords_open
   logical, save :: ANY_FAULT_IN_THIS_PROC = .false.
   logical, save :: ANY_FAULT = .false.
+  logical, save :: PARALLEL_FAULT = .false.
   
   ! corners indices of reference cube faces
   integer,dimension(3,4),parameter :: iface1_corner_ijk = &
@@ -75,7 +76,7 @@
                  iface5_corner_ijk,iface6_corner_ijk /),(/3,4,6/))   ! all faces
 
   public :: fault_read_input, fault_setup, fault_save_arrays_test, fault_save_arrays, &
-            nodes_coords_open, nnodes_coords_open, ANY_FAULT_IN_THIS_PROC, ANY_FAULT
+            nodes_coords_open, nnodes_coords_open, ANY_FAULT_IN_THIS_PROC, ANY_FAULT, PARALLEL_FAULT
 
 contains