Changeset 2011 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Sep 19, 2016 5:29:57 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r2008 r2011 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Flag urban_surface is now defined in module control_parameters, 23 ! changed prefix for urban surface model output to "usm_", 24 ! introduced control parameter varnamelength for LEN of trimvar. 23 25 ! 24 26 ! Former revisions: … … 96 98 97 99 USE control_parameters, & 98 ONLY: average_count_3d, doav, doav_n 100 ONLY: average_count_3d, doav, doav_n, urban_surface, varnamelength 99 101 100 102 USE cpulog, & … … 113 115 114 116 USE urban_surface_mod, & 115 ONLY: u rban_surface, usm_average_3d_data117 ONLY: usm_average_3d_data 116 118 117 119 … … 123 125 INTEGER(iwp) :: k !< running index 124 126 125 CHARACTER (LEN= 20) :: trimvar !< TRIM of output-variable string127 CHARACTER (LEN=varnamelength) :: trimvar !< TRIM of output-variable string 126 128 127 129 … … 140 142 !-- surface model (urban_surface_mod.f90), see also SELECT CASE ( trimvar ) 141 143 trimvar = TRIM( doav(ii) ) 142 IF ( urban_surface .AND. trimvar(1: 3) == 'us_' ) THEN144 IF ( urban_surface .AND. trimvar(1:4) == 'usm_' ) THEN 143 145 trimvar = 'usm_output' 144 146 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.