Changeset 4497 for palm/trunk/SOURCE/user_spectra.f90

Timestamp:

Apr 15, 2020 10:20:51 AM (4 years ago)

Author:

raasch

Message:

last bugfix deactivated because of compile problems, files re-formatted to follow the PALM coding standard

File:

• palm/trunk/SOURCE/user_spectra.f90 (modified) (6 diffs)

palm/trunk/SOURCE/user_spectra.f90

@@ -1 +1 @@
 !> @file user_spectra.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
 ! Corrected "Former revisions" section
-! 
+!
 ! 3768 2019-02-27 14:35:58Z raasch
 ! variables removed + statement added to avoid compiler warnings about unused variables
-! 
+!
 ! 3655 2019-01-07 16:51:22Z knoop
 ! Renamed output variables
@@ -39 +42 @@
 ! ------------
 !> Calculation of user-defined spectra.
-!> See section 3.5.4 on how to define, calculate, and output user defined
-!> quantities.
-!------------------------------------------------------------------------------!
+!> See section 3.5.4 on how to define, calculate, and output user defined quantities.
+!--------------------------------------------------------------------------------------------------!
  SUBROUTINE user_spectra( mode, m, pr )
- 
+
 
     USE arrays_3d
-    
+
     USE control_parameters
-    
+
     USE indices
-    
+
     USE kinds
-    
+
     USE spectra_mod
-    
+
     USE statistics
-    
+
     USE user
 
     IMPLICIT NONE
 
-    CHARACTER (LEN=*) ::  mode
+    CHARACTER(LEN=*) ::  mode  !<
 
-    INTEGER(iwp) ::  m    !< 
-    INTEGER(iwp) ::  pr   !< 
+    INTEGER(iwp) ::  m   !<
+    INTEGER(iwp) ::  pr  !<
 
 
@@ -72 +74 @@
 
 !
-!-- Sample on how to calculate spectra of user-defined quantities. 
-!-- Each quantity is identified by the corresponding user profile index
-!-- "pr_palm+#" where "#" is an integer starting from 1. These
-!-- user-profile-numbers must also be assigned to the respective strings
-!-- given by data_output_pr_user in routine user_check_data_output_pr.
+!-- Sample on how to calculate spectra of user-defined quantities. Each quantity is identified by
+!-- the corresponding user profile index "pr_palm+#" where "#" is an integer starting from 1. These
+!-- user-profile-numbers must also be assigned to the respective strings given by
+!-- data_output_pr_user in routine user_check_data_output_pr.
     IF ( mode == 'preprocess' )  THEN
 
        SELECT CASE ( TRIM( data_output_sp(m) ) )
-          
+
           CASE ( 'u', 'v', 'w', 'theta', 'q', 's' )
-!--          Not allowed here since these are the standard quantities used in 
-!--          preprocess_spectra.
-       
+!--          Not allowed here since these are the standard quantities used in preprocess_spectra.
+
 !          CASE ( 'u*v*' )
 !             pr = pr_palm+1
 !             d(nzb+1:nzt,nys:nyn,nxl:nxr) = ustvst(nzb+1:nzt,nys:nyn,nxl:nxr)
-       
+
           CASE DEFAULT
-             message_string = 'Spectra of ' //                                 &
-                         TRIM( data_output_sp(m) ) // ' can not be calculated'
+             message_string = 'Spectra of ' // TRIM( data_output_sp(m) ) // ' can not be calculated'
              CALL message( 'user_spectra', 'UI0010', 0, 1, 0, 6, 0 )
-            
+
        END SELECT
 
@@ -101 +100 @@
 
           CASE ( 'u', 'v', 'w', 'theta', 'q', 's' )
-!--          Not allowed here since these are the standard quantities used in 
-!--          data_output_spectra.
+!--          Not allowed here since these are the standard quantities used in data_output_spectra.
 
 !          CASE ( 'u*v*' )
@@ -108 +106 @@
 
           CASE DEFAULT
-             message_string = 'Spectra of ' //                                 &
-                              TRIM( data_output_sp(m) ) // ' are not defined'
+             message_string = 'Spectra of ' // TRIM( data_output_sp(m) ) // ' are not defined'
              CALL message( 'user_spectra', 'UI0011', 0, 0, 0, 6, 0 )
-             
+
           END SELECT