Changeset 4208 for palm


Ignore:
Timestamp:
Sep 2, 2019 9:01:07 AM (5 years ago)
Author:
suehring
Message:

Bugfix in accessing albedo_pars in the clear-sky branch (merge from branch)

File:
1 edited

Legend:

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

    r4198 r4208  
    2828! -----------------
    2929! $Id$
     30! Bugfix in accessing albedo_pars in the clear-sky branch (merge from branch)
     31!
     32! 4198 2019-08-29 15:17:48Z gronemeier
    3033! Prohibit execution of radiation model if rotation_angle is not zero
    3134!
     
    18471850                joff = surf_usm_v(l)%joff
    18481851                DO  m = 1, surf_usm_v(l)%ns
    1849                    i = surf_usm_v(l)%i(m) + joff
     1852                   i = surf_usm_v(l)%i(m) + ioff
    18501853                   j = surf_usm_v(l)%j(m) + joff
    18511854                   IF ( albedo_pars_f%pars_xy(0,j,i) /= albedo_pars_f%fill )  THEN
Note: See TracChangeset for help on using the changeset viewer.