Changeset 3856 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Apr 3, 2019 11:06:59 AM (6 years ago)

Author:

suehring

Message:

Bugfix in lsm_init in case no surface fractions are provided

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 lsm_init in case no surface-fractions are provided
+! 
+! 3847 2019-04-01 14:51:44Z suehring
 ! Adjust message-call for checks that are especially carried out locally. 
 ! 
@@ -2905 +2908 @@
                          vegetation_type_f%var(j,i)                 = 1 ! bare soil
                          soil_type_f%var_2d(j,i)                    = 1 
-                         surface_fraction_f%frac(ind_veg_wall,j,i)  = 1.0_wp
-                         surface_fraction_f%frac(ind_pav_green,j,i) = 0.0_wp
-                         surface_fraction_f%frac(ind_wat_win,j,i)   = 0.0_wp
+!                         
+!--                      Set surface_fraction if provided in static input, 
+!--                      else, in case no tiles are used, this will be done
+!--                      on basis of the prescribed types (vegetation/pavement/
+!--                      water_type). 
+                         IF ( surface_fraction_f%from_file )  THEN
+                            surface_fraction_f%frac(ind_veg_wall,j,i)  = 1.0_wp
+                            surface_fraction_f%frac(ind_pav_green,j,i) = 0.0_wp
+                            surface_fraction_f%frac(ind_wat_win,j,i)   = 0.0_wp
+                         ENDIF
                       ENDIF