Changeset 92a74b2 in flexpart.git for src/conccalc.f90
- Timestamp:
- Nov 21, 2016, 10:05:39 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 3d6060e
- Parents:
- 7062fab
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/conccalc.f90
rdeaac29 r92a74b2 207 207 endif 208 208 209 else ! attribution via uniform kernel 209 else ! attribution via uniform kernel 210 210 211 211 ddx=xl-real(ix) ! distance to left cell border … … 326 326 if ((itage.lt.10800).or.(xl.lt.0.5).or.(yl.lt.0.5).or. & 327 327 (xl.gt.real(numxgridn-1)-0.5).or. & 328 (yl.gt.real(numygridn-1)-0.5) ) then ! no kernel, direct attribution to grid cell328 (yl.gt.real(numygridn-1)-0.5).or.(usekernel.eq.0)) then ! no kernel, direct attribution to grid cell 329 329 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgridn-1).and. & 330 330 (jy.le.numygridn-1)) then
Note: See TracChangeset
for help on using the changeset viewer.