[cig-commits] [commit] devel, master: Added a preprocessor directive to get_model_parameters to fail out if a CEM model is specified, but configure was run witout CEM (73fec64)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:29:56 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
commit 73fec645fd8ccdc6c81e2b71c9d9c18ee6e437b1
Author: Michael Afanasiev <michael.afanasiev at erdw.ethz.ch>
Date: Thu Sep 4 10:36:53 2014 +0200
Added a preprocessor directive to get_model_parameters to fail out if a CEM model is specified, but configure was run witout CEM
>---------------------------------------------------------------
73fec645fd8ccdc6c81e2b71c9d9c18ee6e437b1
src/shared/{get_model_parameters.f90 => get_model_parameters.F90} | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/shared/get_model_parameters.f90 b/src/shared/get_model_parameters.F90
similarity index 99%
rename from src/shared/get_model_parameters.f90
rename to src/shared/get_model_parameters.F90
index 987e0e9..52ecbe9 100644
--- a/src/shared/get_model_parameters.f90
+++ b/src/shared/get_model_parameters.F90
@@ -381,6 +381,7 @@
THREE_D_MODEL = THREE_D_MODEL_S362ANI
TRANSVERSE_ISOTROPY = .true.
+#if defined (CEM)
else if (MODEL_ROOT == 'CEM_REQUEST') then
CEM_REQUEST = .true.
TRANSVERSE_ISOTROPY = .true.
@@ -388,6 +389,7 @@
else if (MODEL_ROOT == 'CEM_ACCEPT') then
CEM_ACCEPT = .true.
TRANSVERSE_ISOTROPY = .true.
+#endif
else if (MODEL_ROOT == 'PPM') then
! superimposed based on isotropic-prem
@@ -428,7 +430,7 @@
else
print*
print*,'Error model: ',trim(MODEL)
- stop 'model not implemented yet, edit get_model_parameters.f90 and recompile'
+ stop 'model not implemented yet, edit get_model_parameters.f90, or ensure you have run ./configure correctly, and recompile'
endif
! suppress the crustal layers
More information about the CIG-COMMITS
mailing list