- Timestamp:
- Feb 1, 2017, 10:17:58 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 7919911
- Parents:
- 0e085a8
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/get_wetscav.f90
r93a1fa9 r026c812 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 284 284 inc_count=inc_count+1 285 write(*,*) 'Incloud: ',inc_count285 ! write(*,*) 'Incloud: ',inc_count 286 286 ! if negative coefficients (turned off) set to zero for use in equation 287 287 if (ccn_aero(ks).lt.0.) ccn_aero(ks)=0.
Note: See TracChangeset
for help on using the changeset viewer.