Changeset a652cd5 in flexpart.git
- Timestamp:
- May 19, 2016, 3:56:21 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:
- 93786a1
- Parents:
- 3b80e98
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/advance.f90
r18adf60 ra652cd5 500 500 ! 887 nsp=min(nsp,nspec) 501 501 if (nspec.eq.1.and.density(1).gt.0.) then 502 call get_settling(itime,real(xt),real(yt),zt,nsp ,settling) !bugfix502 call get_settling(itime,real(xt),real(yt),zt,nspec,settling) !bugfix 503 503 end if 504 504 w=w+settling … … 664 664 ! if (density(nsp).gt.0.) then 665 665 if (nspec.eq.1.and.density(1).gt.0.) then 666 call get_settling(itime,real(xt),real(yt),zt,nsp ,settling) !bugfix666 call get_settling(itime,real(xt),real(yt),zt,nspec,settling) !bugfix 667 667 end if 668 668 w=w+settling … … 870 870 ! if (density(nsp).gt.0.) then 871 871 if (nspec.eq.1.and.density(1).gt.0.) then 872 call get_settling(itime+ldt,real(xt),real(yt),zt,nsp ,settling) !bugfix872 call get_settling(itime+ldt,real(xt),real(yt),zt,nspec,settling) !bugfix 873 873 end if 874 874 w=w+settling
Note: See TracChangeset
for help on using the changeset viewer.