Changes in src/releaseparticles.f90 [75a4ded:7873bf7] in flexpart.git
- 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.