Changeset 4896 for palm/trunk/SOURCE/data_output_mask.f90

Timestamp:

Mar 3, 2021 4:10:18 PM (4 years ago)

Author:

raasch

Message:

small re-formatting to follow the coding standard, typo in file appendix removed, more meaningful variable names assigned, redundant code removed

File:

• palm/trunk/SOURCE/data_output_mask.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_mask.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! small re-formatting to follow the coding standard
+! 
+! 4895 2021-03-03 15:39:08Z suehring
 ! Remove offset in terrain-following masked output
 ! 
@@ -531 +534 @@
                       DO  j = 1, mask_size_l(mid,2)
                          DO  k = 1, mask_size_l(mid,3)
-                            local_pf(i,j,k) = q(  mask_k(mid,k), mask_j(mid,j), mask_i(mid,i) ) -  &
-                                              ql( mask_k(mid,k), mask_j(mid,j), mask_i(mid,i) )
+                            local_pf(i,j,k) = q(mask_k(mid,k),mask_j(mid,j),mask_i(mid,i)) -       &
+                                              ql(mask_k(mid,k),mask_j(mid,j),mask_i(mid,i))
                          ENDDO
                       ENDDO