[cig-commits] [commit] devel, master: Print solver initialization errors to stdout. (9539187)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:31:10 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
commit 9539187aa5641751550689249bcf86ff76664f95
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Sat Sep 13 19:22:14 2014 -0400
Print solver initialization errors to stdout.
While the master node is supposed to print this information to the log
file, the exit_MPI call might come from any node. So the run could be
terminated from some other node, which kills the master node before it
writes anything to the log.
>---------------------------------------------------------------
9539187aa5641751550689249bcf86ff76664f95
src/specfem3D/initialize_simulation.f90 | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
diff --git a/src/specfem3D/initialize_simulation.f90 b/src/specfem3D/initialize_simulation.f90
index 1d81eff..f08bc57 100644
--- a/src/specfem3D/initialize_simulation.f90
+++ b/src/specfem3D/initialize_simulation.f90
@@ -279,74 +279,92 @@
! check that the code has been compiled with the right values
if (NSPEC(IREGION_CRUST_MANTLE) /= NSPEC_CRUST_MANTLE) then
if (myrank == 0) write(IMAIN,*) 'NSPEC_CRUST_MANTLE:',NSPEC(IREGION_CRUST_MANTLE),NSPEC_CRUST_MANTLE
+ write(*,*) 'NSPEC_CRUST_MANTLE:', NSPEC(IREGION_CRUST_MANTLE), NSPEC_CRUST_MANTLE
call exit_MPI(myrank,'Error in compiled parameters, please recompile solver 1')
endif
if (NSPEC(IREGION_OUTER_CORE) /= NSPEC_OUTER_CORE) then
if (myrank == 0) write(IMAIN,*) 'NSPEC_OUTER_CORE:',NSPEC(IREGION_OUTER_CORE),NSPEC_OUTER_CORE
+ write(*,*) 'NSPEC_OUTER_CORE:', NSPEC(IREGION_OUTER_CORE), NSPEC_OUTER_CORE
call exit_MPI(myrank,'Error in compiled parameters, please recompile solver 2')
endif
if (NSPEC(IREGION_INNER_CORE) /= NSPEC_INNER_CORE) then
if (myrank == 0) write(IMAIN,*) 'NSPEC_INNER_CORE:',NSPEC(IREGION_INNER_CORE),NSPEC_INNER_CORE
+ write(*,*) 'NSPEC_INNER_CORE:', NSPEC(IREGION_INNER_CORE), NSPEC_INNER_CORE
call exit_MPI(myrank,'Error in compiled parameters, please recompile solver 3')
endif
if (ATTENUATION_3D .NEQV. ATTENUATION_3D_VAL) then
if (myrank == 0) write(IMAIN,*) 'ATTENUATION_3D:',ATTENUATION_3D,ATTENUATION_3D_VAL
+ write(*,*) 'ATTENUATION_3D:', ATTENUATION_3D, ATTENUATION_3D_VAL
call exit_MPI(myrank,'Error in compiled parameters ATTENUATION_3D, please recompile solver')
endif
if (NCHUNKS /= NCHUNKS_VAL) then
if (myrank == 0) write(IMAIN,*) 'NCHUNKS:',NCHUNKS,NCHUNKS_VAL
+ write(*,*) 'NCHUNKS:', NCHUNKS, NCHUNKS_VAL
call exit_MPI(myrank,'Error in compiled parameters NCHUNKS, please recompile solver')
endif
if (GRAVITY .NEQV. GRAVITY_VAL) then
if (myrank == 0) write(IMAIN,*) 'GRAVITY:',GRAVITY,GRAVITY_VAL
+ write(*,*) 'GRAVITY:', GRAVITY, GRAVITY_VAL
call exit_MPI(myrank,'Error in compiled parameters GRAVITY, please recompile solver')
endif
if (ROTATION .NEQV. ROTATION_VAL) then
if (myrank == 0) write(IMAIN,*) 'ROTATION:',ROTATION,ROTATION_VAL
+ write(*,*) 'ROTATION:', ROTATION, ROTATION_VAL
call exit_MPI(myrank,'Error in compiled parameters ROTATION, please recompile solver')
endif
if (ATTENUATION .NEQV. ATTENUATION_VAL) then
if (myrank == 0) write(IMAIN,*) 'ATTENUATION:',ATTENUATION,ATTENUATION_VAL
+ write(*,*) 'ATTENUATION:', ATTENUATION, ATTENUATION_VAL
call exit_MPI(myrank,'Error in compiled parameters ATTENUATION, please recompile solver')
endif
if (ELLIPTICITY .NEQV. ELLIPTICITY_VAL) then
if (myrank == 0) write(IMAIN,*) 'ELLIPTICITY:',ELLIPTICITY,ELLIPTICITY_VAL
+ write(*,*) 'ELLIPTICITY:', ELLIPTICITY, ELLIPTICITY_VAL
call exit_MPI(myrank,'Error in compiled parameters ELLIPTICITY, please recompile solver')
endif
if (OCEANS .NEQV. OCEANS_VAL) then
if (myrank == 0) write(IMAIN,*) 'OCEANS:',OCEANS,OCEANS_VAL
+ write(*,*) 'OCEANS:', OCEANS, OCEANS_VAL
call exit_MPI(myrank,'Error in compiled parameters OCEANS, please recompile solver')
endif
if (NPROC_XI /= NPROC_XI_VAL) then
if (myrank == 0) write(IMAIN,*) 'NPROC_XI:',NPROC_XI,NPROC_XI_VAL
+ write(*,*) 'NPROC_XI:', NPROC_XI, NPROC_XI_VAL
call exit_MPI(myrank,'Error in compiled parameters NPROC_XI, please recompile solver')
endif
if (NPROC_ETA /= NPROC_ETA_VAL) then
if (myrank == 0) write(IMAIN,*) 'NPROC_ETA:',NPROC_ETA,NPROC_ETA_VAL
+ write(*,*) 'NPROC_ETA:', NPROC_ETA, NPROC_ETA_VAL
call exit_MPI(myrank,'Error in compiled parameters NPROC_ETA, please recompile solver')
endif
if (NPROCTOT /= NPROCTOT_VAL) then
if (myrank == 0) write(IMAIN,*) 'NPROCTOT:',NPROCTOT,NPROCTOT_VAL
+ write(*,*) 'NPROCTOT:', NPROCTOT, NPROCTOT_VAL
call exit_MPI(myrank,'Error in compiled parameters NPROCTOT, please recompile solver')
endif
if (NEX_XI /= NEX_XI_VAL) then
if (myrank == 0) write(IMAIN,*) 'NEX_XI:',NEX_XI,NEX_XI_VAL
+ write(*,*) 'NEX_XI:', NEX_XI, NEX_XI_VAL
call exit_MPI(myrank,'Error in compiled parameters NEX_XI, please recompile solver')
endif
if (NEX_ETA /= NEX_ETA_VAL) then
if (myrank == 0) write(IMAIN,*) 'NEX_ETA:',NEX_ETA,NEX_ETA_VAL
+ write(*,*) 'NEX_ETA:', NEX_ETA, NEX_ETA_VAL
call exit_MPI(myrank,'Error in compiled parameters NEX_ETA, please recompile solver')
endif
if (TRANSVERSE_ISOTROPY .NEQV. TRANSVERSE_ISOTROPY_VAL) then
if (myrank == 0) write(IMAIN,*) 'TRANSVERSE_ISOTROPY:',TRANSVERSE_ISOTROPY,TRANSVERSE_ISOTROPY_VAL
+ write(*,*) 'TRANSVERSE_ISOTROPY:', TRANSVERSE_ISOTROPY, TRANSVERSE_ISOTROPY_VAL
call exit_MPI(myrank,'Error in compiled parameters, please recompile solver 14')
endif
if (ANISOTROPIC_3D_MANTLE .NEQV. ANISOTROPIC_3D_MANTLE_VAL) then
if (myrank == 0) write(IMAIN,*) 'ANISOTROPIC_3D_MANTLE:',ANISOTROPIC_3D_MANTLE,ANISOTROPIC_3D_MANTLE_VAL
+ write(*,*) 'ANISOTROPIC_3D_MANTLE:', ANISOTROPIC_3D_MANTLE, ANISOTROPIC_3D_MANTLE_VAL
call exit_MPI(myrank,'Error in compiled parameters, please recompile solver 15')
endif
if (ANISOTROPIC_INNER_CORE .NEQV. ANISOTROPIC_INNER_CORE_VAL) then
if (myrank == 0) write(IMAIN,*) 'ANISOTROPIC_INNER_CORE:',ANISOTROPIC_INNER_CORE,ANISOTROPIC_INNER_CORE_VAL
+ write(*,*) 'ANISOTROPIC_INNER_CORE:', ANISOTROPIC_INNER_CORE, ANISOTROPIC_INNER_CORE_VAL
call exit_MPI(myrank,'Error in compiled parameters, please recompile solver 16')
endif
@@ -378,6 +396,8 @@
if (PARTIAL_PHYS_DISPERSION_ONLY .NEQV. PARTIAL_PHYS_DISPERSION_ONLY_VAL) then
if (myrank == 0) write(IMAIN,*) 'PARTIAL_PHYS_DISPERSION_ONLY:',PARTIAL_PHYS_DISPERSION_ONLY, &
PARTIAL_PHYS_DISPERSION_ONLY_VAL
+ write(*,*) 'PARTIAL_PHYS_DISPERSION_ONLY:', PARTIAL_PHYS_DISPERSION_ONLY, &
+ PARTIAL_PHYS_DISPERSION_ONLY_VAL
call exit_MPI(myrank,'Error in compiled parameters, please recompile solver 17')
endif
More information about the CIG-COMMITS
mailing list