Changeset 4329 for palm/trunk/SOURCE/plant_canopy_model_mod.f90

Timestamp:

Dec 10, 2019 3:46:36 PM (4 years ago)

Author:

motisi

Message:

Renamed wall_flags_0 to wall_flags_static_0

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Renamed wall_flags_0 to wall_flags_static_0
+! 
+! 4314 2019-11-29 10:29:20Z suehring
 ! - Bugfix, plant canopy was still considered at building edges on for the u- 
 !   and v-component.
@@ -121 +124 @@
     USE indices,                                                               &
         ONLY:  nbgp, nxl, nxlg, nxlu, nxr, nxrg, nyn, nyng, nys, nysg, nysv,   &
-               nz, nzb, nzt, topo_top_ind, wall_flags_0
+               nz, nzb, nzt, topo_top_ind, wall_flags_static_0
 
     USE kinds
@@ -1125 +1128 @@
 !--                   an informative message is given.
                       IF ( ANY( lad_s(:,j,i) /= 0.0_wp )  .AND.                &
-                           ANY( BTEST( wall_flags_0(:,j,i), 6 ) ) .AND.        &
-                           ANY( BTEST( wall_flags_0(:,j,i), 4 ) ) )  THEN
+                           ANY( BTEST( wall_flags_static_0(:,j,i), 6 ) ) .AND.        &
+                           ANY( BTEST( wall_flags_static_0(:,j,i), 4 ) ) )  THEN
                          lad_s(:,j,i) = 0.0_wp
                          WRITE( message_string, * )                            &
@@ -1958 +1961 @@
 !--          of the potential rooftop grid point, while building_edge_e is
 !--          is set from the perspective of the non-building grid point.
-             building_edge_w = ANY( BTEST( wall_flags_0(:,j,i),   6 ) )  .AND. &
-                         .NOT. ANY( BTEST( wall_flags_0(:,j,i-1), 6 ) )
-             building_edge_e = ANY( BTEST( wall_flags_0(:,j,i-1), 6 ) )  .AND. &
-                         .NOT. ANY( BTEST( wall_flags_0(:,j,i),   6 ) )
+             building_edge_w = ANY( BTEST( wall_flags_static_0(:,j,i),   6 ) )  .AND. &
+                         .NOT. ANY( BTEST( wall_flags_static_0(:,j,i-1), 6 ) )
+             building_edge_e = ANY( BTEST( wall_flags_static_0(:,j,i-1), 6 ) )  .AND. &
+                         .NOT. ANY( BTEST( wall_flags_static_0(:,j,i),   6 ) )
 !
 !--          Determine topography-top index on u-grid
@@ -2038 +2041 @@
 !--          of the potential rooftop grid point, while building_edge_n is
 !--          is set from the perspective of the non-building grid point.
-             building_edge_s = ANY( BTEST( wall_flags_0(:,j,i),   6 ) )  .AND. &
-                         .NOT. ANY( BTEST( wall_flags_0(:,j-1,i), 6 ) )
-             building_edge_n = ANY( BTEST( wall_flags_0(:,j-1,i), 6 ) )  .AND. &
-                         .NOT. ANY( BTEST( wall_flags_0(:,j,i),   6 ) )
+             building_edge_s = ANY( BTEST( wall_flags_static_0(:,j,i),   6 ) )  .AND. &
+                         .NOT. ANY( BTEST( wall_flags_static_0(:,j-1,i), 6 ) )
+             building_edge_n = ANY( BTEST( wall_flags_static_0(:,j-1,i), 6 ) )  .AND. &
+                         .NOT. ANY( BTEST( wall_flags_static_0(:,j,i),   6 ) )
 !
 !--          Determine topography-top index on v-grid