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

[lefebvre at geodynamics.org]

Author: lefebvre
Date: 2013-10-10 07:58:33 -0700 (Thu, 10 Oct 2013)
New Revision: 22958

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90
Log:
remove conditional deallocation for nimin, ... 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 14:55:14 UTC (rev 22957)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90	2013-10-10 14:58:33 UTC (rev 22958)
@@ -377,7 +377,7 @@
     deallocate(b_rmassx,b_rmassy)
     deallocate(rmass_ocean_load)
     ! Stacey
-    if( NCHUNKS /= 6 ) deallocate(nimin,nimax,njmin,njmax,nkmin_xi,nkmin_eta)
+    deallocate(nimin,nimax,njmin,njmax,nkmin_xi,nkmin_eta)
 
     ! saves MPI interface infos
     call save_arrays_solver_MPI(iregion_code)