Changeset 2604 for palm/trunk/SOURCE/radiation_model_mod.f90
- Timestamp:
- Nov 6, 2017 1:29:00 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/radiation_model_mod.f90
r2601 r2604 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix for calculation of effective radius using morrison microphysics 28 ! 29 ! 2601 2017-11-02 16:22:46Z scharf 27 30 ! added emissivity to namelist 28 31 ! … … 207 210 208 211 USE microphysics_mod, & 209 ONLY: n c_const, sigma_gc212 ONLY: na_init, nc_const, sigma_gc 210 213 211 214 #if defined ( __netcdf ) … … 1556 1559 !-- Calculate cloud droplet effective radius 1557 1560 IF ( cloud_physics ) THEN 1558 nc_rad = MERGE( nc(k,j,i), nc_const, microphysics_morrison ) 1561 ! 1562 !-- Calculete effective droplet radius. In case of using 1563 !-- cloud_scheme = 'morrison' and a non reasonable number 1564 !-- of cloud droplets the inital aerosol number 1565 !-- concentration is considered. 1566 IF ( microphysics_morrison ) THEN 1567 IF ( nc(k,j,i) > 1.0E-20_wp ) THEN 1568 nc_rad = nc(k,j,i) 1569 ELSE 1570 nc_rad = na_init 1571 ENDIF 1572 ELSE 1573 nc_rad = nc_const 1574 ENDIF 1575 1559 1576 rrtm_reliq(0,k) = 1.0E6_wp * ( 3.0_wp * ql(k,j,i) & 1560 1577 * rho_surface &
Note: See TracChangeset
for help on using the changeset viewer.