Changeset 159 for palm/trunk/SOURCE/read_var_list.f90
- Timestamp:
- Apr 9, 2008 8:06:03 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_var_list.f90
r153 r159 67 67 CHARACTER (LEN=10) :: binary_version, version_on_file 68 68 CHARACTER (LEN=30) :: variable_chr 69 70 INTEGER :: max_pr_user_on_file71 69 72 70 … … 130 128 CALL local_stop 131 129 ENDIF 132 READ ( 13 ) max_pr_user_on_file 133 IF ( max_pr_user_on_file /= max_pr_user ) THEN 134 IF ( myid == 0 ) THEN 135 PRINT*, '+++ read_var_list: version mismatch concerning maximum', & 136 ' number of user profiles' 137 PRINT*, ' max_pr_user on file = "', & 138 max_pr_user_on_file, '"' 139 PRINT*, ' max_pr_user from run = "', & 140 max_pr_user, '"' 141 ENDIF 142 CALL local_stop 143 ENDIF 130 READ ( 13 ) max_pr_user ! This value is checked against the number of 131 ! user profiles given for the current run 132 ! in routine user_parin (it has to match) 144 133 145 134 READ ( 13 ) variable_chr … … 670 659 READ ( 13 ) variable_chr 671 660 IF ( TRIM( variable_chr ) /= 'statistic_regions' ) THEN 672 PRINT*, '+++ read_ var_list: statistic_regions not found in restart da', &673 ' ta file'661 PRINT*, '+++ read_parts_of_var_list: statistic_regions not found in ', & 662 'restart data file' 674 663 CALL local_stop 675 664 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.