Ignore:
Timestamp:
Apr 16, 2019 3:17:43 PM (2 years ago)
Author:
suehring
Message:

Bugfixes in initialization and STG

File:
1 edited

Legend:

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

    r3885 r3900  
    2828! -----------------
    2929! $Id$
     30! Fixed initialization problem
     31!
     32! 3885 2019-04-11 11:29:34Z kanani
    3033! Changes related to global restructuring of location messages and introduction
    3134! of additional debug messages
     
    22162219                ioff = surf_usm_v(l)%ioff
    22172220                joff = surf_usm_v(l)%joff
    2218                 DO  m = 1, surf_usm_h%ns
    2219                    i = surf_usm_h%i(m) + joff
    2220                    j = surf_usm_h%j(m) + joff
     2221                DO  m = 1, surf_usm_v(l)%ns
     2222                   i = surf_usm_v(l)%i(m) + joff
     2223                   j = surf_usm_v(l)%j(m) + joff
    22212224                   IF ( albedo_pars_f%pars_xy(0,j,i) /= albedo_pars_f%fill )  THEN
    22222225                      IF ( surf_usm_v(l)%albedo_type(ind_veg_wall,m) == 0 )    &
     
    22252228                         surf_usm_v(l)%albedo(ind_pav_green,m) = albedo_pars_f%pars_xy(0,j,i)
    22262229                      IF ( surf_usm_v(l)%albedo_type(ind_wat_win,m) == 0 )     &
    2227                          surf_lsm_v(l)%albedo(ind_wat_win,m) = albedo_pars_f%pars_xy(0,j,i)
     2230                         surf_usm_v(l)%albedo(ind_wat_win,m) = albedo_pars_f%pars_xy(0,j,i)
    22282231                   ENDIF
    22292232                ENDDO
Note: See TracChangeset for help on using the changeset viewer.