Changeset 3230


Ignore:
Timestamp:
Sep 5, 2018 9:29:05 AM (6 years ago)
Author:
schwenkel
Message:

Bugfix in radiation_constant_surf

File:
1 edited

Legend:

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

    r3226 r3230  
    2828! -----------------
    2929! $Id$
     30! Bugfix in radiation_constant_surf: changed (10.0 - emissivity_urb) to
     31! (1.0 - emissivity_urb)
     32!
     33! 3226 2018-08-31 12:27:09Z suehring
    3034! Bugfixes in calculation of sky-view factors and canopy-sink factors.
    3135!
     
    25662570
    25672571                surf%rad_lw_out = emissivity_urb * sigma_sb * (t_rad_urb)**4   &
    2568                                     + ( 10.0_wp - emissivity_urb )             & ! shouldn't be this a bulk value -- emissivity_urb?
     2572                                    + ( 1.0_wp - emissivity_urb )             & ! shouldn't be this a bulk value -- emissivity_urb?
    25692573                                    * surf%rad_lw_in
    25702574
Note: See TracChangeset for help on using the changeset viewer.