Changeset 79abee9 in flexpart.git


Ignore:
Timestamp:
Jun 20, 2016, 4:08:51 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:
f28aa0a
Parents:
ed82e08
Message:

Fix for issue #151 (improper use of MPI_IN_PLACE). Also changed default RELEASES file to use SPECIES_001.

Files:
4 edited

Legend:

Unmodified
Added
Removed
  • options/COMMAND

    r6b22af9 r79abee9  
    11&COMMAND
    22 LDIRECT=          1,
    3  IBDATE=   20070911,
    4  IBTIME=     050000,
    5  IEDATE=   20070912,
    6  IETIME=     050000,
     3 IBDATE=   20140907,
     4 IBTIME=     060000,
     5 IEDATE=   20140907,
     6 IETIME=     120000,
    77 LOUTSTEP=       3600,
    88 LOUTAVER=       3600,
  • options/RELEASES

    r6b22af9 r79abee9  
    11&RELEASES_CTRL
    22 NSPEC=          1,
    3  SPECNUM_REL=         108,
     3 SPECNUM_REL=         1,
    44 /
    55&RELEASE
    6  IDATE1=   20070911,
     6 IDATE1=   20140907,
    77 ITIME1=     070000,
    8  IDATE2=   20070911,
    9  ITIME2=     080000,
     8 IDATE2=   20140907,
     9 ITIME2=     070000,
    1010 LON1=  -75.255    ,
    1111 LON2=  -75.255    ,
    1212 LAT1=  38.005    ,
    1313 LAT2=  38.005    ,
    14  ! Z1=  1500.000000    ,
    15  ! Z2=  2500.000000    ,
    1614 Z1=  2500.000000    ,
    1715 Z2=  2500.000000    ,
    1816 ZKIND=     1,
    19  MASS=  2.0000E8    ,
    20  PARTS=   10000000
    21  COMMENT="TEST1                          ",
     17 MASS=  1.0000E8    ,
     18 PARTS=   100000
     19 COMMENT="TEST1",
    2220 /
    23 ! &RELEASE
    24 ! IDATE1=   20100911,
    25 ! ITIME1=     070000,
    26 ! IDATE2=   20100911,
    27 ! ITIME2=     080000,
    28 ! LON1=  -79.250   ,
    29 ! LON2=  -79.250   ,
    30 ! LAT1=  38.100    ,
    31 ! LAT2=  38.100    ,
    32 ! Z1=  1500.000000    ,
    33 ! Z2=  2500.000000    ,
    34 ! ZKIND=     1,
    35 ! MASS=  2.0000E8    ,
    36 ! PARTS=   2000000
    37 ! COMMENT="TEST2                          ",
    38 !  /
    39 
    40 
    41 
    42 
    43 
    44 
  • src/FLEXPART_MPI.f90

    r32b49c3 r79abee9  
    454454  else
    455455    if (mp_partgroup_pid.ge.0) then ! Skip for readwind process
    456       call MPI_Reduce(tot_blc_count, tot_blc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
     456      call MPI_Reduce(tot_blc_count, 0, 1, MPI_INTEGER8, MPI_SUM, id_root, &
    457457           & mp_comm_used, mp_ierr)
    458       call MPI_Reduce(tot_inc_count, tot_inc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
     458      call MPI_Reduce(tot_inc_count, 0, 1, MPI_INTEGER8, MPI_SUM, id_root, &
    459459           & mp_comm_used, mp_ierr)
    460460    end if
  • src/mpi_mod.f90

    r3b80e98 r79abee9  
    20232023      if (mp_ierr /= 0) goto 600
    20242024    else
    2025       call MPI_Reduce(gridunc, gridunc, grid_size3d, mp_sp, MPI_SUM, id_root, &
     2025      call MPI_Reduce(gridunc, 0, grid_size3d, mp_sp, MPI_SUM, id_root, &
    20262026           & mp_comm_used, mp_ierr)
    20272027    end if
     
    20452045      if (mp_ierr /= 0) goto 600
    20462046    else
    2047       call MPI_Reduce(creceptor,creceptor,rcpt_size,mp_sp,MPI_SUM,id_root, &
     2047      call MPI_Reduce(creceptor,0,rcpt_size,mp_sp,MPI_SUM,id_root, &
    20482048           & mp_comm_used,mp_ierr)
    20492049    end if
     
    20992099      if (mp_ierr /= 0) goto 600
    21002100    else
    2101       call MPI_Reduce(griduncn, griduncn, grid_size3d, mp_sp, MPI_SUM, id_root, &
     2101      call MPI_Reduce(griduncn, 0, grid_size3d, mp_sp, MPI_SUM, id_root, &
    21022102           & mp_comm_used, mp_ierr)
    21032103    end if
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG