[cig-commits] r18517 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Wed Jun 1 04:03:27 PDT 2011
Author: dkomati1
Date: 2011-06-01 04:03:27 -0700 (Wed, 01 Jun 2011)
New Revision: 18517
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.f90
Log:
added a comment to the call to force_ftz()
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.f90 2011-06-01 11:01:59 UTC (rev 18516)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.f90 2011-06-01 11:03:27 UTC (rev 18517)
@@ -941,6 +941,7 @@
! initialize the MPI communicator and start the NPROCTOT MPI processes.
call MPI_INIT(ier)
+ ! force Flush-To-Zero if available to avoid very slow Gradual Underflow trapping
call force_ftz()
! initializes simulation parameters
More information about the CIG-COMMITS
mailing list