Changes in src/readspecies.f90 [9484483:ec7fc72] in flexpart.git

File:

• src/readspecies.f90 (modified) (2 diffs)

src/readspecies.f90

@@ -151 +151 @@
 !  write(*,*) density(pos_spec)
     read(unitspecies,'(e18.1)',end=22) dquer(pos_spec)
-!  write(*,*) dquer(pos_spec)
+    write(*,*) 'dquer(pos_spec):', dquer(pos_spec)
     read(unitspecies,'(e18.1)',end=22) dsigma(pos_spec)
 !  write(*,*) dsigma(pos_spec)
@@ -292 +292 @@
   endif
 
-  if ((weta(pos_spec).gt.0).and.(henry(pos_spec).le.0)) then
+  if (((weta(pos_spec).gt.0).or.(wetb(pos_spec).gt.0)).and.(henry(pos_spec).le.0)) then
     if (dquer(pos_spec).le.0) goto 996 ! no particle, no henry set
   endif