Changeset 4542 for palm/trunk/SOURCE/calc_mean_profile.f90

Timestamp:

May 19, 2020 3:45:12 PM (4 years ago)

Author:

raasch

Message:

files re-formatted to follow the PALM coding standard, redundant if statement removed

File:

• palm/trunk/SOURCE/calc_mean_profile.f90 (modified) (7 diffs)

palm/trunk/SOURCE/calc_mean_profile.f90

@@ -1 +1 @@
 !> @file calc_mean_profile.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:
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! file re-formatted to follow the PALM coding standard
+!
+! 4360 2020-01-07 11:25:50Z suehring
 ! Introduction of wall_flags_total_0, which currently sets bits based on static
 ! topography information used in wall_flags_static_0
-! 
+!
 ! 4329 2019-12-10 15:46:36Z motisi
 ! Renamed wall_flags_0 to wall_flags_static_0
-! 
+!
 ! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
-! 
+!
 ! 3655 2019-01-07 16:51:22Z knoop
 ! nopointer option removed
-! 
+!
 ! 1365 2014-04-22 15:03:56Z boeske
 ! Initial revision
@@ -47 +50 @@
 !------------------------------------------------------------------------------!
  MODULE calc_mean_profile_mod
- 
+
 
     PRIVATE
@@ -58 +61 @@
  CONTAINS
 
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
 ! Description:
 ! ------------
 !> @todo Missing subroutine description.
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
     SUBROUTINE calc_mean_profile( var, pr )
 
-       USE control_parameters,                                                 &
+       USE control_parameters,                                                                     &
            ONLY:  intermediate_timestep_count
 
-       USE indices,                                                            &
-           ONLY:  ngp_2dh_s_inner, nxl, nxr, nyn, nys, nzb, nzb, nzt,          &
-                  wall_flags_total_0
+       USE indices,                                                                                &
+           ONLY:  ngp_2dh_s_inner, nxl, nxr, nyn, nys, nzb, nzb, nzt, wall_flags_total_0
 
        USE kinds
@@ -76 +78 @@
        USE pegrid
 
-       USE statistics,                                                         &
+       USE statistics,                                                                             &
            ONLY:  flow_statistics_called, hom, sums, sums_l
 
 
        IMPLICIT NONE
-       
+
        INTEGER(iwp) ::  i                  !<
        INTEGER(iwp) ::  j                  !<
        INTEGER(iwp) ::  k                  !<
-       INTEGER(iwp) ::  pr                 !< 
+       INTEGER(iwp) ::  pr                 !<
 !$     INTEGER(iwp) ::  omp_get_thread_num !<
        INTEGER(iwp) ::  tn                 !<
-       
+
        REAL(wp), DIMENSION(:,:,:), POINTER ::  var
 
 !
-!--    Computation of the horizontally averaged profile of variable var, unless
-!--    already done by the relevant call from flow_statistics. The calculation
-!--    is done only for the first respective intermediate timestep in order to
-!--    spare communication time and to produce identical model results with jobs
-!--    which are calling flow_statistics at different time intervals. At 
+!--    Computation of the horizontally averaged profile of variable var, unless already done by the
+!--    relevant call from flow_statistics. The calculation is done only for the first respective
+!--    intermediate timestep in order to spare communication time and to produce identical model
+!--    results with jobs which are calling flow_statistics at different time intervals. At
 !--    initialization, intermediate_timestep_count = 0 is considered as well.
 
-       IF ( .NOT. flow_statistics_called  .AND.                                &
-            intermediate_timestep_count <= 1 )  THEN
+       IF ( .NOT. flow_statistics_called  .AND.  intermediate_timestep_count <= 1 )  THEN
 
 !
@@ -112 +112 @@
              DO  j =  nys, nyn
                 DO  k = nzb, nzt+1
-                   sums_l(k,pr,tn) = sums_l(k,pr,tn) + var(k,j,i)              &
-                                     * MERGE( 1.0_wp, 0.0_wp,                  &
-                                          BTEST( wall_flags_total_0(k,j,i), 22 ) )
+                   sums_l(k,pr,tn) = sums_l(k,pr,tn) + var(k,j,i) * MERGE( 1.0_wp, 0.0_wp,         &
+                                                            BTEST( wall_flags_total_0(k,j,i), 22 ) )
                 ENDDO
              ENDDO
@@ -127 +126 @@
 
           IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
-          CALL MPI_ALLREDUCE( sums_l(nzb,pr,0), sums(nzb,pr), nzt+2-nzb,       &
-                              MPI_REAL, MPI_SUM, comm2d, ierr )
+          CALL MPI_ALLREDUCE( sums_l(nzb,pr,0), sums(nzb,pr), nzt+2-nzb, MPI_REAL, MPI_SUM, comm2d,&
+                              ierr )
 
 #else