Changeset 4498 for palm/trunk/SOURCE/user_init_flight.f90

Timestamp:

Apr 15, 2020 2:26:31 PM (4 years ago)

Author:

raasch

Message:

bugfix for creation of filetypes, argument removed from rd_mpi_io_open, files re-formatted to follow the PALM coding standard

File:

• palm/trunk/SOURCE/user_init_flight.f90 (modified) (5 diffs)

palm/trunk/SOURCE/user_init_flight.f90

@@ -1 +1 @@
 !> @file user_init_flight.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
 ! statements commented or added to avoid compiler warnings about unused variables
-! 
+!
 ! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
-! 
+!
 ! 1957 2016-07-07 10:43:48Z suehring
 ! Initial revision
@@ -39 +43 @@
 ! ------------
 !> Execution of user-defined initialization for flight measurements.
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
  SUBROUTINE user_init_flight( init, k, id, label_leg )
- 
+
 
     USE control_parameters
-    
+
     USE indices
-    
+
     USE kinds
-    
-!    USE netcdf_interface,                                                      &
-!        ONLY: dofl_label, dofl_unit
-    
+
+!    USE netcdf_interface,                                                                          &
+!        ONLY: dofl_label,                                                                          &
+!              dofl_unit
+
     USE user
 
     IMPLICIT NONE
-    
+
     CHARACTER(LEN=10), OPTIONAL ::  label_leg     !< label of the respective leg
-   
+
     INTEGER(iwp), OPTIONAL                ::  id  !< variable index
     INTEGER(iwp), OPTIONAL, INTENT(INOUT) ::  k   !< index for respective variable and leg
-    
-    LOGICAL ::  init  !< variable to recognize initial call 
+
+    LOGICAL ::  init  !< variable to recognize initial call
 
 !
@@ -71 +76 @@
 !
 !-- Sample for user-defined flight-time series.
-!-- For each quantity you have to give a label and a unit, which will be used
-!-- for the output into NetCDF file. They must not contain more than
-!-- twenty characters. 
+!-- For each quantity you have to give a label and a unit, which will be used for the output into
+!-- NetCDF file. They must not contain more than twenty characters.
 
 
@@ -80 +84 @@
 !--    The number of user-defined quantity has to be increased appropriately.
 !--    In the following example, 2 user-defined quantities are added.
-!        num_var_fl_user = num_var_fl_user + 2 
+!        num_var_fl_user = num_var_fl_user + 2
 
        init = .FALSE.
-    
+
     ELSE
-    
+
 !
 !--    Please add the respective number of new variables as following:
-      
+
 !        SELECT CASE ( id )
-!        
+!
 !           CASE ( 1 )
 !              dofl_label(k)   = TRIM(label_leg) // '_' // 'abs_u'
 !              dofl_unit(k)    = 'm/s'
 !              k               = k + 1
-!              
+!
 !           CASE ( 2 )
-!     
+!
 !              dofl_label(k)   = TRIM(label_leg) // '_' // 'abs_v'
 !              dofl_unit(k)    = 'm/s'
 !              k               = k + 1
-!              
+!
 !        END SELECT
 
     ENDIF
-       
+
  END SUBROUTINE user_init_flight