Changeset 1320 for palm/trunk/SOURCE/user_check_data_output_pr.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_check_data_output_pr.f90
r1310 r1320 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! kind-parameters added to all INTEGER and REAL declaration statements, 23 ! kinds are defined in new module kinds, 24 ! revision history before 2012 removed, 25 ! comment fields (!:) to be used for variable explanations added to 26 ! all variable declaration statements 23 27 ! 24 28 ! Former revisions: … … 41 45 42 46 USE arrays_3d 47 43 48 USE indices 49 50 USE kinds 51 44 52 USE netcdf_control 53 45 54 USE profil_parameter 55 46 56 USE statistics 57 47 58 USE user 48 59 49 60 IMPLICIT NONE 50 61 51 CHARACTER (LEN=*) :: unit, variable 62 CHARACTER (LEN=*) :: unit !: 63 CHARACTER (LEN=*) :: variable !: 52 64 53 INTEGER :: index, var_count54 65 INTEGER(iwp) :: user_pr_index !: 66 INTEGER(iwp) :: var_count !: 55 67 56 68 SELECT CASE ( TRIM( variable ) ) … … 62 74 !-- to be performed have to be added in routine user_statistics. 63 75 !-- The quantities are (internally) identified by a user-profile-number 64 !-- (see variable " index" below). The first user-profile must be assigned76 !-- (see variable "user_pr_index" below). The first user-profile must be assigned 65 77 !-- the number "pr_palm+1", the second one "pr_palm+2", etc. The respective 66 78 !-- user-profile-numbers have also to be used in routine user_statistics! 67 79 ! CASE ( 'u*v*' ) ! quantity string as given in 68 80 ! ! data_output_pr_user 69 ! index = pr_palm + 170 ! dopr_index(var_count) = index ! quantities' user-profile-number81 ! user_pr_index = pr_palm + 1 82 ! dopr_index(var_count) = user_pr_index ! quantities' user-profile-number 71 83 ! dopr_unit(var_count) = 'm2/s2' ! quantity unit 72 ! hom(:,2, index,:) = SPREAD( zu, 2, statistic_regions+1 )84 ! hom(:,2,user_pr_index,:) = SPREAD( zu, 2, statistic_regions+1 ) 73 85 ! ! grid on which the quantity is 74 86 ! ! defined (use zu or zw)
Note: See TracChangeset
for help on using the changeset viewer.