Changeset 1c0d5e6 in flexpart.git for src/wetdepokernel.f90
- Timestamp:
- Dec 1, 2016, 12:47:22 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:
- 56a2e54
- Parents:
- 8ee24a5
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/wetdepokernel.f90
re200b7a r1c0d5e6 79 79 do ks=1,nspec 80 80 81 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. & 81 if (.not.usekernel) then 82 wetgridunc(ix,jy,ks,kp,nunc,nage)= & 83 wetgridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks) 84 else 85 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. & 82 86 (jy.le.numygrid-1)) then 83 w=wx*wy87 w=wx*wy 84 88 wetgridunc(ix,jy,ks,kp,nunc,nage)= & 85 89 wetgridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks)*w 86 endif90 endif 87 91 88 if ((ixp.ge.0).and.(jyp.ge.0).and.(ixp.le.numxgrid-1).and. &92 if ((ixp.ge.0).and.(jyp.ge.0).and.(ixp.le.numxgrid-1).and. & 89 93 (jyp.le.numygrid-1)) then 90 w=(1.-wx)*(1.-wy)94 w=(1.-wx)*(1.-wy) 91 95 wetgridunc(ixp,jyp,ks,kp,nunc,nage)= & 92 96 wetgridunc(ixp,jyp,ks,kp,nunc,nage)+deposit(ks)*w 93 endif97 endif 94 98 95 if ((ixp.ge.0).and.(jy.ge.0).and.(ixp.le.numxgrid-1).and. &99 if ((ixp.ge.0).and.(jy.ge.0).and.(ixp.le.numxgrid-1).and. & 96 100 (jy.le.numygrid-1)) then 97 w=(1.-wx)*wy101 w=(1.-wx)*wy 98 102 wetgridunc(ixp,jy,ks,kp,nunc,nage)= & 99 103 wetgridunc(ixp,jy,ks,kp,nunc,nage)+deposit(ks)*w 100 endif104 endif 101 105 102 if ((ix.ge.0).and.(jyp.ge.0).and.(ix.le.numxgrid-1).and. &106 if ((ix.ge.0).and.(jyp.ge.0).and.(ix.le.numxgrid-1).and. & 103 107 (jyp.le.numygrid-1)) then 104 w=wx*(1.-wy)108 w=wx*(1.-wy) 105 109 wetgridunc(ix,jyp,ks,kp,nunc,nage)= & 106 110 wetgridunc(ix,jyp,ks,kp,nunc,nage)+deposit(ks)*w 107 endif 111 endif 112 endif 108 113 end do 109 114
Note: See TracChangeset
for help on using the changeset viewer.