Changeset 3248 for palm/trunk/SOURCE/radiation_model_mod.f90
- Timestamp:
- Sep 14, 2018 9:42:06 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/radiation_model_mod.f90
r3246 r3248 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Minor formating changes 31 ! 32 ! 3246 2018-09-13 15:14:50Z sward 30 33 ! Added error handling for input namelist via parin_fail_message 31 34 ! … … 2789 2792 REWIND ( 11 ) 2790 2793 line = ' ' 2791 DO 2794 DO WHILE ( INDEX( line, '&radiation_parameters' ) == 0 ) 2792 2795 READ ( 11, '(A)', END=12 ) line 2793 2796 ENDDO … … 2805 2808 2806 2809 10 BACKSPACE( 11 ) 2807 READ( 11 , fmt='(A)') line2808 CALL parin_fail_message 2810 READ( 11 , '(A)') line 2811 CALL parin_fail_message( 'radiation_parameters', line ) 2809 2812 ! 2810 2813 !-- Try to find old namelist 2811 2814 12 REWIND ( 11 ) 2812 2815 line = ' ' 2813 DO 2816 DO WHILE ( INDEX( line, '&radiation_par' ) == 0 ) 2814 2817 READ ( 11, '(A)', END=14 ) line 2815 2818 ENDDO … … 2838 2841 2839 2842 13 BACKSPACE( 11 ) 2840 READ( 11 , fmt='(A)') line2841 CALL parin_fail_message 2843 READ( 11 , '(A)') line 2844 CALL parin_fail_message( 'radiation_par', line ) 2842 2845 2843 2846 14 CONTINUE
Note: See TracChangeset
for help on using the changeset viewer.