Changeset 3861


Ignore:
Timestamp:
Apr 4, 2019 6:27:41 AM (5 years ago)
Author:
maronga
Message:

bugfix in radiation model (rad_lw_out_change_0)

File:
1 edited

Legend:

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

    r3859 r3861  
    2828! -----------------
    2929! $Id$
     30! Bugfix: factor of 4.0 required instead of 3.0 in calculation of rad_lw_out_change_0
     31!
     32! 3859 2019-04-03 20:30:31Z maronga
    3033! Added some descriptions
    3134!
     
    29402943                             + surf%rad_lw_in - surf%rad_lw_out
    29412944
    2942                 surf%rad_lw_out_change_0 = 3.0_wp * emissivity_urb * sigma_sb  &
     2945                surf%rad_lw_out_change_0 = 4.0_wp * emissivity_urb * sigma_sb  &
    29432946                                           * (t_rad_urb)**3
    29442947
     
    29852988                                      + surf%frac(ind_wat_win,m)   *           &
    29862989                                        surf%emissivity(ind_wat_win,m)         &
    2987                                       ) * 3.0_wp * sigma_sb                    &
     2990                                      ) * 4.0_wp * sigma_sb                    &
    29882991                                      * ( surf%pt_surface(m) * exner(nzb) )** 3
    29892992
     
    31143117                                    * surf%rad_lw_in
    31153118
    3116                 surf%rad_lw_out_change_0 = 3.0_wp * emissivity_urb * sigma_sb  &
     3119                surf%rad_lw_out_change_0 = 4.0_wp * emissivity_urb * sigma_sb  &
    31173120                                           * t_rad_urb**3
    31183121
Note: See TracChangeset for help on using the changeset viewer.