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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-06-19 15:20:45 -0700 (Wed, 19 Jun 2013)
New Revision: 22380

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_acoustic_el.f90
Log:
moved an array declaration to after the declaration of the integers it uses (otherwise GNU gfortran refuses to compile)


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_acoustic_el.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_acoustic_el.f90	2013-06-19 21:47:20 UTC (rev 22379)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_coupling_acoustic_el.f90	2013-06-19 22:20:45 UTC (rev 22380)
@@ -51,7 +51,6 @@
   integer :: SIMULATION_TYPE
   logical :: backward_simulation
   real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB) :: accel_interface
-  real(kind=CUSTOM_REAL), dimension(NDIM,NGLLX,NGLLY,NGLLZ,num_coupling_ac_el_faces,2) :: rmemory_coupling_ac_el_displ
 
 ! global indexing
   integer, dimension(NGLLX,NGLLY,NGLLZ,NSPEC_AB) :: ibool
@@ -62,6 +61,7 @@
   real(kind=CUSTOM_REAL) :: coupling_ac_el_jacobian2Dw(NGLLSQUARE,num_coupling_ac_el_faces)
   integer :: coupling_ac_el_ijk(3,NGLLSQUARE,num_coupling_ac_el_faces)
   integer :: coupling_ac_el_ispec(num_coupling_ac_el_faces)
+  real(kind=CUSTOM_REAL), dimension(NDIM,NGLLX,NGLLY,NGLLZ,num_coupling_ac_el_faces,2) :: rmemory_coupling_ac_el_displ
 
 ! communication overlap
   logical, dimension(NSPEC_AB) :: ispec_is_inner