Changeset 20963b1 in flexpart.git for src/getfields_mpi.f90


Ignore:
Timestamp:
Apr 13, 2018, 2:33:40 PM (6 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:
3d7eebf, 93786a1
Parents:
3f149cc
Message:

Backwards deposition for the MPI version

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/getfields_mpi.f90

    r6ecb30a r20963b1  
    23323340  indmin=indj
    234234
     235   if (WETBKDEP.and.(lmpreader.or.(.not.lmp_use_reader.and.lroot))) then
     236        call writeprecip(itime,memind(1))
     237      endif
     238
    235239  else
    236240
    … …  
    28729160  indmin=indj
    288292
    289     mind3=memstat
     293!   if (WETBKDEP.and.lroot) then
     294    if (WETBKDEP.and.(lmpreader.or.(.not.lmp_use_reader.and.lroot))) then
     295      call writeprecip(itime,memind(1))
     296    endif
    290297
    291298  endif
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG