[cig-commits] [commit] devel: Refactor mesher's IMAIN initialization to match solver. (49b9f65)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/1c27735ab9cfb372cfbb37cfe2b86957d42b90da...49b9f654e6048d837b88aabb71cfc1227571e844

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

commit 49b9f654e6048d837b88aabb71cfc1227571e844
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Mon Dec 8 20:15:30 2014 -0500

    Refactor mesher's IMAIN initialization to match solver.


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

49b9f654e6048d837b88aabb71cfc1227571e844
 src/meshfem3D/initialize_mesher.f90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/meshfem3D/initialize_mesher.f90 b/src/meshfem3D/initialize_mesher.f90
index 80fad26..4495ed2 100644
--- a/src/meshfem3D/initialize_mesher.f90
+++ b/src/meshfem3D/initialize_mesher.f90
@@ -49,13 +49,10 @@
   OUTPUT_FILES = 'OUTPUT_FILES'
 
 ! open main output file, only written to by process 0
-  if (myrank == 0 .and. IMAIN /= ISTANDARD_OUTPUT) &
-    open(unit=IMAIN,file=trim(OUTPUT_FILES)//'/output_mesher.txt',status='unknown')
-
-! get MPI starting time
-  time_start = wtime()
-
   if (myrank == 0) then
+    if (IMAIN /= ISTANDARD_OUTPUT) &
+      open(unit=IMAIN,file=trim(OUTPUT_FILES)//'/output_mesher.txt',status='unknown')
+
     write(IMAIN,*)
     write(IMAIN,*) '****************************'
     write(IMAIN,*) '*** Specfem3D MPI Mesher ***'
@@ -64,6 +61,9 @@
     call flush_IMAIN()
   endif
 
+! get MPI starting time
+  time_start = wtime()
+
   if (myrank == 0) then
     ! reads the parameter file and computes additional parameters
     call read_compute_parameters()