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/data_output_2d.f90

    r4331 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! 4331 2019-12-10 18:25:02Z suehring
    2731! Move 2-m potential temperature output to diagnostic_output_quantities
    2832!
     
    103107    USE indices,                                                               &
    104108        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg,       &
    105                nzb, nzt, wall_flags_static_0
     109               nzb, nzt, wall_flags_total_0
    106110
    107111    USE kinds
     
    11541158                   DO  k = nzb_do, nzt_do
    11551159                      local_pf(i,j,k) = MERGE( to_be_resorted(k,j,i),          &
    1156                                                REAL( fill_value, KIND = wp ),  &
    1157                                                BTEST( wall_flags_static_0(k,j,i),     &
    1158                                                       flag_nr ) )
     1160                                           REAL( fill_value, KIND = wp ),      &
     1161                                           BTEST( wall_flags_total_0(k,j,i),   &
     1162                                                  flag_nr ) )
    11591163                   ENDDO
    11601164                ENDDO
Note: See TracChangeset for help on using the changeset viewer.