Ignore:
Timestamp:
Dec 18, 2019 11:55:56 AM (17 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/calc_mean_profile.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!
     
    6670       USE indices,                                                            &
    6771           ONLY:  ngp_2dh_s_inner, nxl, nxr, nyn, nys, nzb, nzb, nzt,          &
    68                   wall_flags_static_0
     72                  wall_flags_total_0
    6973
    7074       USE kinds
     
    110114                   sums_l(k,pr,tn) = sums_l(k,pr,tn) + var(k,j,i)              &
    111115                                     * MERGE( 1.0_wp, 0.0_wp,                  &
    112                                               BTEST( wall_flags_static_0(k,j,i), 22 ) )
     116                                          BTEST( wall_flags_total_0(k,j,i), 22 ) )
    113117                ENDDO
    114118             ENDDO
Note: See TracChangeset for help on using the changeset viewer.