[cig-commits] r21369 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[ampuero at geodynamics.org]

Author: ampuero
Date: 2013-02-14 16:02:59 -0800 (Thu, 14 Feb 2013)
New Revision: 21369

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
Log:
fixed a compile error

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2013-02-14 23:17:24 UTC (rev 21368)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/fault_solver_dynamic.f90	2013-02-15 00:02:59 UTC (rev 21369)
@@ -158,7 +158,7 @@
   dt = real(DTglobal)
   do iflt=1,nbfaults
     read(IIN_PAR,nml=BEGIN_FAULT,end=100)
-    call init_one_fault(faults(iflt),IIN_BIN,IIN_PAR,dt,nt,iflt)
+    call init_one_fault(faults(iflt),IIN_BIN,IIN_PAR,dt,nt,iflt,myrank)
   enddo
   close(IIN_BIN)
   close(IIN_PAR)
@@ -186,12 +186,13 @@
 
 !---------------------------------------------------------------------
 
-subroutine init_one_fault(bc,IIN_BIN,IIN_PAR,dt,NT,iflt)
+subroutine init_one_fault(bc,IIN_BIN,IIN_PAR,dt,NT,iflt,myrank)
 
 
   type(bc_dynandkinflt_type), intent(inout) :: bc
   integer, intent(in)                 :: IIN_BIN,IIN_PAR,NT,iflt
   real(kind=CUSTOM_REAL), intent(in)  :: dt
+  integer, intent(in) :: myrank
 
   real(kind=CUSTOM_REAL) :: S1,S2,S3
   integer :: n1,n2,n3