Changeset 1691 for palm/trunk/SOURCE/diffusion_s.f90
- Timestamp:
- Oct 26, 2015 4:17:44 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_s.f90
r1683 r1691 14 14 ! PALM. If not, see <http://www.gnu.org/licenses/>. 15 15 ! 16 ! Copyright 1997-201 4Leibniz Universitaet Hannover16 ! Copyright 1997-2015 Leibniz Universitaet Hannover 17 17 !--------------------------------------------------------------------------------! 18 18 ! 19 19 ! Current revisions: 20 20 ! ------------------ 21 ! 21 ! Formatting corrections. 22 22 ! 23 23 ! Former revisions: … … 144 144 ! 145 145 !-- Apply prescribed horizontal wall heatflux where necessary 146 IF ( ( wall_w_x(j,i) .NE. 0.0_wp ) .OR. ( wall_w_y(j,i) .NE. 0.0_wp )) &147 THEN146 IF ( ( wall_w_x(j,i) /= 0.0_wp ) .OR. ( wall_w_y(j,i) /= 0.0_wp ) & 147 ) THEN 148 148 DO k = nzb_s_inner(j,i)+1, nzb_s_outer(j,i) 149 149 … … 400 400 ! 401 401 !-- Apply prescribed horizontal wall heatflux where necessary 402 IF ( ( wall_w_x(j,i) .NE. 0.0_wp ) .OR. ( wall_w_y(j,i) .NE. 0.0_wp ) )&402 IF ( ( wall_w_x(j,i) /= 0.0_wp ) .OR. ( wall_w_y(j,i) /= 0.0_wp ) ) & 403 403 THEN 404 404 DO k = nzb_s_inner(j,i)+1, nzb_s_outer(j,i)
Note: See TracChangeset
for help on using the changeset viewer.