Changeset 08a38b5 in flexpart.git for src/conccalc.f90
- Timestamp:
- Oct 3, 2017, 3:44:21 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:
- de4c5e9
- Parents:
- bb579a9
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/conccalc.f90
re52967c r08a38b5 193 193 (jy.le.numygrid-1)) then 194 194 if (DRYBKDEP.or.WETBKDEP) then 195 196 197 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)+ &198 xmass1(i,ks)/rhoi*weight*max(xscav_frac1(i,ks),0.0)199 195 do ks=1,nspec 196 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & 197 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)+ & 198 xmass1(i,ks)/rhoi*weight*max(xscav_frac1(i,ks),0.0) 199 end do 200 200 else 201 do ks=1,nspec 202 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & 203 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)+ & 204 xmass1(i,ks)/rhoi*weight 205 end do 201 if (lparticlecountoutput) then 202 do ks=1,nspec 203 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & 204 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)+1 205 end do 206 else 207 do ks=1,nspec 208 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & 209 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)+ & 210 xmass1(i,ks)/rhoi*weight 211 end do 212 end if 206 213 endif 207 214 endif … … 336 343 end do 337 344 else 338 do ks=1,nspec 339 griduncn(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & 340 griduncn(ix,jy,kz,ks,nrelpointer,nclass(i),nage)+ & 341 xmass1(i,ks)/rhoi*weight 342 end do 343 endif 344 endif 345 345 if (lparticlecountoutput) then 346 do ks=1,nspec 347 griduncn(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & 348 griduncn(ix,jy,kz,ks,nrelpointer,nclass(i),nage)+1 349 end do 350 else 351 do ks=1,nspec 352 griduncn(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & 353 griduncn(ix,jy,kz,ks,nrelpointer,nclass(i),nage)+ & 354 xmass1(i,ks)/rhoi*weight 355 end do 356 endif 357 endif 358 endif 359 346 360 else ! attribution via uniform kernel 347 361
Note: See TracChangeset
for help on using the changeset viewer.