Changeset 54cbd6c in flexpart.git for src/conccalc.f90
- Timestamp:
- Sep 30, 2016, 11:01:54 AM (8 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 9669e1e
- Parents:
- dced13c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/conccalc.f90
r462f74b r54cbd6c 192 192 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. & 193 193 (jy.le.numygrid-1)) then 194 if ( SCAVDEP) then194 if (DRYBKDEP.or.WETBKDEP) then 195 195 do ks=1,nspec 196 196 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & … … 234 234 if ((jy.ge.0).and.(jy.le.numygrid-1)) then 235 235 w=wx*wy 236 if ( SCAVDEP) then236 if (DRYBKDEP.or.WETBKDEP) then 237 237 do ks=1,nspec 238 238 gridunc(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & … … 251 251 if ((jyp.ge.0).and.(jyp.le.numygrid-1)) then 252 252 w=wx*(1.-wy) 253 if ( SCAVDEP) then253 if (DRYBKDEP.or.WETBKDEP) then 254 254 do ks=1,nspec 255 255 gridunc(ix,jyp,kz,ks,nrelpointer,nclass(i),nage)= & … … 271 271 if ((jyp.ge.0).and.(jyp.le.numygrid-1)) then 272 272 w=(1.-wx)*(1.-wy) 273 if ( SCAVDEP) then273 if (DRYBKDEP.or.WETBKDEP) then 274 274 do ks=1,nspec 275 275 gridunc(ixp,jyp,kz,ks,nrelpointer,nclass(i),nage)= & … … 288 288 if ((jy.ge.0).and.(jy.le.numygrid-1)) then 289 289 w=(1.-wx)*wy 290 if ( SCAVDEP) then290 if (DRYBKDEP.or.WETBKDEP) then 291 291 do ks=1,nspec 292 292 gridunc(ixp,jy,kz,ks,nrelpointer,nclass(i),nage)= & … … 329 329 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgridn-1).and. & 330 330 (jy.le.numygridn-1)) then 331 if ( SCAVDEP) then331 if (DRYBKDEP.or.WETBKDEP) then 332 332 do ks=1,nspec 333 333 griduncn(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & … … 371 371 if ((jy.ge.0).and.(jy.le.numygridn-1)) then 372 372 w=wx*wy 373 if ( SCAVDEP) then373 if (DRYBKDEP.or.WETBKDEP) then 374 374 do ks=1,nspec 375 375 griduncn(ix,jy,kz,ks,nrelpointer,nclass(i),nage)= & … … 388 388 if ((jyp.ge.0).and.(jyp.le.numygridn-1)) then 389 389 w=wx*(1.-wy) 390 if ( SCAVDEP) then390 if (DRYBKDEP.or.WETBKDEP) then 391 391 do ks=1,nspec 392 392 griduncn(ix,jyp,kz,ks,nrelpointer,nclass(i),nage)= & … … 408 408 if ((jyp.ge.0).and.(jyp.le.numygridn-1)) then 409 409 w=(1.-wx)*(1.-wy) 410 if ( SCAVDEP) then410 if (DRYBKDEP.or.WETBKDEP) then 411 411 do ks=1,nspec 412 412 griduncn(ixp,jyp,kz,ks,nrelpointer,nclass(i),nage)= & … … 425 425 if ((jy.ge.0).and.(jy.le.numygridn-1)) then 426 426 w=(1.-wx)*wy 427 if ( SCAVDEP) then427 if (DRYBKDEP.or.WETBKDEP) then 428 428 do ks=1,nspec 429 429 griduncn(ixp,jy,kz,ks,nrelpointer,nclass(i),nage)= &
Note: See TracChangeset
for help on using the changeset viewer.