Changeset 257 for palm/trunk/SOURCE/read_var_list.f90
- Timestamp:
- Mar 11, 2009 3:17:42 PM (15 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/read_var_list.f90 (modified) (13 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_var_list.f90
r256 r257 2 2 3 3 !------------------------------------------------------------------------------! 4 ! Actualrevisions:4 ! Current revisions: 5 5 ! ----------------- 6 ! Output of messages replaced by message handling routine. 6 7 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 7 8 ! canyon_wall_south, conserve_volume_flow_mode, dp_external, dp_level_b, … … 84 85 binary_version = '3.4' 85 86 IF ( TRIM( version_on_file ) /= TRIM( binary_version ) ) THEN 86 IF ( myid == 0 ) THEN 87 PRINT*, '+++ read_var_list: version mismatch concerning control', & 88 ' variables' 89 PRINT*, ' version on file = "', & 90 TRIM( version_on_file ), '"' 91 PRINT*, ' version on program = "', & 92 TRIM( binary_version ), '"' 93 ENDIF 94 CALL local_stop 87 WRITE( message_string, * ) 'version mismatch concerning control ', & 88 'variables', & 89 '&version on file = "', & 90 TRIM( version_on_file ), '"', & 91 '&version on program = "', & 92 TRIM( binary_version ), '"' 93 CALL message( 'read_var_list', 'PA0296', 1, 2, 0, 6, 0 ) 95 94 ENDIF 96 95 … … 100 99 READ ( 13 ) variable_chr 101 100 IF ( TRIM( variable_chr ) /= 'numprocs' ) THEN 102 PRINT*, '+++ read_var_list: numprocs not found in data from prior run', &103 'on PE ', myid104 CALL local_stop101 WRITE( message_string, * ) 'numprocs not found in data from prior run ', & 102 'on PE ', myid 103 CALL message( 'read_var_list', 'PA0297', 1, 2, 0, 6, 0 ) 105 104 ENDIF 106 105 READ ( 13 ) numprocs_previous_run … … 112 111 READ ( 13 ) variable_chr 113 112 IF ( TRIM( variable_chr ) /= 'hor_index_bounds' ) THEN 114 PRINT*, '+++ read_var_list:hor_index_bounds not found in data from ', &115 'prior run on PE ', myid116 CALL local_stop113 WRITE( message_string, * ) 'hor_index_bounds not found in data from ', & 114 'prior run on PE ', myid 115 CALL message( 'read_var_list', 'PA0298', 1, 2, 0, 6, 0 ) 117 116 ENDIF 118 117 READ ( 13 ) hor_index_bounds_previous_run … … 124 123 READ ( 13 ) variable_chr 125 124 IF ( TRIM( variable_chr ) /= 'nz' ) THEN 126 PRINT*, '+++ read_var_list:nz not found in data from prior run on PE ',&127 myid128 CALL local_stop125 WRITE( message_string, * ) 'nz not found in data from prior run on PE ',& 126 myid 127 CALL message( 'read_var_list', 'PA0299', 1, 2, 0, 6, 0 ) 129 128 ENDIF 130 129 READ ( 13 ) nz … … 132 131 READ ( 13 ) variable_chr 133 132 IF ( TRIM( variable_chr ) /= 'max_pr_user' ) THEN 134 PRINT*, '+++ read_var_list:max_pr_user not found in data from ', &133 WRITE( message_string, * ) 'max_pr_user not found in data from ', & 135 134 'prior run on PE ', myid 136 CALL local_stop135 CALL message( 'read_var_list', 'PA0300', 1, 2, 0, 6, 0 ) 137 136 ENDIF 138 137 READ ( 13 ) max_pr_user ! This value is checked against the number of … … 142 141 READ ( 13 ) variable_chr 143 142 IF ( TRIM( variable_chr ) /= 'statistic_regions' ) THEN 144 PRINT*, '+++ read_var_list:statistic_regions not found in data from ', &143 WRITE( message_string, * ) 'statistic_regions not found in data from ', & 145 144 'prior run on PE ', myid 146 CALL local_stop145 CALL message( 'read_var_list', 'PA0301', 1, 2, 0, 6, 0 ) 147 146 ENDIF 148 147 READ ( 13 ) statistic_regions … … 579 578 580 579 CASE DEFAULT 581 PRINT*, '+++ read_var_list: unknown variable named "',&582 TRIM( variable_chr ), '" found in'583 PRINT*, ' data from prior run on PE ', myid584 CALL local_stop580 WRITE( message_string, * ) 'unknown variable named "', & 581 TRIM( variable_chr ), '" found in', & 582 ' data from prior run on PE ', myid 583 CALL message( 'read_var_list', 'PA0302', 1, 2, 0, 6, 0 ) 585 584 END SELECT 586 585 ! … … 634 633 READ ( 13 ) variable_chr 635 634 IF ( TRIM( variable_chr ) /= 'numprocs' ) THEN 636 PRINT*, '+++ read_parts_of_var_list: numprocs not found in data from', &637 'prior runon PE ', myid638 CALL local_stop635 WRITE( message_string, * ) 'numprocs not found in data from prior run ', & 636 'on PE ', myid 637 CALL message( 'read_parts_of_var_list', 'PA0297', 1, 2, 0, 6, 0 ) 639 638 ENDIF 640 639 READ ( 13 ) numprocs_previous_run … … 646 645 READ ( 13 ) variable_chr 647 646 IF ( TRIM( variable_chr ) /= 'hor_index_bounds' ) THEN 648 PRINT*, '+++ read_parts_of_var_list: hor_index_bounds not found in da', &649 'ta fromprior run on PE ', myid650 CALL local_stop647 WRITE( message_string, * ) 'hor_index_bounds not found in data from ', & 648 'prior run on PE ', myid 649 CALL message( 'read_parts_of_var_list', 'PA0298', 1, 2, 0, 6, 0 ) 651 650 ENDIF 652 651 READ ( 13 ) hor_index_bounds_previous_run … … 658 657 READ ( 13 ) variable_chr 659 658 IF ( TRIM( variable_chr ) /= 'nz' ) THEN 660 PRINT*, '+++ read_parts_of_var_list:nz not found in restart data file'661 CALL local_stop659 message_string = 'nz not found in restart data file' 660 CALL message( 'read_parts_of_var_list', 'PA0303', 1, 2, 0, 6, 0 ) 662 661 ENDIF 663 662 READ ( 13 ) nz_on_file 664 663 IF ( nz_on_file /= nz ) THEN 665 IF ( myid == 0 ) THEN 666 PRINT*, '+++ read_parts_of_var_list: mismatch concerning number of', & 667 ' gridpoints along z' 668 PRINT*, ' nz on file = "', nz_on_file, '"' 669 PRINT*, ' nz from run = "', nz, '"' 670 ENDIF 671 CALL local_stop 664 WRITE( message_string, * ) 'mismatch concerning number of ', & 665 'gridpoints along z', & 666 '&nz on file = "', nz_on_file, '"', & 667 '&nz from run = "', nz, '"' 668 CALL message( 'read_parts_of_var_list', 'PA0304', 1, 2, 0, 6, 0 ) 672 669 ENDIF 673 670 674 671 READ ( 13 ) variable_chr 675 672 IF ( TRIM( variable_chr ) /= 'max_pr_user' ) THEN 676 PRINT*, '+++ read_parts_of_var_list: max_pr_user not found in restart', & 677 ' data file' 678 CALL local_stop 673 message_string = 'max_pr_user not found in restart data file' 674 CALL message( 'read_parts_of_var_list', 'PA0305', 1, 2, 0, 6, 0 ) 679 675 ENDIF 680 676 READ ( 13 ) max_pr_user_on_file 681 677 IF ( max_pr_user_on_file /= max_pr_user ) THEN 682 IF ( myid == 0 ) THEN 683 PRINT*, '+++ read_parts_of_var_list: number of user profiles on res', & 684 'tart data file differs from the current run' 685 PRINT*, ' max_pr_user on file = "', & 686 max_pr_user_on_file, '"' 687 PRINT*, ' max_pr_user from run = "', & 688 max_pr_user, '"' 689 ENDIF 678 WRITE( message_string, * ) 'number of user profiles on res', & 679 'tart data file differs from the current run', & 680 '&max_pr_user on file = "', & 681 max_pr_user_on_file, '"', & 682 '&max_pr_user from run = "', & 683 max_pr_user, '"' 684 CALL message( 'read_parts_of_var_list', 'PA0306', 0, 0, 0, 6, 0 ) 690 685 tmp_mpru = MIN( max_pr_user_on_file, max_pr_user ) 691 686 ELSE … … 695 690 READ ( 13 ) variable_chr 696 691 IF ( TRIM( variable_chr ) /= 'statistic_regions' ) THEN 697 PRINT*, '+++ read_parts_of_var_list: statistic_regions not found in ', & 698 'restart data file' 699 CALL local_stop 692 message_string = 'statistic_regions not found in restart data file' 693 CALL message( 'read_parts_of_var_list', 'PA0307', 1, 2, 0, 6, 0 ) 700 694 ENDIF 701 695 READ ( 13 ) statistic_regions_on_file 702 696 IF ( statistic_regions_on_file /= statistic_regions ) THEN 703 IF ( myid == 0 ) THEN 704 PRINT*, '+++ read_parts_of_var_list: WARNING: statistic regions on', & 705 ' restart data file differ from the current run' 706 PRINT*, ' statistic regions on file = "', & 707 statistic_regions_on_file, '"' 708 PRINT*, ' statistic regions from run = "', & 709 statistic_regions, '"' 710 PRINT*, ' statistic data may be lost!' 711 ENDIF 697 WRITE( message_string, * ) 'statistic regions on restart data file differ ',& 698 'from the current run',& 699 '&statistic regions on file = "', & 700 statistic_regions_on_file, '"', & 701 '&statistic regions from run = "', & 702 statistic_regions, '"', & 703 '&statistic data may be lost!' 704 CALL message( 'read_parts_of_var_list', 'PA0308', 0, 1, 0, 6, 0 ) 712 705 tmp_sr = MIN( statistic_regions_on_file, statistic_regions ) 713 706 ELSE … … 731 724 CASE ( 'average_count_pr' ) 732 725 READ ( 13 ) average_count_pr 733 IF ( average_count_pr /= 0 .AND. myid == 0) THEN734 PRINT*, '+++ read_parts_of_var_list:'735 PRINT*, ' WARNING: inflow profiles not temporally averaged.'736 PRINT*, ' Averaging will be done now using ', &737 average_count_pr, ' samples.'726 IF ( average_count_pr /= 0 ) THEN 727 WRITE( message_string, * ) 'inflow profiles not temporally averaged.',& 728 '&Averaging will be done now using ', & 729 average_count_pr, ' samples.' 730 CALL message( 'read_parts_of_var_list', 'PA0309', 0, 1, 0, 6, 0 ) 738 731 ENDIF 739 732
Note: See TracChangeset
for help on using the changeset viewer.
