[cig-commits] r22957 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D

[lefebvre at geodynamics.org]

Author: lefebvre
Date: 2013-10-10 07:55:14 -0700 (Thu, 10 Oct 2013)
New Revision: 22957

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90
Log:
conditional allocation fixed in create_regions_mesh

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90	2013-10-10 04:56:39 UTC (rev 22956)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90	2013-10-10 14:55:14 UTC (rev 22957)
@@ -639,6 +639,14 @@
              nkmin_xi(2,NSPEC2DMAX_XMIN_XMAX), &
              nkmin_eta(2,NSPEC2DMAX_YMIN_YMAX),stat=ier)
     if(ier /= 0) stop 'error in allocate 14'
+  else
+    allocate(nimin(1,1), &
+             nimax(1,1), &
+             njmin(1,1), &
+             njmax(1,1), &
+             nkmin_xi(1,1), &
+             nkmin_eta(1,1),stat=ier)
+    if(ier /= 0) stop 'error in allocate 14'
   endif
 
   nimin(:,:) = 0; nimax(:,:) = 0