Changeset db712a8 in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Mar 3, 2016, 12:34:56 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:

38b7917

Parents:

b0434e1

Message:

Completed handling of nested wind fields with cloud water (for wet deposition).

File:

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

src/timemanager_mpi.f90

@@ -237 +237 @@
     if (lmp_sync.and.lmp_use_reader.and.memstat.gt.0) then
       call mpif_gf_send_vars(memstat)
-      call mpif_gf_send_vars_nest(memstat)
+      if (numbnests>0) call mpif_gf_send_vars_nest(memstat)
 ! 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)
-      call mpif_gf_send_vars_nest(memstat)
+      if (numbnests>0) call mpif_gf_send_vars_nest(memstat)
     end if
 
@@ -260 +260 @@
 ! Issued at start of each new field period. 
       if (memstat.ne.0.and.memstat.lt.32.and.lmp_use_reader) then
-! TODO: z0(7) changes with time, so should be dimension (numclass,2) to
-! allow transfer of the future value in the background
-        call MPI_Bcast(z0,numclass,mp_sp,id_read,MPI_COMM_WORLD,mp_ierr)
         call mpif_gf_request
       end if