Changeset 1682 for palm/trunk/SOURCE/user_check_data_output_pr.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_check_data_output_pr.f90
r1321 r1682 1 SUBROUTINE user_check_data_output_pr( variable, var_count, unit ) 2 1 !> @file user_check_data_output_pr.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: … … 41 40 ! Description: 42 41 ! ------------ 43 ! Set the unit of user defined profile output quantities. For those variables44 ! not recognized by the user, the parameter unit is set to "illegal", which45 ! tells the calling routine that the output variable is not defined and leads46 ! to a program abort.42 !> Set the unit of user defined profile output quantities. For those variables 43 !> not recognized by the user, the parameter unit is set to "illegal", which 44 !> tells the calling routine that the output variable is not defined and leads 45 !> to a program abort. 47 46 !------------------------------------------------------------------------------! 47 SUBROUTINE user_check_data_output_pr( variable, var_count, unit ) 48 48 49 49 50 USE arrays_3d … … 63 64 IMPLICIT NONE 64 65 65 CHARACTER (LEN=*) :: unit ! :66 CHARACTER (LEN=*) :: variable ! :66 CHARACTER (LEN=*) :: unit !< 67 CHARACTER (LEN=*) :: variable !< 67 68 68 INTEGER(iwp) :: user_pr_index ! :69 INTEGER(iwp) :: var_count ! :69 INTEGER(iwp) :: user_pr_index !< 70 INTEGER(iwp) :: var_count !< 70 71 71 72 SELECT CASE ( TRIM( variable ) )
Note: See TracChangeset
for help on using the changeset viewer.