[cig-commits] r22448 - seismo/3D/SPECFEM3D_GLOBE/trunk/setup

dkomati1 at geodynamics.org dkomati1 at geodynamics.org
Fri Jun 28 14:44:28 PDT 2013


Author: dkomati1
Date: 2013-06-28 14:44:27 -0700 (Fri, 28 Jun 2013)
New Revision: 22448

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/setup/constants.h.in
Log:
moved the LDDRK4-6 logical flag before the constants


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/setup/constants.h.in
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/setup/constants.h.in	2013-06-28 21:43:25 UTC (rev 22447)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/setup/constants.h.in	2013-06-28 21:44:27 UTC (rev 22448)
@@ -697,6 +697,8 @@
   integer, parameter :: NGLOB_DOUBLING_BASICBRICK = 27
 
 ! this for LDDRK
+  logical, parameter :: USE_LDDRK = .false. ! .true.
+
   integer, parameter :: NSTAGE = 6
   real(kind=CUSTOM_REAL), parameter, dimension(NSTAGE) :: ALPHA_LDDRK = &
     (/0.0_CUSTOM_REAL,-0.737101392796_CUSTOM_REAL, -1.634740794341_CUSTOM_REAL,&
@@ -710,5 +712,3 @@
     (/0.0_CUSTOM_REAL,0.032918605146_CUSTOM_REAL,0.249351723343_CUSTOM_REAL,&
       0.466911705055_CUSTOM_REAL,0.582030414044_CUSTOM_REAL,0.847252983783_CUSTOM_REAL/)
 
-  logical, parameter :: USE_LDDRK = .false. ! .true.
-



More information about the CIG-COMMITS mailing list