Changeset 7873bf7 in flexpart.git for src/releaseparticles.f90
- Timestamp:
- Apr 19, 2019, 10:40:41 AM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 5d74ed9
- Parents:
- 437c545
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/releaseparticles.f90
r75a4ded r7873bf7 114 114 average_timecorrect=0. 115 115 do k=1,nspec 116 if (zpoint1(i).gt.0.5) then ! point source 116 if(abs(xpoint2(i)-xpoint1(i)).lt.1.E-4.and.abs(ypoint2(i)-ypoint1(i)).lt.1.E-4) then 117 ! if (zpoint1(i).gt.0.5) then ! point source 117 118 timecorrect(k)=point_hour(k,nhour)*point_dow(k,ndayofweek) 118 119 else ! area source
Note: See TracChangeset
for help on using the changeset viewer.