Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r3004 r3045  
    2525! -----------------
    2626! $Id$
     27! Error messages revised
     28!
     29! 3004 2018-04-27 12:33:25Z Giersch
    2730! precipitation_rate_av removed
    2831!
     
    164167       binary_version_global = '4.7'
    165168       IF ( TRIM( version_on_file ) /= TRIM( binary_version_global ) )  THEN
    166           WRITE( message_string, * ) 'version mismatch concerning control ',   &
    167                                      'variables',                              &
    168                                      '&version on file    = "',                &
     169          WRITE( message_string, * ) 'version mismatch concerning ',           &
     170                                     'binary_version_global:',                 &
     171                                     ' version on file    = "',                &
    169172                                     TRIM( version_on_file ), '"',             &
    170                                      '&version on program = "',                &
     173                                     ' version on program = "',                &
    171174                                     TRIM( binary_version_global ), '"'
    172175          CALL message( 'rrd_global', 'PA0296', 1, 2, 0, 6, 0 )
     
    887890       IF ( nz_on_file /= nz )  THEN
    888891          WRITE( message_string, * ) 'mismatch concerning number of ',         &
    889                                      'gridpoints along z',                     &
    890                                      '&nz on file    = "', nz_on_file, '"',    &
    891                                      '&nz from run   = "', nz, '"'
     892                                     'gridpoints along z:',                    &
     893                                     ' nz on file    = "', nz_on_file, '"',    &
     894                                     ' nz from run   = "', nz, '"'
    892895          CALL message( 'rrd_read_parts_of_global', 'PA0304', 1, 2, 0, 6, 0 )
    893896       ENDIF
     
    904907          WRITE( message_string, * ) 'number of user profiles on res',         &
    905908                                     'tart data file differs from the ',       &
    906                                      'current run&max_pr_user on file    = "', &
     909                                     'current run: max_pr_user on file    = "',&
    907910                                     max_pr_user_on_file, '"',                 &
    908                                      '&max_pr_user from run   = "',            &
     911                                     ' max_pr_user from run   = "',            &
    909912                                     max_pr_user, '"'
    910913          CALL message( 'rrd_read_parts_of_global', 'PA0306', 0, 0, 0, 6, 0 )
     
    924927       IF ( statistic_regions_on_file /= statistic_regions )  THEN
    925928          WRITE( message_string, * ) 'statistic regions on restart data file ',&
    926                                      'differ from the current run',            &
    927                                      '&statistic regions on file    = "',      &
     929                                     'differ from the current run:',           &
     930                                     ' statistic regions on file    = "',      &
    928931                                     statistic_regions_on_file, '"',           &
    929                                      '&statistic regions from run   = "',      &
     932                                     ' statistic regions from run   = "',      &
    930933                                      statistic_regions, '"',                  &
    931                                      '&statistic data may be lost!'
     934                                     ' statistic data may be lost!'
    932935          CALL message( 'rrd_read_parts_of_global', 'PA0308', 0, 1, 0, 6, 0 )
    933936          tmp_sr = MIN( statistic_regions_on_file, statistic_regions )
     
    949952                IF ( average_count_pr /= 0 )  THEN
    950953                   WRITE( message_string, * ) 'inflow profiles not ',          &
    951                                   'temporally averaged. &Averaging will be ',  &
     954                                  'temporally averaged.  Averaging will be ',  &
    952955                                  'done now using', average_count_pr,          &
    953956                                  ' samples.'
     
    12421245    THEN
    12431246       WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed ', &
    1244                         'in restart run&  PE', myid, ' will read from files ', &
     1247                        'in restart run  PE', myid, ' will read from files ', &
    12451248                         file_list(1:files_to_be_opened)
    12461249       CALL message( 'rrd_local', 'PA0285', 0, 0, 0, 6, 0 )
     
    12711274       binary_version_local = '4.7'
    12721275       IF ( TRIM( version_on_file ) /= TRIM( binary_version_local ) )  THEN
    1273           WRITE( message_string, * ) 'version mismatch concerning data ',      &
    1274                       'from prior run',                                        &
    1275                       '&version on file    = "', TRIM( version_on_file ), '"', &
    1276                       '&version in program = "', TRIM( binary_version_local ), '"'
     1276          WRITE( message_string, * ) 'version mismatch concerning ',           &
     1277                      'binary_version_local:',                                 &
     1278                      ' version on file    = "', TRIM( version_on_file ), '"', &
     1279                      ' version in program = "', TRIM( binary_version_local ), '"'
    12771280          CALL message( 'rrd_local', 'PA0286', 1, 2, 0, 6, 0 )
    12781281       ENDIF
     
    12871290          WRITE( message_string, * ) 'problem with index bound nxl on ',       &
    12881291                            'restart file "', myid_char, '"',                  &
    1289                             '&nxl = ', nxl_on_file, ' but it should be',       &
    1290                             '&= ', hor_index_bounds_previous_run(1,j),         &
    1291                             '&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'
    12921295          CALL message( 'rrd_local', 'PA0287', 2, 2, -1, 6, 1 )
    12931296       ENDIF
     
    12961299           WRITE( message_string, * ) 'problem with index bound nxr on ',      &
    12971300                               'restart file "', myid_char, '"'  ,             &
    1298                                '&nxr = ', nxr_on_file, ' but it should be',    &
    1299                                '&= ', hor_index_bounds_previous_run(2,j),      &
    1300                                '&from the index bound information array'
     1301                               ' nxr = ', nxr_on_file, ' but it should be',    &
     1302                               ' = ', hor_index_bounds_previous_run(2,j),      &
     1303                               ' from the index bound information array'
    13011304          CALL message( 'rrd_local', 'PA0288', 2, 2, -1, 6, 1 )
    13021305
     
    13061309          WRITE( message_string, * ) 'problem with index bound nys on ',       &
    13071310                                 'restart file "', myid_char, '"',             &
    1308                                  '&nys = ', nys_on_file, ' but it should be',  &
    1309                                  '&= ', hor_index_bounds_previous_run(3,j),    &
    1310                                      '&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'
    13111314          CALL message( 'rrd_local', 'PA0289', 2, 2, -1, 6, 1 )
    13121315       ENDIF
     
    13151318          WRITE( message_string, * ) 'problem with index bound nyn on ',       &
    13161319                               'restart file "', myid_char, '"',               &
    1317                                '&nyn = ', nyn_on_file, ' but it should be',    &
    1318                                '&= ', hor_index_bounds_previous_run(4,j),      &
    1319                                '&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'
    13201323          CALL message( 'rrd_local', 'PA0290', 2, 2, -1, 6, 1 )
    13211324       ENDIF
     
    13231326       IF ( nzb_on_file /= nzb )  THEN
    13241327          WRITE( message_string, * ) 'mismatch between actual data and data ', &
    1325                                      '&from prior run on PE ', myid,           &
    1326                                      '&nzb on file = ', nzb_on_file,           &
    1327                                      '&nzb         = ', nzb
     1328                                     'from prior run on PE ', myid,            &
     1329                                     ' nzb on file = ', nzb_on_file,           &
     1330                                     ' nzb         = ', nzb
    13281331          CALL message( 'rrd_local', 'PA0291', 1, 2, 0, 6, 0 ) 
    13291332       ENDIF
     
    13311334       IF ( nzt_on_file /= nzt )  THEN
    13321335          WRITE( message_string, * ) 'mismatch between actual data and data ', &
    1333                                      '&from prior run on PE ', myid,           &
    1334                                      '&nzt on file = ', nzt_on_file,           &
    1335                                      '&nzt         = ', nzt
     1336                                     'from prior run on PE ', myid,            &
     1337                                     ' nzt on file = ', nzt_on_file,           &
     1338                                     ' nzt         = ', nzt
    13361339          CALL message( 'rrd_local', 'PA0292', 1, 2, 0, 6, 0 ) 
    13371340       ENDIF
Note: See TracChangeset for help on using the changeset viewer.