Changeset 257


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

Output of messages replaced by message handling routine

Location:
palm/trunk
Files:
9 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/tec/message_identifiers

    r256 r257  
    380380    PA0240           The value for "topography_grid_convention" is not
    381381                      recognized. Choose ''cell_edge'' or ''cell_center''.
     382    PA0241           netcdf_precision must contain a "_"
     383                      netcdf_precision(...)="..."
     384    PA0242           illegal netcdf precision: netcdf_precision( ...)="..."
     385    PA0243           unknown variable in inipar assignment:
     386                      netcdf_precision(', i, ')="..."
     387    PA0244           no grid defined for variable ...
     388    PA0245           NetCDF file for volume data ... from previuos run found,
     389                      but this file cannot be extended due to  variable mismatch.
     390                      New file is created instead.
     391    PA0246           NetCDF file for volume data ... from previuos run found,
     392                      but this file cannot be extended due to mismatch in
     393                      number of vertical grid points (nz_do3d).
     394                      New file is created instead.
     395    PA0247           NetCDF file for volume data ... from previuos run found,
     396                      but this file cannot be extended because the current
     397                      output time is less or equal than the last output time
     398                      on this file. New file is created instead.
     399    PA0248           NetCDF file for volume data ... from previous run found.
     400                      This file will be extended.
     401    PA0249           NetCDF file for cross-sections ... from previuos run found,
     402                      but this file cannot be extended due to variable mismatch.
     403                      New file is created instead.
     404    PA0250           NetCDF file for cross-sections ... from previuos run found,
     405                      but this file cannot be extended due to mismatch in
     406                      number of cross sections. New file is created instead.
     407    PA0251           NetCDF file for cross-sections ... from previuos run found
     408                     but this file cannot be extended due to mismatch in cross
     409                      section levels. New file is created instead.
     410    PA0252           NetCDF file for cross sections ... from previuos run found,
     411                      but this file cannot be extended because the current output time
     412                      is less or equal than the last output time on this file.
     413                      New file is created instead.
     414    PA0253           NetCDF file for cross-sections ... from previous run found.
     415                      This file will be extended.
     416    PA0254           NetCDF file for vertical profiles from previuos run found,
     417                      but this file cannot be extended due to variable mismatch.
     418                      New file is created instead.
     419    PA0255           NetCDF file for vertical profiles from previuos run found,
     420                      but this file cannot be extended because the current
     421                      output time is less or equal than the last output time
     422                      on this file. New file is created instead.
     423    PA0256           NetCDF file for vertical profiles from previous run found.
     424                      This file will be extended.
     425    PA0257           NetCDF file for time series from previuos run found
     426                      but this file cannot be extended due tovariable mismatch.
     427                      New file is created instead.
     428    PA0258           NetCDF file for time series from previuos run found,
     429                      but this file cannot be extended because the current
     430                      output time is less or equal than the last output time
     431                      on this file. New file is created instead.
     432    PA0259           NetCDF file for time series from previous run found.
     433                      This file will be extended.
     434    PA0260           NetCDF file for spectra from previuos run found,
     435                      but this file cannot be extended due to variable mismatch.
     436                      New file is created instead.
     437    PA0261           NetCDF file for spectra from previuos run found,
     438                      but this file cannot be extended due to mismatch in
     439                      number of vertical levels. New file is created instead.
     440    PA0262           NetCDF file for spectra from previuos run found,
     441                      but this file cannot be extended due to mismatch in
     442                      heights of vertical levels. New file is created instead.
     443    PA0263           NetCDF file for spectra from previuos run found,
     444                      but this file cannot be extended because the current
     445                      output time is less or equal than the last output time
     446                      on this file. New file is created instead.
     447    PA0264           NetCDF file for spectra from previous run found.
     448                      This file will be extended.
     449    PA0265           NetCDF file for particles from previuos run found,
     450                      but this file cannot be extended because the current
     451                      output time is less or equal than the last output time
     452                      on this file. New file is created instead.
     453    PA0266           NetCDF file for particles from previous run found.
     454                      This file will be extended.
     455    PA0267           NetCDF file for particle time series from previuos run found,
     456                      but this file cannot be extended due to variable mismatch.
     457                      New file is created instead.
     458    PA0268           NetCDF file for particle time series from previuos run found,
     459                      but this file cannot be extended because the current
     460                      output time is less or equal than the last output time
     461                      on this file. New file is created instead.
     462    PA0269           NetCDF file for particle time series from previous run found.
     463                      This file will be extended.
     464    PA0270           mode "..." not supported
     465    PA0271           errors in \$inipar &or no \$inipar-namelist found (CRAY-machines only)
     466    PA0272           no \$inipar-namelist found
     467    PA0273           no value or wrong value given for nx: nx=...
     468    PA0274           no value or wrong value given for ny: ny=...
     469    PA0275           no value or wrong value given for nz: nz=...
     470    PA0276           local file ENVPAR not found
     471                      some variables for steering may not be properly set
     472    PA0277           errors in local file ENVPAR
     473                      some variables for steering may not be properly set
     474    PA0278           no envpar-NAMELIST found in local file ENVPAR
     475                      some variables for steering may not be properly set
     476    PA0279           wrong component: ...
     477    PA0280           Number of OpenMP threads = ...
     478    PA0281           running optimized multinode version
     479                      switch_per_lpar        = ...
     480                      tasks_per_lpar         = ...
     481                      tasks_per_logical_node = ...
     482    PA0282           parallel environment (MPI) required
     483    PA0283           no sufficient convergence within 1000 cycles
     484    PA0284           data from subdomain of previous run mapped more
     485                      than 1000 times
     486    PA0285           number of PEs or virtual PE-grid changed in restart run
     487                      PE ... will read from files ...
     488    PA0286           version mismatch concerning data from prior run
     489                      version on file    = "..."
     490                      version in program = "..."
     491    PA0287           problem with index bound nxl on restart file "..."
     492                      nxl = ... but it should be = ... from the index bound
     493                      information array
     494    PA0288           problem with index bound nxr on restart file "..."
     495                      nxr = ... but it should be = ... from the index bound
     496                      information array
     497    PA0289           problem with index bound nys on restart file "..."
     498                      nys = .. but it should be = ... from the index bound
     499                      information array 
     500    PA0290           problem with index bound nyn on restart file "..."
     501                      nyn = ... but it should be = ... from the index bound
     502                      information array
     503    PA0291           mismatch between actual data and data
     504                      from prior run on PE ...
     505                      nzb on file = ...
     506                      nzb         = ...
     507    PA0292           mismatch between actual data and data
     508                      from prior run on PE ...
     509                      nzt on file = ...
     510                      nzt         = ...
     511    PA0293           read_3d_binary: spectrum_x
     512                      on restart file ignored because total numbers of
     513                      grid points (nx) do not match
     514    PA0294           read_3d_binary: spectrum_y
     515                      on restart file ignored because total numbers of
     516                      grid points (ny) do not match
     517    PA0295           unknown field named "..." found in data from
     518                      prior run on PE ...
     519    PA0296           version mismatch concerning control variables
     520                      version on file    = "..."
     521                      version on program = "..."
     522    PA0297           numprocs not found in data from prior run on PE ...
     523    PA0298           hor_index_bounds not found in data from prior
     524                      run on PE ...
     525    PA0299           nz not found in data from prior run on PE ...
     526    PA0300           max_pr_user not found in data from prior run on PE ...
     527    PA0301           statistic_regions not found in data from prior
     528                      run on PE ...
     529    PA0302           unknown variable named "..." found in data from
     530                      prior run on PE ... 
     531    PA0303           nz not found in restart data file
     532    PA0304           mismatch concerning number of gridpoints along z
     533                      nz on file    = "..."
     534                      nz from run   = "..."
     535    PA0305           max_pr_user not found in restart data file
     536    PA0306           number of user profiles on restart data file differs
     537                      from the current run
     538                      max_pr_user on file    = "..."
     539                      max_pr_user from run   = "..."
     540    PA0307           statistic_regions not found in restart data file
     541    PA0308           statistic regions on restart data file differ
     542                      from the current run
     543                      statistic regions on file    = "..."
     544                      statistic regions from run   = "..."
     545                      statistic data may be lost!
     546    PA0309           inflow profiles not temporally averaged.
     547                      Averaging will be done now using ... samples. 
     548   
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r256 r257  
    2424
    2525Output of messages replaced by message handling routine.
     26(advec_particles, advec_s_bc, buoyancy, calc_spectra, check_for_restart,
     27check_open, coriolis, cpu_log, data_output_2d, data_output_3d, data_output_dvrp,
     28data_output_profiles, data_output_spectra, fft_xy, flow_statistics, header,
     29init_1d_model, init_3d_model, init_dvrp, init_grid, init_particles, init_pegrid,
     30netcdf, parin, plant_canopy_model, poisfft_hybrid, poismg, read_3d_binary,
     31read_var_list)
     32
    2633First constant in array den also defined as type double. (eqn_state_seawater)
    2734
     
    3037user_init_grid, user_parin, write_var_list)
    3138
    32 advec_particles, advec_s_bc, buoyancy, calc_spectra, check_for_restart, check_open, check_parameters, coriolis, cpu_log, data_output_2d, data_output_3d, data_output_dvrp, data_output_profiles, data_output_spectra,  eqn_state_seawater, fft_xy, flow_statistics, header, init_1d_model, init_3d_model, init_dvrp, init_grid, init_particles, init_pegrid, parin, read_var_list, sort_particles, user_check_parameters, user_header, user_init_grid, user_parin, write_var_list
     39advec_particles, advec_s_bc, buoyancy, calc_spectra, check_for_restart, check_open, check_parameters, coriolis, cpu_log, data_output_2d, data_output_3d, data_output_dvrp, data_output_profiles, data_output_spectra,  eqn_state_seawater, fft_xy, flow_statistics, header, init_1d_model, init_3d_model, init_dvrp, init_grid, init_particles, init_pegrid, netcdf, parin, plant_canopy_model, poisfft_hybrid, poismg, read_3d_binary, read_var_list, sort_particles, user_check_parameters, user_header, user_init_grid, user_parin, write_var_list
    3340
    3441
  • palm/trunk/SOURCE/netcdf.f90

    r226 r257  
    77! Current revisions:
    88! ------------------
    9 !
     9! Output of messages replaced by message handling routine.
     10!
    1011!
    1112! Former revisions:
     
    108109          j = INDEX( netcdf_precision(i), '_' )
    109110          IF ( j == 0 )  THEN
    110              IF ( myid == 0 )  THEN
    111                 PRINT*, '+++ define_netcdf_header: netcdf_precision must ',  &
    112                              'contain a "_"    netcdf_precision(', i, ')="', &
    113                              TRIM( netcdf_precision(i) ),'"'
    114              ENDIF
    115              CALL local_stop
     111             WRITE ( message_string, * ) 'netcdf_precision must contain a "_"', &   
     112                                         'netcdf_precision(', i, ')="',         &
     113                                         TRIM( netcdf_precision(i) ),'"'
     114             CALL message( 'define_netcdf_header', 'PA0241', 1, 2, 0, 6, 0 )
    116115          ENDIF
    117116
     
    124123             j = NF90_REAL8
    125124          ELSE
    126              IF ( myid == 0 )  THEN
    127                 PRINT*, '+++ define_netcdf_header: illegal netcdf precision: ',&
    128                              'netcdf_precision(', i, ')="', &
    129                              TRIM( netcdf_precision(i) ),'"'
    130              ENDIF
    131              CALL local_stop
     125             WRITE ( message_string, * ) 'illegal netcdf precision: ',  &
     126                                         'netcdf_precision(', i, ')="', &
     127                                         TRIM( netcdf_precision(i) ),'"'
     128             CALL message( 'define_netcdf_header', 'PA0242', 1, 2, 0, 6, 0 )
    132129          ENDIF
    133130
     
    155152
    156153             CASE DEFAULT
    157                 IF ( myid == 0 )  THEN
    158                    PRINT*, '+++ define_netcdf_header: unknown variable in ',   &
    159                               'inipar assignment: netcdf_precision(', i, ')="',&
    160                                 TRIM( netcdf_precision(i) ),'"'
    161                 ENDIF
    162                 CALL local_stop               
     154                WRITE ( message_string, * ) 'unknown variable in inipar assignment:',&
     155                                            'netcdf_precision(', i, ')="',           &
     156                                            TRIM( netcdf_precision(i) ),'"'
     157                CALL message( 'define_netcdf_header', 'PA0243', 1, 2, 0, 6, 0 )             
    163158
    164159          END SELECT
     
    420415
    421416             IF ( .NOT. found )  THEN
    422                 PRINT*, '+++ define_netcdf_header: no grid defined for', &
    423                              ' variable ', do3d(av,i)
     417                WRITE ( message_string, * ) 'no grid defined for', &
     418                                            ' variable ', TRIM( do3d(av,i) )
     419                CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 
    424420             ENDIF
    425421
     
    562558
    563559          IF ( TRIM( var_list ) /= TRIM( var_list_old ) )  THEN
    564              PRINT*, '+++ WARNING: NetCDF file for volume data ' // &
    565                                    TRIM( var ) // ' from previuos run found,'
    566              PRINT*, '             but this file cannot be extended due to' // &
    567                                    ' variable mismatch.'
    568              PRINT*, '             New file is created instead.'
     560             message_string = 'NetCDF file for volume data ' //             & 
     561                              TRIM( var ) // ' from previuos run found,' // &
     562                              '&but this file cannot be extended due to' // &
     563                              ' variable mismatch.' //                      &
     564                              '&New file is created instead.'
     565             CALL message( 'define_netcdf_header', 'PA0245', 0, 1, 0, 6, 0 )
    569566             extend = .FALSE.
    570567             RETURN
     
    586583
    587584          IF ( nz_do3d-nzb+1 /= nz_old )  THEN
    588              PRINT*, '+++ WARNING: NetCDF file for volume data ' // &
    589                                    TRIM( var ) // ' from previuos run found,'
    590              PRINT*, '             but this file cannot be extended due to' // &
    591                                    ' mismatch in number of'
    592              PRINT*, '             vertical grid points (nz_do3d).'
    593              PRINT*, '             New file is created instead.'
     585              message_string = 'NetCDF file for volume data ' //             &
     586                               TRIM( var ) // ' from previuos run found,' // &
     587                               '&but this file cannot be extended due to' // &
     588                               ' mismatch in number of' //                   &
     589                               '&vertical grid points (nz_do3d).' //         &
     590                               '&New file is created instead.'
     591             CALL message( 'define_netcdf_header', 'PA0246', 0, 1, 0, 6, 0 )
    594592             extend = .FALSE.
    595593             RETURN
     
    620618
    621619          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    622              PRINT*, '+++ WARNING: NetCDF file for volume data ' // &
    623                                    TRIM( var ) // ' from previuos run found,'
    624              PRINT*, '             but this file cannot be extended becaus' // &
    625                                    'e the current output time'
    626              PRINT*, '             is less or equal than the last output t' // &
    627                                    'ime on this file.'
    628              PRINT*, '             New file is created instead.'
     620             message_string = 'NetCDF file for volume data ' // &
     621                              TRIM( var ) // ' from previuos run found,' // &
     622                              '&but this file cannot be extended becaus' // &
     623                              'e the current output time' //                &
     624                              '&is less or equal than the last output t' // &
     625                              'ime on this file.' //                        &
     626                              '&New file is created instead.'
     627             CALL message( 'define_netcdf_header', 'PA0247', 0, 1, 0, 6, 0 )
    629628             do3d_time_count(av) = 0
    630629             extend = .FALSE.
     
    648647                                  TRIM( run_description_header ) )
    649648          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 96 )
    650           PRINT*, '*** NetCDF file for volume data ' // TRIM( var ) // &
    651                        ' from previous run found.'
    652           PRINT*, '    This file will be extended.'
    653 
     649          message_string = 'NetCDF file for volume data ' //            &
     650                           TRIM( var ) // ' from previous run found.' // &
     651                           '&This file will be extended.'
     652          CALL message( 'define_netcdf_header', 'PA0248', 0, 0, 0, 6, 0 )
    654653
    655654       CASE ( 'xy_new' )
     
    945944
    946945                   IF ( .NOT. found )  THEN
    947                       PRINT*, '+++ define_netcdf_header: no grid defined ', &
    948                                    'for variable ', do2d(av,i)
     946                      WRITE ( message_string, * ) 'no grid defined for', &
     947                                            ' variable ', TRIM( do2d(av,i) )
     948                      CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 )
    949949                   ENDIF
    950950
     
    11311131
    11321132          IF ( TRIM( var_list ) /= TRIM( var_list_old ) )  THEN
    1133              PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    1134                                    TRIM( var ) // ' from previuos run found,'
    1135              PRINT*, '             but this file cannot be extended due to' // &
    1136                                    ' variable mismatch.'
    1137              PRINT*, '             New file is created instead.'
     1133             message_string = 'NetCDF file for cross-sections ' //           &
     1134                              TRIM( var ) // ' from previuos run found,' //  &
     1135                              '& but this file cannot be extended due to' // &
     1136                              ' variable mismatch.' //                       &
     1137                              '&New file is created instead.'
     1138             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    11381139             extend = .FALSE.
    11391140             RETURN
     
    11631164
    11641165          IF ( ns /= ns_old )  THEN
    1165              PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    1166                                    TRIM( var ) // ' from previuos run found,'
    1167              PRINT*, '             but this file cannot be extended due to' // &
    1168                                    ' mismatch in number of'
    1169              PRINT*, '             cross sections.'
    1170              PRINT*, '             New file is created instead.'
     1166             message_string = 'NetCDF file for cross-sections ' //          &
     1167                              TRIM( var ) // ' from previuos run found,' // &
     1168                              '&but this file cannot be extended due to' // &
     1169                              ' mismatch in number of' //                   &
     1170                              '&cross sections.' //                         &
     1171                              '&New file is created instead.'
     1172             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    11711173             extend = .FALSE.
    11721174             RETURN
     
    11831185             IF ( section(i,1) /= -1 )  THEN
    11841186                IF ( zu(section(i,1)) /= netcdf_data(i) )  THEN
    1185                    PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    1186                                      TRIM( var ) // ' from previuos run found,'
    1187                    PRINT*, '             but this file cannot be extended' // &
    1188                                       ' due to mismatch in cross'
    1189                    PRINT*, '             section levels.'
    1190                    PRINT*, '             New file is created instead.'
     1187                   message_string = 'NetCDF file for cross-sections ' //          &
     1188                                    TRIM( var ) // ' from previuos run found,' // &
     1189                                    '&but this file cannot be extended' //        &
     1190                                    ' due to mismatch in cross' //                &
     1191                                    '&section levels.' //                         &
     1192                                    '&New file is created instead.'
     1193                   CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
    11911194                   extend = .FALSE.
    11921195                   RETURN
     
    11941197             ELSE
    11951198                IF ( -1.0 /= netcdf_data(i) )  THEN
    1196                    PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    1197                                      TRIM( var ) // ' from previuos run found,'
    1198                    PRINT*, '             but this file cannot be extended' // &
    1199                                       ' due to mismatch in cross'
    1200                    PRINT*, '             section levels.'
    1201                    PRINT*, '             New file is created instead.'
     1199                   message_string = 'NetCDF file for cross-sections ' //          &
     1200                                    TRIM( var ) // ' from previuos run found,' // &
     1201                                    '&but this file cannot be extended' //        &
     1202                                    ' due to mismatch in cross' //                &
     1203                                    '&section levels.' //                         &
     1204                                    '&New file is created instead.'
     1205                   CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
    12021206                   extend = .FALSE.
    12031207                   RETURN
     
    12321236
    12331237          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    1234              PRINT*, '+++ WARNING: NetCDF file for cross sections ' // &
    1235                                    TRIM( var ) // ' from previuos run found,'
    1236              PRINT*, '             but this file cannot be extended becaus' // &
    1237                                    'e the current output time'
    1238              PRINT*, '             is less or equal than the last output t' // &
    1239                                    'ime on this file.'
    1240              PRINT*, '             New file is created instead.'
     1238             message_string = 'NetCDF file for cross sections ' //          &
     1239                              TRIM( var ) // ' from previuos run found,' // &
     1240                              '&but this file cannot be extended becaus' // &
     1241                              'e the current output time' //                &
     1242                              '&is less or equal than the last output t' // &
     1243                              'ime on this file.' //                        &
     1244                              '&New file is created instead.'
     1245             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    12411246             do2d_xy_time_count(av) = 0
    12421247             extend = .FALSE.
     
    12641269                                  TRIM( run_description_header ) )
    12651270          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 139 )
    1266           PRINT*, '*** NetCDF file for cross-sections ' // TRIM( var ) // &
    1267                        ' from previous run found.'
    1268           PRINT*, '    This file will be extended.'
    1269 
     1271          message_string = 'NetCDF file for cross-sections ' //           &
     1272                            TRIM( var ) // ' from previous run found.' // &
     1273                           '&This file will be extended.'
     1274          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
     1275         
    12701276
    12711277       CASE ( 'xz_new' )
     
    14891495
    14901496                IF ( .NOT. found )  THEN
    1491                    PRINT*, '+++ define_netcdf_header: no grid defined for', &
    1492                                 ' variable ', do2d(av,i)
     1497                   WRITE ( message_string, * ) 'no grid defined for', &
     1498                                            ' variable ', TRIM( do2d(av,i) )
     1499                   CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 
    14931500                ENDIF
    14941501
     
    16421649
    16431650          IF ( TRIM( var_list ) /= TRIM( var_list_old ) )  THEN
    1644              PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    1645                                    TRIM( var ) // ' from previuos run found,'
    1646              PRINT*, '             but this file cannot be extended due to' // &
    1647                                    ' variable mismatch.'
    1648              PRINT*, '             New file is created instead.'
     1651             message_string = 'NetCDF file for cross-sections ' //           &
     1652                              TRIM( var ) // ' from previuos run found,' //  &
     1653                              '& but this file cannot be extended due to' // &
     1654                              ' variable mismatch.' //                       &
     1655                              '&New file is created instead.'
     1656             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    16491657             extend = .FALSE.
    16501658             RETURN
     
    16741682
    16751683          IF ( ns /= ns_old )  THEN
    1676              PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    1677                                    TRIM( var ) // ' from previuos run found,'
    1678              PRINT*, '             but this file cannot be extended due to' // &
    1679                                    ' mismatch in number of'
    1680              PRINT*, '             cross sections.'
    1681              PRINT*, '             New file is created instead.'
     1684             message_string = 'NetCDF file for cross-sections ' //          &
     1685                              TRIM( var ) // ' from previuos run found,' // &
     1686                              '&but this file cannot be extended due to' // &
     1687                              ' mismatch in number of' //                   &
     1688                              '&cross sections.' //                         &
     1689                              '&New file is created instead.'
     1690             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    16821691             extend = .FALSE.
    16831692             RETURN
     
    16941703             IF ( section(i,2) /= -1 )  THEN
    16951704                IF ( ( section(i,2) * dy ) /= netcdf_data(i) )  THEN
    1696                    PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    1697                                      TRIM( var ) // ' from previuos run found,'
    1698                    PRINT*, '             but this file cannot be extended' // &
    1699                                       ' due to mismatch in cross'
    1700                    PRINT*, '             section indices.'
    1701                    PRINT*, '             New file is created instead.'
     1705                   message_string = 'NetCDF file for cross-sections ' //          &
     1706                                    TRIM( var ) // ' from previuos run found,' // &
     1707                                    '&but this file cannot be extended' //        &
     1708                                    ' due to mismatch in cross' //                &
     1709                                    '&section levels.' //                         &
     1710                                    '&New file is created instead.'
     1711                   CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
    17021712                   extend = .FALSE.
    17031713                   RETURN
     
    17051715             ELSE
    17061716                IF ( -1.0 /= netcdf_data(i) )  THEN
    1707                    PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    1708                                      TRIM( var ) // ' from previuos run found,'
    1709                    PRINT*, '             but this file cannot be extended' // &
    1710                                       ' due to mismatch in cross'
    1711                    PRINT*, '             section indices.'
    1712                    PRINT*, '             New file is created instead.'
     1717                   message_string = 'NetCDF file for cross-sections ' //          &
     1718                                    TRIM( var ) // ' from previuos run found,' // &
     1719                                    '&but this file cannot be extended' //        &
     1720                                    ' due to mismatch in cross' //                &
     1721                                    '&section levels.' //                         &               
     1722                                    '&New file is created instead.'
     1723                   CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
    17131724                   extend = .FALSE.
    17141725                   RETURN
     
    17431754
    17441755          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    1745              PRINT*, '+++ WARNING: NetCDF file for cross sections ' // &
    1746                                    TRIM( var ) // ' from previuos run found,'
    1747              PRINT*, '             but this file cannot be extended becaus' // &
    1748                                    'e the current output time'
    1749              PRINT*, '             is less or equal than the last output t' // &
    1750                                    'ime on this file.'
    1751              PRINT*, '             New file is created instead.'
     1756             message_string = 'NetCDF file for cross sections ' //          &
     1757                              TRIM( var ) // ' from previuos run found,' // &
     1758                              '&but this file cannot be extended becaus' // &
     1759                              'e the current output time' //                &
     1760                              '&is less or equal than the last output t' // &
     1761                              'ime on this file.' //                        &
     1762                              '&New file is created instead.'
     1763             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    17521764             do2d_xz_time_count(av) = 0
    17531765             extend = .FALSE.
     
    17751787                                  TRIM( run_description_header ) )
    17761788          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 178 )
    1777           PRINT*, '*** NetCDF file for cross-sections ' // TRIM( var ) // &
    1778                        ' from previous run found.'
    1779           PRINT*, '    This file will be extended.'
     1789          message_string = 'NetCDF file for cross-sections ' //           &
     1790                            TRIM( var ) // ' from previous run found.' // &
     1791                           '&This file will be extended.'
     1792          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
    17801793
    17811794
     
    20002013
    20012014                IF ( .NOT. found )  THEN
    2002                    PRINT*, '+++ define_netcdf_header: no grid defined for', &
    2003                                 ' variable ', do2d(av,i)
     2015                   WRITE ( message_string, * ) 'no grid defined for', &
     2016                                            ' variable ', TRIM( do2d(av,i) )
     2017                   CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 
    20042018                ENDIF
    20052019
     
    21522166
    21532167          IF ( TRIM( var_list ) /= TRIM( var_list_old ) )  THEN
    2154              PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    2155                                    TRIM( var ) // ' from previuos run found,'
    2156              PRINT*, '             but this file cannot be extended due to' // &
    2157                                    ' variable mismatch.'
    2158              PRINT*, '             New file is created instead.'
     2168             message_string = 'NetCDF file for cross-sections ' //           &
     2169                              TRIM( var ) // ' from previuos run found,' //  &
     2170                              '& but this file cannot be extended due to' // &
     2171                              ' variable mismatch.' //                       &
     2172                              '&New file is created instead.'
     2173             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    21592174             extend = .FALSE.
    21602175             RETURN
     
    21842199
    21852200          IF ( ns /= ns_old )  THEN
    2186              PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    2187                                    TRIM( var ) // ' from previuos run found,'
    2188              PRINT*, '             but this file cannot be extended due to' // &
    2189                                    ' mismatch in number of'
    2190              PRINT*, '             cross sections.'
    2191              PRINT*, '             New file is created instead.'
     2201             message_string = 'NetCDF file for cross-sections ' //          &
     2202                              TRIM( var ) // ' from previuos run found,' // &
     2203                              '&but this file cannot be extended due to' // &
     2204                              ' mismatch in number of' //                   &
     2205                              '&cross sections.' //                         &
     2206                              '&New file is created instead.'
     2207             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    21922208             extend = .FALSE.
    21932209             RETURN
     
    22042220             IF ( section(i,3) /= -1 )  THEN
    22052221                IF ( ( section(i,3) * dx ) /= netcdf_data(i) )  THEN
    2206                    PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    2207                                      TRIM( var ) // ' from previuos run found,'
    2208                    PRINT*, '             but this file cannot be extended' // &
    2209                                       ' due to mismatch in cross'
    2210                    PRINT*, '             section indices.'
    2211                    PRINT*, '             New file is created instead.'
     2222                   message_string = 'NetCDF file for cross-sections ' //          &
     2223                                    TRIM( var ) // ' from previuos run found,' // &
     2224                                    '&but this file cannot be extended' //        &
     2225                                    ' due to mismatch in cross' //                &
     2226                                    '&section levels.' //                         &
     2227                                    '&New file is created instead.'
     2228                   CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
    22122229                   extend = .FALSE.
    22132230                   RETURN
     
    22152232             ELSE
    22162233                IF ( -1.0 /= netcdf_data(i) )  THEN
    2217                    PRINT*, '+++ WARNING: NetCDF file for cross-sections ' // &
    2218                                      TRIM( var ) // ' from previuos run found,'
    2219                    PRINT*, '             but this file cannot be extended' // &
    2220                                       ' due to mismatch in cross'
    2221                    PRINT*, '             section indices.'
    2222                    PRINT*, '             New file is created instead.'
     2234                   message_string = 'NetCDF file for cross-sections ' //          &
     2235                                    TRIM( var ) // ' from previuos run found,' // &
     2236                                    '&but this file cannot be extended' //        &
     2237                                    ' due to mismatch in cross' //                &
     2238                                    '&section levels.' //                         &
     2239                                    '&New file is created instead.'
     2240                   CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
    22232241                   extend = .FALSE.
    22242242                   RETURN
     
    22532271
    22542272          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    2255              PRINT*, '+++ WARNING: NetCDF file for cross sections ' // &
    2256                                    TRIM( var ) // ' from previuos run found,'
    2257              PRINT*, '             but this file cannot be extended becaus' // &
    2258                                    'e the current output time'
    2259              PRINT*, '             is less or equal than the last output t' // &
    2260                                    'ime on this file.'
    2261              PRINT*, '             New file is created instead.'
     2273             message_string = 'NetCDF file for cross sections ' //          &
     2274                              TRIM( var ) // ' from previuos run found,' // &
     2275                              '&but this file cannot be extended becaus' // &
     2276                              'e the current output time' //                &
     2277                              '&is less or equal than the last output t' // &
     2278                              'ime on this file.' //                        &
     2279                              '&New file is created instead.'
     2280             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    22622281             do2d_yz_time_count(av) = 0
    22632282             extend = .FALSE.
     
    22852304                                  TRIM( run_description_header ) )
    22862305          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 217 )
    2287           PRINT*, '*** NetCDF file for cross-sections ' // TRIM( var ) // &
    2288                        ' from previous run found.'
    2289           PRINT*, '    This file will be extended.'
     2306          message_string = 'NetCDF file for cross-sections ' //           &
     2307                            TRIM( var ) // ' from previous run found.' // &
     2308                           '&This file will be extended.'
     2309          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
    22902310
    22912311
     
    24922512
    24932513          IF ( TRIM( var_list ) /= TRIM( var_list_old ) )  THEN
    2494              PRINT*, '+++ WARNING: NetCDF file for vertical profiles from' // &
    2495                                    ' previuos run found,'
    2496              PRINT*, '             but this file cannot be extended due to' // &
    2497                                    ' variable mismatch.'
    2498              PRINT*, '             New file is created instead.'
     2514             message_string = 'NetCDF file for vertical profiles ' //        &
     2515                              'from previuos run found,' //                  &
     2516                              '& but this file cannot be extended due to' // &
     2517                              ' variable mismatch.' //                       &
     2518                              '&New file is created instead.'
     2519             CALL message( 'define_netcdf_header', 'PA0254', 0, 1, 0, 6, 0 )
    24992520             extend = .FALSE.
    25002521             RETURN
     
    25252546
    25262547          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    2527              PRINT*, '+++ WARNING: NetCDF file for vertical profiles from' // &
    2528                                    ' previuos run found,'
    2529              PRINT*, '             but this file cannot be extended becaus' // &
    2530                                    'e the current output time'
    2531              PRINT*, '             is less or equal than the last output t' // &
    2532                                    'ime on this file.'
    2533              PRINT*, '             New file is created instead.'
     2548             message_string = 'NetCDF file for vertical profiles ' //       &
     2549                              'from previuos run found,' //                 &
     2550                              '&but this file cannot be extended becaus' // &
     2551                              'e the current output time' //                &
     2552                              '&is less or equal than the last output t' // &
     2553                              'ime on this file.' //                        &
     2554                              '&New file is created instead.'
     2555             CALL message( 'define_netcdf_header', 'PA0255', 0, 1, 0, 6, 0 )
    25342556             dopr_time_count = 0
    25352557             extend = .FALSE.
     
    25762598                                  TRIM( run_description_header ) )
    25772599          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 248 )
    2578           PRINT*, '*** NetCDF file for vertical profiles from previous run' // &
    2579                        ' found.'
    2580           PRINT*, '    This file will be extended.'
     2600          message_string = 'NetCDF file for vertical profiles ' // &
     2601                           'from previous run found.' //           &
     2602                           '&This file will be extended.'
     2603          CALL message( 'define_netcdf_header', 'PA0256', 0, 0, 0, 6, 0 )
    25812604
    25822605
     
    27002723
    27012724          IF ( TRIM( var_list ) /= TRIM( var_list_old ) )  THEN
    2702              PRINT*, '+++ WARNING: NetCDF file for time series from' //&
    2703                                    ' previuos run found,'
    2704              PRINT*, '             but this file cannot be extended due to' // &
    2705                                    ' variable mismatch.'
    2706              PRINT*, '             New file is created instead.'
     2725             message_string = 'NetCDF file for time series ' //              &
     2726                              'from previuos run found,' //                  &
     2727                              '& but this file cannot be extended due to' // &
     2728                              ' variable mismatch.' //                       &
     2729                              '&New file is created instead.'
     2730             CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 )
    27072731             extend = .FALSE.
    27082732             RETURN
     
    27332757
    27342758          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    2735              PRINT*, '+++ WARNING: NetCDF file for time series from' // &
    2736                                    ' previuos run found,'
    2737              PRINT*, '             but this file cannot be extended becaus' // &
    2738                                    'e the current output time'
    2739              PRINT*, '             is less or equal than the last output t' // &
    2740                                    'ime on this file.'
    2741              PRINT*, '             New file is created instead.'
     2759             message_string = 'NetCDF file for time series ' //             &
     2760                              'from previuos run found,' //                 &
     2761                              '&but this file cannot be extended becaus' // &
     2762                              'e the current output time' //                &
     2763                              '&is less or equal than the last output t' // &
     2764                              'ime on this file.' //                        &
     2765                              '&New file is created instead.'
     2766             CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 )
    27422767             dots_time_count = 0
    27432768             extend = .FALSE.
     
    27752800                                  TRIM( run_description_header ) )
    27762801          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 267 )
    2777           PRINT*, '*** NetCDF file for time series from previous run found.'
    2778           PRINT*, '    This file will be extended.'
     2802          message_string = 'NetCDF file for time series ' // &
     2803                           'from previous run found.' //     &
     2804                           '&This file will be extended.'
     2805          CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 )
    27792806
    27802807
     
    30533080
    30543081          IF ( TRIM( var_list ) /= TRIM( var_list_old ) )  THEN
    3055              PRINT*, '+++ WARNING: NetCDF file for spectra from previous ' //&
    3056                                    'run found,'
    3057              PRINT*, '             but this file cannot be extended due to' // &
    3058                                    ' variable mismatch.'
    3059              PRINT*, '             New file is created instead.'
     3082             message_string = 'NetCDF file for spectra  ' //                 &
     3083                              'from previuos run found,' //                  &
     3084                              '& but this file cannot be extended due to' // &
     3085                              ' variable mismatch.' //                       &
     3086                              '&New file is created instead.'
     3087             CALL message( 'define_netcdf_header', 'PA0260', 0, 1, 0, 6, 0 )
    30603088             extend = .FALSE.
    30613089             RETURN
     
    30863114
    30873115          IF ( ns /= ns_old )  THEN
    3088              PRINT*, '+++ WARNING: NetCDF file for spectra from previous ' //&
    3089                                    'run found,'
    3090              PRINT*, '             but this file cannot be extended due to' // &
    3091                                    ' mismatch in number of'
    3092              PRINT*, '             vertical levels.'
    3093              PRINT*, '             New file is created instead.'
     3116             message_string = 'NetCDF file for spectra ' //                 &
     3117                              ' from previuos run found,' //                &
     3118                              '&but this file cannot be extended due to' // &
     3119                              ' mismatch in number of' //                   &
     3120                              '&vertical levels.' //                        &
     3121                              '&New file is created instead.'
     3122             CALL message( 'define_netcdf_header', 'PA0261', 0, 1, 0, 6, 0 )
    30943123             extend = .FALSE.
    30953124             RETURN
     
    31053134          DO  i = 1, ns
    31063135             IF ( zu(comp_spectra_level(i)) /= netcdf_data(i) )  THEN
    3107                 PRINT*, '+++ WARNING: NetCDF file for spectra from previou' // &
    3108                                    's run found,'
    3109                 PRINT*, '             but this file cannot be extended due' // &
    3110                                    ' to mismatch in heights'
    3111                 PRINT*, '             of vertical levels.'
    3112                 PRINT*, '             New file is created instead.'
     3136                message_string = 'NetCDF file for spectra ' //                 &
     3137                                 ' from previuos run found,' //                &
     3138                                 '&but this file cannot be extended due to' // &
     3139                                 ' mismatch in heights of' //                  &
     3140                                 '&vertical levels.' //                        &
     3141                                 '&New file is created instead.'
     3142                CALL message( 'define_netcdf_header', 'PA0262', 0, 1, 0, 6, 0 )
    31133143                extend = .FALSE.
    31143144                RETURN
     
    31423172
    31433173          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    3144              PRINT*, '+++ WARNING: NetCDF file for spectra from previous ' // &
    3145                                    'run found,'
    3146              PRINT*, '             but this file cannot be extended becaus' // &
    3147                                    'e the current output time'
    3148              PRINT*, '             is less or equal than the last output t' // &
    3149                                    'ime on this file.'
    3150              PRINT*, '             New file is created instead.'
     3174             message_string = 'NetCDF file for spectra ' //                 &
     3175                              'from previuos run found,' //                 &
     3176                              '&but this file cannot be extended becaus' // &
     3177                              'e the current output time' //                &
     3178                              '&is less or equal than the last output t' // &
     3179                              'ime on this file.' //                        &
     3180                              '&New file is created instead.'
     3181             CALL message( 'define_netcdf_header', 'PA0263', 0, 1, 0, 6, 0 )
    31513182             dosp_time_count = 0
    31523183             extend = .FALSE.
     
    31963227          ENDIF
    31973228          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 309 )
    3198 
    3199           PRINT*, '*** NetCDF file for spectra from previous run found.'
    3200           PRINT*, '    This file will be extended.'
     3229          message_string = 'NetCDF file for spectra ' //     &
     3230                           'from previous run found.' //     &
     3231                           '&This file will be extended.'
     3232          CALL message( 'define_netcdf_header', 'PA0264', 0, 0, 0, 6, 0 )
    32013233
    32023234
     
    32993331
    33003332          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    3301              PRINT*, '+++ WARNING: NetCDF file for particles from previous ' //&
    3302                                    'run found,'
    3303              PRINT*, '             but this file cannot be extended becaus' // &
    3304                                    'e the current output time'
    3305              PRINT*, '             is less or equal than the last output t' // &
    3306                                    'ime on this file.'
    3307              PRINT*, '             New file is created instead.'
     3333             message_string = 'NetCDF file for particles ' //               &
     3334                              'from previuos run found,' //                 &
     3335                              '&but this file cannot be extended becaus' // &
     3336                              'e the current output time' //                &
     3337                              '&is less or equal than the last output t' // &
     3338                              'ime on this file.' //                        &
     3339                              '&New file is created instead.'
     3340             CALL message( 'define_netcdf_header', 'PA0265', 0, 1, 0, 6, 0 )
    33083341             prt_time_count = 0
    33093342             extend = .FALSE.
     
    33263359          ENDDO
    33273360
    3328           IF ( myid == 0 )  THEN
    3329              PRINT*, '*** NetCDF file for particles from previous run found.'
    3330              PRINT*, '    This file will be extended.'
    3331           ENDIF
     3361          message_string = 'NetCDF file for particles ' // &
     3362                           'from previous run found.' //   &
     3363                           '&This file will be extended.'
     3364          CALL message( 'define_netcdf_header', 'PA0266', 0, 0, 0, 6, 0 )
     3365       
    33323366
    33333367
     
    34543488
    34553489          IF ( TRIM( var_list ) /= TRIM( var_list_old ) )  THEN
    3456              PRINT*, '+++ WARNING: NetCDF file for particle time series ' //&
    3457                                    'from previuos run found,'
    3458              PRINT*, '             but this file cannot be extended due to' // &
    3459                                    ' variable mismatch.'
    3460              PRINT*, '             New file is created instead.'
     3490             message_string = 'NetCDF file for particle time series ' //     &
     3491                              'from previuos run found,' //                  &
     3492                              '& but this file cannot be extended due to' // &
     3493                              ' variable mismatch.' //                       &
     3494                              '&New file is created instead.'
     3495             CALL message( 'define_netcdf_header', 'PA0267', 0, 1, 0, 6, 0 )
    34613496             extend = .FALSE.
    34623497             RETURN
     
    34873522
    34883523          IF ( last_time_coordinate(1) >= simulated_time )  THEN
    3489              PRINT*, '+++ WARNING: NetCDF file for time series from' // &
    3490                                    ' previuos run found,'
    3491              PRINT*, '             but this file cannot be extended becaus' // &
    3492                                    'e the current output time'
    3493              PRINT*, '             is less or equal than the last output t' // &
    3494                                    'ime on this file.'
    3495              PRINT*, '             New file is created instead.'
     3524             message_string = 'NetCDF file for particle time series ' //    &
     3525                              'from previuos run found,' //                 &
     3526                              '&but this file cannot be extended becaus' // &
     3527                              'e the current output time' //                &
     3528                              '&is less or equal than the last output t' // &
     3529                              'ime on this file.' //                        &
     3530                              '&New file is created instead.'
     3531             CALL message( 'define_netcdf_header', 'PA0268', 0, 1, 0, 6, 0 )
    34963532             dopts_time_count = 0
    34973533             extend = .FALSE.
     
    35333569                                  TRIM( run_description_header ) )
    35343570          IF ( nc_stat /= NF90_NOERR )  CALL handle_netcdf_error( 411 )
    3535           PRINT*, '*** NetCDF file for particle time series from previous ', &
    3536                        'run found.'
    3537           PRINT*, '    This file will be extended.'
     3571          message_string = 'NetCDF file for particle time series ' // &
     3572                           'from previous run found.' //              &
     3573                           '&This file will be extended.'
     3574          CALL message( 'define_netcdf_header', 'PA0269', 0, 0, 0, 6, 0 )
    35383575
    35393576
    35403577       CASE DEFAULT
    35413578
    3542           PRINT*, '+++ define_netcdf_header: mode "', mode, '" not supported'
     3579          message_string = 'mode "' // TRIM( mode) // '" not supported'
     3580          CALL message( 'define_netcdf_header', 'PA0270', 0, 0, 0, 6, 0 )
    35433581
    35443582    END SELECT
  • palm/trunk/SOURCE/parin.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,
     
    176177    READ ( 11, inipar, ERR=10, END=11 )
    177178    GOTO 12
    178  10 IF ( myid == 0 )  THEN
    179        PRINT*, '+++ parin: errors in \$inipar'
    180        PRINT*, '           or no \$inipar-namelist found (CRAY-machines only)'
    181     ENDIF
    182     CALL local_stop
    183  11 IF ( myid == 0 )  THEN
    184        PRINT*, '+++ parin: no \$inipar-namelist found'
    185     ENDIF
    186     CALL local_stop
     179 10 message_string = 'errors in \$inipar &or no \$inipar-namelist found (CRAY-machines only)'
     180    CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
     181
     182 11 message_string = 'no \$inipar-namelist found'
     183    CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 )
    187184
    188185!
     
    230227
    231228       IF ( nx <= 0 )  THEN
    232           IF ( myid == 0 )  THEN
    233              PRINT*, '+++ parin: no value or wrong value given for nx: nx=', nx
    234           ENDIF
    235           CALL local_stop
     229          WRITE( message_string, * ) 'no value or wrong value given for nx: nx=', nx
     230          CALL message( 'parin', 'PA0273', 1, 2, 0, 6, 0 )
    236231       ENDIF
    237232       IF ( ny <= 0 )  THEN
    238           IF ( myid == 0 )  THEN
    239              PRINT*, '+++ parin: no value or wrong value given for ny: ny=', ny
    240           ENDIF
    241           CALL local_stop
     233          WRITE( message_string, * ) 'no value or wrong value given for ny: ny=', ny
     234          CALL message( 'parin', 'PA0274', 1, 2, 0, 6, 0 )
    242235       ENDIF
    243236       IF ( nz <= 0 )  THEN
    244           IF ( myid == 0 )  THEN
    245              PRINT*, '+++ parin: no value or wrong value given for nz: nz=', nz
    246           ENDIF
    247           CALL local_stop
     237          WRITE( message_string, * ) 'no value or wrong value given for nz: nz=', nz
     238          CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 )
    248239       ENDIF
    249240!
     
    270261    RETURN
    271262
    272  30 IF ( myid == 0 )  THEN
    273        PRINT*, '+++ parin: WARNING: local file ENVPAR not found'
    274        PRINT*, '           some variables for steering may not be properly set'
    275     ENDIF
     263 30 message_string = 'local file ENVPAR not found' // &
     264                     '&some variables for steering may not be properly set'
     265    CALL message( 'parin', 'PA0276', 0, 1, 0, 6, 0 )
    276266    RETURN
    277267
    278  31 IF ( myid == 0 )  THEN
    279        PRINT*, '+++ parin: WARNING: errors in local file ENVPAR'
    280        PRINT*, '           some variables for steering may not be properly set'
    281     ENDIF
     268 31 message_string = 'errors in local file ENVPAR' // &
     269                     '&some variables for steering may not be properly set'
     270    CALL message( 'parin', 'PA0277', 0, 1, 0, 6, 0 )
    282271    RETURN
    283272
    284  32 IF ( myid == 0 )  THEN
    285        PRINT*, '+++ parin: WARNING: no envpar-NAMELIST found in local file ', &
    286                            'ENVPAR'
    287        PRINT*, '           some variables for steering may not be properly set'
    288     ENDIF
     273 32 message_string = 'no envpar-NAMELIST found in local file ENVPAR'  // &
     274                     '&some variables for steering may not be properly set'
     275    CALL message( 'parin', 'PA0278', 0, 1, 0, 6, 0 )
    289276
    290277 END SUBROUTINE parin
  • palm/trunk/SOURCE/plant_canopy_model.f90

    r198 r257  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Bugfix: remove IF statement in plant_canopy_model_ij
     
    187188          CASE DEFAULT
    188189
    189              IF ( myid == 0 )  PRINT*,'+++ pcm:  wrong component: ', &
    190                                       component
    191              CALL local_stop
     190             WRITE( message_string, * ) 'wrong component: ', component
     191             CALL message( 'plant_canopy_model', 'PA0279', 1, 2, 0, 6, 0 )
    192192
    193193       END SELECT
     
    324324       CASE DEFAULT
    325325
    326           IF ( myid == 0 )  PRINT*,'+++ pcm:  wrong component: ', &
    327                                       component
    328           CALL local_stop
     326          WRITE( message_string, * ) 'wrong component: ', component
     327          CALL message( 'plant_canopy_model', 'PA0279', 1, 2, 0, 6, 0 )
    329328
    330329       END SELECT
  • palm/trunk/SOURCE/poisfft_hybrid.f90

    r4 r257  
    22!------------------------------------------------------------------------------
    33!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    145146       CALL LOCAL_GETENV( 'OMP_NUM_THREADS', 15, cdummy, idummy )
    146147       READ ( cdummy, '(I8)' )  n_omp_threads
    147        IF ( myid == 0  .AND.  n_omp_threads > 1 )  THEN
    148           PRINT*, '*** poisfft_hybrid_ini:  Number of OpenMP threads = ', &
    149                   n_omp_threads
     148       IF ( n_omp_threads > 1 )  THEN
     149          WRITE( message_string, * ) 'Number of OpenMP threads = ', &
     150                                     n_omp_threads
     151          CALL message( 'poisfft_hybrid_ini', 'PA0280', 0, 0, 0, 6, 0 )
    150152       ENDIF
    151153#else
     
    175177                ENDIF
    176178
    177                 IF ( myid == 0  .AND.  tasks_per_logical_node > -1 )  THEN
    178                    PRINT*, '*** poisfft_hybrid_ini:  running optimized ', &
    179                            'multinode version'
    180                    PRINT*, '    switch_per_lpar        = ', switch_per_lpar
    181                    PRINT*, '    tasks_per_lpar         = ', tasks_per_node
    182                    PRINT*, '    tasks_per_logical_node = ', &
    183                                                          tasks_per_logical_node
     179                IF ( tasks_per_logical_node > -1 )  THEN
     180
     181                   WRITE( message_string, * ) 'running optimized ',         &
     182                                              'multinode version',          &
     183                                              '&switch_per_lpar        = ', &
     184                                              switch_per_lpar,              &
     185                                              '&tasks_per_lpar         = ', &
     186                                              tasks_per_node,               &
     187                                              'tasks_per_logical_node = ',  &
     188                                              tasks_per_logical_node
     189                   CALL message( 'poisfft_hybrid_ini', 'PA0281', 0, 0, 0, 6, 0 )
     190
    184191                ENDIF
    185192
     
    215222!                     tasks_per_logical_node
    216223#else
    217           PRINT*, '+++ poisfft_hybrid_ini: parallel environment (MPI) required'
    218           CALL local_stop
     224          message_string = 'parallel environment (MPI) required'
     225          CALL message( 'poisfft_hybrid_ini', 'PA0282', 1, 2, 0, 6, 0 )
    219226#endif
    220227       ENDIF
  • palm/trunk/SOURCE/poismg.f90

    r198 r257  
    66!            is required.
    77!
    8 ! Actual revisions:
     8! Current revisions:
    99! -----------------
    10 !
     10! Output of messages replaced by message handling routine.
     11!
    1112!
    1213! Former revisions:
     
    117118!--    of insufficient convergence
    118119       IF ( mgcycles > 1000  .AND.  mg_cycles == -1 )  THEN
    119           IF ( myid == 0 )  THEN
    120              PRINT*, '+++ poismg: no sufficient convergence within 1000 cycles'
    121           ENDIF
    122           CALL local_stop
     120          message_string = 'no sufficient convergence within 1000 cycles'
     121          CALL message( 'poismg', 'PA0283', 1, 2, 0, 6, 0 )
    123122       ENDIF
    124123
  • palm/trunk/SOURCE/read_3d_binary.f90

    r226 r257  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    138139!
    139140!--             Array bound exceeded
    140                 PRINT*, '+++ read_3d_binary: data from subdomain of previous', &
    141                              ' run mapped more than 1000 times'
    142 #if defined( __parallel )
    143                 CALL MPI_ABORT( comm2d, 9999, ierr )
    144 #else
    145                 STOP
    146 #endif
     141                message_string = 'data from subdomain of previous' // &
     142                                 ' run mapped more than 1000 times'
     143                CALL message( 'read_3d_binary', 'PA0284', 2, 2, 0, 6, 0 )
     144 
    147145             ENDIF
    148146
     
    206204    IF ( files_to_be_opened /= 1  .OR.  numprocs /= numprocs_previous_run ) &
    207205    THEN
    208        PRINT*, '*** number of PEs or virtual PE-grid changed in restart run'
    209        PRINT*, '    PE', myid, ' will read from files ', &
    210                file_list(1:files_to_be_opened)
     206       WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed in ',     &
     207                                  'restart run&  PE', myid, ' will read from files ', &
     208                                  file_list(1:files_to_be_opened)
     209       CALL message( 'read_3d_binary', 'PA0285', 0, 0, 0, 6, 0 )
    211210    ENDIF
    212211
     
    238237       binary_version = '3.1'
    239238       IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
    240           IF ( myid == 0 )  THEN
    241              PRINT*, '+++ init_3d_model: version mismatch concerning data ', &
    242                      'from prior run'
    243              PRINT*, '        version on file    = "', TRIM( version_on_file ),&
    244                      '"'
    245              PRINT*, '        version in program = "', TRIM( binary_version ), &
    246                      '"'
    247           ENDIF
    248           CALL local_stop
     239          WRITE( message_string, * ) 'version mismatch concerning data ',                    &
     240                                     'from prior run',                                       &
     241                                     '&version on file    = "', TRIM( version_on_file ), '"',&
     242                                     '&version in program = "', TRIM( binary_version ), '"'
     243          CALL message( 'read_3d_binary', 'PA0286', 1, 2, 0, 6, 0 )
    249244       ENDIF
    250245
     
    256251
    257252       IF ( nxl_on_file /= hor_index_bounds_previous_run(1,j) )  THEN
    258           PRINT*, '+++ read_3d_binary: problem with index bound nxl on ', &
    259                        ' restart file "', myid_char, '"'
    260           PRINT*, '                    nxl = ', nxl_on_file, ' but it should be'
    261           PRINT*, '                    = ', hor_index_bounds_previous_run(1,j)
    262           PRINT*, '                    from the index bound information array'
    263 #if defined( __parallel )
    264           CALL MPI_ABORT( comm2d, 9999, ierr )
    265 #else
    266           CALL local_stop
    267 #endif
     253          WRITE( message_string, * ) 'problem with index bound nxl on ',          &
     254                                     'restart file "', myid_char, '"',            &
     255                                     '&nxl = ', nxl_on_file, ' but it should be', &
     256                                     '&= ', hor_index_bounds_previous_run(1,j),   &
     257                                     '&from the index bound information array'
     258          CALL message( 'read_3d_binary', 'PA0287', 2, 2, 0, 6, 0 )
    268259       ENDIF
    269260
    270261       IF ( nxr_on_file /= hor_index_bounds_previous_run(2,j) )  THEN
    271           PRINT*, '+++ read_3d_binary: problem with index bound nxr on ', &
    272                        ' restart file "', myid_char, '"'
    273           PRINT*, '                    nxr = ', nxr_on_file, ' but it should be'
    274           PRINT*, '                    = ', hor_index_bounds_previous_run(2,j)
    275           PRINT*, '                    from the index bound information array'
    276 #if defined( __parallel )
    277           CALL MPI_ABORT( comm2d, 9999, ierr )
    278 #else
    279           CALL local_stop
    280 #endif
     262           WRITE( message_string, * ) 'problem with index bound nxr on ',          &
     263                                      'restart file "', myid_char, '"'  ,          &
     264                                      '&nxr = ', nxr_on_file, ' but it should be', &
     265                                      '&= ', hor_index_bounds_previous_run(2,j),   &
     266                                      '&from the index bound information array'
     267          CALL message( 'read_3d_binary', 'PA0288', 2, 2, 0, 6, 0 )
     268
    281269       ENDIF
    282270
    283271       IF ( nys_on_file /= hor_index_bounds_previous_run(3,j) )  THEN
    284           PRINT*, '+++ read_3d_binary: problem with index bound nys on ', &
    285                        ' restart file "', myid_char, '"'
    286           PRINT*, '                    nys = ', nys_on_file, ' but it should be'
    287           PRINT*, '                    = ', hor_index_bounds_previous_run(3,j)
    288           PRINT*, '                    from the index bound information array'
    289 #if defined( __parallel )
    290           CALL MPI_ABORT( comm2d, 9999, ierr )
    291 #else
    292           CALL local_stop
    293 #endif
     272          WRITE( message_string, * ) 'problem with index bound nys on ',          &
     273                                     'restart file "', myid_char, '"',            &
     274                                     '&nys = ', nys_on_file, ' but it should be', &
     275                                     '&= ', hor_index_bounds_previous_run(3,j),   &
     276                                     '&from the index bound information array'
     277          CALL message( 'read_3d_binary', 'PA0289', 2, 2, 0, 6, 0 )
    294278       ENDIF
    295279
    296280       IF ( nyn_on_file /= hor_index_bounds_previous_run(4,j) )  THEN
    297           PRINT*, '+++ read_3d_binary: problem with index bound nyn on ', &
    298                        ' restart file "', myid_char, '"'
    299           PRINT*, '                    nyn = ', nyn_on_file, ' but it should be'
    300           PRINT*, '                    = ', hor_index_bounds_previous_run(4,j)
    301           PRINT*, '                    from the index bound information array'
    302 #if defined( __parallel )
    303           CALL MPI_ABORT( comm2d, 9999, ierr )
    304 #else
    305           CALL local_stop
    306 #endif
     281          WRITE( message_string, * ) 'problem with index bound nyn on ',          &
     282                                     'restart file "', myid_char, '"',            &
     283                                     '&nyn = ', nyn_on_file, ' but it should be', &
     284                                     '&= ', hor_index_bounds_previous_run(4,j),   &
     285                                     '&from the index bound information array'
     286          CALL message( 'read_3d_binary', 'PA0290', 2, 2, 0, 6, 0 )
    307287       ENDIF
    308288
    309289       IF ( nzb_on_file /= nzb )  THEN
    310           PRINT*, '+++ read_3d_binary: mismatch between actual data and data '
    311           PRINT*, '                    from prior run on PE ', myid
    312           PRINT*, '                    nzb on file = ', nzb_on_file
    313           PRINT*, '                    nzb         = ', nzb
    314           CALL local_stop
     290          WRITE( message_string, * ) 'mismatch between actual data and data ', &
     291                                     '&from prior run on PE ', myid,           &
     292                                     '&nzb on file = ', nzb_on_file,           &
     293                                     '&nzb         = ', nzb
     294          CALL message( 'read_3d_binary', 'PA0291', 1, 2, 0, 6, 0 ) 
    315295       ENDIF
    316296
    317297       IF ( nzt_on_file /= nzt )  THEN
    318           PRINT*, '+++ read_3d_binary: mismatch between actual data and data '
    319           PRINT*, '                    from prior run on PE ', myid
    320           PRINT*, '                    nzt on file = ', nzt_on_file
    321           PRINT*, '                    nzt         = ', nzt
    322           CALL local_stop
     298          WRITE( message_string, * ) 'mismatch between actual data and data ', &
     299                                     '&from prior run on PE ', myid,           &
     300                                     '&nzt on file = ', nzt_on_file,           &
     301                                     '&nzt         = ', nzt
     302          CALL message( 'read_3d_binary', 'PA0292', 1, 2, 0, 6, 0 ) 
    323303       ENDIF
    324304
     
    634614                   IF ( k == 1 )  THEN
    635615                      IF ( nx_on_file /= nx )  THEN
    636                          IF ( myid == 0 )  THEN
    637                             PRINT*, '+++ WARNING: read_3d_binary: spectrum_x', &
    638                                          ' on restart file ignored because'
    639                             PRINT*, '    total numbers of grid points (nx) ', &
    640                                          'do not match'
    641                          ENDIF
     616                         message_string = 'read_3d_binary: spectrum_x ' //         &
     617                                          'on restart file ignored because' //     &
     618                                          '&total numbers of grid points (nx) ' // &
     619                                          'do not match'
     620                         CALL message( 'read_3d_binary', 'PA0293', 0, 1, 0, 6, 0 ) 
    642621                         READ ( 13 )  rdummy
    643622                      ELSE
     
    649628                   IF ( k == 1 )  THEN
    650629                      IF ( ny_on_file /= ny )  THEN
    651                          IF ( myid == 0 )  THEN
    652                             PRINT*, '+++ WARNING: read_3d_binary: spectrum_y', &
    653                                          ' on restart file ignored because'
    654                             PRINT*, '    total numbers of grid points (ny) ', &
    655                                          'do not match'
    656                          ENDIF
     630                         message_string = 'read_3d_binary: spectrum_y ' //        &
     631                                          'on restart file ignored because' //    &
     632                                          '&total numbers of grid points (ny) '// &
     633                                          'do not match'
     634                         CALL message( 'read_3d_binary', 'PA0294', 0, 1, 0, 6, 0 ) 
    657635                         READ ( 13 )  rdummy
    658636                      ELSE
     
    944922
    945923                CASE DEFAULT
    946                    PRINT*, '+++ read_3d_binary: unknown field named "', &
    947                            TRIM( field_chr ), '" found in'
    948                    PRINT*, '                    data from prior run on PE ',myid
    949                    CALL local_stop
    950 
     924                   WRITE( message_string, * ) 'unknown field named "', &
     925                                              TRIM( field_chr ), '" found in', &
     926                                              '&data from prior run on PE ',myid
     927                    CALL message( 'read_3d_binary', 'PA0295', 1, 2, 0, 6, 0 ) 
     928                   
    951929             END SELECT
    952930
  • 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.