Changes in src/timemanager_mpi.f90 [18adf60:3b80e98] in flexpart.git

File:

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

src/timemanager_mpi.f90

@@ -253 +253 @@
         if (mp_dev_mode) write(*,*) 'Reader process: calling mpif_gf_send_vars_async' 
         call mpif_gf_send_vars_async(memstat)
+        if (numbnests>0) call mpif_gf_send_vars_nest_async(memstat)
       end if
 
@@ -267 +268 @@
         if (mp_dev_mode) write(*,*) 'Receiving process: calling mpif_gf_send_vars_async. PID: ', mp_pid
         call mpif_gf_recv_vars_async(memstat)
+        if (numbnests>0) call mpif_gf_recv_vars_nest_async(memstat)
       end if