Changeset 5f9d14a in flexpart.git for src/FLEXPART_MPI.f90

Timestamp:

Apr 8, 2015, 2:23:27 PM (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:

1585284

Parents:

cd85138

Message:

Updated wet depo scheme

File:

• src/FLEXPART_MPI.f90 (modified) (1 diff, 1 prop)

src/FLEXPART_MPI.f90

@@ -424 +424 @@
 
 ! NIK 16.02.2005 
-  write(*,*) '**********************************************'
-  write(*,*) 'Total number of occurences of below-cloud scavenging', tot_blc_count
-  write(*,*) 'Total number of occurences of in-cloud    scavenging', tot_inc_count
-  write(*,*) '**********************************************'
-
   if (lroot) then
+! eso TODO: do MPI_Reduce (sum) of total occurences across processes
+    call MPI_Reduce(MPI_IN_PLACE, tot_blc_count, 1, mp_pp, MPI_SUM, id_root, &
+         & mp_comm_used, mp_ierr)
+    call MPI_Reduce(MPI_IN_PLACE, tot_inc_count, 1, mp_pp, MPI_SUM, id_root, &
+         & mp_comm_used, mp_ierr)
+  else
+    call MPI_Reduce(tot_blc_count, tot_blc_count, 1, mp_pp, MPI_SUM, id_root, &
+         & mp_comm_used, mp_ierr)
+    call MPI_Reduce(tot_inc_count, tot_inc_count, 1, mp_pp, MPI_SUM, id_root, &
+         & mp_comm_used, mp_ierr)
+  end if
+
+  if (lroot) then
+    write(*,*) '**********************************************'
+    write(*,*) 'Total number of occurences of below-cloud scavenging', tot_blc_count
+    write(*,*) 'Total number of occurences of in-cloud    scavenging', tot_inc_count
+    write(*,*) '**********************************************'
+
     write(*,*) 'CONGRATULATIONS: YOU HAVE SUCCESSFULLY COMPLETED A FLE&
          &XPART MODEL RUN!'