Changeset 274 for palm/trunk/SOURCE/read_var_list.f90
- Timestamp:
- Mar 26, 2009 3:11:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_var_list.f90
r257 r274 99 99 READ ( 13 ) variable_chr 100 100 IF ( TRIM( variable_chr ) /= 'numprocs' ) THEN 101 WRITE( message_string, * ) 'numprocs not found in data from prior run', &102 ' on PE ', myid101 WRITE( message_string, * ) 'numprocs not found in data from prior ', & 102 'run on PE ', myid 103 103 CALL message( 'read_var_list', 'PA0297', 1, 2, 0, 6, 0 ) 104 104 ENDIF … … 633 633 READ ( 13 ) variable_chr 634 634 IF ( TRIM( variable_chr ) /= 'numprocs' ) THEN 635 WRITE( message_string, * ) 'numprocs not found in data from prior run', &636 ' on PE ', myid635 WRITE( message_string, * ) 'numprocs not found in data from prior ', & 636 'run on PE ', myid 637 637 CALL message( 'read_parts_of_var_list', 'PA0297', 1, 2, 0, 6, 0 ) 638 638 ENDIF … … 663 663 IF ( nz_on_file /= nz ) THEN 664 664 WRITE( message_string, * ) 'mismatch concerning number of ', & 665 'gridpoints along z', &666 '&nz on file = "', nz_on_file, '"', &667 '&nz from run = "', nz, '"'665 'gridpoints along z', & 666 '&nz on file = "', nz_on_file, '"', & 667 '&nz from run = "', nz, '"' 668 668 CALL message( 'read_parts_of_var_list', 'PA0304', 1, 2, 0, 6, 0 ) 669 669 ENDIF … … 676 676 READ ( 13 ) max_pr_user_on_file 677 677 IF ( max_pr_user_on_file /= max_pr_user ) THEN 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 = "', &678 WRITE( message_string, * ) 'number of user profiles on res', & 679 'tart data file differs from the current ', & 680 'run&max_pr_user on file = "', & 681 max_pr_user_on_file, '"', & 682 '&max_pr_user from run = "', & 683 683 max_pr_user, '"' 684 684 CALL message( 'read_parts_of_var_list', 'PA0306', 0, 0, 0, 6, 0 ) … … 695 695 READ ( 13 ) statistic_regions_on_file 696 696 IF ( statistic_regions_on_file /= statistic_regions ) THEN 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, '"', &697 WRITE( message_string, * ) 'statistic regions on restart data file ',& 698 'differ from the current run', & 699 '&statistic regions on file = "', & 700 statistic_regions_on_file, '"', & 701 '&statistic regions from run = "', & 702 statistic_regions, '"', & 703 703 '&statistic data may be lost!' 704 704 CALL message( 'read_parts_of_var_list', 'PA0308', 0, 1, 0, 6, 0 ) … … 725 725 READ ( 13 ) average_count_pr 726 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 ) 727 WRITE( message_string, * ) 'inflow profiles not temporally ', & 728 'averaged. &Averaging will be done now using ', & 729 average_count_pr, ' samples.' 730 CALL message( 'read_parts_of_var_list', 'PA0309', & 731 0, 1, 0, 6, 0 ) 731 732 ENDIF 732 733
Note: See TracChangeset
for help on using the changeset viewer.