Changeset 4643 for palm/trunk


Ignore:
Timestamp:
Aug 17, 2020 9:19:42 AM (4 years ago)
Author:
pavelkrc
Message:

Bugfix: typo in index of surf%* arrays

File:
1 edited

Legend:

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

    r4634 r4643  
    2828! -----------------
    2929! $Id$
     30! - Bugfix: typo in index of surf%* arrays
     31!
     32! 4634 2020-08-05 15:42:28Z pavelkrc
    3033! - Bugfix: rtm_svf_, rtm_dif_ outputs
    3134! - Bugfix: correct average transparency for MRT factors
     
    33583361                                           surf%emissivity(m,ind_veg_wall)     &
    33593362                                         + surf%frac(m,ind_pav_green) *        &
    3360                                            surf%emissivity(im,ind_pav_green)    &
     3363                                           surf%emissivity(m,ind_pav_green)    &
    33613364                                         + surf%frac(m,ind_wat_win)   *        &
    33623365                                           surf%emissivity(m,ind_wat_win)      &
     
    50685071                    IF ( cos_zenith < 0.5_wp )  THEN
    50695072                       surf%rrtm_aldir(m,ind_type) =                           &
    5070                                  0.5_wp * ( 1.0_wp - surf%aldif(im,ind_type) )  &
     5073                                 0.5_wp * ( 1.0_wp - surf%aldif(m,ind_type) )  &
    50715074                                        * ( ( 3.0_wp / ( 1.0_wp + 4.0_wp       &
    50725075                                        * cos_zenith ) ) - 1.0_wp )
Note: See TracChangeset for help on using the changeset viewer.