source: palm/trunk/SOURCE/user_define_netcdf_grid.f90 @ 592

Last change on this file since 592 was 484, checked in by raasch, 14 years ago

typo in file headers removed

  • Property svn:keywords set to Id
File size: 1.3 KB
Line 
1 SUBROUTINE user_define_netcdf_grid( variable, found, grid_x, grid_y, grid_z )
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: user_define_netcdf_grid.f90 484 2010-02-05 07:36:54Z helmke $
11!
12! 211 2008-11-11 04:46:24Z raasch
13! Former file user_interface.f90 split into one file per subroutine
14!
15! Description:
16! ------------
17! Set the grids on which user-defined output quantities are defined.
18! Allowed values for grid_x are "x" and "xu", for grid_y "y" and "yv", and
19! for grid_z "zu" and "zw".
20!------------------------------------------------------------------------------!
21
22    USE user
23
24    IMPLICIT NONE
25
26    CHARACTER (LEN=*) ::  grid_x, grid_y, grid_z, variable
27
28    LOGICAL ::  found
29
30
31    SELECT CASE ( TRIM( variable ) )
32
33!
34!--    Uncomment and extend the following lines, if necessary
35!       CASE ( 'u2', 'u2_xy', 'u2_xz', 'u2_yz' )
36!          grid_x = 'xu'
37!          grid_y = 'y'
38!          grid_z = 'zu'
39
40!       CASE ( 'u*v*', 'u*v*_xy', 'u*v*_xz', 'u*v*_yz' )
41!          grid_x = 'x'
42!          grid_y = 'y'
43!          grid_z = 'zu'
44
45       CASE DEFAULT
46          found  = .FALSE.
47          grid_x = 'none'
48          grid_y = 'none'
49          grid_z = 'none'
50
51    END SELECT
52
53
54 END SUBROUTINE user_define_netcdf_grid
55
Note: See TracBrowser for help on using the repository browser.