Changeset 026c812 in flexpart.git

Timestamp:

Feb 1, 2017, 10:17:58 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:

7919911

Parents:

0e085a8

Message:

BUGFIX: removed endif from deposition

File:

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

src/get_wetscav.f90

@@ -283 +283 @@
         if ((ccn_aero(ks).gt.0. .or. in_aero(ks).gt.0.).or.(henry(ks).gt.0.and.dquer(ks).le.0)) then 
           inc_count=inc_count+1
-          write(*,*) 'Incloud: ',inc_count
+!          write(*,*) 'Incloud: ',inc_count
 ! if negative coefficients (turned off) set to zero for use in equation
           if (ccn_aero(ks).lt.0.) ccn_aero(ks)=0.