[cig-commits] r20215 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src
surendra at geodynamics.org
surendra at geodynamics.org
Mon May 28 19:10:06 PDT 2012
Author: surendra
Date: 2012-05-28 19:10:05 -0700 (Mon, 28 May 2012)
New Revision: 20215
Modified:
seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/create_regions_mesh.f90
seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Fixed some typos in fault parallelization
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-28 18:41:59 UTC (rev 20214)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/create_regions_mesh.f90 2012-05-29 02:10:05 UTC (rev 20215)
@@ -57,7 +57,6 @@
fault_save_arrays,fault_save_arrays_test,&
nnodes_coords_open,nodes_coords_open,ANY_FAULT_IN_THIS_PROC,&
ANY_FAULT
- use fault_solve, only : PARALLEL_FAULT
implicit none
@@ -161,6 +160,8 @@
!real(kind=CUSTOM_REAL), dimension(:,:), allocatable :: ibedrock
+ logical, save :: PARALLEL_FAULT = .false.
+
! initializes arrays
call sync_all()
if (myrank == 0) then
@@ -211,7 +212,7 @@
nodes_coords_ext_mesh,nnodes_ext_mesh,&
elmnts_ext_mesh,nelmnts_ext_mesh)
! at this point (xyz)store_dummy are still open
- if (.NOT.PARLLEL_FAULT) call fault_setup (ibool,nnodes_ext_mesh,nodes_coords_ext_mesh, &
+ if (.NOT. PARALLEL_FAULT) call fault_setup (ibool,nnodes_ext_mesh,nodes_coords_ext_mesh, &
xstore,ystore,zstore,nspec,nglob,myrank)
! this closes (xyz)store_dummy
endif
Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90 2012-05-28 18:41:59 UTC (rev 20214)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90 2012-05-29 02:10:05 UTC (rev 20215)
@@ -115,12 +115,12 @@
logical, save :: TPV16 = .false.
- logical, save :: Rate_AND_State = .true.
+ logical, save :: Rate_AND_State = .false.
real(kind=CUSTOM_REAL), allocatable, save :: Kelvin_Voigt_eta(:)
public :: BC_DYNFLT_init, BC_DYNFLT_set3d_all, Kelvin_Voigt_eta, &
- SIMULATION_TYPE_DYN
+ SIMULATION_TYPE_DYN,PARALLEL_FAULT
contains
@@ -957,7 +957,7 @@
! write dataXZ every NSNAP time step
if ( mod(it,NSNAP) == 0) then
- if(PARALLEL_FAULT) then
+ if(.NOT. PARALLEL_FAULT) then
call write_dataXZ(bc%dataXZ,it,iflt)
else
call gather_dataXZ(bc)
@@ -1426,7 +1426,7 @@
DataXZ%tPZ = 0e0_CUSTOM_REAL
!Surendra : for parallel fault
- if(PARLLEL_FAULT) then
+ if(PARALLEL_FAULT) then
call sum_all_i(bc%nglob,bc%nglob_all)
if(myrank==0) then
npoin_all=bc%nglob_all
More information about the CIG-COMMITS
mailing list