[cig-commits] r12803 - in seismo/3D/SPECFEM3D_GLOBE/trunk: . version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-09-04 08:11:21 -0700 (Thu, 04 Sep 2008)
New Revision: 12803

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.F90
Log:
changed a print statement


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90	2008-09-04 00:20:50 UTC (rev 12802)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90	2008-09-04 15:11:21 UTC (rev 12803)
@@ -1493,7 +1493,7 @@
           write(IMAIN,*) '            exact area: ',dble(NCHUNKS)*(4.0d0/6.0d0)*PI*(RICB/R_EARTH)**2
 
         case(IREGION_INNER_CORE)
-          write(IMAIN,*) '            exact area (central cube): ',dble(NCHUNKS)*(2.*(R_CENTRAL_CUBE / R_EARTH)/sqrt(3.))**2
+          write(IMAIN,*) '            similar area (central cube): ',dble(NCHUNKS)*(2.*(R_CENTRAL_CUBE / R_EARTH)/sqrt(3.))**2
 
         case default
           call exit_MPI(myrank,'incorrect region code')

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.F90	2008-09-04 00:20:50 UTC (rev 12802)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/meshfem3D.F90	2008-09-04 15:11:21 UTC (rev 12803)
@@ -1598,7 +1598,7 @@
           write(IMAIN,*) '            exact area: ',dble(NCHUNKS)*(4.0d0/6.0d0)*PI*(RICB/R_EARTH)**2
 
         case(IREGION_INNER_CORE)
-          write(IMAIN,*) '            exact area (central cube): ',dble(NCHUNKS)*(2.*(R_CENTRAL_CUBE / R_EARTH)/sqrt(3.))**2
+          write(IMAIN,*) '            similar area (central cube): ',dble(NCHUNKS)*(2.*(R_CENTRAL_CUBE / R_EARTH)/sqrt(3.))**2
 
         case default
           call exit_MPI(myrank,'incorrect region code')