[cig-commits] r15470 - seismo/2D/SPECFEM2D/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2009-07-21 16:57:40 -0700 (Tue, 21 Jul 2009)
New Revision: 15470

Modified:
   seismo/2D/SPECFEM2D/trunk/define_external_model.f90
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
switched to a more logical order for the arguments to subroutine define_external_model()


Modified: seismo/2D/SPECFEM2D/trunk/define_external_model.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/define_external_model.f90	2009-07-21 23:50:13 UTC (rev 15469)
+++ seismo/2D/SPECFEM2D/trunk/define_external_model.f90	2009-07-21 23:57:40 UTC (rev 15470)
@@ -40,7 +40,7 @@
 !
 !========================================================================
 
-  subroutine define_external_model(x,y,iflag_element,rho,vp,vs,myrank)
+  subroutine define_external_model(x,y,iflag_element,myrank,rho,vp,vs)
 
   implicit none
 

Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2009-07-21 23:50:13 UTC (rev 15469)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2009-07-21 23:57:40 UTC (rev 15470)
@@ -1188,8 +1188,8 @@
       do j = 1,NGLLZ
         do i = 1,NGLLX
           iglob = ibool(i,j,ispec)
-          call define_external_model(coord(1,iglob),coord(2,iglob),kmato(ispec), &
-                                         rhoext(i,j,ispec),vpext(i,j,ispec),vsext(i,j,ispec),myrank)
+          call define_external_model(coord(1,iglob),coord(2,iglob),kmato(ispec),myrank, &
+                                         rhoext(i,j,ispec),vpext(i,j,ispec),vsext(i,j,ispec))
 ! stop if the same element is assigned both acoustic and elastic points in external model
           if(.not. (i == 1 .and. j == 1) .and. &
             ((vsext(i,j,ispec) >= TINYVAL .and. previous_vsext < TINYVAL) .or. &