Changeset 79abee9 in flexpart.git
- Timestamp:
- Jun 20, 2016, 4:08:51 PM (8 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- f28aa0a
- Parents:
- ed82e08
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
options/COMMAND
r6b22af9 r79abee9 1 1 &COMMAND 2 2 LDIRECT= 1, 3 IBDATE= 20 070911,4 IBTIME= 0 50000,5 IEDATE= 20 070912,6 IETIME= 050000,3 IBDATE= 20140907, 4 IBTIME= 060000, 5 IEDATE= 20140907, 6 IETIME= 120000, 7 7 LOUTSTEP= 3600, 8 8 LOUTAVER= 3600, -
options/RELEASES
r6b22af9 r79abee9 1 1 &RELEASES_CTRL 2 2 NSPEC= 1, 3 SPECNUM_REL= 1 08,3 SPECNUM_REL= 1, 4 4 / 5 5 &RELEASE 6 IDATE1= 20 070911,6 IDATE1= 20140907, 7 7 ITIME1= 070000, 8 IDATE2= 20 070911,9 ITIME2= 0 80000,8 IDATE2= 20140907, 9 ITIME2= 070000, 10 10 LON1= -75.255 , 11 11 LON2= -75.255 , 12 12 LAT1= 38.005 , 13 13 LAT2= 38.005 , 14 ! Z1= 1500.000000 ,15 ! Z2= 2500.000000 ,16 14 Z1= 2500.000000 , 17 15 Z2= 2500.000000 , 18 16 ZKIND= 1, 19 MASS= 2.0000E8 ,20 PARTS= 100000 0021 COMMENT="TEST1 17 MASS= 1.0000E8 , 18 PARTS= 100000 19 COMMENT="TEST1", 22 20 / 23 ! &RELEASE24 ! 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= 200000037 ! COMMENT="TEST2 ",38 ! /39 40 41 42 43 44 -
src/FLEXPART_MPI.f90
r32b49c3 r79abee9 454 454 else 455 455 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, & 457 457 & 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, & 459 459 & mp_comm_used, mp_ierr) 460 460 end if -
src/mpi_mod.f90
r3b80e98 r79abee9 2023 2023 if (mp_ierr /= 0) goto 600 2024 2024 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, & 2026 2026 & mp_comm_used, mp_ierr) 2027 2027 end if … … 2045 2045 if (mp_ierr /= 0) goto 600 2046 2046 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, & 2048 2048 & mp_comm_used,mp_ierr) 2049 2049 end if … … 2099 2099 if (mp_ierr /= 0) goto 600 2100 2100 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, & 2102 2102 & mp_comm_used, mp_ierr) 2103 2103 end if
Note: See TracChangeset
for help on using the changeset viewer.