Ignore:
Timestamp:
Dec 18, 2019 11:55:56 AM (22 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/data_output_3d.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!
     
    98102    USE indices,                                                               &
    99103        ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt,     &
    100                wall_flags_static_0
     104               wall_flags_total_0
    101105#else
    102106    USE indices,                                                               &
    103107        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
    104                nzt, wall_flags_static_0
     108               nzt, wall_flags_total_0
    105109#endif
    106110
     
    623627                                      to_be_resorted(k,j,i),                   &
    624628                                      REAL( fill_value, KIND = wp ),           &
    625                                       BTEST( wall_flags_static_0(k,j,i), flag_nr ) )
     629                                      BTEST( wall_flags_total_0(k,j,i), flag_nr ) )
    626630                ENDDO
    627631             ENDDO
Note: See TracChangeset for help on using the changeset viewer.