Ignore:
Timestamp:
Mar 11, 2009 3:17:42 PM (13 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/read_var_list.f90

    r256 r257  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
     6! Output of messages replaced by message handling routine.
    67! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left,
    78! canyon_wall_south, conserve_volume_flow_mode, dp_external, dp_level_b,
     
    8485    binary_version = '3.4'
    8586    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 )
    9594    ENDIF
    9695
     
    10099    READ ( 13 )  variable_chr
    101100    IF ( TRIM( variable_chr ) /= 'numprocs' )  THEN
    102        PRINT*, '+++ read_var_list: numprocs not found in data from prior run', &
    103                     ' on PE ', myid
    104        CALL local_stop
     101       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 )
    105104    ENDIF
    106105    READ ( 13 )  numprocs_previous_run
     
    112111    READ ( 13 )  variable_chr
    113112    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 ', myid
    116        CALL local_stop
     113       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 )
    117116    ENDIF
    118117    READ ( 13 )  hor_index_bounds_previous_run
     
    124123    READ ( 13 )  variable_chr
    125124    IF ( TRIM( variable_chr ) /= 'nz' )  THEN
    126        PRINT*, '+++ read_var_list: nz not found in data from prior run on PE ',&
    127                myid
    128        CALL local_stop
     125       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 )
    129128    ENDIF
    130129    READ ( 13 )  nz
     
    132131    READ ( 13 )  variable_chr
    133132    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 ', &
    135134                    'prior run on PE ', myid
    136        CALL local_stop
     135       CALL message( 'read_var_list', 'PA0300', 1, 2, 0, 6, 0 )
    137136    ENDIF
    138137    READ ( 13 )  max_pr_user    ! This value is checked against the number of
     
    142141    READ ( 13 )  variable_chr
    143142    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 ', &
    145144                    'prior run on PE ', myid
    146        CALL local_stop
     145       CALL message( 'read_var_list', 'PA0301', 1, 2, 0, 6, 0 )
    147146    ENDIF
    148147    READ ( 13 )  statistic_regions
     
    579578
    580579          CASE DEFAULT
    581              PRINT*, '+++ read_var_list: unknown variable named "', &
    582                      TRIM( variable_chr ), '" found in'
    583              PRINT*, '                   data from prior run on PE ', myid
    584              CALL local_stop
     580             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 )
    585584        END SELECT
    586585!
     
    634633    READ ( 13 )  variable_chr
    635634    IF ( TRIM( variable_chr ) /= 'numprocs' )  THEN
    636        PRINT*, '+++ read_parts_of_var_list: numprocs not found in data from ', &
    637                     'prior run on PE ', myid
    638        CALL local_stop
     635       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 )
    639638    ENDIF
    640639    READ ( 13 )  numprocs_previous_run
     
    646645    READ ( 13 )  variable_chr
    647646    IF ( TRIM( variable_chr ) /= 'hor_index_bounds' )  THEN
    648        PRINT*, '+++ read_parts_of_var_list: hor_index_bounds not found in da', &
    649                     'ta from prior run on PE ', myid
    650        CALL local_stop
     647       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 )
    651650    ENDIF
    652651    READ ( 13 )  hor_index_bounds_previous_run
     
    658657    READ ( 13 )  variable_chr
    659658    IF ( TRIM( variable_chr ) /= 'nz' )  THEN
    660        PRINT*, '+++ read_parts_of_var_list: nz not found in restart data file'
    661        CALL local_stop
     659       message_string = 'nz not found in restart data file'
     660       CALL message( 'read_parts_of_var_list', 'PA0303', 1, 2, 0, 6, 0 )
    662661    ENDIF
    663662    READ ( 13 )  nz_on_file
    664663    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 )
    672669    ENDIF
    673670
    674671    READ ( 13 )  variable_chr
    675672    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 )
    679675    ENDIF
    680676    READ ( 13 )  max_pr_user_on_file
    681677    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 )
    690685       tmp_mpru = MIN( max_pr_user_on_file, max_pr_user )
    691686    ELSE
     
    695690    READ ( 13 )  variable_chr
    696691    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 )
    700694    ENDIF
    701695    READ ( 13 )  statistic_regions_on_file
    702696    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 )
    712705       tmp_sr = MIN( statistic_regions_on_file, statistic_regions )
    713706    ELSE
     
    731724          CASE ( 'average_count_pr' )
    732725             READ ( 13 )  average_count_pr
    733              IF ( average_count_pr /= 0  .AND.  myid == 0 )  THEN
    734                 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 )
    738731             ENDIF
    739732
Note: See TracChangeset for help on using the changeset viewer.