[cig-commits] [commit] master: fixing a bug only visible when compiling with parallel netcdf enabled (89d4728)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/f7d7c2eff97edee94603b48efa068c429b9dbd8e...89d4728f2caba1c39fcd06ee1661850c92e21328

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

commit 89d4728f2caba1c39fcd06ee1661850c92e21328
Author: martinvandriel <martin at vandriel.de>
Date:   Mon Oct 20 13:41:06 2014 +0200

    fixing a bug only visible when compiling with parallel netcdf enabled


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

89d4728f2caba1c39fcd06ee1661850c92e21328
 SOLVER/nc_routines.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SOLVER/nc_routines.F90 b/SOLVER/nc_routines.F90
index 36356b3..40283b4 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -1007,7 +1007,7 @@ subroutine nc_define_outputfile(nrec, rec_names, rec_th, rec_th_req, rec_ph, rec
     dumpposition(:) = .false.
     dumpposition(0) = .true.
     outputplan = 0
-    if ((mynum == 0) .and. (verbose > 1)) then
+    if ((mynum == 0) .and. (verbose > 1)) &
             write(6,"(' all Procs will dump every ', I4, ' steps')") dumpstepsnap
 #endif