Changeset fb0d416 in flexpart.git for src/FLEXPART_MPI.f90

Timestamp:

Apr 20, 2015, 10:35:26 AM (9 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

5f42c27

Parents:

b5d0e7e

Message:

OH change suggested by Xuekun

File:

• src/FLEXPART_MPI.f90 (modified) (3 diffs)

src/FLEXPART_MPI.f90

@@ -336 +336 @@
   !******************************************************************
 
+  if (mp_measure_time) call mpif_mtime('iotime',0)
+! :DEV: was a bug here (all processes writing)?
+  if (lroot) then ! MPI: this part root process only
+
   if (lnetcdfout.eq.1) then 
     call writeheader_netcdf(lnest=.false.)
@@ -350 +354 @@
   endif
 
-  if (lroot) then ! MPI: this part root process only
+!
     if (verbosity.gt.0) then
       print*,'call writeheader'
@@ -364 +368 @@
   end if ! (mpif_pid == 0) 
 
+  if (mp_measure_time) call mpif_mtime('iotime',0)
+
   !open(unitdates,file=path(2)(1:length(2))//'dates')
-
-!open(unitdates,file=path(2)(1:length(2))//'dates')
 
   if (verbosity.gt.0 .and. lroot) then