Changeset 4498 for palm/trunk/SOURCE/user_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_flight.f90 (modified) (5 diffs)

palm/trunk/SOURCE/user_flight.f90

@@ -1 +1 @@
 !> @file user_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
 ! unused variables commented out + statement added to avoid compiler warnings
-! 
+!
 ! 3684 2019-01-20 20:20:58Z knoop
 ! Corrected "Former revisions" section
-! 
+!
 ! 1957 2016-07-07 10:43:48Z suehring
 ! Initial revision
@@ -38 +42 @@
 ! Description:
 ! ------------
-!> Calculation of user-defined output quantity for flight measurements after 
-!> each timestep. 
-!------------------------------------------------------------------------------!
+!> Calculation of user-defined output quantity for flight measurements after each timestep.
+!--------------------------------------------------------------------------------------------------!
  SUBROUTINE user_flight( var, id )
 
     USE control_parameters
-    
+
     USE grid_variables
 
@@ -60 +63 @@
 !    INTEGER(iwp) ::  j  !< index along y
 !    INTEGER(iwp) ::  k  !< index along z
-    INTEGER(iwp) ::  id !< variable identifyer, according to the settings in user_init_flight
-        
-    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var !< treated variable
+    INTEGER(iwp) ::  id  !< variable identifyer, according to the settings in user_init_flight
+
+    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var  !< treated variable
 
 !
@@ -69 +72 @@
 
 !
-!-- Here, the respective variable is calculated. There is no call of 
-!-- exchange_horiz necessary. 
-!-- The variable identifyer (id) must be set according to the settings in 
-!-- user_init_flight.
+!-- Here, the respective variable is calculated. There is no call of exchange_horiz necessary.
+!-- The variable identifyer (id) must be set according to the settings in user_init_flight.
 !-- Please note, so far, variable must be located at the center of a grid box.
 !     var = 0.0_wp
 
 !     SELECT CASE ( id )
-! 
+!
 !        CASE ( 1 )
-!           DO i = nxl-1, nxr+1
-!              DO j = nys-1, nyn+1
-!                 DO k = nzb, nzt
+!           DO  i = nxl-1, nxr+1
+!              DO  j = nys-1, nyn+1
+!                 DO  k = nzb, nzt
 !                    var(k,j,i) = ABS( u(k,j,i )
 !                 ENDDO
 !              ENDDO
 !           ENDDO
-!           
+!
 !        CASE ( 2 )
-!           DO i = nxl-1, nxr+1
-!              DO j = nys-1, nyn+1
-!                 DO k = nzb, nzt
+!           DO  i = nxl-1, nxr+1
+!              DO  j = nys-1, nyn+1
+!                 DO  k = nzb, nzt
 !                    var(k,j,i) = ABS( v(k,j,i) )
 !                 ENDDO
 !              ENDDO
 !           ENDDO
-! 
+!
 !     END SELECT