Changeset 20963b1 in flexpart.git for src/concoutput.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/concoutput.f90

    r08a38b5 r20963b1  
    140140  close(unitdates) 
    141141
     142  ! Overwrite existing dates file on first call, later append to it
     143  ! This fixes a bug where the dates file kept growing across multiple runs
    142144  IF (init) THEN
    143145    file_stat='OLD'
    … …  
    313315                   drygridsigma(ix,jy)* &
    314316                   sqrt(real(nclassunc))
    315 125           drygridsigmatotal=drygridsigmatotal+ &
     317              drygridsigmatotal=drygridsigmatotal+ &
    316318                   drygridsigma(ix,jy)
    317319            endif
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG