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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-03-26 16:05:44 -0700 (Sat, 26 Mar 2011)
New Revision: 18144

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90
Log:
dummy allocation of adj_sourcearrays if needed to avoid warnings at run time


Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90	2011-03-26 00:59:42 UTC (rev 18143)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90	2011-03-26 23:05:44 UTC (rev 18144)
@@ -628,6 +628,11 @@
     allocate(adj_sourcearrays(nadj_rec_local,NTSTEP_BETWEEN_READ_ADJSRC,NDIM,NGLLX,NGLLY,NGLLZ))
     adj_sourcearrays = 0._CUSTOM_REAL
 
+  else
+
+! allocate dummy array in order to be able to use it as a subroutine argument, even if unused
+    allocate(adj_sourcearrays(1,1,1,1,1,1))
+
   endif
 
 end subroutine setup_sources_precompute_arrays