Changeset 4346 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Dec 18, 2019 11:55:56 AM (4 years ago)

Author:

motisi

Message:

Introduction of wall_flags_total_0, which currently sets bits based on static topography information used in wall_flags_static_0

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduction of wall_flags_total_0, which currently sets bits based on static
+! topography information used in wall_flags_static_0
+! 
+! 4329 2019-12-10 15:46:36Z motisi
 ! Renamed wall_flags_0 to wall_flags_static_0
 ! 
@@ -3404 +3408 @@
 
        USE indices,                                                            &
-           ONLY:  nxl, nxr, nyn, nys, wall_flags_static_0
+           ONLY:  nxl, nxr, nyn, nys, wall_flags_total_0
 
        IMPLICIT NONE
@@ -3870 +3874 @@
 !--          Check if building_type is set at each building and vice versa. 
 !--          Please note, buildings are already processed and filtered.
-!--          For this reason, consistency checks are based on wall_flags_static_0 
+!--          For this reason, consistency checks are based on wall_flags_total_0 
 !--          rather than buildings_f (buildings are represented by bit 6 in 
-!--          wall_flags_static_0). 
+!--          wall_flags_total_0). 
              IF ( building_type_f%from_file  .AND.  buildings_f%from_file )  THEN
-                IF ( ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.            &
+                IF ( ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.      &
                      building_type_f%var(j,i) == building_type_f%fill  .OR.    &
-               .NOT. ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.            &
+               .NOT. ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.      &
                      building_type_f%var(j,i) /= building_type_f%fill )  THEN
                    WRITE( message_string, * ) 'Each location where a ' //      &
@@ -3891 +3895 @@
 !--          is set and vice versa.
              IF ( buildings_f%from_file )  THEN
-                IF ( ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.           &
+                IF ( ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.     &
                      building_id_f%var(j,i) == building_id_f%fill  .OR.       &
-               .NOT. ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.           &
+               .NOT. ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.     &
                      building_id_f%var(j,i) /= building_id_f%fill )  THEN
                    WRITE( message_string, * ) 'Each location where a ' //     &
@@ -3905 +3909 @@
 !--          Check if building ID is set where a bulding is defined.
              IF ( buildings_f%from_file )  THEN
-                IF ( ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.           &
+                IF ( ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.     &
                      building_id_f%var(j,i) == building_id_f%fill )  THEN
                    WRITE( message_string, * ) 'Each building grid point '//   &