[cig-commits] r20583 - in seismo/3D/SPECFEM3D/trunk/src: generate_databases shared

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-08-16 16:28:47 -0700 (Thu, 16 Aug 2012)
New Revision: 20583

Modified:
   seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_MPI.f90
   seismo/3D/SPECFEM3D/trunk/src/shared/prepare_assemble_MPI.f90
Log:
fixed a conflict between former variable "ngnode" and new constant NGNOD


Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_MPI.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_MPI.f90	2012-08-16 20:16:21 UTC (rev 20582)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_MPI.f90	2012-08-16 23:28:47 UTC (rev 20583)
@@ -85,7 +85,7 @@
   ! and stores them in ibool_interfaces_ext_mesh & nibool_interfaces_ext_mesh
   ! (number of total points)
   call prepare_assemble_MPI( nelmnts_ext_mesh,elmnts_ext_mesh, &
-                            ibool,nglob,ESIZE, &
+                            ibool,nglob, &
                             num_interfaces_ext_mesh, max_interface_size_ext_mesh, &
                             my_nelmnts_neighbours_ext_mesh, my_interfaces_ext_mesh, &
                             ibool_interfaces_ext_mesh, &

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/prepare_assemble_MPI.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/prepare_assemble_MPI.f90	2012-08-16 20:16:21 UTC (rev 20582)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/prepare_assemble_MPI.f90	2012-08-16 23:28:47 UTC (rev 20583)
@@ -26,7 +26,7 @@
 
 
   subroutine prepare_assemble_MPI (nelmnts,knods, &
-                                   ibool,npoin,NGNOD, &
+                                   ibool,npoin, &
                                    ninterface, max_interface_size, &
                                    my_nelmnts_neighbours, my_interfaces, &
                                    ibool_interfaces_asteroid, &
@@ -45,7 +45,7 @@
 ! ( nelmnts = number of spectral elements
 !   NGNOD = number of element corners (8)
 !   knods = corner indices array )
-  integer, intent(in)  :: nelmnts,NGNOD
+  integer, intent(in)  :: nelmnts
   integer, dimension(NGNOD,nelmnts), intent(in)  :: knods
 
 ! global number of points
@@ -104,7 +104,7 @@
       e4 = my_interfaces(6,ispec_interface,num_interface)
 
       ! gets i,j,k ranges for interface type
-      call get_edge(NGNOD, n, itype, e1, e2, e3, e4, &
+      call get_edge(n, itype, e1, e2, e3, e4, &
                    ixmin, ixmax, iymin, iymax, izmin, izmax)
 
       ! counts number and stores indices of (global) points on MPI interface
@@ -141,7 +141,7 @@
 !----
 !
 
-subroutine get_edge ( NGNOD, n, itype, e1, e2, e3, e4, &
+subroutine get_edge ( n, itype, e1, e2, e3, e4, &
                     ixmin, ixmax, iymin, iymax, izmin, izmax )
 
 ! returns range of local (GLL) point indices i,j,k depending on given type
@@ -152,7 +152,6 @@
   include "constants.h"
 
 ! corner node indices per spectral element (8)
-  integer, intent(in)  :: NGNOD
   integer, dimension(NGNOD), intent(in)  :: n
 
 ! interface type & nodes