Ignore:
Timestamp:
Nov 29, 2012 4:54:55 PM (9 years ago)
Author:
franke
Message:

ventilation effect for cloud droplets included, calculation of cloud droplet collisions now uses formulation by Wang, bugfixes in Rosenbrock method and in calculation of collision efficiencies

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_collision_kernels.f90

    r1037 r1071  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: collision efficiencies for Hall kernel should not be < 1.0E-20
    2323!
    2424! Former revisions:
     
    607607
    608608!------------------------------------------------------------------------------!
    609 ! Calculation of collision efficencies for the Hall kernel
     609! Calculation of collision efficiencies for the Hall kernel
    610610!------------------------------------------------------------------------------!
    611611    SUBROUTINE effic
     
    728728                ek = ( 1.0 - qq ) * ecoll(15,iq-1) + qq * ecoll(15,iq)
    729729                ec(j,i) = MIN( ek, 1.0 )
    730              ENDIF
     730             ENDIF
     731
     732             IF ( ec(j,i) < 1.0E-20 )  ec(j,i) = 0.0
    731733
    732734             ec(i,j) = ec(j,i)
    733              IF ( ec(i,j) < 1.0E-20 )  ec(i,j) = 0.0
    734735
    735736          ENDDO
Note: See TracChangeset for help on using the changeset viewer.