Changeset 7999df47 in flexpart.git for src/boundcond_domainfill_mpi.f90

Timestamp:

Mar 8, 2016, 3:28:18 PM (8 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:

c2162ce

Parents:

9b53903

Message:

For parallel domain-filling version, changed info written to screen more consistent with serial version

File:

• src/boundcond_domainfill_mpi.f90 (modified) (1 diff)

src/boundcond_domainfill_mpi.f90

@@ -589 +589 @@
 ! :TODO: eso parallelize
   if ((ipout.gt.0).and.(itime.eq.loutend)) then
-    open(unitboundcond,file=path(2)(1:length(2))//'boundcond.bin', &
-         form='unformatted')
-    write(unitboundcond) numcolumn_we,numcolumn_sn, &
-         zcolumn_we,zcolumn_sn,acc_mass_we,acc_mass_sn
-    close(unitboundcond)
+    if (lroot) then
+      open(unitboundcond,file=path(2)(1:length(2))//'boundcond.bin', &
+           form='unformatted')
+      write(unitboundcond) numcolumn_we,numcolumn_sn, &
+           zcolumn_we,zcolumn_sn,acc_mass_we,acc_mass_sn
+      close(unitboundcond)
+    end if
   endif