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

Last change on this file since 2699 was 2696, checked in by kanani, 7 years ago

Merge of branch palm4u into trunk

  • Property svn:keywords set to Id
File size: 2.6 KB
Line 
1!> @file user_actions.f90
2!------------------------------------------------------------------------------!
3! This file is part of the PALM model system.
4!
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.
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!
17! Copyright 1997-2017 Leibniz Universitaet Hannover
18!------------------------------------------------------------------------------!
19!
20! Current revisions:
21! ------------------
22!
23!
24! Former revisions:
25! -----------------
26! $Id: user_flight.f90 2696 2017-12-14 17:12:51Z kanani $
27!
28! 2000 2016-08-20 18:09:15Z knoop
29! Forced header and separation lines into 80 columns
30!
31! 1957 2016-07-07 10:43:48Z suehring
32! Initial revision
33!
34! Description:
35! ------------
36!> Calculation of user-defined output quantity for flight measurements after
37!> each timestep.
38!------------------------------------------------------------------------------!
39 SUBROUTINE user_flight( var, id )
40
41    USE control_parameters
42   
43    USE grid_variables
44
45    USE indices
46
47    USE kinds
48
49    USE user
50
51    USE arrays_3d
52
53    IMPLICIT NONE
54
55    INTEGER(iwp) ::  i  !< index along x
56    INTEGER(iwp) ::  j  !< index along y
57    INTEGER(iwp) ::  k  !< index along z
58    INTEGER(iwp) ::  id !< variable identifyer, according to the settings in user_init_flight
59       
60    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  var !< treated variable
61
62!
63!-- Here, the respective variable is calculated. There is no call of
64!-- exchange_horiz necessary.
65!-- The variable identifyer (id) must be set according to the settings in
66!-- user_init_flight.
67!-- Please note, so far, variable must be located at the center of a grid box.
68!     var = 0.0_wp
69
70!     SELECT CASE ( id )
71!
72!        CASE ( 1 )
73!           DO i = nxl-1, nxr+1
74!              DO j = nys-1, nyn+1
75!                 DO k = nzb, nzt
76!                    var(k,j,i) = ABS( u(k,j,i )
77!                 ENDDO
78!              ENDDO
79!           ENDDO
80!           
81!        CASE ( 2 )
82!           DO i = nxl-1, nxr+1
83!              DO j = nys-1, nyn+1
84!                 DO k = nzb, nzt
85!                    var(k,j,i) = ABS( v(k,j,i) )
86!                 ENDDO
87!              ENDDO
88!           ENDDO
89!
90!     END SELECT
91
92
93 END SUBROUTINE user_flight
Note: See TracBrowser for help on using the repository browser.