Changeset 4c64400 in flexpart.git for src/wetdepokernel.f90
- Timestamp:
- Nov 8, 2016, 4:42:27 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:
- c8fc724
- Parents:
- 16b61a5
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/wetdepokernel.f90
re200b7a r4c64400 40 40 ! * 41 41 !***************************************************************************** 42 ! Changes: 43 ! eso 10/2016: Added option to disregard kernel 44 ! 45 !***************************************************************************** 42 46 43 47 use unc_mod … … 73 77 endif 74 78 79 ! If no kernel is used, direct attribution to grid cell 80 !****************************************************** 75 81 82 if (lnokernel) then 83 do ks=1,nspec 84 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. & 85 (jy.le.numygrid-1)) then 86 wetgridunc(ix,jy,ks,kp,nunc,nage)= & 87 wetgridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks) 88 end if 89 end do 90 else ! use kernel 91 76 92 ! Determine mass fractions for four grid points 77 93 !********************************************** … … 107 123 endif 108 124 end do 125 end if 109 126 110 127 end subroutine wetdepokernel
Note: See TracChangeset
for help on using the changeset viewer.