[cig-commits] r21819 - seismo/3D/SPECFEM3D/trunk/src/generate_databases

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-04-11 11:47:45 -0700 (Thu, 11 Apr 2013)
New Revision: 21819

Modified:
   seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90
Log:
added two missing parameters to the use statement


Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90	2013-04-11 18:18:52 UTC (rev 21818)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/get_absorbing_boundary.f90	2013-04-11 18:47:45 UTC (rev 21819)
@@ -34,7 +34,8 @@
 
 ! determines absorbing boundaries/free-surface, 2D jacobians, face normals for Stacey conditions
 
-  use generate_databases_par, only: STACEY_INSTEAD_OF_FREE_SURFACE, PML_INSTEAD_OF_FREE_SURFACE, NGNOD2D
+  use generate_databases_par, only: STACEY_INSTEAD_OF_FREE_SURFACE, PML_INSTEAD_OF_FREE_SURFACE, NGNOD2D, &
+                                      STACEY_ABSORBING_CONDITIONS,PML_CONDITIONS
   use create_regions_mesh_ext_par
 
   implicit none