Changeset 3046 for palm


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

Remaining error messages revised, comments extended

Location:
palm/trunk/SOURCE
Files:
38 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    144144    IF ( terminate_run  .AND.  myid == 0 )  THEN
    145145       WRITE( message_string, * ) 'run will be terminated because it is ',     &
    146                        'running out of job cpu limit, ',                       &
    147                        'remaining time:         ', remaining_time, ' s',       &
     146                       'running out of job cpu limit & ',                      &
     147                       'remaining time:         ', remaining_time, ' s &',     &
    148148                       'termination time needed:', termination_time_needed, ' s'
    149149       CALL message( 'check_for_restart', 'PA0163', 0, 1, 0, 6, 0 )
     
    187187                                  'forced a job finalization using a flag',    &
    188188                                  'file:',                                     &
    189                                   ' DO_STOP_NOW: ', do_stop_now,               &
    190                                   ' DO_RESTART_NOW: ', do_restart_now
     189                                  '&DO_STOP_NOW: ', do_stop_now,               &
     190                                  '&DO_RESTART_NOW: ', do_restart_now
    191191          CALL message( 'check_for_restart', 'PA0398', 0, 0, 0, 6, 0 )
    192192
  • palm/trunk/SOURCE/check_parameters.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    12101210       aerosol_nh4no3 = .TRUE.
    12111211    ELSE
    1212        message_string = 'unknown aerosol ="' // &
    1213                         TRIM( aerosol_bulk ) // '"'
     1212       message_string = 'unknown aerosol = "' // TRIM( aerosol_bulk ) // '"'
    12141213       CALL message( 'check_parameters', 'PA0469', 1, 2, 0, 6, 0 )
    12151214    ENDIF
     
    18421841       ELSE
    18431842          WRITE( message_string, * ) 'cfl_factor = ', cfl_factor,              &
    1844                  ' out of range 0.0 < cfl_factor <= 1.0 is required'
     1843                 ' out of range &0.0 < cfl_factor <= 1.0 is required'
    18451844          CALL message( 'check_parameters', 'PA0045', 1, 2, 0, 6, 0 )
    18461845       ENDIF
     
    18861885       ELSE
    18871886          message_string = 'variable translation speed used for Galilei-' //   &
    1888              'transformation, which may cause instabilities in stably ' //     &
     1887             'transformation, which may cause & instabilities in stably ' //   &
    18891888             'stratified regions'
    18901889          CALL message( 'check_parameters', 'PA0048', 0, 1, 0, 6, 0 )
     
    20622061         surface_heatflux /= 0.0_wp )  THEN
    20632062       message_string = 'boundary_condition: bc_pt_b = "' // TRIM( bc_pt_b ) //&
    2064                         'is not allowed with constant_heatflux = .TRUE.'
     2063                        '& is not allowed with constant_heatflux = .TRUE.'
    20652064       CALL message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 )
    20662065    ENDIF
     
    33783377             IF ( k == 0  .OR.  data_output(i)(ilen-2:ilen) /= '_xy' )  THEN
    33793378                message_string = 'illegal value for data_output: "' //         &
    3380                                  TRIM( var ) // '" only 2d-horizontal ' //     &
     3379                                 TRIM( var ) // '" & only 2d-horizontal ' //   &
    33813380                                 'cross sections are allowed for this value'
    33823381                CALL message( 'check_parameters', 'PA0111', 1, 2, 0, 6, 0 )
     
    36373636                           '5 (parallel netCDF 4) and ' //                     &
    36383637                           '6 (parallel netCDF 4 Classic model) '//            &
    3639                            ' are currently not supported (not yet tested) ' // &
    3640                            'for masked data. Using respective non-parallel' // &
     3638                           '& are currently not supported (not yet tested) ' //&
     3639                           'for masked data. &Using respective non-parallel' //&
    36413640                           ' output for masked data.'
    36423641          CALL message( 'check_parameters', 'PA0383', 0, 0, 0, 6, 0 )
     
    36533652#else
    36543653       message_string = 'netCDF: netCDF4 format requested but no ' //          &
    3655                         'cpp-directive __netcdf4 given  switch '  //           &
     3654                        'cpp-directive __netcdf4 given & switch '  //          &
    36563655                        'back to 64-bit offset format'
    36573656       CALL message( 'check_parameters', 'PA0171', 0, 1, 0, 6, 0 )
     
    36643663#else
    36653664       message_string = 'netCDF: netCDF4 parallel output requested but no ' // &
    3666                         'cpp-directive __netcdf4_parallel given, switch '   // &
     3665                        'cpp-directive __netcdf4_parallel given & switch '   //&
    36673666                        'back to netCDF4 non-parallel output'
    36683667       CALL message( 'check_parameters', 'PA0099', 0, 1, 0, 6, 0 )
     
    41884187       message_string = 'complex_terrain requires topography' //               &
    41894188                        ' = ''read_from_file'''
    4190        CALL message( 'check_parameters', 'PA0472', 1, 2, 0, 6, 0 )
     4189       CALL message( 'check_parameters', 'PA0295', 1, 2, 0, 6, 0 )
    41914190    ENDIF
    41924191
     
    42274226          IF ( dt_fixed )  THEN
    42284227             WRITE( message_string, '(A,F9.4,A)' )  'Output at every '  //     &
    4229                     'timestep is wanted (' // dt_do_name // ' = 0.0). '//      &
     4228                    'timestep is wanted (' // dt_do_name // ' = 0.0).&'//      &
    42304229                    'The output interval is set to the fixed timestep dt '//   &
    42314230                    '= ', dt, 's.'
  • palm/trunk/SOURCE/cpulog_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    262262          IF ( ( mtime - log_event%mtime ) < 0.0  .AND.  first )  THEN
    263263             WRITE( message_string, * ) 'negative time interval occured',      &
    264                          ' PE',myid,' L=PAUSE "',TRIM(log_event%place),        &
     264                         '&PE',myid,' L=PAUSE "',TRIM(log_event%place),        &
    265265                         '" new=', mtime,' last=',log_event%mtime
    266266             CALL message( 'cpu_log', 'PA0176', 0, 1, -1, 6, 0 )
     
    273273               first )  THEN
    274274             WRITE( message_string, * ) 'negative time interval occured',      &
    275                        ' PE',myid,' L=STOP "',TRIM(log_event%place),'" new=',  &
     275                       '&PE',myid,' L=STOP "',TRIM(log_event%place),'" new=',  &
    276276                       mtime,' last=',log_event%mtime,' isum=',log_event%isum
    277277             CALL message( 'cpu_log', 'PA0177', 0, 1, -1, 6, 0 )
     
    283283          IF ( log_event%sum < 0.0  .AND.  first )  THEN
    284284             WRITE( message_string, * ) 'negative time interval occured',      &
    285                        ' PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=',  &
     285                       '&PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=',  &
    286286                       log_event%sum,' mtime=',log_event%mtime
    287287             CALL message( 'cpu_log', 'PA0178', 0, 1, -1, 6, 0 )
  • palm/trunk/SOURCE/data_output_2d.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    465465            ntdim_2d_xy(av) )  THEN
    466466          WRITE ( message_string, * ) 'Output of xy cross-sections is not ',   &
    467                           'given at t=', simulated_time, ' because the',       &
     467                          'given at t=', simulated_time, '&because the',       &
    468468                          ' maximum number of output time levels is exceeded.'
    469469          CALL message( 'data_output_2d', 'PA0384', 0, 1, 0, 6, 0 )
     
    474474            ntdim_2d_xz(av) )  THEN
    475475          WRITE ( message_string, * ) 'Output of xz cross-sections is not ',   &
    476                           'given at t=', simulated_time, ' because the',       &
     476                          'given at t=', simulated_time, '&because the',       &
    477477                          ' maximum number of output time levels is exceeded.'
    478478          CALL message( 'data_output_2d', 'PA0385', 0, 1, 0, 6, 0 )
     
    483483            ntdim_2d_yz(av) )  THEN
    484484          WRITE ( message_string, * ) 'Output of yz cross-sections is not ',   &
    485                           'given at t=', simulated_time, ' because the',       &
     485                          'given at t=', simulated_time, '&because the',       &
    486486                          ' maximum number of output time levels is exceeded.'
    487487          CALL message( 'data_output_2d', 'PA0386', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/data_output_3d.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    312312       IF ( do3d_time_count(av) + 1 > ntdim_3d(av) )  THEN
    313313          WRITE ( message_string, * ) 'Output of 3d data is not given at t=',  &
    314                                       simulated_time, ' because the maximum ', &
     314                                      simulated_time, '&because the maximum ', &
    315315                                      'number of output time levels is ',      &
    316316                                      'exceeded.'
  • palm/trunk/SOURCE/init_3d_model.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    26142614       WRITE( message_string, * ) 'number of time series quantities exceeds',  &
    26152615                                  ' its maximum of dots_max = ', dots_max,     &
    2616                                   ' Please increase dots_max in modules.f90.'
     2616                                  '&Please increase dots_max in modules.f90.'
    26172617       CALL message( 'init_3d_model', 'PA0194', 1, 2, 0, 6, 0 )   
    26182618    ENDIF
  • palm/trunk/SOURCE/init_grid.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    655655          WRITE( message_string, * ) 'nzb_local values are outside the',       &
    656656                                ' model domain',                               &
    657                                 ' MINVAL( nzb_local ) = ', nzb_local_min,      &
    658                                 ' MAXVAL( nzb_local ) = ', nzb_local_max
     657                                '&MINVAL( nzb_local ) = ', nzb_local_min,      &
     658                                '&MAXVAL( nzb_local ) = ', nzb_local_max
    659659          CALL message( 'init_grid', 'PA0210', 1, 2, 0, 6, 0 )
    660660       ENDIF
     
    15001500               ( bys < 1 ) .OR. ( byn > ny-1 ) .OR. ( byn < bys+3 ) )  THEN
    15011501             WRITE( message_string, * ) 'inconsistent building parameters:',   &
    1502                                       ' bxl=', bxl, 'bxr=', bxr, 'bys=', bys,  &
     1502                                      '&bxl=', bxl, 'bxr=', bxr, 'bys=', bys,  &
    15031503                                      'byn=', byn, 'nx=', nx, 'ny=', ny
    15041504             CALL message( 'init_grid', 'PA0203', 1, 2, 0, 6, 0 )
     
    15921592                  ( ch < 3 ) )  THEN
    15931593                WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
    1594                                            ' cxl=', cxl, ' cxr=', cxr,         &
     1594                                           '&cxl=', cxl, ' cxr=', cxr,         &
    15951595                                           ' cwx=', cwx,                       &
    15961596                                           ' ch=', ch, ' nx=', nx, ' ny=', ny
     
    16011601                  ( ch < 3 ) )  THEN
    16021602                WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
    1603                                            ' cys=', cys, ' cyn=', cyn,         &
     1603                                           '&cys=', cys, ' cyn=', cyn,         &
    16041604                                           ' cwy=', cwy,                       &
    16051605                                           ' ch=', ch, ' nx=', nx, ' ny=', ny
     
    16101610               canyon_width_y /= 9999999.9_wp )  THEN
    16111611             message_string = 'inconsistent canyon parameters:' //             &   
    1612                               ' street canyon can only be oriented' //         &
     1612                              '&street canyon can only be oriented' //         &
    16131613                              ' either in x- or in y-direction'
    16141614             CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     
    19031903             WRITE( message_string, * )                                        &
    19041904               'The value for "topography_grid_convention" ',                  &
    1905                'is not set. Its default value is only valid for ',             &
     1905               'is not set. Its default value is & only valid for ',           &
    19061906               '"topography" = ''single_building'', ''tunnel'' ',              &
    1907                '''single_street_canyon'' or ''read_from_file''.',              &
    1908                ' Choose ''cell_edge'' or ''cell_center''.'
     1907               '''single_street_canyon'' & or ''read_from_file''.',            &
     1908               '& Choose ''cell_edge'' or ''cell_center''.'
    19091909             CALL message( 'init_grid', 'PA0239', 1, 2, 0, 6, 0 )
    19101910          ELSE
     
    19231923          WRITE( message_string, * )                                           &
    19241924            'The value for "topography_grid_convention" is ',                  &
    1925             'not recognized. Choose ''cell_edge'' or ''cell_center''.'
     1925            'not recognized.& Choose ''cell_edge'' or ''cell_center''.'
    19261926          CALL message( 'init_grid', 'PA0240', 1, 2, 0, 6, 0 )
    19271927       ENDIF
  • palm/trunk/SOURCE/init_masks.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    732732                     'mask_loop(',mid,',',dim,',2)=', mask_loop(mid,dim,2),    &
    733733                     ' exceeds dz_stretch_level=',dz_stretch_level,            &
    734                      '. Vertical mask locations will not ',                    &
     734                     '.&Vertical mask locations will not ',                    &
    735735                     'match the desired heights within the stretching ',       &
    736736                     'region.'
  • palm/trunk/SOURCE/init_pegrid.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    345345       IF ( ( npex * npey ) /= numprocs )  THEN
    346346          WRITE( message_string, * ) 'number of PEs of the prescribed ',       &
    347               'topology (', npex*npey,') does not match the number of ',       &
     347              'topology (', npex*npey,') does not match & the number of ',     &
    348348              'PEs available to the job (', numprocs, ')'
    349349          CALL message( 'init_pegrid', 'PA0221', 1, 2, 0, 6, 0 )
     
    357357!--    PEs must be given in both directions
    358358       message_string = 'if the processor topology is prescribed by th' //     &
    359                 'e user both values of "npex" and "npey" must be given' //     &
     359                'e user & both values of "npex" and "npey" must be given' //   &
    360360                ' in the &NAMELIST-parameter file'
    361361       CALL message( 'init_pegrid', 'PA0222', 1, 2, 0, 6, 0 )
     
    458458    IF ( MOD( nx+1 , pdims(1) ) /= 0 )  THEN
    459459       WRITE( message_string, * ) 'x-direction: gridpoint number (',nx+1,') ', &
    460                                'is not an integral divisor of the number ',    &
     460                               'is not an& integral divisor of the number ',    &
    461461                               'of processors (', pdims(1),')'
    462462       CALL message( 'init_pegrid', 'PA0225', 1, 2, 0, 6, 0 )
     
    476476    IF ( MOD( ny+1 , pdims(2) ) /= 0 )  THEN
    477477       WRITE( message_string, * ) 'y-direction: gridpoint number (',ny+1,') ', &
    478                            'is not an integral divisor of the number of',      &
     478                           'is not an& integral divisor of the number of',      &
    479479                           'processors (', pdims(2),')'
    480480       CALL message( 'init_pegrid', 'PA0227', 1, 2, 0, 6, 0 )
     
    522522          IF ( MOD( nz , pdims(1) ) /= 0 )  THEN
    523523             WRITE( message_string, * ) 'transposition z --> x:',              &
    524                        ' nz=',nz,' is not an integral divisior of pdims(1)=', &
     524                       '& nz=',nz,' is not an integral divisior of pdims(1)=', &
    525525                                                                   pdims(1)
    526526             CALL message( 'init_pegrid', 'PA0230', 1, 2, 0, 6, 0 )
     
    544544       IF ( MOD( nx+1 , pdims(2) ) /= 0 )  THEN
    545545          WRITE( message_string, * ) 'transposition x --> y:',                 &
    546                             ' nx+1=',nx+1,' is not an integral divisor of ',   &
     546                            '& nx+1=',nx+1,' is not an integral divisor of ',  &
    547547                            'pdims(2)=',pdims(2)
    548548          CALL message( 'init_pegrid', 'PA0231', 1, 2, 0, 6, 0 )
     
    573573          IF ( MOD( ny+1 , pdims(1) ) /= 0 )  THEN
    574574             WRITE( message_string, * ) 'transposition y --> z:',              &
    575                                ' ny+1=',ny+1,' is not an integral divisor of', &
     575                               '& ny+1=',ny+1,' is not an integral divisor of',&
    576576                               ' pdims(1)=',pdims(1)
    577577             CALL message( 'init_pegrid', 'PA0232', 1, 2, 0, 6, 0 )
     
    584584          IF ( MOD( ny+1 , pdims(1) ) /= 0 )  THEN
    585585             WRITE( message_string, * ) 'transposition x --> y:',              &
    586                                ' ny+1=',ny+1,' is not an integral divisor of', &
     586                               '& ny+1=',ny+1,' is not an integral divisor of',&
    587587                               ' pdims(1)=',pdims(1)
    588588             CALL message( 'init_pegrid', 'PA0233', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    13771377             message_string = 'vegetation_type = 1 (bare soil)'//              &
    13781378                              ' requires vegetation_coverage = 0'
    1379              CALL message( 'lsm_check_parameters', 'PA0471', 1, 2, 0, 6, 0 )
     1379             CALL message( 'lsm_check_parameters', 'PA0294', 1, 2, 0, 6, 0 )
    13801380          ENDIF
    13811381       ENDIF
     
    48254825
    48264826       message_string = 'namelist lsm_par is deprecated and will be ' // &
    4827                      'removed in near future. Please &use namelist ' //  &
     4827                     'removed in near future. Please use namelist ' //   &
    48284828                     'land_surface_parameters instead'
    48294829       CALL message( 'lsm_parin', 'PA0487', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    735735!--    Check nudging and large scale forcing from external file
    736736       IF ( nudging  .AND.  (  .NOT.  large_scale_forcing ) )  THEN
    737           message_string = 'Nudging requires large_scale_forcing = .T.. '//    &
    738                         'Surface fluxes and geostrophic wind should be '//     &
     737          message_string = 'Nudging requires large_scale_forcing = .T.. &'//   &
     738                        'Surface fluxes and geostrophic wind should be &'//    &
    739739                        'prescribed in file LSF_DATA'
    740740          CALL message( 'check_parameters', 'PA0374', 1, 2, 0, 6, 0 )
     
    743743       IF ( large_scale_forcing  .AND.  ( bc_lr /= 'cyclic'  .OR.              &
    744744                                          bc_ns /= 'cyclic' ) )  THEN
    745           message_string = 'Non-cyclic lateral boundaries do not allow for  '//&
     745          message_string = 'Non-cyclic lateral boundaries do not allow for &'//&
    746746                        'the usage of large scale forcing from external file.'
    747747          CALL message( 'check_parameters', 'PA0375', 1, 2, 0, 6, 0 )
     
    749749
    750750       IF ( large_scale_forcing  .AND.  (  .NOT.  humidity ) )  THEN
    751           message_string = 'The usage of large scale forcing from external  '//&
     751          message_string = 'The usage of large scale forcing from external &'//&
    752752                        'file LSF_DATA requires humidity = .T..'
    753753          CALL message( 'check_parameters', 'PA0376', 1, 2, 0, 6, 0 )
     
    755755
    756756       IF ( large_scale_forcing  .AND.  passive_scalar )  THEN
    757           message_string = 'The usage of large scale forcing from external '// &
     757          message_string = 'The usage of large scale forcing from external &'// &
    758758                        'file LSF_DATA is not implemented for passive scalars'
    759759          CALL message( 'check_parameters', 'PA0440', 1, 2, 0, 6, 0 )
     
    762762       IF ( large_scale_forcing  .AND.  topography /= 'flat'                   &
    763763                              .AND.  .NOT.  lsf_exception )  THEN
    764           message_string = 'The usage of large scale forcing from external  '//&
     764          message_string = 'The usage of large scale forcing from external &'//&
    765765                        'file LSF_DATA is not implemented for non-flat topography'
    766766          CALL message( 'check_parameters', 'PA0377', 1, 2, 0, 6, 0 )
     
    768768
    769769       IF ( large_scale_forcing  .AND.  ocean )  THEN
    770           message_string = 'The usage of large scale forcing from external '// &
     770          message_string = 'The usage of large scale forcing from external &'//&
    771771                        'file LSF_DATA is not implemented for ocean runs'
    772772          CALL message( 'check_parameters', 'PA0378', 1, 2, 0, 6, 0 )
     
    12841284             IF ( ierrn /= 0 )  THEN
    12851285               WRITE ( message_string, * ) 'No time dependent surface ' //     &
    1286                                  'variables in LSF_DATA for end of run found'
     1286                                 'variables in & LSF_DATA for end of run found'
    12871287
    12881288                CALL message( 'ls_forcing', 'PA0363', 1, 2, 0, 6, 0 )
     
    12921292          IF ( time_surf(1) > end_time )  THEN
    12931293             WRITE ( message_string, * ) 'Time dependent surface variables in ' // &
    1294                                          'LSF_DATA set in after end of ' ,         &
     1294                                         '&LSF_DATA set in after end of ' ,        &
    12951295                                         'simulation - lsf_surf is set to FALSE'
    12961296             CALL message( 'ls_forcing', 'PA0371', 0, 0, 0, 6, 0 )
     
    13191319                IF ( ierrn < 0 )  THEN
    13201320                   WRITE( message_string, * ) 'No time dependent vertical profiles',&
    1321                                     ' in LSF_DATA for end of run found'
     1321                                    ' in & LSF_DATA for end of run found'
    13221322                   CALL message( 'ls_forcing', 'PA0372', 1, 2, 0, 6, 0 )
    13231323                ENDIF
  • palm/trunk/SOURCE/lpm_droplet_condensation.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    384384       IF ( ql_c(kp,jp,ip) > 100.0_wp )  THEN
    385385          WRITE( message_string, * ) 'k=',kp,' j=',jp,' i=',ip,                &
    386                        ' ql_c=',ql_c(kp,jp,ip), ' part(',n,')%wf=',            &
     386                       ' ql_c=',ql_c(kp,jp,ip), '&part(',n,')%wf=',            &
    387387                       particles(n)%weight_factor,' delta_r=',delta_r
    388388          CALL message( 'lpm_droplet_condensation', 'PA0143', 2, 2, -1, 6, 1 )
     
    395395          WRITE( message_string, * ) '#1 k=',kp,' j=',jp,' i=',ip,             &
    396396                       ' e_s=',e_s, ' e_a=',e_a,' t_int=',t_int,               &
    397                        ' delta_r=',delta_r,                                    &
     397                       '&delta_r=',delta_r,                                    &
    398398                       ' particle_radius=',particles(n)%radius
    399399          CALL message( 'lpm_droplet_condensation', 'PA0144', 2, 2, -1, 6, 1 )
  • palm/trunk/SOURCE/lpm_exchange_horiz.f90

    r2809 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    11651165                   THEN
    11661166                      WRITE( message_string, * )                               &
    1167                       'Particle violated CFL-criterion: particle with id ',    &
    1168                       particles(n)%id,' will be deleted!'   
     1167                      'Particle violated CFL-criterion: &particle with id ',   &
     1168                      particles(n)%id, ' will be deleted!'   
    11691169                      CALL message( 'lpm_check_cfl', 'PA0475', 0, 1, -1, 6, 0 )
    11701170                      particles(n)%particle_mask= .FALSE.
  • palm/trunk/SOURCE/lpm_init.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    338338       WRITE( message_string, * ) 'max_number_of_particle_groups =',           &
    339339                                  max_number_of_particle_groups ,              &
    340                                   ' number_of_particle_groups reset to ',      &
     340                                  '&number_of_particle_groups reset to ',      &
    341341                                  max_number_of_particle_groups
    342342       CALL message( 'lpm_init', 'PA0213', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/lpm_read_restart_file.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    130130    IF ( TRIM( version_on_file ) /= TRIM( particle_binary_version ) )  THEN
    131131       message_string = 'version mismatch concerning data from prior ' //      &
    132                         'run version on file = "' //                           &
     132                        'run &version on file = "' //                          &
    133133                                      TRIM( version_on_file ) //               &
    134                         ' version in program = "' //                           &
     134                        '&version in program = "' //                           &
    135135                                      TRIM( particle_binary_version ) // '"'
    136136       CALL message( 'lpm_read_restart_file', 'PA0214', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/model_1d_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    10351035       stop_dt_1d = .TRUE.
    10361036
    1037        WRITE( message_string, * ) 'timestep has exceeded the lower limit ',    &
     1037       WRITE( message_string, * ) 'timestep has exceeded the lower limit&',    &
    10381038                                  'dt_1d = ',dt_1d,' s   simulation stopped!'
    10391039       CALL message( 'timestep_1d', 'PA0192', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    18971897                                       '(level of detail) is not set ' //      &
    18981898                                       'properly for buildings_2d.'
    1899                       CALL message( 'netcdf_data_input_mod', 'NDI000',         &
     1899                      CALL message( 'netcdf_data_input_mod', 'PA0457',         &
    19001900                                     1, 2, 0, 6, 0 )
    19011901                   ENDIF
     
    19351935                                       '(level of detail) is not set ' //      &
    19361936                                       'properly for buildings_3d.'
    1937                       CALL message( 'netcdf_data_input_mod', 'NDI001',         &
     1937                      CALL message( 'netcdf_data_input_mod', 'PA0457',         &
    19381938                                     1, 2, 0, 6, 0 )
    19391939                   ENDIF
  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    712712       IF ( netcdf_deflate < 0  .OR.  netcdf_deflate > 9 )  THEN
    713713          WRITE ( message_string, '(A,I3,A)' ) 'netcdf_deflate out of ' //     &
    714                                       'range given value: ', netcdf_deflate,  &
     714                                      'range & given value: ', netcdf_deflate, &
    715715                                      ', allowed range: 0-9'
    716716          CALL message( 'netcdf_define_header', 'PA0355', 2, 2, 0, 6, 0 )
     
    11921192             WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ),       &
    11931193                  ' data for mask', mid, ' from previous run found,',           &
    1194                   ' but this file cannot be extended due to variable ',         &
    1195                   'mismatch. New file is created instead.'
     1194                  '&but this file cannot be extended due to variable ',         &
     1195                  'mismatch.&New file is created instead.'
    11961196             CALL message( 'define_netcdf_header', 'PA0335', 0, 1, 0, 6, 0 )
    11971197             extend = .FALSE.
     
    12181218          IF ( mask_size(mid,3) /= nz_old )  THEN
    12191219             WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ),      &
    1220                   ' data for mask', mid, ' from previous run found,',          &
     1220                  '&data for mask', mid, ' from previous run found,',          &
    12211221                  ' but this file cannot be extended due to mismatch in ',     &
    12221222                  ' number of vertical grid points.',                          &
    1223                   ' New file is created instead.'
     1223                  '&New file is created instead.'
    12241224             CALL message( 'define_netcdf_header', 'PA0336', 0, 1, 0, 6, 0 )
    12251225             extend = .FALSE.
     
    12571257             WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ),      &
    12581258                  ' data for mask', mid, ' from previous run found,',          &
    1259                   ' but this file cannot be extended because the current ',    &
     1259                  '&but this file cannot be extended because the current ',    &
    12601260                  'output time is less or equal than the last output time ',   &
    1261                   'on this file. New file is created instead.'
     1261                  'on this file.&New file is created instead.'
    12621262             CALL message( 'define_netcdf_header', 'PA0337', 0, 1, 0, 6, 0 )
    12631263             domask_time_count(mid,av) = 0
     
    13011301          WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ),         &
    13021302               ' data for mask', mid, ' from previous run found.',             &
    1303                ' This file will be extended.'
     1303               ' &This file will be extended.'
    13041304          CALL message( 'define_netcdf_header', 'PA0338', 0, 0, 0, 6, 0 )
    13051305!
     
    17611761             message_string = 'netCDF file for volume data ' //             &
    17621762                              TRIM( var ) // ' from previous run found,' // &
    1763                               ' but this file cannot be extended due to' // &
     1763                              '&but this file cannot be extended due to' // &
    17641764                              ' variable mismatch.' //                      &
    1765                               ' New file is created instead.'
     1765                              '&New file is created instead.'
    17661766             CALL message( 'define_netcdf_header', 'PA0245', 0, 1, 0, 6, 0 )
    17671767             extend = .FALSE.
     
    17861786              message_string = 'netCDF file for volume data ' //             &
    17871787                               TRIM( var ) // ' from previous run found,' // &
    1788                                ' but this file cannot be extended due to' // &
     1788                               '&but this file cannot be extended due to' // &
    17891789                               ' mismatch in number of' //                   &
    17901790                               ' vertical grid points (nz_do3d).' //         &
    1791                                ' New file is created instead.'
     1791                               '&New file is created instead.'
    17921792             CALL message( 'define_netcdf_header', 'PA0246', 0, 1, 0, 6, 0 )
    17931793             extend = .FALSE.
     
    18291829             message_string = 'netCDF file for volume data ' //             &
    18301830                              TRIM( var ) // ' from previous run found,' // &
    1831                               ' but this file cannot be extended becaus' // &
     1831                              '&but this file cannot be extended becaus' // &
    18321832                              'e the current output time' //                &
    1833                               ' is less or equal than the last output t' // &
     1833                              '&is less or equal than the last output t' // &
    18341834                              'ime on this file.' //                        &
    1835                               ' New file is created instead.'
     1835                              '&New file is created instead.'
    18361836             CALL message( 'define_netcdf_header', 'PA0247', 0, 1, 0, 6, 0 )
    18371837             do3d_time_count(av) = 0
     
    18471847                message_string = 'netCDF file for volume data ' // &
    18481848                                 TRIM( var ) // ' from previous run found,' // &
    1849                                  ' but this file cannot be extended becaus' // &
     1849                                 '&but this file cannot be extended becaus' // &
    18501850                                 'e the number of output time levels has b' // &
    18511851                                 'een increased compared to the previous s' // &
    18521852                                 'imulation.' //                               &
    1853                                  ' New file is created instead.'
     1853                                 '&New file is created instead.'
    18541854                CALL message( 'define_netcdf_header', 'PA0388', 0, 1, 0, 6, 0 )
    18551855                do3d_time_count(av) = 0
     
    19171917          message_string = 'netCDF file for volume data ' //             &
    19181918                           TRIM( var ) // ' from previous run found.' // &
    1919                            ' This file will be extended.'
     1919                           '&This file will be extended.'
    19201920          CALL message( 'define_netcdf_header', 'PA0248', 0, 0, 0, 6, 0 )
    19211921
     
    24752475             message_string = 'netCDF file for cross-sections ' //           &
    24762476                              TRIM( var ) // ' from previous run found,' //  &
    2477                               ' but this file cannot be extended due to' //  &
     2477                              '&but this file cannot be extended due to' //  &
    24782478                              ' variable mismatch.' //                       &
    2479                               ' New file is created instead.'
     2479                              '&New file is created instead.'
    24802480             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    24812481             extend = .FALSE.
     
    25082508             message_string = 'netCDF file for cross-sections ' //          &
    25092509                              TRIM( var ) // ' from previous run found,' // &
    2510                               ' but this file cannot be extended due to' // &
     2510                              '&but this file cannot be extended due to' // &
    25112511                              ' mismatch in number of' //                   &
    25122512                              ' cross sections.' //                         &
    2513                               ' New file is created instead.'
     2513                              '&New file is created instead.'
    25142514             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    25152515             extend = .FALSE.
     
    25892589             message_string = 'netCDF file for cross sections ' //             &
    25902590                              TRIM( var ) // ' from previous run found,' //    &
    2591                               ' but this file cannot be extended becaus' //    &
     2591                              '&but this file cannot be extended becaus' //    &
    25922592                              'e the current output time' //                   &
    2593                               ' is less or equal than the last output t' //    &
     2593                              '&is less or equal than the last output t' //    &
    25942594                              'ime on this file.' //                           &
    2595                               ' New file is created instead.'
     2595                              '&New file is created instead.'
    25962596             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    25972597             do2d_xy_time_count(av) = 0
     
    26072607                message_string = 'netCDF file for cross sections ' //          &
    26082608                                 TRIM( var ) // ' from previous run found,' // &
    2609                                  ' but this file cannot be extended becaus' // &
     2609                                 '&but this file cannot be extended becaus' // &
    26102610                                 'e the number of output time levels has b' // &
    26112611                                 'een increased compared to the previous s' // &
    26122612                                 'imulation.' //                               &
    2613                                  ' New file is created instead.'
     2613                                 '&New file is created instead.'
    26142614                CALL message( 'define_netcdf_header', 'PA0389', 0, 1, 0, 6, 0 )
    26152615                do2d_xy_time_count(av) = 0
     
    26792679          message_string = 'netCDF file for cross-sections ' //                &
    26802680                            TRIM( var ) // ' from previous run found.' //      &
    2681                            ' This file will be extended.'
     2681                           '&This file will be extended.'
    26822682          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
    26832683         
     
    31183118             message_string = 'netCDF file for cross-sections ' //           &
    31193119                              TRIM( var ) // ' from previous run found,' //  &
    3120                               ' but this file cannot be extended due to' //  &
     3120                              '&but this file cannot be extended due to' //  &
    31213121                              ' variable mismatch.' //                       &
    3122                               ' New file is created instead.'
     3122                              '&New file is created instead.'
    31233123             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    31243124             extend = .FALSE.
     
    31513151             message_string = 'netCDF file for cross-sections ' //          &
    31523152                              TRIM( var ) // ' from previous run found,' // &
    3153                               ' but this file cannot be extended due to' // &
     3153                              '&but this file cannot be extended due to' // &
    31543154                              ' mismatch in number of' //                   &
    31553155                              ' cross sections.' //                         &
    3156                               ' New file is created instead.'
     3156                              '&New file is created instead.'
    31573157             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    31583158             extend = .FALSE.
     
    32323232             message_string = 'netCDF file for cross sections ' //             &
    32333233                              TRIM( var ) // ' from previous run found,' //    &
    3234                               ' but this file cannot be extended becaus' //    &
     3234                              '&but this file cannot be extended becaus' //    &
    32353235                              'e the current output time' //                   &
    3236                               ' is less or equal than the last output t' //    &
     3236                              '&is less or equal than the last output t' //    &
    32373237                              'ime on this file.' //                           &
    3238                               ' New file is created instead.'
     3238                              '&New file is created instead.'
    32393239             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    32403240             do2d_xz_time_count(av) = 0
     
    32503250                message_string = 'netCDF file for cross sections ' // &
    32513251                                 TRIM( var ) // ' from previous run found,' // &
    3252                                  ' but this file cannot be extended becaus' // &
     3252                                 '&but this file cannot be extended becaus' // &
    32533253                                 'e the number of output time levels has b' // &
    32543254                                 'een increased compared to the previous s' // &
    32553255                                 'imulation.' //                               &
    3256                                  ' New file is created instead.'
     3256                                 '&New file is created instead.'
    32573257                CALL message( 'define_netcdf_header', 'PA0390', 0, 1, 0, 6, 0 )
    32583258                do2d_xz_time_count(av) = 0
     
    33383338          message_string = 'netCDF file for cross-sections ' //                &
    33393339                            TRIM( var ) // ' from previous run found.' //      &
    3340                            ' This file will be extended.'
     3340                           '&This file will be extended.'
    33413341          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
    33423342
     
    37643764             message_string = 'netCDF file for cross-sections ' //           &
    37653765                              TRIM( var ) // ' from previous run found,' //  &
    3766                               ' but this file cannot be extended due to' //  &
     3766                              '&but this file cannot be extended due to' //  &
    37673767                              ' variable mismatch.' //                       &
    3768                               ' New file is created instead.'
     3768                              '&New file is created instead.'
    37693769             CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
    37703770             extend = .FALSE.
     
    37973797             message_string = 'netCDF file for cross-sections ' //          &
    37983798                              TRIM( var ) // ' from previous run found,' // &
    3799                               ' but this file cannot be extended due to' // &
     3799                              '&but this file cannot be extended due to' // &
    38003800                              ' mismatch in number of' //                   &
    38013801                              ' cross sections.' //                         &
    3802                               ' New file is created instead.'
     3802                              '&New file is created instead.'
    38033803             CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
    38043804             extend = .FALSE.
     
    38783878             message_string = 'netCDF file for cross sections ' //             &
    38793879                              TRIM( var ) // ' from previous run found,' //    &
    3880                               ' but this file cannot be extended becaus' //    &
     3880                              '&but this file cannot be extended becaus' //    &
    38813881                              'e the current output time' //                   &
    3882                               ' is less or equal than the last output t' //    &
     3882                              '&is less or equal than the last output t' //    &
    38833883                              'ime on this file.' //                           &
    3884                               ' New file is created instead.'
     3884                              '&New file is created instead.'
    38853885             CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
    38863886             do2d_yz_time_count(av) = 0
     
    38963896                message_string = 'netCDF file for cross sections ' //          &
    38973897                                 TRIM( var ) // ' from previous run found,' // &
    3898                                  ' but this file cannot be extended becaus' // &
     3898                                 '&but this file cannot be extended becaus' // &
    38993899                                 'e the number of output time levels has b' // &
    39003900                                 'een increased compared to the previous s' // &
    39013901                                 'imulation.' //                               &
    3902                                  ' New file is created instead.'
     3902                                 '&New file is created instead.'
    39033903                CALL message( 'define_netcdf_header', 'PA0391', 0, 1, 0, 6, 0 )
    39043904                do2d_yz_time_count(av) = 0
     
    39843984          message_string = 'netCDF file for cross-sections ' //                &
    39853985                            TRIM( var ) // ' from previous run found.' //      &
    3986                            ' This file will be extended.'
     3986                           '&This file will be extended.'
    39873987          CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
    39883988
     
    41174117          IF ( cross_profiles_count >= crmax )  THEN
    41184118             message_string = 'It is not allowed to arrange more than '        &
    4119                               // '100 profiles with cross_profiles. Apart'     &
    4120                               // ' from that, all profiles are saved to '      &
     4119                              // '100 profiles with & cross_profiles. Apart'   &
     4120                              // ' from that, all profiles are saved & to '    &
    41214121                              // 'the netCDF file.'
    41224122             CALL message( 'define_netcdf_header', 'PA0354', 0, 0, 0, 6, 0 )
     
    42924292             message_string = 'netCDF file for vertical profiles ' //          &
    42934293                              'from previous run found,' //                    &
    4294                               ' but this file cannot be extended due to' //    &
     4294                              '&but this file cannot be extended due to' //    &
    42954295                              ' variable mismatch.' //                         &
    4296                               ' New file is created instead.'
     4296                              '&New file is created instead.'
    42974297             CALL message( 'define_netcdf_header', 'PA0254', 0, 1, 0, 6, 0 )
    42984298             extend = .FALSE.
     
    43264326             message_string = 'netCDF file for vertical profiles ' //          &
    43274327                              'from previous run found,' //                    &
    4328                               ' but this file cannot be extended becaus' //    &
     4328                              '&but this file cannot be extended becaus' //    &
    43294329                              'e the current output time' //                   &
    4330                               ' is less or equal than the last output t' //    &
     4330                              '&is less or equal than the last output t' //    &
    43314331                              'ime on this file.' //                           &
    4332                               ' New file is created instead.'
     4332                              '&New file is created instead.'
    43334333             CALL message( 'define_netcdf_header', 'PA0255', 0, 1, 0, 6, 0 )
    43344334             dopr_time_count = 0
     
    43924392          message_string = 'netCDF file for vertical profiles ' //             &
    43934393                           'from previous run found.' //                       &
    4394                            ' This file will be extended.'
     4394                           '&This file will be extended.'
    43954395          CALL message( 'define_netcdf_header', 'PA0256', 0, 0, 0, 6, 0 )
    43964396
     
    44914491             message_string = 'netCDF file for time series ' //                &
    44924492                              'from previous run found,' //                    &
    4493                               ' but this file cannot be extended due to' //    &
     4493                              '&but this file cannot be extended due to' //    &
    44944494                              ' variable mismatch.' //                         &
    4495                               ' New file is created instead.'
     4495                              '&New file is created instead.'
    44964496             CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 )
    44974497             extend = .FALSE.
     
    45254525             message_string = 'netCDF file for time series ' //                &
    45264526                              'from previous run found,' //                    &
    4527                               ' but this file cannot be extended becaus' //    &
     4527                              '&but this file cannot be extended becaus' //    &
    45284528                              'e the current output time' //                   &
    4529                               ' is less or equal than the last output t' //    &
     4529                              '&is less or equal than the last output t' //    &
    45304530                              'ime on this file.' //                           &
    4531                               ' New file is created instead.'
     4531                              '&New file is created instead.'
    45324532             CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 )
    45334533             dots_time_count = 0
     
    45744574          message_string = 'netCDF file for time series ' //                   &
    45754575                           'from previous run found.' //                       &
    4576                            ' This file will be extended.'
     4576                           '&This file will be extended.'
    45774577          CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 )
    45784578
     
    48084808             message_string = 'netCDF file for spectra  ' //                   &
    48094809                              'from previous run found,' //                    &
    4810                               ' but this file cannot be extended due to' //    &
     4810                              '&but this file cannot be extended due to' //    &
    48114811                              ' variable mismatch.' //                         &
    4812                               ' New file is created instead.'
     4812                              '&New file is created instead.'
    48134813             CALL message( 'define_netcdf_header', 'PA0260', 0, 1, 0, 6, 0 )
    48144814             extend = .FALSE.
     
    48424842             message_string = 'netCDF file for spectra ' //                    &
    48434843                              ' from previous run found,' //                   &
    4844                               ' but this file cannot be extended due to' //    &
     4844                              '&but this file cannot be extended due to' //    &
    48454845                              ' mismatch in number of' //                      &
    48464846                              ' vertical levels.' //                           &
    4847                               ' New file is created instead.'
     4847                              '&New file is created instead.'
    48484848             CALL message( 'define_netcdf_header', 'PA0261', 0, 1, 0, 6, 0 )
    48494849             extend = .FALSE.
     
    48624862                message_string = 'netCDF file for spectra ' //                 &
    48634863                                 ' from previous run found,' //                &
    4864                                  ' but this file cannot be extended due to' // &
     4864                                 '&but this file cannot be extended due to' // &
    48654865                                 ' mismatch in heights of' //                  &
    48664866                                 ' vertical levels.' //                        &
    4867                                  ' New file is created instead.'
     4867                                 '&New file is created instead.'
    48684868                CALL message( 'define_netcdf_header', 'PA0262', 0, 1, 0, 6, 0 )
    48694869                extend = .FALSE.
     
    49004900             message_string = 'netCDF file for spectra ' //                    &
    49014901                              'from previous run found,' //                    &
    4902                               ' but this file cannot be extended becaus' //    &
     4902                              '&but this file cannot be extended becaus' //    &
    49034903                              'e the current output time' //                   & 
    4904                               ' is less or equal than the last output t' //    &
     4904                              '&is less or equal than the last output t' //    &
    49054905                              'ime on this file.' //                           &
    4906                               ' New file is created instead.'
     4906                              '&New file is created instead.'
    49074907             CALL message( 'define_netcdf_header', 'PA0263', 0, 1, 0, 6, 0 )
    49084908             dosp_time_count = 0
     
    49644964          message_string = 'netCDF file for spectra ' //                       &
    49654965                           'from previous run found.' //                       &
    4966                            ' This file will be extended.'
     4966                           '&This file will be extended.'
    49674967          CALL message( 'define_netcdf_header', 'PA0264', 0, 0, 0, 6, 0 )
    49684968
     
    50465046!             message_string = 'netCDF file for particles ' //                  &
    50475047!                              'from previous run found,' //                    &
    5048 !                              ' but this file cannot be extended becaus' //    &
     5048!                              '&but this file cannot be extended becaus' //    &
    50495049!                              'e the current output time' //                   &
    5050 !                              ' is less or equal than the last output t' //    &
     5050!                              '&is less or equal than the last output t' //    &
    50515051!                              'ime on this file.' //                           &
    5052 !                              ' New file is created instead.'
     5052!                              '&New file is created instead.'
    50535053!             CALL message( 'define_netcdf_header', 'PA0265', 0, 1, 0, 6, 0 )
    50545054!             prt_time_count = 0
     
    50745074!          message_string = 'netCDF file for particles ' //                     &
    50755075!                           'from previous run found.' //                       &
    5076 !                           ' This file will be extended.'
     5076!                           '&This file will be extended.'
    50775077!          CALL message( 'define_netcdf_header', 'PA0266', 0, 0, 0, 6, 0 )
    50785078       
     
    51825182             message_string = 'netCDF file for particle time series ' //       &
    51835183                              'from previous run found,' //                    &
    5184                               ' but this file cannot be extended due to' //    &
     5184                              '&but this file cannot be extended due to' //    &
    51855185                              ' variable mismatch.' //                         &
    5186                               ' New file is created instead.'
     5186                              '&New file is created instead.'
    51875187             CALL message( 'define_netcdf_header', 'PA0267', 0, 1, 0, 6, 0 )
    51885188             extend = .FALSE.
     
    52165216             message_string = 'netCDF file for particle time series ' //       &
    52175217                              'from previous run found,' //                    &
    5218                               ' but this file cannot be extended becaus' //    &
     5218                              '&but this file cannot be extended becaus' //    &
    52195219                              'e the current output time' //                   &
    5220                               ' is less or equal than the last output t' //    &
     5220                              '&is less or equal than the last output t' //    &
    52215221                              'ime on this file.' //                           &
    5222                               ' New file is created instead.'
     5222                              '&New file is created instead.'
    52235223             CALL message( 'define_netcdf_header', 'PA0268', 0, 1, 0, 6, 0 )
    52245224             dopts_time_count = 0
     
    52695269          message_string = 'netCDF file for particle time series ' //          &
    52705270                           'from previous run found.' //                       &
    5271                            ' This file will be extended.'
     5271                           '&This file will be extended.'
    52725272          CALL message( 'netcdf_define_header', 'PA0269', 0, 0, 0, 6, 0 )
    52735273
     
    53625362             message_string = 'netCDF file for flight time series ' //         &
    53635363                              'from previous run found,' //                    &
    5364                               ' but this file cannot be extended due to' //    &
     5364                              '&but this file cannot be extended due to' //    &
    53655365                              ' variable mismatch.' //                         &
    5366                               ' New file is created instead.'
     5366                              '&New file is created instead.'
    53675367             CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 )
    53685368             extend = .FALSE.
     
    53965396             message_string = 'netCDF file for flight-time series ' //         &
    53975397                              'from previous run found,' //                    &
    5398                               ' but this file cannot be extended becaus' //    &
     5398                              '&but this file cannot be extended becaus' //    &
    53995399                              'e the current output time' //                   &
    5400                               ' is less or equal than the last output t' //    &
     5400                              '&is less or equal than the last output t' //    &
    54015401                              'ime on this file.' //                           &
    5402                               ' New file is created instead.'
     5402                              '&New file is created instead.'
    54035403             CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 )
    54045404             dofl_time_count = 0
     
    54485448          message_string = 'netCDF file for flight-time series ' //            &
    54495449                           'from previous run found.' //                       &
    5450                            ' This file will be extended.'
     5450                           '&This file will be extended.'
    54515451          CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 )
    54525452
  • palm/trunk/SOURCE/package_parin.f90

    r2932 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    340340   
    341341    message_string = 'namelist particles_par is deprecated and will be ' //    &
    342                      'removed in near future. Please &use namelist ' //        &
     342                     'removed in near future. Please use namelist ' //         &
    343343                     'particle_parameters instead'
    344344    CALL message( 'package_parin', 'PA0487', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/parin.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    679679    IF ( ioerr /= 0 )  THEN
    680680       message_string = 'local file ENVPAR not found' //                       &
    681                         ' some variables for steering may not be properly set'
     681                        '&some variables for steering may not be properly set'
    682682       CALL message( 'parin', 'PA0276', 0, 1, 0, 6, 0 )
    683683    ELSE
     
    685685       IF ( ioerr < 0 )  THEN
    686686          message_string = 'no envpar-NAMELIST found in local file '  //       &
    687                            'ENVPAR or some variables for steering may '  //    &
     687                           'ENVPAR& or some variables for steering may '  //   &
    688688                           'not be properly set'
    689689          CALL message( 'parin', 'PA0278', 0, 1, 0, 6, 0 )
    690690       ELSEIF ( ioerr > 0 )  THEN
    691691          message_string = 'errors in local file ENVPAR' //                    &
    692                            ' some variables for steering may not be properly set'
     692                           '&some variables for steering may not be properly set'
    693693          CALL message( 'parin', 'PA0277', 0, 1, 0, 6, 0 )
    694694       ENDIF
     
    745745          GOTO 12
    746746
    747  10       message_string = 'errors in &initialization_parameters or no ' //    &
    748                            '&initialization_parameters-namelist ' //           &
     747 10       message_string = 'errors in initialization_parameters & or no ' //  &
     748                           'initialization_parameters-namelist ' //           &
    749749                           'found (CRAY-machines only)'
    750750          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
     
    753753          READ ( 11, inipar, ERR=13, END=14 )
    754754 
    755           message_string = 'namelist &inipar is deprecated and will be ' //    &
    756                           'removed in near future. Please use namelist ' //    &
    757                           '&initialization_parameters instead'
     755          message_string = 'namelist inipar is deprecated and will be ' //    &
     756                          'removed in near future. & Please use namelist ' // &
     757                          'initialization_parameters instead'
    758758          CALL message( 'parin', 'PA0017', 0, 1, 0, 6, 0 )
    759759 
    760760          GOTO 12
    761761 
    762  13       message_string = 'errors in inipar  or no inipar-namelist ' //       &
     762 13       message_string = 'errors in inipar & or no inipar-namelist ' //      &
    763763                           'found (CRAY-machines only)'
    764764          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
    765765         
    766  14       message_string = 'no &initialization_parameters-namelist found'
     766 14       message_string = 'no initialization_parameters-namelist found'
    767767          CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 )
    768768
     
    799799 
    800800          message_string = 'namelist d3par is deprecated and will be ' //      &
    801                           'removed in near future. Please &use namelist ' //   &
     801                          'removed in near future. &Please use namelist ' //   &
    802802                          'runtime_parameters instead'
    803803          CALL message( 'parin', 'PA0487', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/plant_canopy_model_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    362362       IF ( canopy_drag_coeff == 0.0_wp )  THEN
    363363          message_string = 'plant_canopy = .TRUE. requires a non-zero drag '// &
    364                            'coefficient, given value is canopy_drag_coeff = 0.0'
     364                           'coefficient & given value is canopy_drag_coeff = 0.0'
    365365          CALL message( 'pcm_check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
    366366       ENDIF
     
    10531053
    10541054       message_string = 'namelist canopy_par is deprecated and will be ' // &
    1055                      'removed in near future. Please &use namelist ' //     &
     1055                     'removed in near future. Please use namelist ' //      &
    10561056                     'plant_canopy_parameters instead'
    10571057       CALL message( 'pcm_parin', 'PA0487', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/pmc_interface_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    41104110       IF ( end_time /= end_time_root )  THEN
    41114111          WRITE( message_string, * )  'mismatch between root model and ',      &
    4112                'child settings: end_time(root) = ', end_time_root,             &
    4113                ' end_time(child) = ', end_time, ' child value is set',         &
     4112               'child settings:& end_time(root) = ', end_time_root,            &
     4113               '& end_time(child) = ', end_time, '& child value is set',       &
    41144114               ' to root value'
    41154115          CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
     
    41264126       IF ( restart_time /= restart_time_root )  THEN
    41274127          WRITE( message_string, * )  'mismatch between root model and ',      &
    4128                'child settings: restart_time(root) = ', restart_time_root,     &
    4129                ' restart_time(child) = ', restart_time, ' child ',             &
     4128               'child settings: & restart_time(root) = ', restart_time_root,   &
     4129               '& restart_time(child) = ', restart_time, '& child ',           &
    41304130               'value is set to root value'
    41314131          CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
     
    41424142       IF ( dt_restart /= dt_restart_root )  THEN
    41434143          WRITE( message_string, * )  'mismatch between root model and ',      &
    4144                'child settings: dt_restart(root) = ', dt_restart_root,          &
    4145                ' dt_restart(child) = ', dt_restart, ' child ',                 &
     4144               'child settings: & dt_restart(root) = ', dt_restart_root,       &
     4145               '& dt_restart(child) = ', dt_restart, '& child ',               &
    41464146               'value is set to root value'
    41474147          CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
     
    41584158       IF ( time_restart /= time_restart_root )  THEN
    41594159          WRITE( message_string, * )  'mismatch between root model and ',      &
    4160                'child settings: time_restart(root) = ', time_restart_root,  &
    4161                ' time_restart(child) = ', time_restart, ' child ',             &
     4160               'child settings: & time_restart(root) = ', time_restart_root,   &
     4161               '& time_restart(child) = ', time_restart, '& child ',           &
    41624162               'value is set to root value'
    41634163          CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
  • palm/trunk/SOURCE/pmc_parent_mod.f90

    r2841 r3046  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Comment extended
    2424!
    2525! Former revisions:
     
    599599    ENDDO
    600600!
    601 !-- Create RMA (one sided communication) data buffer.
     601!-- Create RMA (one sided communication, RMA = Remote Memory Access) data buffer.
    602602!-- The buffer for MPI_GET can be PE local, i.e. it can but must not be part of
    603603!-- the MPI RMA window
  • palm/trunk/SOURCE/pmc_particle_interface.f90

    r2967 r3046  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! Error messages revised
    2424!
    2525! Former revisions:
     
    206206       IF ( ibc_par_t /= 3 )   THEN
    207207          ibc_par_t  = 3
    208           message_string = 'In Child model:  bc_par_t is automatically set to nested '
    209           CALL message( 'pmcp_g_init ', 'PA0477', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
     208          message_string = 'In Child model:  ibc_par_t is automatically set to nested '
     209          CALL message( 'pmcp_g_init ', 'PA0477', 0, 1, 0, 6, 0 )
    210210       ENDIF
    211211   
    212212       IF ( ibc_par_lr /= 3 )   THEN
    213213          ibc_par_lr = 3
    214           message_string = 'In Child model:  bc_par_lr is automatically set to nested '
    215           CALL message( 'pmcp_g_init ', 'PA0478', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
     214          message_string = 'In Child model:  ibc_par_lr is automatically set to nested '
     215          CALL message( 'pmcp_g_init ', 'PA0478', 0, 1, 0, 6, 0 )
    216216       ENDIF
    217217       
    218218       IF ( ibc_par_ns /= 3 )   THEN
    219219          ibc_par_ns = 3
    220           message_string = 'In Child model:  bc_par_ns is automatically set to nested '
    221           CALL message( 'pmcp_g_init ', 'PA0479', 0, 1, 0, 6, 0 )   ! PA number has to be adjusted
     220          message_string = 'In Child model:  ibc_par_ns is automatically set to nested '
     221          CALL message( 'pmcp_g_init ', 'PA0479', 0, 1, 0, 6, 0 )
    222222       ENDIF
    223223       
     
    476476                              max_nr_particle_per_pe, max_nr_particle_in_rma_win
    477477                   message_string = 'RMA window too small on child'
    478                    CALL message( 'pmci_create_child_arrays', 'PA0480', 3, 2, 0, 6, 0 )   ! PA number has to be adjusted
     478                   CALL message( 'pmci_create_child_arrays', 'PA0480', 3, 2, 0, 6, 0 )
    479479                ENDIF
    480480                CALL MPI_WIN_LOCK( MPI_LOCK_SHARED , ip - 1, 0,                &
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3045 r3046  
    2323! Current revisions:
    2424! ------------------
    25 !
     25! Error messages revised
    2626!
    2727! Former revisions:
     
    27212721       
    27222722       message_string = 'namelist radiation_par is deprecated and will be ' // &
    2723                      'removed in near future. Please &use namelist ' //        &
     2723                     'removed in near future. Please use namelist ' //         &
    27242724                     'radiation_parameters instead'
    27252725       CALL message( 'radiation_parin', 'PA0487', 0, 1, 0, 6, 0 )
     
    27332733          message_string = 'surface_reflections is allowed only when '      // &
    27342734               'radiation_interactions_on is set to TRUE'
    2735           CALL message( 'radiation_parin', 'PA0487',1, 2, 0, 6, 0 )
     2735          CALL message( 'radiation_parin', 'PA0293',1, 2, 0, 6, 0 )
    27362736       ENDIF
    27372737
     
    55995599                  zns = pi / REAL(nzn, wp)
    56005600               CASE DEFAULT
    5601                   WRITE(message_string, *) 'ERROR: the surface type ',td , ' is not supported for calculating SVF'
     5601                  WRITE(message_string, *) 'ERROR: the surface type ', td,     &
     5602                                           ' is not supported for calculating',&
     5603                                           ' SVF'
    56025604                  CALL message( 'radiation_calc_svf', 'PA0488', 1, 2, 0, 6, 0 )
    56035605            END SELECT
     
    67606762! ------------
    67616763!> Soubroutine reads svf and svfsurf data from saved file
     6764!> SVF means sky view factors and CSF means canopy sink factors
    67626765!------------------------------------------------------------------------------!
    67636766    SUBROUTINE radiation_read_svf
  • palm/trunk/SOURCE/read_restart_data_mod.f90

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

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    264264       
    265265       message_string = 'namelist spectra_par is deprecated and will be ' // &
    266                      'removed in near future. Please &use namelist ' //      &
     266                     'removed in near future. Please use namelist ' //       &
    267267                     'spectra_parameters instead'
    268268       CALL message( 'spectra_parin', 'PA0487', 0, 1, 0, 6, 0 )
     
    475475
    476476                message_string = 'non-cyclic lateral boundaries along x do'//  &
    477                                  ' not allow calculation of spectra along x'
     477                                 ' not allow calculation of spectra along x'
    478478                CALL message( 'calc_spectra', 'PA0160', 1, 2, 0, 6, 0 )
    479479             ENDIF
     
    491491#else
    492492             message_string = 'sorry, calculation of spectra in non paral' //  &
    493                               'lel mode is still not realized'
     493                              'lel mode& is still not realized'
    494494             CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
    495495#endif
     
    507507                IF ( myid == 0 )  THEN
    508508                   message_string = 'non-cyclic lateral boundaries along y' // &
    509                                     ' do not allow calculation of spectra' //  &
     509                                    ' do not & allow calculation of spectra' //&
    510510                                    ' along y'
    511511                   CALL message( 'calc_spectra', 'PA0162', 1, 2, 0, 6, 0 )
     
    521521#else
    522522             message_string = 'sorry, calculation of spectra in non paral' //  &
    523                               'lel mode is still not realized'
     523                              'lel mode& is still not realized'
    524524             CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
    525525#endif
  • palm/trunk/SOURCE/surface_coupler.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    173173                                  TRIM( coupling_mode_remote ),                &
    174174                                  '" terminated',                              &
    175                                   ' with terminate_coupled_remote = ',         &
     175                                  '&with terminate_coupled_remote = ',         &
    176176                                  terminate_coupled_remote,                    &
    177                                   ' local model  "', TRIM( coupling_mode ),    &
     177                                  '&local model  "', TRIM( coupling_mode ),    &
    178178                                  '" has',                                     &
    179                                   ' terminate_coupled = ',                     &
     179                                  '&terminate_coupled = ',                     &
    180180                                   terminate_coupled
    181181       CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    339339        .AND.  INDEX( initializing_actions, 'read_restart_data' ) == 0 )  THEN
    340340             message_string = 'Using synthetic turbulence generator ' //       &
    341                               'requires &initializing_actions = '         //   &
     341                              'requires %initializing_actions = '         //   &
    342342                              '"set_constant_profiles" or "read_restart_data"'
    343343             CALL message( 'stg_check_parameters', 'PA0015', 1, 2, 0, 6, 0 )
     
    346346          IF ( bc_lr /= 'dirichlet/radiation' )  THEN
    347347             message_string = 'Using synthetic turbulence generator ' //       &
    348                               'requires bc_lr = "dirichlet/radiation"'
     348                              'requires &bc_lr = "dirichlet/radiation"'
    349349             CALL message( 'stg_check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
    350350          ENDIF
    351351          IF ( bc_ns /= 'cyclic' )  THEN
    352352             message_string = 'Using synthetic turbulence generator ' //       &
    353                               'requires bc_ns = "cyclic"'
     353                              'requires &bc_ns = "cyclic"'
    354354             CALL message( 'stg_check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
    355355          ENDIF
  • palm/trunk/SOURCE/temperton_fft_mod.f90

    r3045 r3046  
    44! Current revisions:
    55! -----------------
    6 !
     6! Error messages revised
    77!
    88! Former revisions:
     
    21662166    message_string = 'number of gridpoints along x or/and y ' //               &
    21672167                     'contain illegal  factors' //                             &
    2168                      ' only factors 2, 3, 5 are allowed'
     2168                     '&only factors 2, 3, 5 are allowed'
    21692169    CALL message( 'temperton_fft', 'PA0311', 1, 2, 0, 6, 0 )
    21702170
  • palm/trunk/SOURCE/timestep.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    333333
    334334          WRITE( message_string, * ) 'Time step has reached minimum limit.',   &
    335                ' dt              = ', dt_3d, ' s  Simulation is terminated.',  &
    336                ' old_dt          = ', old_dt, ' s',                            &
    337                ' dt_u            = ', dt_u, ' s',                              &
    338                ' dt_v            = ', dt_v, ' s',                              &
    339                ' dt_w            = ', dt_w, ' s',                              &
    340                ' dt_diff         = ', dt_diff, ' s',                           &
    341                ' u_max           = ', u_max, ' m/s   k=', u_max_ijk(1),        &
     335               '&dt              = ', dt_3d, ' s  Simulation is terminated.',  &
     336               '&old_dt          = ', old_dt, ' s',                            &
     337               '&dt_u            = ', dt_u, ' s',                              &
     338               '&dt_v            = ', dt_v, ' s',                              &
     339               '&dt_w            = ', dt_w, ' s',                              &
     340               '&dt_diff         = ', dt_diff, ' s',                           &
     341               '&u_max           = ', u_max, ' m/s   k=', u_max_ijk(1),        &
    342342               '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),                     &
    343                ' v_max           = ', v_max, ' m/s   k=', v_max_ijk(1),        &
     343               '&v_max           = ', v_max, ' m/s   k=', v_max_ijk(1),        &
    344344               '  j=', v_max_ijk(2), '  i=', v_max_ijk(3),                     &
    345                ' w_max           = ', w_max, ' m/s   k=', w_max_ijk(1),        &
     345               '&w_max           = ', w_max, ' m/s   k=', w_max_ijk(1),        &
    346346               '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
    347347          CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3045 r3046  
    2323! Current revisions:
    2424! ------------------
    25 !
     25! Error messages revised
    2626!
    2727! Former revisions:
     
    52615261
    52625262       message_string = 'namelist urban_surface_par is deprecated and will be ' // &
    5263                      'removed in near future. Please &use namelist ' //            &
     5263                     'removed in near future. Please use namelist ' //             &
    52645264                     'urban_surface_parameters instead'
    52655265       CALL message( 'usm_parin', 'PA0487', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/user_data_output_dvrp.f90

    r2718 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    106106!--       wrong character string that is neither recognized in data_output_dvrp
    107107!--       nor here in user_data_output_dvrp.
    108           WRITE( message_string, * ) 'no output possible for: ', &
     108          WRITE( message_string, * ) 'no output possible for: ',               &
    109109                                     output_variable
    110           CALL message( 'user_data_output_dvrp', 'UI0003', 0, 0, 0, 6, 0 )
     110          CALL message( 'user_data_output_dvrp', 'UI0003', 0, 1, 0, 6, 0 )
    111111         
    112112
  • palm/trunk/SOURCE/user_parin.f90

    r2932 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    155155   
    156156    message_string = 'namelist userpar is deprecated and will be ' //          &
    157                      'removed in near future. Please &use namelist ' //        &
     157                     'removed in near future. &Please use namelist ' //        &
    158158                     'user_parameters instead'
    159159    CALL message( 'user_parin', 'PA0487', 0, 1, 0, 6, 0 )
     
    191191          IF ( max_pr_user /= max_pr_user_tmp )  THEN
    192192             WRITE( message_string, * ) 'the number of user-defined profiles ',&
    193                      'given in &data_output_pr (', max_pr_user_tmp, ') doe',   &
     193                     'given in data_output_pr (', max_pr_user_tmp, ') doe',    &
    194194                     'snot match the one ',                                    &
    195                      '&found in the restart file (', max_pr_user,              &
     195                     'found in the restart file (', max_pr_user,               &
    196196                                     ')'
    197197             CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/user_spectra.f90

    r2718 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    113113             message_string = 'Spectra of ' //                                 &
    114114                         TRIM( data_output_sp(m) ) // ' can not be calculated'
    115              CALL message( 'user_spectra', 'UI0010', 0, 0, 0, 6, 0 )
     115             CALL message( 'user_spectra', 'UI0010', 0, 1, 0, 6, 0 )
    116116           
    117117       END SELECT
  • palm/trunk/SOURCE/vertical_nesting_mod.f90

    r3045 r3046  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! Error messages revised
    2424!
    2525! Former revisions:
     
    283283                TRIM( coupling_mode_remote ),                                  &
    284284                '" terminated',                                                &
    285                 ' with terminate_coupled_remote = ',                           &
     285                '&with terminate_coupled_remote = ',                           &
    286286                terminate_coupled_remote,                                      &
    287                 ' local model  "', TRIM( coupling_mode ),                      &
     287                '&local model  "', TRIM( coupling_mode ),                      &
    288288                '" has',                                                       &
    289                 ' terminate_coupled = ',                                       &
     289                '&terminate_coupled = ',                                       &
    290290                terminate_coupled
    291291            CALL message( 'vnest_init_fine', 'PA0310', 1, 2, 0, 6, 0 )
     
    27832783                TRIM( coupling_mode_remote ),                                  &
    27842784                '" terminated',                                                &
    2785                 ' with terminate_coupled_remote = ',                           &
     2785                '&with terminate_coupled_remote = ',                           &
    27862786                terminate_coupled_remote,                                      &
    2787                 ' local model  "', TRIM( coupling_mode ),                      &
     2787                '&local model  "', TRIM( coupling_mode ),                      &
    27882788                '" has',                                                       &
    2789                 ' terminate_coupled = ',                                       &
     2789                '&terminate_coupled = ',                                       &
    27902790                terminate_coupled
    27912791            CALL message( 'vnest_anterpolate', 'PA0310', 1, 2, 0, 6, 0 )
     
    33313331                TRIM( coupling_mode_remote ),                                  &
    33323332                '" terminated',                                                &
    3333                 ' with terminate_coupled_remote = ',                           &
     3333                '&with terminate_coupled_remote = ',                           &
    33343334                terminate_coupled_remote,                                      &
    3335                 ' local model  "', TRIM( coupling_mode ),                      &
     3335                '&local model  "', TRIM( coupling_mode ),                      &
    33363336                '" has',                                                       &
    3337                 ' terminate_coupled = ',                                       &
     3337                '&terminate_coupled = ',                                       &
    33383338                terminate_coupled
    33393339            CALL message( 'vnest_anterpolate_e', 'PA0310', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/virtual_flight_mod.f90

    r2932 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    267267       
    268268       message_string = 'namelist flight_par is deprecated and will be ' // &
    269                      'removed in near future. Please &use namelist ' //     &
     269                     'removed in near future.& Please use namelist ' //     &
    270270                     'virtual_flight_parameters instead'
    271271       CALL message( 'flight_parin', 'PA0487', 0, 1, 0, 6, 0 )     
  • palm/trunk/SOURCE/wind_turbine_model_mod.f90

    r2932 r3046  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! Error messages revised
    2424!
    2525! Former revisions:
     
    561561     
    562562       message_string = 'namelist wind_tubrine_par is deprecated and will ' // &
    563                         'be removed in near future. Please &use namelist ' //  &
     563                        'be removed in near future. &Please use namelist ' //  &
    564564                        'wind_turbine_parameters instead'
    565565       CALL message( 'wtm_parin', 'PA0487', 0, 1, 0, 6, 0 )     
Note: See TracChangeset for help on using the changeset viewer.