Changeset 4024 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jun 12, 2019 2:06:46 PM (5 years ago)
Author:
suehring
Message:

Bugfix in albedo initialization, caused crashes in rrtmg calls

File:
1 edited

Legend:

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

    r3987 r4024  
    2525! -----------------
    2626! $Id$
     27! Bugfix in albedo initialization, caused crashes in rrtmg calls
     28!
     29! 3987 2019-05-22 09:52:13Z kanani
    2730! Introduce alternative switch for debug output during timestepping
    2831!
     
    27892792       ALLOCATE ( surf_lsm_h%albedo_type(0:2,1:surf_lsm_h%ns) )
    27902793       ALLOCATE ( surf_lsm_h%emissivity(0:2,1:surf_lsm_h%ns) )
    2791        surf_lsm_h%albedo_type = 0      
     2794       surf_lsm_h%albedo_type = albedo_type     
    27922795       surf_lsm_h%emissivity  = emissivity
    27932796       DO  l = 0, 3
    27942797          ALLOCATE ( surf_lsm_v(l)%albedo_type(0:2,1:surf_lsm_v(l)%ns) )
    27952798          ALLOCATE ( surf_lsm_v(l)%emissivity(0:2,1:surf_lsm_v(l)%ns)  )
    2796           surf_lsm_v(l)%albedo_type = 0
     2799          surf_lsm_v(l)%albedo_type = albedo_type
    27972800          surf_lsm_v(l)%emissivity  = emissivity
    27982801       ENDDO
Note: See TracChangeset for help on using the changeset viewer.