Changeset 3248 for palm/trunk/SOURCE/plant_canopy_model_mod.f90
- Timestamp:
- Sep 14, 2018 9:42:06 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/plant_canopy_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 ! … … 1031 1034 REWIND ( 11 ) 1032 1035 line = ' ' 1033 DO 1036 DO WHILE ( INDEX( line, '&plant_canopy_parameters' ) == 0 ) 1034 1037 READ ( 11, '(A)', END=12 ) line 1035 1038 ENDDO … … 1047 1050 1048 1051 10 BACKSPACE( 11 ) 1049 READ( 11 , fmt='(A)') line1050 CALL parin_fail_message 1052 READ( 11 , '(A)') line 1053 CALL parin_fail_message( 'plant_canopy_parameters', line ) 1051 1054 ! 1052 1055 !-- Try to find old namelist 1053 1056 12 REWIND ( 11 ) 1054 1057 line = ' ' 1055 DO 1058 DO WHILE ( INDEX( line, '&canopy_par' ) == 0 ) 1056 1059 READ ( 11, '(A)', END=14 ) line 1057 1060 ENDDO … … 1074 1077 1075 1078 13 BACKSPACE( 11 ) 1076 READ( 11 , fmt='(A)') line1077 CALL parin_fail_message 1079 READ( 11 , '(A)') line 1080 CALL parin_fail_message( 'canopy_par', line ) 1078 1081 1079 1082 14 CONTINUE
Note: See TracChangeset
for help on using the changeset viewer.