Changeset 4024 for palm

Timestamp:

Jun 12, 2019 2:06:46 PM (5 years ago)

Author:

suehring

Message:

Bugfix in albedo initialization, caused crashes in rrtmg calls

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in albedo initialization, caused crashes in rrtmg calls
+! 
+! 3987 2019-05-22 09:52:13Z kanani
 ! Introduce alternative switch for debug output during timestepping
 ! 
@@ -2789 +2792 @@
        ALLOCATE ( surf_lsm_h%albedo_type(0:2,1:surf_lsm_h%ns) )
        ALLOCATE ( surf_lsm_h%emissivity(0:2,1:surf_lsm_h%ns) )
-       surf_lsm_h%albedo_type = 0      
+       surf_lsm_h%albedo_type = albedo_type     
        surf_lsm_h%emissivity  = emissivity
        DO  l = 0, 3
           ALLOCATE ( surf_lsm_v(l)%albedo_type(0:2,1:surf_lsm_v(l)%ns) )
           ALLOCATE ( surf_lsm_v(l)%emissivity(0:2,1:surf_lsm_v(l)%ns)  )
-          surf_lsm_v(l)%albedo_type = 0
+          surf_lsm_v(l)%albedo_type = albedo_type
           surf_lsm_v(l)%emissivity  = emissivity
        ENDDO