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/disturb_field.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!
     
    6266    USE indices,                                                               &
    6367        ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzb_max, &
    64                nzt, wall_flags_static_0
     68               nzt, wall_flags_total_0
    6569       
    6670    USE kinds
     
    217221             DO  k = nzb, nzb_max
    218222                dist1(k,j,i) = MERGE( dist1(k,j,i), 0.0_wp,                    &
    219                                       BTEST( wall_flags_static_0(k,j,i), flag_nr )    &
     223                                  BTEST( wall_flags_total_0(k,j,i), flag_nr )  &
    220224                                    )
    221225             ENDDO
Note: See TracChangeset for help on using the changeset viewer.