Changeset 2bec33e in flexpart.git for src/drydepokernel.f90
- Timestamp:
- May 8, 2017, 5:32:48 PM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 6d420c3
- Parents:
- 6985a98
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/drydepokernel.f90
r6985a98 r2bec33e 102 102 if ((abs(deposit(ks)).gt.0).and.DRYDEPSPEC(ks)) then 103 103 104 if (.not.usekernel) then105 drygridunc(ix,jy,ks,kp,nunc,nage)= &106 drygridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks)107 else108 104 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. & 109 105 (jy.le.numygrid-1)) then … … 134 130 endif 135 131 136 endif ! kernel137 132 endif ! deposit>0 138 139 133 end do 140 134 end if
Note: See TracChangeset
for help on using the changeset viewer.