Changeset 4329 for palm/trunk/SOURCE/data_output_2d.f90
- Timestamp:
- Dec 10, 2019 3:46:36 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_2d.f90
r4182 r4329 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Renamed wall_flags_0 to wall_flags_static_0 28 ! 29 ! 4182 2019-08-22 15:20:23Z scharf 27 30 ! Corrected "Former revisions" section 28 31 ! … … 97 100 USE indices, & 98 101 ONLY: nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, & 99 nzb, nzt, wall_flags_ 0102 nzb, nzt, wall_flags_static_0 100 103 101 104 USE kinds … … 1181 1184 local_pf(i,j,k) = MERGE( to_be_resorted(k,j,i), & 1182 1185 REAL( fill_value, KIND = wp ), & 1183 BTEST( wall_flags_ 0(k,j,i), &1186 BTEST( wall_flags_static_0(k,j,i), & 1184 1187 flag_nr ) ) 1185 1188 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.