Changes in src/releaseparticles.f90 [7873bf7:75a4ded] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/releaseparticles.f90
r7873bf7 r75a4ded 114 114 average_timecorrect=0. 115 115 do k=1,nspec 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 116 if (zpoint1(i).gt.0.5) then ! point source 118 117 timecorrect(k)=point_hour(k,nhour)*point_dow(k,ndayofweek) 119 118 else ! area source
Note: See TracChangeset
for help on using the changeset viewer.