Changeset 3248 for palm/trunk/SOURCE/land_surface_model_mod.f90
- Timestamp:
- Sep 14, 2018 9:42:06 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_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 ! … … 4996 4999 REWIND ( 11 ) 4997 5000 line = ' ' 4998 DO 5001 DO WHILE ( INDEX( line, '&land_surface_parameters' ) == 0 ) 4999 5002 READ ( 11, '(A)', END=12 ) line 5000 5003 ENDDO … … 5012 5015 5013 5016 10 BACKSPACE( 11 ) 5014 READ( 11 , fmt='(A)') line5015 CALL parin_fail_message 5017 READ( 11 , '(A)') line 5018 CALL parin_fail_message( 'land_surface_parameters', line ) 5016 5019 ! 5017 5020 !-- Try to find old namelist 5018 5021 12 REWIND ( 11 ) 5019 5022 line = ' ' 5020 DO 5023 DO WHILE ( INDEX( line, '&lsm_par' ) == 0 ) 5021 5024 READ ( 11, '(A)', END=14 ) line 5022 5025 ENDDO … … 5039 5042 5040 5043 13 BACKSPACE( 11 ) 5041 READ( 11 , fmt='(A)') line5042 CALL parin_fail_message 5044 READ( 11 , '(A)') line 5045 CALL parin_fail_message( 'lsm_par', line ) 5043 5046 5044 5047
Note: See TracChangeset
for help on using the changeset viewer.