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

Last change on this file since 224 was 211, checked in by raasch, 16 years ago

user interface was split into one single file per subroutine

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