Changeset 2932 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Mar 26, 2018 9:39:22 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r2921 r2932 28 28 ! ----------------- 29 29 ! $Id$ 30 ! renamed urban_surface_par to urban_surface_parameters 31 ! 32 ! 2921 2018-03-22 15:05:23Z Giersch 30 33 ! The activation of spinup has been moved to parin 31 34 ! … … 5164 5167 window_inner_temperature 5165 5168 5169 NAMELIST /urban_surface_parameters/ & 5170 building_type, & 5171 land_category, & 5172 naheatlayers, & 5173 pedestrian_category, & 5174 roughness_concrete, & 5175 read_wall_temp_3d, & 5176 roof_category, & 5177 urban_surface, & 5178 usm_anthropogenic_heat, & 5179 usm_material_model, & 5180 wall_category, & 5181 indoor_model, & 5182 wall_inner_temperature, & 5183 roof_inner_temperature, & 5184 soil_inner_temperature, & 5185 window_inner_temperature 5166 5186 ! 5167 5187 !-- Try to find urban surface model package 5168 5188 REWIND ( 11 ) 5169 5189 line = ' ' 5170 DO WHILE ( INDEX( line, '&urban_surface_par ' ) == 0 )5190 DO WHILE ( INDEX( line, '&urban_surface_parameters' ) == 0 ) 5171 5191 READ ( 11, '(A)', END=10 ) line 5172 5192 ENDDO … … 5175 5195 ! 5176 5196 !-- Read user-defined namelist 5177 READ ( 11, urban_surface_par )5197 READ ( 11, urban_surface_parameters ) 5178 5198 ! 5179 5199 !-- Set flag that indicates that the land surface model is switched on 5180 5200 urban_surface = .TRUE. 5181 5201 5182 5183 10 CONTINUE 5202 GOTO 12 5203 ! 5204 !-- Try to find old namelist 5205 10 REWIND ( 11 ) 5206 line = ' ' 5207 DO WHILE ( INDEX( line, '&urban_surface_par' ) == 0 ) 5208 READ ( 11, '(A)', END=12 ) line 5209 ENDDO 5210 BACKSPACE ( 11 ) 5211 5212 ! 5213 !-- Read user-defined namelist 5214 READ ( 11, urban_surface_par ) 5215 5216 message_string = 'namelist urban_surface_par is deprecated and will be ' // & 5217 'removed in near future. Please &use namelist ' // & 5218 'urban_surface_parameters instead' 5219 CALL message( 'usm_parin', 'PA0487', 0, 1, 0, 6, 0 ) 5220 ! 5221 !-- Set flag that indicates that the land surface model is switched on 5222 urban_surface = .TRUE. 5223 5224 12 CONTINUE 5184 5225 5185 5226
Note: See TracChangeset
for help on using the changeset viewer.