Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    169169          WRITE( message_string, * ) 'version mismatch concerning ',           &
    170170                                     'binary_version_global:',                 &
    171                                      ' version on file    = "',                &
     171                                     '&version on file    = "',                &
    172172                                     TRIM( version_on_file ), '"',             &
    173                                      ' version on program = "',                &
     173                                     '&version on program = "',                &
    174174                                     TRIM( binary_version_global ), '"'
    175175          CALL message( 'rrd_global', 'PA0296', 1, 2, 0, 6, 0 )
     
    891891          WRITE( message_string, * ) 'mismatch concerning number of ',         &
    892892                                     'gridpoints along z:',                    &
    893                                      ' nz on file    = "', nz_on_file, '"',    &
    894                                      ' nz from run   = "', nz, '"'
     893                                     '&nz on file    = "', nz_on_file, '"',    &
     894                                     '&nz from run   = "', nz, '"'
    895895          CALL message( 'rrd_read_parts_of_global', 'PA0304', 1, 2, 0, 6, 0 )
    896896       ENDIF
     
    907907          WRITE( message_string, * ) 'number of user profiles on res',         &
    908908                                     'tart data file differs from the ',       &
    909                                      'current run: max_pr_user on file    = "',&
     909                                     'current run:&max_pr_user on file    = "',&
    910910                                     max_pr_user_on_file, '"',                 &
    911                                      ' max_pr_user from run   = "',            &
     911                                     '&max_pr_user from run   = "',            &
    912912                                     max_pr_user, '"'
    913913          CALL message( 'rrd_read_parts_of_global', 'PA0306', 0, 0, 0, 6, 0 )
     
    928928          WRITE( message_string, * ) 'statistic regions on restart data file ',&
    929929                                     'differ from the current run:',           &
    930                                      ' statistic regions on file    = "',      &
     930                                     '&statistic regions on file    = "',      &
    931931                                     statistic_regions_on_file, '"',           &
    932                                      ' statistic regions from run   = "',      &
     932                                     '&statistic regions from run   = "',      &
    933933                                      statistic_regions, '"',                  &
    934                                      ' statistic data may be lost!'
     934                                     '&statistic data may be lost!'
    935935          CALL message( 'rrd_read_parts_of_global', 'PA0308', 0, 1, 0, 6, 0 )
    936936          tmp_sr = MIN( statistic_regions_on_file, statistic_regions )
     
    952952                IF ( average_count_pr /= 0 )  THEN
    953953                   WRITE( message_string, * ) 'inflow profiles not ',          &
    954                                   'temporally averaged.  Averaging will be ',  &
     954                                  'temporally averaged. &Averaging will be ',  &
    955955                                  'done now using', average_count_pr,          &
    956956                                  ' samples.'
     
    12761276          WRITE( message_string, * ) 'version mismatch concerning ',           &
    12771277                      'binary_version_local:',                                 &
    1278                       ' version on file    = "', TRIM( version_on_file ), '"', &
    1279                       ' version in program = "', TRIM( binary_version_local ), '"'
     1278                      '&version on file    = "', TRIM( version_on_file ), '"', &
     1279                      '&version in program = "', TRIM( binary_version_local ), '"'
    12801280          CALL message( 'rrd_local', 'PA0286', 1, 2, 0, 6, 0 )
    12811281       ENDIF
     
    12901290          WRITE( message_string, * ) 'problem with index bound nxl on ',       &
    12911291                            'restart file "', myid_char, '"',                  &
    1292                             ' nxl = ', nxl_on_file, ' but it should be',       &
    1293                             ' = ', hor_index_bounds_previous_run(1,j),         &
    1294                             ' from the index bound information array'
     1292                            '&nxl = ', nxl_on_file, ' but it should be',       &
     1293                            '&= ', hor_index_bounds_previous_run(1,j),         &
     1294                            '&from the index bound information array'
    12951295          CALL message( 'rrd_local', 'PA0287', 2, 2, -1, 6, 1 )
    12961296       ENDIF
     
    13091309          WRITE( message_string, * ) 'problem with index bound nys on ',       &
    13101310                                 'restart file "', myid_char, '"',             &
    1311                                  ' nys = ', nys_on_file, ' but it should be',  &
    1312                                  ' = ', hor_index_bounds_previous_run(3,j),    &
    1313                                  ' from the index bound information array'
     1311                                 '&nys = ', nys_on_file, ' but it should be',  &
     1312                                 '&= ', hor_index_bounds_previous_run(3,j),    &
     1313                                 '&from the index bound information array'
    13141314          CALL message( 'rrd_local', 'PA0289', 2, 2, -1, 6, 1 )
    13151315       ENDIF
     
    13181318          WRITE( message_string, * ) 'problem with index bound nyn on ',       &
    13191319                               'restart file "', myid_char, '"',               &
    1320                                ' nyn = ', nyn_on_file, ' but it should be',    &
    1321                                ' = ', hor_index_bounds_previous_run(4,j),      &
    1322                                ' from the index bound information array'
     1320                               '&nyn = ', nyn_on_file, ' but it should be',    &
     1321                               '&= ', hor_index_bounds_previous_run(4,j),      &
     1322                               '&from the index bound information array'
    13231323          CALL message( 'rrd_local', 'PA0290', 2, 2, -1, 6, 1 )
    13241324       ENDIF
     
    13271327          WRITE( message_string, * ) 'mismatch between actual data and data ', &
    13281328                                     'from prior run on PE ', myid,            &
    1329                                      ' nzb on file = ', nzb_on_file,           &
    1330                                      ' nzb         = ', nzb
     1329                                     '&nzb on file = ', nzb_on_file,           &
     1330                                     '&nzb         = ', nzb
    13311331          CALL message( 'rrd_local', 'PA0291', 1, 2, 0, 6, 0 ) 
    13321332       ENDIF
     
    13351335          WRITE( message_string, * ) 'mismatch between actual data and data ', &
    13361336                                     'from prior run on PE ', myid,            &
    1337                                      ' nzt on file = ', nzt_on_file,           &
    1338                                      ' nzt         = ', nzt
     1337                                     '&nzt on file = ', nzt_on_file,           &
     1338                                     '&nzt         = ', nzt
    13391339          CALL message( 'rrd_local', 'PA0292', 1, 2, 0, 6, 0 ) 
    13401340       ENDIF
Note: See TracChangeset for help on using the changeset viewer.