Index: palm/trunk/SOURCE/run_control.f90
===================================================================
--- palm/trunk/SOURCE/run_control.f90	(revision 4360)
+++ palm/trunk/SOURCE/run_control.f90	(revision 4591)
@@ -1,30 +1,34 @@
 !> @file run_control.f90
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
 ! This file is part of the PALM model system.
 !
-! PALM is free software: you can redistribute it and/or modify it under the
-! terms of the GNU General Public License as published by the Free Software
-! Foundation, either version 3 of the License, or (at your option) any later
-! version.
+! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General
+! Public License as published by the Free Software Foundation, either version 3 of the License, or
+! (at your option) any later version.
 !
-! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
-! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
+! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
+! Public License for more details.
 !
-! You should have received a copy of the GNU General Public License along with
-! PALM. If not, see <http://www.gnu.org/licenses/>.
+! You should have received a copy of the GNU General Public License along with PALM. If not, see
+! <http://www.gnu.org/licenses/>.
 !
 ! Copyright 1997-2020 Leibniz Universitaet Hannover
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
+!
 !
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! File re-formatted to follow the PALM coding standard
+!
+!
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
-! 
+!
 ! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
@@ -37,18 +41,26 @@
 ! ------------
 !> Computation and output of run-control quantities
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
  SUBROUTINE run_control
- 
 
-    USE cpulog,                                                                &
-        ONLY:  cpu_log, log_point
 
-    USE control_parameters,                                                    &
-        ONLY:  advected_distance_x, advected_distance_y,                       &
-               current_timestep_number, disturbance_created, dt_3d, mgcycles,  &
-               run_control_header, runnr, simulated_time, simulated_time_chr,  &
+    USE cpulog,                                                                                    &
+        ONLY:  cpu_log,                                                                            &
+               log_point
+
+    USE control_parameters,                                                                        &
+        ONLY:  advected_distance_x,                                                                &
+               advected_distance_y,                                                                &
+               current_timestep_number,                                                            &
+               disturbance_created,                                                                &
+               dt_3d,                                                                              &
+               mgcycles,                                                                           &
+               run_control_header,                                                                 &
+               runnr,                                                                              &
+               simulated_time,                                                                     &
+               simulated_time_chr,                                                                 &
                timestep_reason
 
-    USE indices,                                                               &
+    USE indices,                                                                                   &
         ONLY:  nzb
 
@@ -57,11 +69,18 @@
     USE pegrid
 
-    USE statistics,                                                            &
-        ONLY:  flow_statistics_called, hom, pr_palm, u_max, u_max_ijk, v_max,  &
-               v_max_ijk, w_max, w_max_ijk
+    USE statistics,                                                                                &
+        ONLY:  flow_statistics_called,                                                             &
+               hom,                                                                                &
+               pr_palm,                                                                            &
+               u_max,                                                                              &
+               u_max_ijk,                                                                          &
+               v_max,                                                                              &
+               v_max_ijk,                                                                          &
+               w_max,                                                                              &
+               w_max_ijk
 
     IMPLICIT NONE
 
-    CHARACTER (LEN=1) ::  disturb_chr
+    CHARACTER (LEN=1) ::  disturb_chr  !<
 
 !
@@ -78,6 +97,5 @@
 
 !
-!--    Check, whether file unit is already open (may have been opened in header
-!--    before)
+!--    Check, whether file unit is already open (may have been opened in header before)
        CALL check_open( 15 )
 
@@ -96,14 +114,11 @@
           disturb_chr = ' '
        ENDIF
-       WRITE ( 15, 101 )  runnr, current_timestep_number, simulated_time_chr,  &
-                          INT( ( simulated_time-INT( simulated_time ) ) * 100),&
-                          dt_3d, timestep_reason, u_max, disturb_chr,          &
-                          v_max, disturb_chr, w_max, hom(nzb,1,pr_palm,0),     &
-                          hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0),      &
-                          hom(nzb+6,1,pr_palm,0), hom(nzb+4,1,pr_palm,0),      &
-                          hom(nzb+5,1,pr_palm,0), hom(nzb+9,1,pr_palm,0),      &
-                          hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3),             &
-                          v_max_ijk(1:3), w_max_ijk(1:3),                      &
-                          advected_distance_x/1000.0_wp,                       &
+       WRITE ( 15, 101 )  runnr, current_timestep_number, simulated_time_chr,                      &
+                          INT( ( simulated_time-INT( simulated_time ) ) * 100),                    &
+                          dt_3d, timestep_reason, u_max, disturb_chr, v_max, disturb_chr, w_max,   &
+                          hom(nzb,1,pr_palm,0), hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0),    &
+                          hom(nzb+6,1,pr_palm,0), hom(nzb+4,1,pr_palm,0), hom(nzb+5,1,pr_palm,0),  &
+                          hom(nzb+9,1,pr_palm,0), hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3),         &
+                          v_max_ijk(1:3), w_max_ijk(1:3), advected_distance_x/1000.0_wp,           &
                           advected_distance_y/1000.0_wp, mgcycles
 !
@@ -113,5 +128,5 @@
     ENDIF
 !
-!-- If required, reset disturbance flag. This has to be done outside the above 
+!-- If required, reset disturbance flag. This has to be done outside the above
 !-- IF-loop, because the flag would otherwise only be reset on PE0
     IF ( disturbance_created )  disturbance_created = .FALSE.
@@ -131,6 +146,5 @@
           &'----------------------------------------------------------------', &
           &'---------')
-101 FORMAT (I3,1X,I6,1X,A8,'.',I2.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,1X,     &
-            F6.3,1X,F5.2, &
+101 FORMAT (I3,1X,I6,1X,A8,'.',I2.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,1X, F6.3,1X,F5.2,           &
             2X,E10.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3)
 
