Changeset 3538 for palm/trunk/SOURCE/advec_v_pw.f90
- Timestamp:
- Nov 20, 2018 10:55:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_v_pw.f90
r2718 r3538 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Remove unnecessary double-masking of topography 29 ! 30 ! 2718 2018-01-02 08:49:38Z maronga 28 31 ! Corrected "Former revisions" section 29 32 ! … … 106 109 107 110 USE indices, & 108 ONLY: nxl, nxr, nyn, nysv, nzb, nzt , wall_flags_0111 ONLY: nxl, nxr, nyn, nysv, nzb, nzt 109 112 110 113 USE kinds … … 134 137 - v(k-1,j,i) * ( w(k-1,j-1,i) + w(k-1,j,i) ) ) & 135 138 * ddzw(k) & 136 ) & 137 * MERGE( 1.0_wp, 0.0_wp, & 138 BTEST( wall_flags_0(k,j,i), 2 ) ) 139 ) 139 140 ENDDO 140 141 ENDDO … … 161 162 162 163 USE indices, & 163 ONLY: nzb, nzt , wall_flags_0164 ONLY: nzb, nzt 164 165 165 166 USE kinds … … 187 188 - v(k-1,j,i) * ( w(k-1,j-1,i) + w(k-1,j,i) ) ) & 188 189 * ddzw(k) & 189 ) & 190 * MERGE( 1.0_wp, 0.0_wp, & 191 BTEST( wall_flags_0(k,j,i), 2 ) ) 190 ) 192 191 ENDDO 193 192
Note: See TracChangeset
for help on using the changeset viewer.