source: palm/trunk/SOURCE/user_flight.f90 @ 3421

Last change on this file since 3421 was 2718, checked in by maronga, 4 years ago

deleting of deprecated files; headers updated where needed

  • Property svn:keywords set to Id
File size: 2.8 KB
RevLine 
[1957]1!> @file user_actions.f90
[2000]2!------------------------------------------------------------------------------!
[2696]3! This file is part of the PALM model system.
[1957]4!
[2000]5! PALM is free software: you can redistribute it and/or modify it under the
6! terms of the GNU General Public License as published by the Free Software
7! Foundation, either version 3 of the License, or (at your option) any later
8! version.
[1957]9!
10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13!
14! You should have received a copy of the GNU General Public License along with
15! PALM. If not, see <http://www.gnu.org/licenses/>.
16!
[2718]17! Copyright 1997-2018 Leibniz Universitaet Hannover
[2000]18!------------------------------------------------------------------------------!
[1957]19!
20! Current revisions:
21! ------------------
22!
[2001]23!
[1957]24! Former revisions:
25! -----------------
26! $Id: user_flight.f90 2718 2018-01-02 08:49:38Z gronemeier $
[2716]27! Corrected "Former revisions" section
28!
29! 2696 2017-12-14 17:12:51Z kanani
30! Change in file header (GPL part)
[1957]31!
[2716]32! 2101 2017-01-05 16:42:31Z suehring
33!
[2001]34! 2000 2016-08-20 18:09:15Z knoop
35! Forced header and separation lines into 80 columns
36!
[1958]37! 1957 2016-07-07 10:43:48Z suehring
38! Initial revision
39!
[1957]40! Description:
41! ------------
42!> Calculation of user-defined output quantity for flight measurements after
43!> each timestep.
44!------------------------------------------------------------------------------!
45 SUBROUTINE user_flight( var, id )
46
47    USE control_parameters
48   
49    USE grid_variables
50
51    USE indices
52
53    USE kinds
54
55    USE user
56
57    USE arrays_3d
58
59    IMPLICIT NONE
60
61    INTEGER(iwp) ::  i  !< index along x
62    INTEGER(iwp) ::  j  !< index along y
63    INTEGER(iwp) ::  k  !< index along z
64    INTEGER(iwp) ::  id !< variable identifyer, according to the settings in user_init_flight
65       
66    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var !< treated variable
67
68!
69!-- Here, the respective variable is calculated. There is no call of
70!-- exchange_horiz necessary.
71!-- The variable identifyer (id) must be set according to the settings in
72!-- user_init_flight.
73!-- Please note, so far, variable must be located at the center of a grid box.
74!     var = 0.0_wp
75
76!     SELECT CASE ( id )
77!
78!        CASE ( 1 )
79!           DO i = nxl-1, nxr+1
80!              DO j = nys-1, nyn+1
81!                 DO k = nzb, nzt
82!                    var(k,j,i) = ABS( u(k,j,i )
83!                 ENDDO
84!              ENDDO
85!           ENDDO
86!           
87!        CASE ( 2 )
88!           DO i = nxl-1, nxr+1
89!              DO j = nys-1, nyn+1
90!                 DO k = nzb, nzt
91!                    var(k,j,i) = ABS( v(k,j,i) )
92!                 ENDDO
93!              ENDDO
94!           ENDDO
95!
96!     END SELECT
97
98
99 END SUBROUTINE user_flight
Note: See TracBrowser for help on using the repository browser.