[cig-commits] r22838 - seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D

dkomati1 at geodynamics.org dkomati1 at geodynamics.org
Sat Sep 21 18:08:57 PDT 2013


Author: dkomati1
Date: 2013-09-21 18:08:57 -0700 (Sat, 21 Sep 2013)
New Revision: 22838

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90
Log:
made a message from the mesher more precise


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90	2013-09-21 23:23:44 UTC (rev 22837)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90	2013-09-22 01:08:57 UTC (rev 22838)
@@ -950,7 +950,7 @@
       ! user output
       write(IMAIN,'(a,f5.1,a,a,i2.2,a,i2.2,a,i2.2,a)') &
         "    ",(ilayer_loop-ifirst_region+1.0)/(ilast_region-ifirst_region+1.0) * 100.0,"%", &
-        "    time: ",tval(5),"h ",tval(6),"min ",tval(7),"sec"
+        "    current clock time is: ",tval(5),"h ",tval(6),"min ",tval(7),"sec"
 
       ! flushes I/O buffer
       call flush_IMAIN()



More information about the CIG-COMMITS mailing list