[cig-commits] r12561 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-08-06 14:35:34 -0700 (Wed, 06 Aug 2008)
New Revision: 12561

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/attenuation_model.f90
Log:
added a comment about memory fragmentation in attenuation_model.f90


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/attenuation_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/attenuation_model.f90	2008-08-06 21:32:07 UTC (rev 12560)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/attenuation_model.f90	2008-08-06 21:35:34 UTC (rev 12561)
@@ -220,6 +220,8 @@
      call exit_MPI(myrank, 'Reference 1D Model Not recognized')
   endif
 
+!! DK DK could allocate these automatic arrays here and in the rest of this file
+!! DK DK in the memory stack to avoid memory fragmentation with "allocate()"
   allocate(AM_V%Qr(AM_V%Qn))
   allocate(AM_V%Qmu(AM_V%Qn))
   allocate(AM_V%interval_Q(AM_V%Qn))