Index: palm/trunk/SOURCE/outflow_turbulence.f90
===================================================================
--- palm/trunk/SOURCE/outflow_turbulence.f90	(revision 4360)
+++ palm/trunk/SOURCE/outflow_turbulence.f90	(revision 4797)
@@ -1,30 +1,32 @@
 !> @file outflow_turbulence.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: outflow_turbulence.f90 3241 2018-09-12 15:02:00Z raasch $
+! file re-formatted to follow the PALM coding standard
+!
+! 3241 2018-09-12 15:02:00Z raasch
 ! Corrected "Former revisions" section
-! 
+!
 ! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
@@ -32,32 +34,31 @@
 ! 2050 2016-11-08 15:00:55Z gronemeier
 ! Initial version
-! 
+!
 !
 ! Description:
 ! ------------
-!> Routine based on inflow_turbulence.f90. Copies values of 3d data from a 2d
-!> vertical source plane (defined by outflow_source_plane) to the outflow
-!> boundary.
-!------------------------------------------------------------------------------!
+!> Routine based on inflow_turbulence.f90. Copies values of 3d data from a 2d vertical source plane
+!> (defined by outflow_source_plane) to the outflow boundary.
+!--------------------------------------------------------------------------------------------------!
  SUBROUTINE outflow_turbulence
 
-    USE arrays_3d,                                                             &
+    USE arrays_3d,                                                                                 &
         ONLY:  e, pt, q, s, u, v, w
 
-    USE control_parameters,                                                    &
+    USE control_parameters,                                                                        &
         ONLY:  humidity, passive_scalar, outflow_source_plane
 
-    USE cpulog,                                                                &
+    USE cpulog,                                                                                    &
         ONLY:  cpu_log, log_point
 
-    USE grid_variables,                                                        &
+    USE grid_variables,                                                                            &
         ONLY:  ddx
 
-    USE indices,                                                               &
+    USE indices,                                                                                   &
         ONLY:  nbgp, nx, nxr, nyn, nys, nyng, nysg, nzb, nzt
 
     USE kinds
 
-    USE pegrid!,                                                                &
+    USE pegrid!,                                                                                    &
         !ONLY:  comm1dx, id_outflow, id_outflow_source, ierr, myidx, status
 
@@ -70,6 +71,5 @@
     INTEGER(iwp) ::  ngp_ofv  !< number of grid points stored in outflow_val
 
-    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,7,nbgp) ::                         &
-       outflow_val            !< values to be copied to the outflow boundary
+    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,7,nbgp) ::  outflow_val  !< values to be copied to the outflow boundary
 
 
@@ -94,7 +94,7 @@
                 outflow_val(k,j,4,l) = pt(k,j,i)
                 outflow_val(k,j,5,l) = e(k,j,i)
-                IF ( humidity  )                                               &
+                IF ( humidity  )                                                                   &
                    outflow_val(k,j,6,l) = q(k,j,i)
-                IF ( passive_scalar )                                          &
+                IF ( passive_scalar )                                                              &
                    outflow_val(k,j,7,l) = s(k,j,i)
 
@@ -115,7 +115,7 @@
              outflow_val(k,j,4,l) = pt(k,j,i)
              outflow_val(k,j,5,l) = e(k,j,i)
-             IF ( humidity  )                                                  &
+             IF ( humidity  )                                                                      &
                 outflow_val(k,j,6,l) = q(k,j,i)
-             IF ( passive_scalar )                                             &
+             IF ( passive_scalar )                                                                 &
                 outflow_val(k,j,7,l) = s(k,j,i)
 
@@ -131,12 +131,11 @@
     IF ( myidx == id_outflow_source  .AND.  myidx /= id_outflow )  THEN
 
-       CALL MPI_SEND( outflow_val(nzb,nysg,1,1), ngp_ofv, MPI_REAL,            &
-                      id_outflow, 1, comm1dx, ierr )
+       CALL MPI_SEND( outflow_val(nzb,nysg,1,1), ngp_ofv, MPI_REAL, id_outflow, 1, comm1dx, ierr )
 
     ELSEIF ( myidx /= id_outflow_source  .AND.  myidx == id_outflow )  THEN
 
        outflow_val = 0.0_wp
-       CALL MPI_RECV( outflow_val(nzb,nysg,1,1), ngp_ofv, MPI_REAL,            &
-                      id_outflow_source, 1, comm1dx, status, ierr )
+       CALL MPI_RECV( outflow_val(nzb,nysg,1,1), ngp_ofv, MPI_REAL, id_outflow_source, 1, comm1dx, &
+                      status, ierr )
 
     ENDIF
@@ -157,7 +156,7 @@
              e(k,j,nx+1:nx+nbgp)  = MAX( e(k,j,nx+1:nx+nbgp), 0.0_wp )
 
-             IF ( humidity )                                                   &
+             IF ( humidity )                                                                       &
                 q(k,j,nx+1:nx+nbgp)  = outflow_val(k,j,6,1:nbgp)
-             IF ( passive_scalar )                                             &
+             IF ( passive_scalar )                                                                 &
                 s(k,j,nx+1:nx+nbgp)  = outflow_val(k,j,7,1:nbgp)
 
