Changeset 6b22af9 in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Nov 20, 2015, 5:41:29 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:

a1f4dd6

Parents:

df967a99

Message:

Local branch for espen, working with OpenMP version of readwind

File:

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

src/timemanager_mpi.f90

@@ -218 +218 @@
       call mpif_gf_send_vars(memstat)
       call mpif_gf_send_vars_nest(memstat)
-! Version 2  (lmp_sync=.false.) is also used whenever 2 new fields are read (in which
-! case async send/recv is impossible.
+! Version 2  (lmp_sync=.false., see below) is also used whenever 2 new fields are
+! read (as at first time step), in which case async send/recv is impossible.
     else if (.not.lmp_sync.and.lmp_use_reader.and.memstat.ge.32) then
       call mpif_gf_send_vars(memstat)
@@ -233 +233 @@
 ! READER PROCESS:
       if (memstat.gt.0..and.memstat.lt.32.and.lmp_use_reader.and.lmpreader) then
+        if (mp_dev_mode) write(*,*) 'Reader process: calling mpif_gf_send_vars_async' 
         call mpif_gf_send_vars_async(memstat)
       end if
@@ -249 +250 @@
       ! at next time step. Issue receive request anyway, cancel at mpif_gf_request
       if (memstat.gt.0.and.lmp_use_reader.and..not.lmpreader) then
+        if (mp_dev_mode) write(*,*) 'Receiving process: calling mpif_gf_send_vars_async. PID: ', mp_pid
         call mpif_gf_recv_vars_async(memstat)
       end if
@@ -256 +258 @@
     if (mp_measure_time.and..not.(lmpreader.and.lmp_use_reader)) call mpif_mtime('getfields',1)
 
+! For validation and tests: call the function below to set all fields to simple
+! homogeneous values
+    if (mp_dev_mode) call set_fields_synthetic
 
 !*******************************************************************************