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

[liuqy at geodynamics.org]

Author: liuqy
Date: 2011-10-28 07:44:10 -0700 (Fri, 28 Oct 2011)
New Revision: 19123

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90
Log:
move definition of nglob_ab to before it is used for assemble_MPI_vector.f90 in order to avoid compilation warnings.



Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90	2011-10-28 14:24:18 UTC (rev 19122)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/assemble_MPI_vector.f90	2011-10-28 14:44:10 UTC (rev 19123)
@@ -275,17 +275,17 @@
 
   include "constants.h"
 
+  integer :: NPROC
+  integer :: NGLOB_AB
+  integer :: num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh
+
 ! array to assemble
   real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB) :: array_val1,array_val2
 
-  integer :: NPROC
-  integer :: NGLOB_AB
-
   real(kind=CUSTOM_REAL), dimension(NDIM,max_nibool_interfaces_ext_mesh,num_interfaces_ext_mesh) :: &
        buffer_send_vector_ext_mesh_s,buffer_recv_vector_ext_mesh_s,&
        buffer_send_vector_ext_mesh_w,buffer_recv_vector_ext_mesh_w
 
-  integer :: num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh
   integer, dimension(num_interfaces_ext_mesh) :: nibool_interfaces_ext_mesh,my_neighbours_ext_mesh
   integer, dimension(max_nibool_interfaces_ext_mesh,num_interfaces_ext_mesh) :: ibool_interfaces_ext_mesh
   integer, dimension(num_interfaces_ext_mesh) :: request_send_vector_ext_mesh_s,request_recv_vector_ext_mesh_s
@@ -357,16 +357,17 @@
 
   include "constants.h"
 
+  integer :: NPROC
+  integer :: NGLOB_AB
+
+  integer :: num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh
+
 ! array to assemble
   real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB) :: array_val1,array_val2
 
-  integer :: NPROC
-  integer :: NGLOB_AB
-
   real(kind=CUSTOM_REAL), dimension(NDIM,max_nibool_interfaces_ext_mesh,num_interfaces_ext_mesh) :: &
        buffer_recv_vector_ext_mesh_s,buffer_recv_vector_ext_mesh_w
 
-  integer :: num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh
   integer, dimension(num_interfaces_ext_mesh) :: nibool_interfaces_ext_mesh
   integer, dimension(max_nibool_interfaces_ext_mesh,num_interfaces_ext_mesh) :: ibool_interfaces_ext_mesh
   integer, dimension(num_interfaces_ext_mesh) :: request_send_vector_ext_mesh_s,request_recv_vector_ext_mesh_s