Changeset 4831 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Jan 6, 2021 5:55:14 PM (4 years ago)

Author:

suehring

Message:

Bugfix in check_output for variables with suffix indicating the surface facing

File:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -22 +22 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Bugfix in checking output variables with suffix indicating the surface facing
+! 
+! 4828 2021-01-05 11:21:41Z Giersch
 ! Deactivated A/C cooling capacity for office buildings built before year 2000.
 !
@@ -2331 +2334 @@
 !-- Directional variables
     DO  i = 1, nl1
-       DO  j = 1, nd
+       DO  j = 0, nd-1
           IF ( TRIM( var ) == TRIM( varlist1(i)) // TRIM( dirname(j) ) )  THEN
              lfound = .TRUE.
@@ -2343 +2346 @@
 !-- Directional layer variables
     DO  i = 1, nl2
-       DO  j = 1, nd
+       DO  j = 0, nd-1
           DO  l = nzb_wall, nzt_wall
              WRITE( ls,'(A1,I1)' ) '_', l