Changeset 1179 for palm/trunk/SOURCE/read_var_list.f90
- Timestamp:
- Jun 14, 2013 5:57:58 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_var_list.f90
r1116 r1179 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! +ref_state 23 23 ! 24 24 ! Former revisions: … … 188 188 !-- Make version number check first 189 189 READ ( 13 ) version_on_file 190 binary_version = '3.9 '190 binary_version = '3.9a' 191 191 IF ( TRIM( version_on_file ) /= TRIM( binary_version ) ) THEN 192 192 WRITE( message_string, * ) 'version mismatch concerning control ', & … … 551 551 CASE ( 'recycling_width' ) 552 552 READ ( 13 ) recycling_width 553 CASE ( 'reference_state' ) 554 READ ( 13 ) reference_state 555 CASE ( 'ref_state' ) 556 READ ( 13 ) ref_state 553 557 CASE ( 'residual_limit' ) 554 558 READ ( 13 ) residual_limit
Note: See TracChangeset
for help on using the changeset viewer.