Changeset 4896 for palm/trunk/SOURCE/init_masks.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/init_masks.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! small re-formatting to follow the coding standard
+!
+! 4895 2021-03-03 15:39:08Z suehring
 ! Allow only mask_k_over_surface >= 1 for terrain-following mask output
 !
@@ -159 +162 @@
     DO  mid = 1, masks
 
-       do_mask     (mid,:) = data_output_masks(mid,:)
+       do_mask(mid,:)      = data_output_masks(mid,:)
        do_mask_user(mid,:) = data_output_masks_user(mid,:)
-       mask      (mid,1,:) = mask_x(mid,:)
-       mask      (mid,2,:) = mask_y(mid,:)
-       mask      (mid,3,:) = mask_z(mid,:)
+
+       mask(mid,1,:) = mask_x(mid,:)
+       mask(mid,2,:) = mask_y(mid,:)
+       mask(mid,3,:) = mask_z(mid,:)
 !
 !--    Flag a mask as terrain following