Changeset 38b7917 in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Mar 8, 2016, 9:54:38 AM (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:

9b53903

Parents:

db712a8

Message:

Parallelization of domain fill option (save/restart not implemented yet)

File:

• src/timemanager_mpi.f90 (modified) (2 diffs)

src/timemanager_mpi.f90

@@ -695 +695 @@
 !*************************************************
 
-        mp_advance_wtime_beg = mpi_wtime()
+        if (mp_measure_time) call mpif_mtime('advance',0)
+!mp_advance_wtime_beg = mpi_wtime()
 
         call advance(itime,npoint(j),idt(j),uap(j),ucp(j),uzp(j), &
@@ -701 +702 @@
              cbt(j))
 
-        mp_advance_wtime_end = mpi_wtime()
-        mp_advance_wtime_total = mp_advance_wtime_total + (mp_advance_wtime_end - &
-             & mp_advance_wtime_beg)
+        if (mp_measure_time) call mpif_mtime('advance',1)
+
+        ! mp_advance_wtime_end = mpi_wtime()
+        ! mp_advance_wtime_total = mp_advance_wtime_total + (mp_advance_wtime_end - &
+        !      & mp_advance_wtime_beg)