[cig-commits] [commit] pluggable: Added model API routine finalize_mantle_model(). (f6af102)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d_globe

On branch  : pluggable
Link       : https://github.com/geodynamics/specfem3d_globe/compare/64e1b38f0c5ebb4056cce0b15d41c0b9f94ab6e5...099a4d330d5b173b21e51ad441f9f429e5d37842

>---------------------------------------------------------------

commit f6af1022e32a23a415f5e2b7b7077715e4117412
Author: Leif Strand <leif at geodynamics.org>
Date:   Mon Mar 2 23:25:05 2009 +0000

    Added model API routine finalize_mantle_model().


>---------------------------------------------------------------

f6af1022e32a23a415f5e2b7b7077715e4117412
 Makefile.in   | 4 ++++
 meshfem3D.f90 | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/Makefile.in b/Makefile.in
index 310cb6a..1c0ce85 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -81,6 +81,7 @@ libspecfem_a_OBJECTS = \
 	$O/create_serial_name_database.o \
 	$O/define_derivation_matrices.o \
 	$O/define_superbrick.o \
+	$O/dummy_finalize_mantle_model.o \
 	$O/euler_angles.o \
 	$O/exit_mpi.o \
 	$O/get_MPI_1D_buffers.o \
@@ -567,6 +568,9 @@ $O/memory_eval.o: constants.h $S/memory_eval.f90
 $O/get_backazimuth.o: constants.h $S/get_backazimuth.f90
 	${FCCOMPILE_CHECK} -c -o $O/get_backazimuth.o ${FCFLAGS_f90} $S/get_backazimuth.f90
 
+$O/dummy_finalize_mantle_model.o: $S/MODELS/3D/dummy/finalize_mantle_model.f90
+	${FCCOMPILE_CHECK} -c -o $O/dummy_finalize_mantle_model.o ${FCFLAGS_f90} $S/MODELS/3D/dummy/finalize_mantle_model.f90
+
 ###
 ### rule for the header file
 ###
diff --git a/meshfem3D.f90 b/meshfem3D.f90
index f9139c4..59368ec 100644
--- a/meshfem3D.f90
+++ b/meshfem3D.f90
@@ -1093,6 +1093,8 @@
 ! end of loop on all the regions
   enddo
 
+  call finalize_mantle_model()
+
   if(myrank == 0) then
 ! check volume of chunk
       write(IMAIN,*)