Ignore:
Timestamp:
Dec 18, 2019 11:55:56 AM (23 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r4329 r4346  
    2525! -----------------
    2626! $Id$
     27! Introduction of wall_flags_total_0, which currently sets bits based on static
     28! topography information used in wall_flags_static_0
     29!
     30! 4329 2019-12-10 15:46:36Z motisi
    2731! Renamed wall_flags_0 to wall_flags_static_0
    2832!
     
    34043408
    34053409       USE indices,                                                            &
    3406            ONLY:  nxl, nxr, nyn, nys, wall_flags_static_0
     3410           ONLY:  nxl, nxr, nyn, nys, wall_flags_total_0
    34073411
    34083412       IMPLICIT NONE
     
    38703874!--          Check if building_type is set at each building and vice versa.
    38713875!--          Please note, buildings are already processed and filtered.
    3872 !--          For this reason, consistency checks are based on wall_flags_static_0
     3876!--          For this reason, consistency checks are based on wall_flags_total_0
    38733877!--          rather than buildings_f (buildings are represented by bit 6 in
    3874 !--          wall_flags_static_0).
     3878!--          wall_flags_total_0).
    38753879             IF ( building_type_f%from_file  .AND.  buildings_f%from_file )  THEN
    3876                 IF ( ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.            &
     3880                IF ( ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.      &
    38773881                     building_type_f%var(j,i) == building_type_f%fill  .OR.    &
    3878                .NOT. ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.            &
     3882               .NOT. ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.      &
    38793883                     building_type_f%var(j,i) /= building_type_f%fill )  THEN
    38803884                   WRITE( message_string, * ) 'Each location where a ' //      &
     
    38913895!--          is set and vice versa.
    38923896             IF ( buildings_f%from_file )  THEN
    3893                 IF ( ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.           &
     3897                IF ( ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.     &
    38943898                     building_id_f%var(j,i) == building_id_f%fill  .OR.       &
    3895                .NOT. ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.           &
     3899               .NOT. ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.     &
    38963900                     building_id_f%var(j,i) /= building_id_f%fill )  THEN
    38973901                   WRITE( message_string, * ) 'Each location where a ' //     &
     
    39053909!--          Check if building ID is set where a bulding is defined.
    39063910             IF ( buildings_f%from_file )  THEN
    3907                 IF ( ANY( BTEST ( wall_flags_static_0(:,j,i), 6 ) )  .AND.           &
     3911                IF ( ANY( BTEST ( wall_flags_total_0(:,j,i), 6 ) )  .AND.     &
    39083912                     building_id_f%var(j,i) == building_id_f%fill )  THEN
    39093913                   WRITE( message_string, * ) 'Each building grid point '//   &
Note: See TracChangeset for help on using the changeset viewer.