[cig-commits] r21111 - in seismo/3D/SPECFEM3D/trunk/src: generate_databases specfem3D

[surendra at geodynamics.org]

Author: surendra
Date: 2012-12-08 14:52:00 -0800 (Sat, 08 Dec 2012)
New Revision: 21111

Modified:
   seismo/3D/SPECFEM3D/trunk/src/generate_databases/fault_generate_databases.f90
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90
Log:
More fixes

Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/fault_generate_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/fault_generate_databases.f90	2012-12-08 21:33:13 UTC (rev 21110)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/fault_generate_databases.f90	2012-12-08 22:52:00 UTC (rev 21111)
@@ -432,7 +432,9 @@
   use create_regions_mesh_ext_par, only: xstore_dummy,ystore_dummy,zstore_dummy, &
                                          dershape2D_x,dershape2D_y,dershape2D_bottom,dershape2D_top, &
                                          wgllwgll_xy,wgllwgll_xz,wgllwgll_yz
+  use generate_databases_par, only : NGNOD2D
 
+
   type(fault_db_type), intent(inout) :: fdb
   integer, intent(in) :: nspec,nglob, ibool(NGLLX,NGLLY,NGLLZ,nspec)
 
@@ -474,7 +476,7 @@
            xstore_dummy,ystore_dummy,zstore_dummy,ibool,nglob, &
            dershape2D_x,dershape2D_y,dershape2D_bottom,dershape2D_top, &
            wgllwgll_xy,wgllwgll_xz,wgllwgll_yz, &
-           ispec,iface_ref,jacobian2Dw_face,normal_face,NGLLX,NGLLY)
+           ispec,iface_ref,jacobian2Dw_face,normal_face,NGLLX,NGLLY,NGNOD2D)
 
     ! normal convention: points away from domain1, reference element. 
     do j=1,NGLLY

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90	2012-12-08 21:33:13 UTC (rev 21110)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/prepare_timerun.F90	2012-12-08 22:52:00 UTC (rev 21111)
@@ -51,11 +51,10 @@
   ! initializes arrays
   call prepare_timerun_init_wavefield()
 
-  call sync_all()
   ! Loading kinematic and dynamic fault solvers.
-  call BC_DYNFLT_init(prname,rmass,DT,NSTEP,veloc,myrank)
+  call BC_DYNFLT_init(prname,DT,veloc,myrank)
     
-  call BC_KINFLT_init(prname,rmass,DT,NSTEP,myrank)
+  call BC_KINFLT_init(prname,DT,myrank)
 
   ! sets up time increments
   call prepare_timerun_constants()