Changeset 4329 for palm/trunk/SOURCE/calc_mean_profile.f90
- Timestamp:
- Dec 10, 2019 3:46:36 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/calc_mean_profile.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 ! … … 63 66 USE indices, & 64 67 ONLY: ngp_2dh_s_inner, nxl, nxr, nyn, nys, nzb, nzb, nzt, & 65 wall_flags_ 068 wall_flags_static_0 66 69 67 70 USE kinds … … 107 110 sums_l(k,pr,tn) = sums_l(k,pr,tn) + var(k,j,i) & 108 111 * MERGE( 1.0_wp, 0.0_wp, & 109 BTEST( wall_flags_ 0(k,j,i), 22 ) )112 BTEST( wall_flags_static_0(k,j,i), 22 ) ) 110 113 ENDDO 111 114 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.