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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-07-29 03:35:39 -0700 (Fri, 29 Jul 2011)
New Revision: 18807

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.f90
Log:
added "deallocate(perm)" following the suggestion of Marcin Zielinski from SARA in the Netherlands


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.f90	2011-07-29 00:35:42 UTC (rev 18806)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.f90	2011-07-29 10:35:39 UTC (rev 18807)
@@ -874,6 +874,8 @@
 
   endif
 
+  deallocate(perm)
+
   else
 !
     print *,'SORT_MESH_INNER_OUTER must always been set to .true. even for the regular C version for CPUs'