Changeset 4133 for palm/trunk/SOURCE
- Timestamp:
- Aug 2, 2019 6:36:23 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/radiation_model_mod.f90
r4127 r4133 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Bugfix in formatted write statement 31 ! 32 ! 4127 2019-07-30 14:47:10Z suehring 30 33 ! Remove unused pch_index (merge from branch resler) 31 34 ! … … 6316 6319 ! option is to correct the value again to double the urban surface layer height) 6317 6320 IF ( max_raytracing_dist < mrl ) THEN 6318 WRITE(message_string, '(a,f6.1)') 'Max_raytracing_dist is set less than ', & 6321 write(9,*) "mrl", mrl 6322 flush(9) 6323 WRITE(message_string, '(a,f6.1)') 'Max_raytracing_dist is set less than ' // & 6319 6324 'double the urban surface layer height, i.e. ', mrl 6320 6325 CALL message('radiation_interaction_init', 'PA0521', 0, 0, -1, 6, 0)
Note: See TracChangeset
for help on using the changeset viewer.