[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