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


Ignore:
Timestamp:
Dec 1, 2015, 4:59:07 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:
7216707, 4c4261c
Parents:
6b22af9
Message:

Fixed a bug where receptor arrays were not properly zeroed

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/timemanager_mpi.f90

    r6b22af9 ra1f4dd6  
    459459              endif
    460460            else
     461! zero arrays on non-root processes
    461462              gridunc(:,:,:,:,:,:,:)=0.
     463              creceptor(:,:)=0.
    462464            end if
    463465          else
    … …  
    471473              end if
    472474            else
     475! zero arrays on non-root processes
    473476              gridunc(:,:,:,:,:,:,:)=0.
     477              creceptor(:,:)=0.
    474478            endif
    475479          endif
    … …  
    788792! eso :TODO: this not implemented yet (transfer particles to PID 0 or rewrite)
    789793! the tools to do this are already in mpi_mod.f90
     794! :CUR: check this
    790795  if (lroot) then
    791796    do j=1,numpart
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG