Changeset 0e085a8 in flexpart.git

Timestamp:

Feb 1, 2017, 9:47:04 AM (7 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

026c812

Parents:

93a1fa9

Message:

if statement before get_wetscav removed

File:

• src/wetdepo.f90 (modified) (1 diff)

src/wetdepo.f90

@@ -109 +109 @@
 !**************************************************
        wetscav=0.
-
-       if (((dquer(ks).le.0.).and.(weta_gas(ks).gt.0..or.wetb_gas(ks).gt.0.)) &
-          .or. &
-          ((dquer(ks).gt.0.).and.(crain_aero(ks).gt.0..or.csnow_aero(ks).gt.0.)))  then
+       
+        write(*,*) ks,dquer(ks), crain_aero(ks),csnow_aero(ks)
+!       if (((dquer(ks).le.0.).and.(weta_gas(ks).gt.0..or.wetb_gas(ks).gt.0.)) &
+!          .or. &
+!          ((dquer(ks).gt.0.).and.(crain_aero(ks).gt.0..or.csnow_aero(ks).gt.0.).or. &
+!            (ccn_aero(ks).gt0) .or. (in_aero(ks).gt.0) .or. (henry(ks).gt.0)))  then
 
       call get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav)
+      
 
       if (wetscav.gt.0.) then