Changeset 1682 for palm/trunk/SOURCE/user_define_netcdf_grid.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_define_netcdf_grid.f90
r1321 r1682 1 SUBROUTINE user_define_netcdf_grid( variable, found, grid_x, grid_y, grid_z ) 2 1 !> @file user_define_netcdf_grid.f90 3 2 !--------------------------------------------------------------------------------! 4 3 ! This file is part of PALM. … … 20 19 ! Current revisions: 21 20 ! ----------------- 22 ! 21 ! Code annotations made doxygen readable 23 22 ! 24 23 ! Former revisions: … … 38 37 ! Description: 39 38 ! ------------ 40 ! Set the grids on which user-defined output quantities are defined.41 ! Allowed values for grid_x are "x" and "xu", for grid_y "y" and "yv", and42 ! for grid_z "zu" and "zw".39 !> Set the grids on which user-defined output quantities are defined. 40 !> Allowed values for grid_x are "x" and "xu", for grid_y "y" and "yv", and 41 !> for grid_z "zu" and "zw". 43 42 !------------------------------------------------------------------------------! 43 SUBROUTINE user_define_netcdf_grid( variable, found, grid_x, grid_y, grid_z ) 44 44 45 45 46 USE kinds … … 49 50 IMPLICIT NONE 50 51 51 CHARACTER (LEN=*) :: grid_x ! :52 CHARACTER (LEN=*) :: grid_y ! :53 CHARACTER (LEN=*) :: grid_z ! :54 CHARACTER (LEN=*) :: variable ! :52 CHARACTER (LEN=*) :: grid_x !< 53 CHARACTER (LEN=*) :: grid_y !< 54 CHARACTER (LEN=*) :: grid_z !< 55 CHARACTER (LEN=*) :: variable !< 55 56 56 LOGICAL :: found ! :57 LOGICAL :: found !< 57 58 58 59
Note: See TracChangeset
for help on using the changeset viewer.