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

[surendra at geodynamics.org]

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