Changeset a652cd5 in flexpart.git for src


Ignore:
Timestamp:
May 19, 2016, 3:56:21 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:
93786a1
Parents:
3b80e98
Message:

Fixed bug introduced by the MQUASILAG quick fix (18adf6049d9d47356934a37eb7784506f795e220)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/advance.f90

    r18adf60 ra652cd5  
    500500! 887     nsp=min(nsp,nspec)
    501501        if (nspec.eq.1.and.density(1).gt.0.) then
    502           call get_settling(itime,real(xt),real(yt),zt,nsp,settling)  !bugfix
     502          call get_settling(itime,real(xt),real(yt),zt,nspec,settling)  !bugfix
    503503        end if
    504504        w=w+settling
     
    664664!        if (density(nsp).gt.0.) then
    665665      if (nspec.eq.1.and.density(1).gt.0.) then
    666         call get_settling(itime,real(xt),real(yt),zt,nsp,settling)  !bugfix
     666        call get_settling(itime,real(xt),real(yt),zt,nspec,settling)  !bugfix
    667667      end if
    668668      w=w+settling
     
    870870!      if (density(nsp).gt.0.) then
    871871    if (nspec.eq.1.and.density(1).gt.0.) then
    872       call get_settling(itime+ldt,real(xt),real(yt),zt,nsp,settling)  !bugfix
     872      call get_settling(itime+ldt,real(xt),real(yt),zt,nspec,settling)  !bugfix
    873873    end if
    874874    w=w+settling
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG