[cig-commits] r14188 - in seismo/3D/SPECFEM3D_GLOBE/branches/pluggable: . MODELS/3D MODELS/3D/citcoms_isotropic_no_crust MODELS/3D/dummy

[leif at geodynamics.org]

Author: leif
Date: 2009-03-02 15:25:05 -0800 (Mon, 02 Mar 2009)
New Revision: 14188

Added:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/dummy/
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/dummy/finalize_mantle_model.f90
Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust/citcoms_isotropic_no_crust.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/Makefile.in
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/meshfem3D.f90
Log:
Added model API routine finalize_mantle_model().


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust/citcoms_isotropic_no_crust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust/citcoms_isotropic_no_crust.f90	2009-03-02 22:57:58 UTC (rev 14187)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust/citcoms_isotropic_no_crust.f90	2009-03-02 23:25:05 UTC (rev 14188)
@@ -260,3 +260,11 @@
   z(:) = zelm(5:8)
 
 end subroutine find_corner_coord
+
+!----------------------------------
+
+subroutine finalize_mantle_model()
+
+  implicit none
+
+end subroutine finalize_mantle_model

Added: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/dummy/finalize_mantle_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/dummy/finalize_mantle_model.f90	                        (rev 0)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/dummy/finalize_mantle_model.f90	2009-03-02 23:25:05 UTC (rev 14188)
@@ -0,0 +1,3 @@
+
+subroutine finalize_mantle_model()
+end subroutine finalize_mantle_model

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/Makefile.in
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/Makefile.in	2009-03-02 22:57:58 UTC (rev 14187)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/Makefile.in	2009-03-02 23:25:05 UTC (rev 14188)
@@ -81,6 +81,7 @@
 	$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/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
 ###

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/meshfem3D.f90	2009-03-02 22:57:58 UTC (rev 14187)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/meshfem3D.f90	2009-03-02 23:25:05 UTC (rev 14188)
@@ -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,*)