Changeset 1585284 in flexpart.git


Ignore:
Timestamp:
Apr 8, 2015, 3:58:40 PM (9 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:
2f8635b
Parents:
5f9d14a
Message:

Updated wet depo scheme, part 2

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/FLEXPART_MPI.f90

    r5f9d14a r1585284  
    431431         & mp_comm_used, mp_ierr)
    432432  else
    433     call MPI_Reduce(tot_blc_count, tot_blc_count, 1, mp_pp, MPI_SUM, id_root, &
    434          & mp_comm_used, mp_ierr)
    435     call MPI_Reduce(tot_inc_count, tot_inc_count, 1, mp_pp, MPI_SUM, id_root, &
    436          & mp_comm_used, mp_ierr)
     433    if (mp_partgroup_pid.ge.0) then ! Skip for readwind process
     434      call MPI_Reduce(tot_blc_count, tot_blc_count, 1, mp_pp, MPI_SUM, id_root, &
     435           & mp_comm_used, mp_ierr)
     436      call MPI_Reduce(tot_inc_count, tot_inc_count, 1, mp_pp, MPI_SUM, id_root, &
     437           & mp_comm_used, mp_ierr)
     438    end if
    437439  end if
    438440
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG