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

Timestamp:

Feb 14, 2018 5:00:09 PM (6 years ago)

Author:

suehring

Message:

Bugfix in re-mapping surface-element data in case of restarts; bugfix in initialization of water-surface roughness; bugfix - uninitialized resistance at urban-type surfaces

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in initialization of roughness over water surfaces
+! 
+! 2798 2018-02-09 17:16:39Z suehring
 ! Minor bugfix for initialization of pt_surface
 ! 
@@ -3382 +3385 @@
                    surf_lsm_h%z0q(m)    = water_pars_f%pars_xy(ind_w_z0h,j,i)
                 ENDIF
-
                 IF ( water_pars_f%pars_xy(ind_w_lambda_s,j,i) /=               &
                      water_pars_f%fill )                                       &
@@ -3864 +3866 @@
           ENDDO
        ENDIF
+
 !
 !--    Initial run actions
@@ -4264 +4267 @@
 !--    Calculate new roughness lengths (for water surfaces only, i.e. only 
 !-     horizontal surfaces)
-       CALL calc_z0_water_surface
+       IF ( .NOT. constant_roughness )  CALL calc_z0_water_surface
 
        t_soil_h_p    = t_soil_h
@@ -4307 +4310 @@
           ENDIF
        ENDDO
+
 
 
@@ -5897 +5901 @@
       ENDIF
       READ ( 13 ) ns_v_on_file_lsm
-
 !
 !--   Allocate temporary arrays to store surface data