[cig-commits] r21591 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-20 15:49:13 -0700 (Wed, 20 Mar 2013)
New Revision: 21591

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
added allocate(rmemory_dux_dx_prime(1,1,1),stat=ier)


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-20 22:32:51 UTC (rev 21590)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2013-03-20 22:49:13 UTC (rev 21591)
@@ -3036,6 +3036,15 @@
           if(ier /= 0) stop 'error: not enough memory to allocate array rmemory_duz_dx_prime'
           allocate(rmemory_duz_dz_prime(NGLLX,NGLLZ,nspec_PML),stat=ier)
           if(ier /= 0) stop 'error: not enough memory to allocate array rmemory_duz_dz_prime'
+        else
+          allocate(rmemory_dux_dx_prime(1,1,1),stat=ier)
+          if(ier /= 0) stop 'error: not enough memory to allocate array rmemory_dux_dx_prime'
+          allocate(rmemory_dux_dz_prime(1,1,1),stat=ier)
+          if(ier /= 0) stop 'error: not enough memory to allocate array rmemory_dux_dz_prime'
+          allocate(rmemory_duz_dx_prime(1,1,1),stat=ier)
+          if(ier /= 0) stop 'error: not enough memory to allocate array rmemory_duz_dx_prime'
+          allocate(rmemory_duz_dz_prime(1,1,1),stat=ier)
+          if(ier /= 0) stop 'error: not enough memory to allocate array rmemory_duz_dz_prime'
         endif
 
         if(time_stepping_scheme == 2)then