Changeset 4271 for palm


Ignore:
Timestamp:
Oct 23, 2019 10:46:41 AM (5 years ago)
Author:
maronga
Message:

bugfix in calculation of snow albedo

File:
1 edited

Legend:

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

    r4245 r4271  
    2828! -----------------
    2929! $Id$
     30! Bugfix: missing parentheses in calculation of snow albedo
     31!
     32! 4245 2019-09-30 08:40:37Z pavelkrc
    3033! Initialize explicit per-surface albedos from building_surface_pars
    3134!
     
    49554958                       surf%rrtm_aldir(ind_type,m) =                           &
    49564959                                 0.5_wp * ( 1.0_wp - surf%aldif(ind_type,m) )  &
    4957                                         * ( 3.0_wp / ( 1.0_wp + 4.0_wp         &
    4958                                         * cos_zenith ) ) - 1.0_wp
     4960                                        * ( ( 3.0_wp / ( 1.0_wp + 4.0_wp       &
     4961                                        * cos_zenith ) ) - 1.0_wp )
    49594962                       surf%rrtm_asdir(ind_type,m) =                           &
    49604963                                 0.5_wp * ( 1.0_wp - surf%asdif(ind_type,m) )  &
    4961                                         * ( 3.0_wp / ( 1.0_wp + 4.0_wp         &
    4962                                         * cos_zenith ) ) - 1.0_wp
     4964                                        * ( ( 3.0_wp / ( 1.0_wp + 4.0_wp       &
     4965                                        * cos_zenith ) ) - 1.0_wp )
    49634966
    49644967                       surf%rrtm_aldir(ind_type,m) =                           &
Note: See TracChangeset for help on using the changeset viewer.