Changeset 38b7917 in flexpart.git for src/concoutput_surf_nest_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/concoutput_surf_nest_mpi.f90 (modified) (2 diffs)

src/concoutput_surf_nest_mpi.f90

@@ -103 +103 @@
 
 ! Measure execution time
-  if (mp_measure_time) then
-    call cpu_time(mp_root_time_beg)
-    mp_root_wtime_beg = mpi_wtime()
-  end if
+  if (mp_measure_time) call mpif_mtime('iotime',0)
+  !   call cpu_time(mp_root_time_beg)
+  !   mp_root_wtime_beg = mpi_wtime()
+  ! end if
 
   if (verbosity.eq.1) then
@@ -669 +669 @@
   end do
 
-  if (mp_measure_time) then
-    call cpu_time(mp_root_time_end)
-    mp_root_wtime_end = mpi_wtime()
-    mp_root_time_total = mp_root_time_total + (mp_root_time_end - mp_root_time_beg)
-    mp_root_wtime_total = mp_root_wtime_total + (mp_root_wtime_end - mp_root_wtime_beg)
-  end if
+  if (mp_measure_time) call mpif_mtime('iotime',1)
+  ! if (mp_measure_time) then
+  !   call cpu_time(mp_root_time_end)
+  !   mp_root_wtime_end = mpi_wtime()
+  !   mp_root_time_total = mp_root_time_total + (mp_root_time_end - mp_root_time_beg)
+  !   mp_root_wtime_total = mp_root_wtime_total + (mp_root_wtime_end - mp_root_wtime_beg)
+  ! end if
 
 end subroutine concoutput_surf_nest