[cig-commits] [commit] devel: also output a timestamp file for ispec == nspec (178f39e)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/9d3a086b4571b070a5e6b2757d56feb072ef6de2...eb990f2f7472169fb748ef482450bfb86c69fa02

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

commit 178f39ebc58ed0ae38e4239a10a384026602dd30
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Mon May 19 22:24:50 2014 +0200

    also output a timestamp file for ispec == nspec


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

178f39ebc58ed0ae38e4239a10a384026602dd30
 src/meshfem3D/compute_volumes_and_areas.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/meshfem3D/compute_volumes_and_areas.F90 b/src/meshfem3D/compute_volumes_and_areas.F90
index 5f5344a..8a15087 100644
--- a/src/meshfem3D/compute_volumes_and_areas.F90
+++ b/src/meshfem3D/compute_volumes_and_areas.F90
@@ -306,7 +306,7 @@
   do ispec = 1,nspec
 
     ! print information about number of elements done so far
-    if(myrank == 0 .and. mod(ispec,NSPEC_DISPLAY_INTERVAL) == 0) then
+    if(myrank == 0 .and. (mod(ispec,NSPEC_DISPLAY_INTERVAL) == 0 .or. ispec == nspec)) then
        write(IMAIN,*) 'for Roland_Sylvain integrals ',ispec,' elements computed out of ',nspec
        ! write time stamp file to give information about progression of simulation
        write(outputname,"('/timestamp_reg',i1.1,'_ispec',i7.7,'_out_of_',i7.7)") iregion_code,ispec,nspec