Changeset 3248 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
- Timestamp:
- Sep 14, 2018 9:42:06 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
r3246 r3248 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Minor formating changes 28 ! 29 ! 3246 2018-09-13 15:14:50Z sward 27 30 ! Added error handling for input namelist via parin_fail_message 28 31 ! … … 985 988 986 989 10 BACKSPACE( 11 ) 987 READ( 11 , fmt='(A)') line988 CALL parin_fail_message 990 READ( 11 , '(A)') line 991 CALL parin_fail_message( 'stg_par', line ) 989 992 990 993 20 CONTINUE
Note: See TracChangeset
for help on using the changeset viewer.