[cig-commits] r20224 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src
surendra at geodynamics.org
surendra at geodynamics.org
Tue May 29 21:05:30 PDT 2012
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
More information about the CIG-COMMITS
mailing list