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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-08-16 10:07:05 -0700 (Thu, 16 Aug 2012)
New Revision: 20580

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_fluid.f90
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_solid.f90
Log:
fixed two warnings from the GNU compiler


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_fluid.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_fluid.f90	2012-08-16 16:51:22 UTC (rev 20579)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_fluid.f90	2012-08-16 17:07:05 UTC (rev 20580)
@@ -50,6 +50,14 @@
 
   integer :: NSPEC_AB,NGLOB_AB
 
+! adjoint simulations
+  integer :: SIMULATION_TYPE
+  !integer :: NSPEC_BOUN
+  integer :: NSPEC_ADJOINT
+! adjoint wavefields
+!  real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLY,NGLLZ,NSPEC_ADJOINT) :: &
+!    mufr_kl, B_kl
+
 ! displacement and acceleration
   real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB) :: displw_poroelastic,accelw_poroelastic,&
                                                       velocw_poroelastic
@@ -87,16 +95,6 @@
   integer :: num_phase_ispec_poroelastic,nspec_inner_poroelastic,nspec_outer_poroelastic
   integer, dimension(num_phase_ispec_poroelastic,2) :: phase_ispec_inner_poroelastic
 
-
-! adjoint simulations
-  integer :: SIMULATION_TYPE
-  !integer :: NSPEC_BOUN
-  integer :: NSPEC_ADJOINT
-! adjoint wavefields
-!  real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLY,NGLLZ,NSPEC_ADJOINT) :: &
-!    mufr_kl, B_kl
-
-
 !---
 !--- local variables
 !---

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_solid.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_solid.f90	2012-08-16 16:51:22 UTC (rev 20579)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/compute_forces_solid.f90	2012-08-16 17:07:05 UTC (rev 20580)
@@ -50,6 +50,14 @@
 
   integer :: NSPEC_AB,NGLOB_AB
 
+! adjoint simulations
+  integer :: SIMULATION_TYPE
+  !integer :: NSPEC_BOUN
+  integer :: NSPEC_ADJOINT
+! adjoint wavefields
+!  real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLY,NGLLZ,NSPEC_ADJOINT) :: &
+!    mufr_kl, B_kl
+
 ! displacement and acceleration
   real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB) :: displs_poroelastic,accels_poroelastic
   real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_AB) :: displw_poroelastic,velocw_poroelastic
@@ -86,16 +94,6 @@
   integer :: num_phase_ispec_poroelastic,nspec_inner_poroelastic,nspec_outer_poroelastic
   integer, dimension(num_phase_ispec_poroelastic,2) :: phase_ispec_inner_poroelastic
 
-
-! adjoint simulations
-  integer :: SIMULATION_TYPE
-  !integer :: NSPEC_BOUN
-  integer :: NSPEC_ADJOINT
-! adjoint wavefields
-!  real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLY,NGLLZ,NSPEC_ADJOINT) :: &
-!    mufr_kl, B_kl
-
-
 !---
 !--- local variables
 !---