Changeset 4877 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Feb 17, 2021 4:17:35 PM (4 years ago)

Author:

suehring

Message:

Bugfix in initialization of vertical surfaces with roughness and surface heat fluxes

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix in init_single_surface_properties for vertical surfaces
+!
+! 4850 2021-01-21 17:59:25Z suehring
 ! +t_prev
 !
@@ -3106 +3109 @@
 
     REAL(wp), DIMENSION(1:ns) ::  var_surf  !< 1D surface variable that should be initialized
-    REAL(wp), DIMENSION(nys:nyn,nxl:nxr) ::  var_2d  !< input variable
+    REAL(wp), DIMENSION(nysg:nyng,nxlg:nxrg) ::  var_2d  !< input variable
 
     DO  m = 1, ns