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/poismg_noopt_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!
     
    16551659       USE indices,                                                            &
    16561660           ONLY:  flags, nxl_mg, nxr_mg, nyn_mg, nys_mg, nzb, nzt_mg,          &
    1657                   wall_flags_static_0, wall_flags_1,                                  &
     1661                  wall_flags_total_0, wall_flags_1,                            &
    16581662                  wall_flags_10, wall_flags_2, wall_flags_3,  wall_flags_4,    &
    16591663                  wall_flags_5, wall_flags_6, wall_flags_7, wall_flags_8,      &
     
    17391743                DO  j = nys_l, nyn_l
    17401744                   DO  k = nzb, nzt_l
    1741                       topo_tmp(k,j,i) = wall_flags_static_0(k*inc,j*inc,i*inc)
     1745                      topo_tmp(k,j,i) = wall_flags_total_0(k*inc,j*inc,i*inc)
    17421746                   ENDDO
    17431747                ENDDO
Note: See TracChangeset for help on using the changeset viewer.