Changeset 3538 for palm/trunk/SOURCE/advec_u_pw.f90
- Timestamp:
- Nov 20, 2018 10:55:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_u_pw.f90
r2718 r3538 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Remove unnecessary double-masking of topography 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 105 108 106 109 USE indices, & 107 ONLY: nxlu, nxr, nyn, nys, nzb, nzt , wall_flags_0110 ONLY: nxlu, nxr, nyn, nys, nzb, nzt 108 111 109 112 USE kinds … … 132 135 - u(k-1,j,i) * ( w(k-1,j,i) + w(k-1,j,i-1) ) ) & 133 136 * ddzw(k) & 134 ) & 135 * MERGE( 1.0_wp, 0.0_wp, & 136 BTEST( wall_flags_0(k,j,i), 1 ) ) 137 ) 137 138 ENDDO 138 139 ENDDO … … 159 160 160 161 USE indices, & 161 ONLY: nzb, nzt , wall_flags_0162 ONLY: nzb, nzt 162 163 163 164 USE kinds … … 184 185 - u(k-1,j,i) * ( w(k-1,j,i) + w(k-1,j,i-1) ) ) & 185 186 * ddzw(k) & 186 ) & 187 * MERGE( 1.0_wp, 0.0_wp, & 188 BTEST( wall_flags_0(k,j,i), 1 ) ) 187 ) 189 188 ENDDO 190 189
Note: See TracChangeset
for help on using the changeset viewer.