Changeset 4418


Ignore:
Timestamp:
Feb 21, 2020 9:41:13 AM (15 months ago)
Author:
raasch
Message:

bugfix for raindrop number adjustment

File:
1 edited

Legend:

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

    r4370 r4418  
    2525! -----------------
    2626! $Id$
     27! bugfix for raindrop number adjustment
     28!
     29! 4370 2020-01-10 14:00:44Z raasch
    2730! vector directives added to force vectorization on Intel19 compiler
    2831!
     
    228231    REAL(wp) ::  w_precipitation = 9.65_wp  !< maximum terminal velocity (m s-1)
    229232    REAL(wp) ::  x0 = 2.6E-10_wp           !< separating drop mass (kg)
    230     REAL(wp) ::  xamin = 5.24E-19_wp       !< average aerosol mass (kg) (~ 0.05µm)
     233!    REAL(wp) ::  xamin = 5.24E-19_wp       !< average aerosol mass (kg) (~ 0.05µm)
    231234    REAL(wp) ::  xcmin = 4.18E-15_wp       !< minimum cloud drop size (kg) (~ 1µm)
    232235    REAL(wp) ::  xrmin = 2.6E-10_wp        !< minimum rain drop size (kg)
     
    31403143             ELSE
    31413144                IF ( nc(k,j,i) * xcmin > qc(k,j,i) * hyrho(k) )  THEN
    3142                    nc(k,j,i) = qc(k,j,i) * hyrho(k) / xamin * flag
     3145                   nc(k,j,i) = qc(k,j,i) * hyrho(k) / xcmin * flag
    31433146                ENDIF
    31443147             ENDIF
Note: See TracChangeset for help on using the changeset viewer.