Changeset 274


Ignore:
Timestamp:
Mar 26, 2009 3:11:21 PM (12 years ago)
Author:
heinze
Message:

Indentation of the message calls corrected

Location:
palm/trunk
Files:
28 edited

Legend:

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

    r264 r274  
    213213    PA0137            mixing_length_1d = "..." is unknown
    214214    PA0138            dissipation_1d = "..." is unknown
    215     PA0139            termination_time_needed = ...  must be > 30.0 on host ..."
     215    PA0139            termination_time_needed = ...  must be > 30.0 on host ...
    216216    PA0140            termination_time_needed = ... should be >= 300.0
    217217                       on host "..."     
     
    234234                       but one of them must be .FALSE.
    235235    PA0151            dp_level_b = ... is out of range
    236     PA0152            dp_external is .TRUE. but dpdxy is zero, i.e. the external
     236    PA0152            dp_external is .TRUE. but dpdxy is zero,
     237                       i.e. the external
    237238                       pressure gradient will not be applied
    238239    PA0153            dpdxy is nonzero but dp_external is .FALSE., i.e. the
     
    241242    PA0155            noncyclic boundary conditions require
    242243                       conserve_volume_flow_mode = ''inflow_profile''
    243     PA0156            cyclic boundary conditions require conserve_volume_flow_mode =
    244                        ''initial_profiles'' or ''bulk_velocity''
    245                        requires noncyclic boundary conditions
    246     PA0157            nonzero bulk velocity requires conserve_volume_flow = .T. and
     244    PA0156            cyclic boundary conditions require
     245                       conserve_volume_flow_mode = ''initial_profiles'' or
     246                       ''bulk_velocity'' requires noncyclic boundary conditions
     247    PA0157            nonzero bulk velocity requires
     248                       conserve_volume_flow = .T. and
    247249                       conserve_volume_flow_mode = ''bulk_velocity''
    248250    PA0158            no vertical boundary condition for variable "..."
     
    262264    PA0166            re-opening of file-id ... is not allowed
    263265    PA0167            opening file-id ... not allowed for PE ...
    264     PA0168            opening file-id ... is not allowed since it is used otherwise
     266    PA0168            opening file-id ... is not allowed since it is used
     267                       otherwise
    265268    PA0169            no filename for AVS-data-file found in MRUN-config-file
    266269                       filename in FLD-file set to "unknown"
     
    285288    PA0184            if cloud_physics = FALSE output of ... is not provided
    286289    PA0185            data_output_profiles: normalizing cross ...
    287                        is not possible since one of the normalizing factors is zero!
     290                       is not possible since one of the normalizing factors
     291                       is zero!
    288292                       cross_normx_factor(...,...) = ...
    289293                       cross_normy_factor(...,...) = ...
     
    298302    PA0193            unknown initializing problem
    299303    PA0194            number of time series quantities exceeds its maximum
    300                        of dots_max = ... Please increase dots_max in modules.f90.
     304                       of dots_max = ... Please increase dots_max in
     305                       modules.f90.
    301306    PA0195            dvrp_username is undefined
    302307    PA0196            dvrp_output="..." not allowed
     
    341346    PA0219            unknown boundary condition bc_par_lr = "..."
    342347    PA0220            unknown boundary condition bc_par_ns = "..."
    343     PA0221            number of PEs of the prescribed topology (...) does not match
    344                        the number of PEs available to the job ()
     348    PA0221            number of PEs of the prescribed topology (...) does not
     349                       match the number of PEs available to the job ()
    345350    PA0222            if the processor topology is prescribed by the user,
    346351                       both values of "npex" and "npey" must be given
     
    373378    PA0235            mg_switch_to_pe0_level out of range and reset to
    374379                       default (=0)     
    375     PA0236            not enough memory for storing gathered multigrid data on PE0
     380    PA0236            not enough memory for storing gathered multigrid data
     381                       on PE0
    376382    PA0237             multigrid gather/scatter impossible in non parallel mode
    377383    PA0238            more than 10 multigrid levels
     
    390396    PA0244            no grid defined for variable ...
    391397    PA0245            NetCDF file for volume data ... from previuos run found,
    392                        but this file cannot be extended due to  variable mismatch.
     398                       but this file cannot be extended due to variable
     399                       mismatch.
    393400                       New file is created instead.
    394401    PA0246            NetCDF file for volume data ... from previuos run found,
     
    402409    PA0248            NetCDF file for volume data ... from previous run found.
    403410                       This file will be extended.
    404     PA0249            NetCDF file for cross-sections ... from previuos run found,
    405                        but this file cannot be extended due to variable mismatch.
    406                        New file is created instead.
    407     PA0250            NetCDF file for cross-sections ... from previuos run found,
    408                        but this file cannot be extended due to mismatch in
    409                        number of cross sections. New file is created instead.
    410     PA0251            NetCDF file for cross-sections ... from previuos run found
    411                       but this file cannot be extended due to mismatch in cross
    412                        section levels. New file is created instead.
    413     PA0252            NetCDF file for cross sections ... from previuos run found,
    414                        but this file cannot be extended because the current
    415                        output time is less or equal than the last output time
    416                        on this file.
    417                        New file is created instead.
    418     PA0253            NetCDF file for cross-sections ... from previous run found.
    419                        This file will be extended.
    420     PA0254            NetCDF file for vertical profiles from previuos run found,
    421                        but this file cannot be extended due to variable mismatch.
    422                        New file is created instead.
    423     PA0255            NetCDF file for vertical profiles from previuos run found,
    424                        but this file cannot be extended because the current
    425                        output time is less or equal than the last output time
    426                        on this file. New file is created instead.
    427     PA0256            NetCDF file for vertical profiles from previous run found.
    428                        This file will be extended.
     411    PA0249            NetCDF file for cross-sections ... from previuos run
     412                       found, but this file cannot be extended due to
     413                       variable mismatch. New file is created instead.
     414    PA0250            NetCDF file for cross-sections ... from previuos run
     415                       found, but this file cannot be extended due to
     416                       mismatch in  number of cross sections. New file
     417                       is created instead.
     418    PA0251            NetCDF file for cross-sections ... from previuos run
     419                       found but this file cannot be extended due to mismatch
     420                       in cross section levels. New file is created instead.
     421    PA0252            NetCDF file for cross sections ... from previuos run
     422                       found, but this file cannot be extended because the
     423                       current output time is less or equal than the last
     424                       output time on this file. New file is created instead.
     425    PA0253            NetCDF file for cross-sections ... from previous run
     426                       found. This file will be extended.
     427    PA0254            NetCDF file for vertical profiles from previuos run
     428                       found, but this file cannot be extended due to variable
     429                       mismatch. New file is created instead.
     430    PA0255            NetCDF file for vertical profiles from previuos run
     431                       found, but this file cannot be extended because the
     432                       current output time is less or equal than the last
     433                       output time on this file. New file is created instead.
     434    PA0256            NetCDF file for vertical profiles from previous run
     435                       found. This file will be extended.
    429436    PA0257            NetCDF file for time series from previuos run found
    430                        but this file cannot be extended due tovariable mismatch.
    431                        New file is created instead.
     437                       but this file cannot be extended due tovariable
     438                       mismatch. New file is created instead.
    432439    PA0258            NetCDF file for time series from previuos run found,
    433440                       but this file cannot be extended because the current
     
    437444                       This file will be extended.
    438445    PA0260            NetCDF file for spectra from previuos run found,
    439                        but this file cannot be extended due to variable mismatch.
    440                        New file is created instead.
     446                       but this file cannot be extended due to variable
     447                       mismatch. New file is created instead.
    441448    PA0261            NetCDF file for spectra from previuos run found,
    442449                       but this file cannot be extended due to mismatch in
     
    457464    PA0266            NetCDF file for particles from previous run found.
    458465                       This file will be extended.
    459     PA0267            NetCDF file for particle time series from previuos run found,
    460                        but this file cannot be extended due to variable mismatch.
    461                        New file is created instead.
    462     PA0268            NetCDF file for particle time series from previuos run found,
    463                        but this file cannot be extended because the current
    464                        output time is less or equal than the last output time
    465                        on this file. New file is created instead.
    466     PA0269            NetCDF file for particle time series from previous run found.
    467                        This file will be extended.
     466    PA0267            NetCDF file for particle time series from previuos run
     467                       found, but this file cannot be extended due to
     468                       variable mismatch. New file is created instead.
     469    PA0268            NetCDF file for particle time series from previuos run
     470                       found, but this file cannot be extended because the
     471                       current output time is less or equal than the last
     472                       output time on this file. New file is created instead.
     473    PA0269            NetCDF file for particle time series from previous run
     474                       found. This file will be extended.
    468475    PA0270            mode "..." not supported
    469476    PA0271            errors in \$inipar &or no \$inipar-namelist found
     
    556563    PA0311            number of gridpoints along x or/and y contain illegal 
    557564                       factors only factors 8,6,5,4,3,2 are allowed
    558     PA0312            Time step has reached minimum limit.',        &
     565    PA0312            Time step has reached minimum limit.
    559566                       dt      = ... s  Simulation is terminated.
    560567                       old_dt  = ... s                           
     
    589596                       run on PE
    590597   
     598
     599
     600   internal assigned error numbers (errno) for the call of the subroutine
     601   "handle_netcdf_error":
     602
     603    assigned               free
     604       1 -  346             347
     605     348 -  375             376
     606     377 -  428             386
     607    1009 - 1010
  • palm/trunk/SOURCE/advec_particles.f90

    r264 r274  
    319319                                      ( rho_surface * dx * dy * dz )
    320320          IF ( ql_c(k,j,i) > 100.0 )  THEN
    321              WRITE( message_string, * ) 'k=',k,' j=',j,' i=',i, &
     321             WRITE( message_string, * ) 'k=',k,' j=',j,' i=',i,      &
    322322                          ' ql_c=',ql_c(k,j,i), ' &part(',n,')%wf=', &
    323323                          particles(n)%weight_factor,' delta_r=',delta_r
     
    329329          IF ( ( new_r - particles(n)%radius ) < 0.0  .AND.  new_r < 0.0 ) &
    330330          THEN
    331              WRITE( message_string, * ) '#1 k=',k,' j=',j,' i=',i, &
    332                           ' e_s=',e_s, ' e_a=',e_a,' t_int=',t_int, &
     331             WRITE( message_string, * ) '#1 k=',k,' j=',j,' i=',i,   &
     332                          ' e_s=',e_s, ' e_a=',e_a,' t_int=',t_int,  &
    333333                          ' &d_radius=',d_radius,' delta_r=',delta_r,&
    334334                          ' particle_radius=',particles(n)%radius
     
    424424                           effective_coll_efficiency < 0.0 )     &
    425425                      THEN
    426                          WRITE( message_string, * )   'collision_efficiency ' , &
    427                                    'out of range:' ,effective_coll_efficiency
    428                          CALL message( 'advec_particles', 'PA0145', 2, 2, 0, 6, 0 )
     426                         WRITE( message_string, * ) 'collision_efficiency ' , &
     427                                   'out of range:', effective_coll_efficiency
     428                         CALL message( 'advec_particles', 'PA0145', &
     429                                       2, 2, 0, 6, 0 )
    429430                      END IF
    430431
     
    19201921               maximum_number_of_particles  )  THEN
    19211922             IF ( netcdf_output )  THEN
    1922                 message_string = 'maximum_number_of_particles ' // &
    1923                                  'needs to be increased ' // &
     1923                message_string = 'maximum_number_of_particles ' //   &
     1924                                 'needs to be increased ' //         &
    19241925                                 '&but this is not allowed with ' // &
    19251926                                 'NetCDF output switched on'
     
    19401941                  maximum_number_of_tails  )  THEN
    19411942                IF ( netcdf_output )  THEN
    1942                    message_string = 'maximum_number_of_tails ' // &
    1943                                     'needs to be increased ' // &
     1943                   message_string = 'maximum_number_of_tails ' //    &
     1944                                    'needs to be increased ' //      &
    19441945                                    '&but this is not allowed wi' // &
    19451946                                    'th NetCDF output switched on'
     
    23252326          THEN
    23262327             IF ( netcdf_output )  THEN
    2327                  message_string = 'maximum_number_of_particles ' // &
    2328                                   'needs to be increased ' // &
     2328                 message_string = 'maximum_number_of_particles ' //    &
     2329                                  'needs to be increased ' //          &
    23292330                                  '&but this is not allowed with ' //  &
    23302331                                  'NetCDF output switched on'
     
    23532354             THEN
    23542355                IF ( netcdf_output )  THEN
    2355                    message_string = 'maximum_number_of_tails ' // &
    2356                                     'needs to be increased ' // &
     2356                   message_string = 'maximum_number_of_tails ' //   &
     2357                                    'needs to be increased ' //     &
    23572358                                    '&but this is not allowed wi'// &
    23582359                                    'th NetCDF output switched on'
     
    24022403          THEN
    24032404             IF ( netcdf_output )  THEN
    2404                 message_string = 'maximum_number_of_particles ' // &
    2405                                  'needs to be increased ' // &
     2405                message_string = 'maximum_number_of_particles ' //  &
     2406                                 'needs to be increased ' //        &
    24062407                                 '&but this is not allowed with '// &
    24072408                                 'NetCDF output switched on'
     
    24302431             THEN
    24312432                IF ( netcdf_output )  THEN
    2432                    message_string = 'maximum_number_of_tails ' // &
    2433                                     'needs to be increased ' // &
     2433                   message_string = 'maximum_number_of_tails ' //   &
     2434                                    'needs to be increased ' //     &
    24342435                                    '&but this is not allowed wi'// &
    24352436                                    'th NetCDF output switched on'
     
    27662767          THEN
    27672768             IF ( netcdf_output )  THEN
    2768                 message_string = 'maximum_number_of_particles ' // &
    2769                                  'needs to be increased ' // &
     2769                message_string = 'maximum_number_of_particles ' //  &
     2770                                 'needs to be increased ' //        &
    27702771                                 '&but this is not allowed with '// &
    27712772                                 'NetCDF output switched on'
     
    27942795             THEN
    27952796                IF ( netcdf_output )  THEN
    2796                    message_string = 'maximum_number_of_tails ' // &
    2797                                     'needs to be increased ' // &
     2797                   message_string = 'maximum_number_of_tails ' //    &
     2798                                    'needs to be increased ' //      &
    27982799                                    '&but this is not allowed wi' // &
    27992800                                    'th NetCDF output switched on'
     
    28432844          THEN
    28442845             IF ( netcdf_output )  THEN
    2845                 message_string = 'maximum_number_of_particles ' // &
    2846                                  'needs to be increased ' // &
     2846                message_string = 'maximum_number_of_particles ' //   &
     2847                                 'needs to be increased ' //         &
    28472848                                 '&but this is not allowed with ' // &
    28482849                                 'NetCDF output switched on'
     
    28712872             THEN
    28722873                IF ( netcdf_output )  THEN
    2873                    message_string = 'maximum_number_of_tails ' // &
    2874                                     'needs to be increased ' // &
     2874                   message_string = 'maximum_number_of_tails ' //   &
     2875                                    'needs to be increased ' //     &
    28752876                                    '&but this is not allowed wi'// &
    28762877                                    'th NetCDF output switched on'
     
    36613662    CALL handle_netcdf_error( 'output_particles_netcdf', 12 )
    36623663
    3663     nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(11), particles%x,           &
     3664    nc_stat = NF90_PUT_VAR( id_set_prt, id_var_prt(11), particles%x,          &
    36643665                            start = (/ 1, prt_time_count /),                  &
    36653666                            count = (/ maximum_number_of_particles /) )
     
    38963897            k > nzt )  THEN
    38973898          WRITE( message_string, * ) ' particle out of range: i=', i, ' j=', &
    3898                           j, ' k=', k, &
    3899                           ' &nxl=', nxl, ' nxr=', nxr, &
    3900                           ' nys=', nys, ' nyn=', nyn, &
     3899                          j, ' k=', k,                                       &
     3900                          ' &nxl=', nxl, ' nxr=', nxr,                       &
     3901                          ' nys=', nys, ' nyn=', nyn,                        &
    39013902                          ' nzb=', nzb, ' nzt=', nzt
    39023903         CALL message( 'sort_particles', 'PA0149', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/calc_spectra.f90

    r247 r274  
    8585          IF ( bc_lr /= 'cyclic' )  THEN
    8686
    87              message_string = 'non-cyclic lateral boundaries along x do not ' // &
     87             message_string = 'non-cyclic lateral boundaries along x do not'// &
    8888                              '& allow calculation of spectra along x'
    8989             CALL message( 'calc_spectra', 'PA0160', 1, 2, 0, 6, 0 )
     
    100100          CALL calc_spectra_x( d, pr, m )
    101101#else
    102           message_string = 'sorry, calculation of spectra in non parallel mode' // &
    103                            '& is still not realized'
     102          message_string = 'sorry, calculation of spectra in non parallel ' // &
     103                           'mode& is still not realized'
    104104          CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )     
    105105#endif
     
    116116          IF ( bc_ns /= 'cyclic' )  THEN
    117117             IF ( myid == 0 )  THEN
    118                 message_string = 'non-cyclic lateral boundaries along y do not ' // &
    119                                  '& allow calculation of spectra along y'
     118                message_string = 'non-cyclic lateral boundaries along y do' // &
     119                                 ' not & allow calculation of spectra along y'
    120120                CALL message( 'calc_spectra', 'PA0162', 1, 2, 0, 6, 0 )
    121121             ENDIF
     
    129129          CALL calc_spectra_y( d, pr, m )
    130130#else
    131           message_string = 'sorry, calculation of spectra in non parallel mode' // &
    132                            '& is still not realized'
     131          message_string = 'sorry, calculation of spectra in non parallel' // &
     132                           'mode& is still not realized'
    133133          CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
    134134#endif
  • palm/trunk/SOURCE/check_for_restart.f90

    r249 r274  
    6969!-- Output that job will be terminated
    7070    IF ( terminate_run  .AND.  myid == 0 )  THEN
    71        WRITE( message_string, * ) 'run will be terminated because it is running', &
    72                                   ' out of job cpu limit & ', &
    73                                   'remaining time:         ', remaining_time, ' s', &
    74                                   'termination time needed:', termination_time_needed, ' s'
     71       WRITE( message_string, * ) 'run will be terminated because it is ', &
     72                       'running out of job cpu limit & ',                  &
     73                       'remaining time:         ', remaining_time, ' s',  &
     74                       'termination time needed:', termination_time_needed, ' s'
    7575       CALL message( 'check_for_restart', 'PA0163', 0, 1, 0, 6, 0 )
    7676    ENDIF
     
    113113
    114114          WRITE( message_string, * ) 'run will be terminated due to user ', &
    115                                      'settings of', &
    116                                      '&restart_time / dt_restart',&
    117                                      '&new restart time is: ', time_restart, ' s'
    118           CALL message( 'check_for_restart', 'PA0164', 0, 0, 0, 6, 0 )                     
     115                                  'settings of',                            &
     116                                  '&restart_time / dt_restart',             &
     117                                  '&new restart time is: ', time_restart, ' s'
     118          CALL message( 'check_for_restart', 'PA0164', 0, 0, 0, 6, 0 )
    119119 
    120120!
  • palm/trunk/SOURCE/check_open.f90

    r263 r274  
    102102             IF ( file_id == 14 .AND. openfile(file_id)%opened_before )  THEN
    103103                message_string = 're-open of unit ' // &
    104                                  ' 14 is not verified. Please check results!'
     104                                 '14 is not verified. Please check results!'
    105105                CALL message( 'check_open', 'PA0165', 0, 1, 0, 6, 0 )       
    106106             ENDIF
     
    108108          CASE DEFAULT
    109109             WRITE( message_string, * ) 're-opening of file-id ', file_id, &
    110                                            ' is not allowed'
     110                                        ' is not allowed'
    111111             CALL message( 'check_open', 'PA0166', 0, 1, 0, 6, 0 )   
    112112               
     
    144144!--       File-ids that are used temporarily in other routines
    145145          WRITE( message_string, * ) 'opening file-id ',file_id, &
    146                                      ' is not allowed since it is used otherwise'
     146                                    ' is not allowed since it is used otherwise'
    147147          CALL message( 'check_open', 'PA0168', 0, 1, 0, 6, 0 )
    148148         
     
    405405                IF ( .NOT. avs_coor_file_found  .OR. &
    406406                     .NOT. avs_data_file_found )  THEN
    407                    message_string= 'no filename for AVS-data-file ' // &
    408                                    'found in MRUN-config-file' // &
     407                   message_string= 'no filename for AVS-data-file ' //       &
     408                                   'found in MRUN-config-file' //            &
    409409                                   ' &filename in FLD-file set to "unknown"'
    410410                   CALL message( 'check_open', 'PA0169', 0, 1, 0, 6, 0 )
     
    725725                                       id_set_xy(av) )
    726726#else
    727                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     727                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     728                                 'on this machine'
    728729                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    729730
     
    786787                                       id_set_xz(av) )
    787788#else
    788                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     789                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     790                                 'on this machine'
    789791                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    790792         
     
    847849                                       id_set_yz(av) )
    848850#else
    849                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     851                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     852                                 'on this machine'
    850853                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    851854               
     
    902905                                       id_set_pr )
    903906#else
    904                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     907                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     908                                 'on this machine'
    905909                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    906910               
     
    957961                                       id_set_ts )
    958962#else
    959                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     963                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     964                                 'on this machine'
    960965                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    961966               
     
    10191024                                       id_set_3d(av) )
    10201025#else
    1021                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     1026                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     1027                                 'on this machine'
    10221028                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    10231029               
     
    10761082                                       id_set_sp )
    10771083#else
    1078                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     1084                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     1085                                 'on this machine'
    10791086                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    10801087               
     
    11521159                                       id_set_prt )
    11531160#else
    1154                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     1161                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     1162                                 'on this machine'
    11551163                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    11561164               
     
    12081216                                       id_set_pts )
    12091217#else
    1210                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     1218                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     1219                                 'on this machine'
    12111220                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    12121221               
  • palm/trunk/SOURCE/cpu_log.f90

    r254 r274  
    8282    ELSEIF ( modus == 'pause' )  THEN
    8383       IF ( ( mtime - log_event%mtime ) < 0.0  .AND.  first )  THEN
    84           WRITE( message_string, * ) 'negative time interval occured', &
    85                                      ' &PE',myid,' L=PAUSE "',TRIM(log_event%place),'" new=', &
    86                                       mtime,' last=',log_event%mtime
     84          WRITE( message_string, * ) 'negative time interval occured',         &
     85                      ' &PE',myid,' L=PAUSE "',TRIM(log_event%place),'" new=', &
     86                      mtime,' last=',log_event%mtime
    8787          CALL message( 'cpu_log', 'PA0176', 0, 1, -1, 6, 0 )
    8888          first = .FALSE.
     
    9393       IF ( ( mtime - log_event%mtime + log_event%isum ) < 0.0  .AND. &
    9494            first )  THEN
    95           WRITE( message_string, * ) 'negative time interval occured', &
    96                                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', &
    97                                       mtime,' last=',log_event%mtime,' isum=',log_event%isum
     95          WRITE( message_string, * ) 'negative time interval occured',        &
     96                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', &
     97                      mtime,' last=',log_event%mtime,' isum=',log_event%isum
    9898          CALL message( 'cpu_log', 'PA0177', 0, 1, -1, 6, 0 )
    9999          first = .FALSE.
     
    103103       log_event%sum      = log_event%sum  + log_event%mtime
    104104       IF ( log_event%sum < 0.0  .AND.  first )  THEN
    105           WRITE( message_string, * ) 'negative time interval occured',&
    106                                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', &
     105          WRITE( message_string, * ) 'negative time interval occured',        &
     106                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', &
    107107                                      log_event%sum,' mtime=',log_event%mtime
    108108          CALL message( 'cpu_log', 'PA0178', 0, 1, -1, 6, 0 )
  • palm/trunk/SOURCE/data_output_2d.f90

    r263 r274  
    520520
    521521                IF ( .NOT. found )  THEN
    522                    message_string =  'no output provided for: ' // TRIM( do2d(av,if) )
     522                   message_string = 'no output provided for: ' //    &
     523                                    TRIM( do2d(av,if) )
    523524                   CALL message( 'data_output_2d', 'PA0181', 0, 0, 0, 6, 0 )
    524525                ENDIF
  • palm/trunk/SOURCE/data_output_3d.f90

    r263 r274  
    313313
    314314             IF ( .NOT. found )  THEN
    315                 message_string =  'no output available for: ' // TRIM( do3d(av,if) )
     315                message_string =  'no output available for: ' //   &
     316                                  TRIM( do3d(av,if) )
    316317                CALL message( 'data_output_3d', 'PA0182', 0, 0, 0, 6, 0 )
    317318             ENDIF
  • palm/trunk/SOURCE/data_output_dvrp.f90

    r264 r274  
    401401                      ENDDO           
    402402                   ELSE                   
    403                       message_string = 'if humidity/passive_scalar = ' //  &
    404                                        'FALSE output of ' // TRIM( output_variable ) // &
    405                                        'is not provided'
    406                       CALL message( 'data_output_dvrp', 'PA0183', 0, 0, 0, 6, 0 )
     403                      message_string = 'if humidity/passive_scalar = '    // &
     404                            'FALSE output of ' // TRIM( output_variable ) // &
     405                            'is not provided'
     406                      CALL message( 'data_output_dvrp', 'PA0183',&
     407                                                                 0, 0, 0, 6, 0 )
    407408                   ENDIF
    408409             
     
    417418                      ENDDO
    418419                   ELSE                     
    419                          message_string = 'if cloud_physics = FALSE ' // &
    420                                           'output of ' // TRIM( output_variable) // &
    421                                           'is not provided'
    422                          CALL message( 'data_output_dvrp', 'PA0184', 0, 0, 0, 6, 0 )
     420                      message_string = 'if cloud_physics = FALSE '       // &
     421                                  'output of ' // TRIM( output_variable) // &
     422                                  'is not provided'
     423                      CALL message( 'data_output_dvrp', 'PA0184',&
     424                                                                 0, 0, 0, 6, 0 )
    423425                   ENDIF
    424426
  • palm/trunk/SOURCE/data_output_profiles.f90

    r263 r274  
    289289                      IF ( cross_normx_factor(k,j) == 0.0  .OR. &
    290290                           cross_normy_factor(k,j) == 0.0 )  THEN
    291                          WRITE( message_string, * ) 'data_output_profiles: normalizi', &
    292                                                     'ng cross ',j, ' is not possible since one o', &
    293                                                     'f the & normalizing factors is zero! & ', &
    294                                                     'cross_normx_factor(',k,',',j,') = ', &
    295                                                      cross_normx_factor(k,j), &
    296                                                     ' & cross_normy_factor(',k,',',j,') = ', &
    297                                                      cross_normy_factor(k,j)
    298                          CALL message( 'data_output_profiles', 'PA0185', 0, 1, 0, 6, 0 )
     291                         WRITE( message_string, * ) 'data_output_profiles: ',  &
     292                              'normalizing cross ',j, ' is not possible ',     &
     293                              'since one of the & normalizing factors ',       &
     294                              'is zero! & cross_normx_factor(',k,',',j,') = ', &
     295                                                      cross_normx_factor(k,j), &
     296                              ' & cross_normy_factor(',k,',',j,') = ',         &
     297                                                      cross_normy_factor(k,j)
     298                         CALL message( 'data_output_profiles', 'PA0185',&
     299                                                                0, 1, 0, 6, 0 )
    299300                         cross_normx_factor(k,j) = 1.0
    300301                         cross_normy_factor(k,j) = 1.0
     
    534535                IF ( cross_normx_factor(k,j) == 0.0  .OR. &
    535536                     cross_normy_factor(k,j) == 0.0 )  THEN
    536                    WRITE( message_string, * ) 'data_output_profiles: normalizi', &
    537                                               'ng cross ',j, ' is not possible since one o', &
    538                                               'f the & normalizing factors is zero! & ', &
    539                                               'cross_normx_factor(',k,',',j,') = ', &
    540                                                cross_normx_factor(k,j), &
    541                                               ' & cross_normy_factor(',k,',',j,') = ', &
    542                                                cross_normy_factor(k,j)
    543                     CALL message( 'data_output_profiles', 'PA0185', 0, 1, 0, 6, 0 )
     537                   WRITE( message_string, * ) 'data_output_profiles: ',  &
     538                              'normalizing cross ',j, ' is not possible ',     &
     539                              'since one of the & normalizing factors ',       &
     540                              'is zero! & cross_normx_factor(',k,',',j,') = ', &
     541                                                      cross_normx_factor(k,j), &
     542                              ' & cross_normy_factor(',k,',',j,') = ',         &
     543                                                      cross_normy_factor(k,j)
     544                         CALL message( 'data_output_profiles', 'PA0185',&
     545                                                                0, 1, 0, 6, 0 )
    544546                    cross_normx_factor(k,j) = 1.0
    545547                    cross_normy_factor(k,j) = 1.0
  • palm/trunk/SOURCE/fft_xy.f90

    r254 r274  
    361361#endif
    362362       ELSE
    363           message_string = 'fft method "' // TRIM( fft_method) // '" not available'
     363          message_string = 'fft method "' // TRIM( fft_method) // &
     364                           '" not available'
    364365          CALL message( 'fft_x', 'PA0189', 1, 2, 0, 6, 0 )
    365366
     
    543544       ELSE
    544545
    545           message_string = 'fft method "' // TRIM( fft_method) // '" not available'
     546          message_string = 'fft method "' // TRIM( fft_method) // &
     547                           '" not available'
    546548          CALL message( 'fft_y', 'PA0189', 1, 2, 0, 6, 0 )
    547549
     
    678680       ELSE
    679681
    680           message_string = 'fft method "' // TRIM( fft_method) // '" not available'
     682          message_string = 'fft method "' // TRIM( fft_method) // &
     683                           '" not available'
    681684          CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )
    682685
     
    813816       ELSE
    814817         
    815           message_string = 'fft method "' // TRIM( fft_method) // '" not available'
     818          message_string = 'fft method "' // TRIM( fft_method) // &
     819                           '" not available'
    816820          CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )
    817821
  • palm/trunk/SOURCE/flow_statistics.f90

    r254 r274  
    9595    IF ( flow_statistics_called )  THEN
    9696
    97        message_string = 'flow_statistics is called two times within one timestep'
     97       message_string = 'flow_statistics is called two times within one ' // &
     98                        'timestep'
    9899       CALL message( 'flow_statistics', 'PA0190', 1, 2, 0, 6, 0 )
    99100     
  • palm/trunk/SOURCE/init_3d_model.f90

    r254 r274  
    13791379    IF ( dots_num > dots_max )  THEN
    13801380       WRITE( message_string, * ) 'number of time series quantities exceeds', &
    1381                                   ' its maximum of dots_max = ', dots_max, &
     1381                                  ' its maximum of dots_max = ', dots_max,    &
    13821382                                  ' &Please increase dots_max in modules.f90.'
    13831383       CALL message( 'init_3d_model', 'PA0194', 1, 2, 0, 6, 0 )   
  • palm/trunk/SOURCE/init_dvrp.f90

    r273 r274  
    145145    IF ( dvrp_output /= 'ftp'  .AND.  dvrp_output /= 'rtsp'  .AND. &
    146146         dvrp_output /= 'local' )  THEN
    147        message_string = 'dvrp_output="' // TRIM( dvrp_output ) // '" not allowed'
     147       message_string = 'dvrp_output="' // TRIM( dvrp_output ) // &
     148                        '" not allowed'
    148149       CALL message( 'init_dvrp', 'PA0196', 1, 2, 0, 6, 0 )
    149150    ENDIF
     
    189190            mode_dvrp(m)(1:9)  /= 'pathlines' )  THEN
    190191
    191           message_string = 'mode_dvrp="' // TRIM( mode_dvrp(m) ) // '" not allowed'
     192          message_string = 'mode_dvrp="' // TRIM( mode_dvrp(m) ) // &
     193                           '" not allowed'
    192194          CALL message( 'init_dvrp', 'PA0198', 1, 2, 0, 6, 0 )
    193195          CALL local_stop
  • palm/trunk/SOURCE/init_grid.f90

    r254 r274  
    367367          IF ( ( bxl < 1 ) .OR. ( bxr > nx-1 ) .OR. ( bxr < bxl+3 ) .OR.  &
    368368               ( bys < 1 ) .OR. ( byn > ny-1 ) .OR. ( byn < bys+3 ) )  THEN
    369              WRITE( message_string, * ) 'inconsistent building parameters:', &
    370                                         '& bxl=', bxl, 'bxr=', bxr, 'bys=', bys, &
    371                                         'byn=', byn, 'nx=', nx, 'ny=', ny
     369             WRITE( message_string, * ) 'inconsistent building parameters:',   &
     370                                      '& bxl=', bxl, 'bxr=', bxr, 'bys=', bys, &
     371                                      'byn=', byn, 'nx=', nx, 'ny=', ny
    372372             CALL message( 'init_grid', 'PA0203', 1, 2, 0, 6, 0 )
    373373          ENDIF
     
    417417               ( ch < 3 ) )  THEN
    418418                WRITE( message_string, * ) 'inconsistent canyon parameters:', &
    419                                            '&cxl=', cxl, 'cxr=', cxr,  &
    420                                            'cwx=', cwx,  &
     419                                           '&cxl=', cxl, 'cxr=', cxr,         &
     420                                           'cwx=', cwx,                       &
    421421                                           'ch=', ch, 'nx=', nx, 'ny=', ny
    422422                CALL message( 'init_grid', 'PA0205', 1, 2, 0, 6, 0 )
     
    426426               ( ch < 3 ) )  THEN
    427427                WRITE( message_string, * ) 'inconsistent canyon parameters:', &
    428                                            '&cys=', cys, 'cyn=', cyn,  &
    429                                            'cwy=', cwy,  &
     428                                           '&cys=', cys, 'cyn=', cyn,         &
     429                                           'cwy=', cwy,                       &
    430430                                           'ch=', ch, 'nx=', nx, 'ny=', ny
    431431                CALL message( 'init_grid', 'PA0206', 1, 2, 0, 6, 0 )
    432432             ENDIF
    433433          ENDIF
    434           IF ( canyon_width_x /= 9999999.9 .AND. canyon_width_y /= 9999999.9 )  &
     434          IF ( canyon_width_x /= 9999999.9 .AND. canyon_width_y /= 9999999.9 ) &
    435435               THEN
    436              message_string = 'inconsistent canyon parameters:' // &
     436             message_string = 'inconsistent canyon parameters:' //     & 
    437437                              '&street canyon can only be oriented' // &
    438438                              '&either in x- or in y-direction'
     
    507507!--    Consistency checks
    508508       IF ( MINVAL( nzb_local ) < 0  .OR.  MAXVAL( nzb_local ) > nz + 1 )  THEN
    509           WRITE( message_string, * ) 'nzb_local values are outside the', &
    510                                      'model domain', &
    511                                      '&MINVAL( nzb_local ) = ', MINVAL(nzb_local), &
    512                                      '&MAXVAL( nzb_local ) = ', MAXVAL(nzb_local)
     509          WRITE( message_string, * ) 'nzb_local values are outside the',      &
     510                                'model domain',                              &
     511                                '&MINVAL( nzb_local ) = ', MINVAL(nzb_local), &
     512                                '&MAXVAL( nzb_local ) = ', MAXVAL(nzb_local)
    513513          CALL message( 'init_grid', 'PA0210', 1, 2, 0, 6, 0 )
    514514       ENDIF
  • palm/trunk/SOURCE/init_particles.f90

    r254 r274  
    9898!-- Check the number of particle groups.
    9999    IF ( number_of_particle_groups > max_number_of_particle_groups )  THEN
    100        WRITE( message_string, * ) 'max_number_of_particle_groups =', &
    101                                   max_number_of_particle_groups , &
     100       WRITE( message_string, * ) 'max_number_of_particle_groups =',      &
     101                                  max_number_of_particle_groups ,         &
    102102                                  '&number_of_particle_groups reset to ', &
    103103                                  max_number_of_particle_groups
     
    153153       particle_binary_version = '3.0'
    154154       IF ( TRIM( version_on_file ) /= TRIM( particle_binary_version ) )  THEN
    155           message_string = 'version mismatch concerning data from prior run' // &
    156                            '&version on file    = "' // TRIM( version_on_file ) // &
    157                            '&version in program = "' // &
    158                            TRIM( particle_binary_version ) // '"'
     155          message_string = 'version mismatch concerning data from prior ' // &
     156                           'run &version on file    = "' //                  &
     157                                         TRIM( version_on_file ) //          &
     158                           '&version in program = "' //                      &
     159                                         TRIM( particle_binary_version ) // '"'
    159160          CALL message( 'init_particles', 'PA0214', 1, 2, 0, 6, 0 )
    160161       ENDIF
     
    269270                            IF ( n > maximum_number_of_particles )  THEN
    270271                               WRITE( message_string, * ) 'number of initial', &
    271                                              'particles (', n, ') exceeds', &
    272                                              '&maximum_number_of_particles (', &
    273                                              maximum_number_of_particles, ') on PE ', &
     272                                      'particles (', n, ') exceeds',          &
     273                                      '&maximum_number_of_particles (',        &
     274                                      maximum_number_of_particles, ') on PE ', &
    274275                                             myid
    275                                CALL message( 'init_particles', 'PA0216', 2, 2, 0, 6, 0 )
     276                               CALL message( 'init_particles', 'PA0216', &
     277                                                                 2, 2, 0, 6, 0 )
    276278                            ENDIF
    277279                            particles(n)%x             = pos_x
  • palm/trunk/SOURCE/init_pegrid.f90

    r254 r274  
    122122!--    must be equal to the number of PEs available to the job
    123123       IF ( ( npex * npey ) /= numprocs )  THEN
    124           WRITE( message_string, * ) 'number of PEs of the prescribed topology (', &
    125                                      npex*npey,') does not match & the number of ', &
    126                                      'PEs available to the job (', numprocs, ')'
     124          WRITE( message_string, * ) 'number of PEs of the prescribed ',      &
     125                 'topology (', npex*npey,') does not match & the number of ', &
     126                 'PEs available to the job (', numprocs, ')'
    127127          CALL message( 'init_pegrid', 'PA0221', 1, 2, 0, 6, 0 )
    128128       ENDIF
     
    134134!--    If the processor topology is prescribed by the user, the number of
    135135!--    PEs must be given in both directions
    136        message_string = 'if the processor topology is prescribed by the user, ' // &
    137                     '& both values of "npex" and "npey" must be given in the ' //    &
    138                     '&NAMELIST-parameter file'
     136       message_string = 'if the processor topology is prescribed by the, ' // &
     137                   ' user& both values of "npex" and "npey" must be given ' // &
     138                   'in the &NAMELIST-parameter file'
    139139       CALL message( 'init_pegrid', 'PA0222', 1, 2, 0, 6, 0 )
    140140
     
    235235
    236236    IF ( MOD( nxa+1 , pdims(1) ) /= 0 )  THEN
    237        WRITE( message_string, * ) 'x-direction: gridpoint number (',nx+1,') is not an',&
    238                                   '& integral divisor of the number of proces', &
    239                                   'sors (', pdims(1),')'
     237       WRITE( message_string, * ) 'x-direction: gridpoint number (',nx+1,') ',&
     238                               'is not an& integral divisor of the number ', &
     239                               'processors (', pdims(1),')'
    240240       CALL message( 'init_pegrid', 'PA0225', 1, 2, 0, 6, 0 )
    241241    ELSE
    242242       nnx  = ( nxa + 1 ) / pdims(1)
    243243       IF ( nnx*pdims(1) - ( nx + 1) > nnx )  THEN
    244           WRITE( message_string, * ) 'x-direction: nx does not match the', &
    245                                      'requirements given by the number of PEs', &
    246                                      '& used',&
    247                                      '& please use nx = ', nx - ( pdims(1) - ( nnx*pdims(1) &
    248                                        - ( nx + 1 ) ) ), ' instead of nx =', nx
     244          WRITE( message_string, * ) 'x-direction: nx does not match the',    &
     245                       'requirements given by the number of PEs &used',       &
     246                       '& please use nx = ', nx - ( pdims(1) - ( nnx*pdims(1) &
     247                                   - ( nx + 1 ) ) ), ' instead of nx =', nx
    249248          CALL message( 'init_pegrid', 'PA0226', 1, 2, 0, 6, 0 )
    250249       ENDIF
     
    262261!-- Calculate array bounds in y-direction for every PE.
    263262    IF ( MOD( nya+1 , pdims(2) ) /= 0 )  THEN
    264        WRITE( message_string, * ) 'y-direction: gridpoint number (',ny+1,') is not an', &
    265                                   '& integral divisor of the number of proces', &
    266                                   'sors (', pdims(2),')'
     263       WRITE( message_string, * ) 'y-direction: gridpoint number (',ny+1,') ', &
     264                           'is not an& integral divisor of the number of',    &
     265                           'processors (', pdims(2),')'
    267266       CALL message( 'init_pegrid', 'PA0227', 1, 2, 0, 6, 0 )
    268267    ELSE
    269268       nny  = ( nya + 1 ) / pdims(2)
    270269       IF ( nny*pdims(2) - ( ny + 1) > nny )  THEN
    271           WRITE( message_string, * ) 'y-direction: ny does not match the',&
    272                                      'requirements given by the number of PEs', &
    273                                      '& used', &
    274                                      '& please use ny = ', ny - ( pdims(2) - ( nnx*pdims(2) &
     270          WRITE( message_string, * ) 'y-direction: ny does not match the',    &
     271                       'requirements given by the number of PEs &used ',      &
     272                       '& please use ny = ', ny - ( pdims(2) - ( nnx*pdims(2) &
    275273                                     - ( ny + 1 ) ) ), ' instead of ny =', ny
    276274          CALL message( 'init_pegrid', 'PA0228', 1, 2, 0, 6, 0 )
     
    324322       nny_x  = nny
    325323       IF ( MOD( nza , pdims(1) ) /= 0 )  THEN
    326           WRITE( message_string, * ) 'transposition z --> x:', &
    327                                      '&nz=',nz,' is not an integral divisior of pdims(1)=', &
    328                                      pdims(1)
     324          WRITE( message_string, * ) 'transposition z --> x:',                &
     325                       '&nz=',nz,' is not an integral divisior of pdims(1)=', &
     326                                                                   pdims(1)
    329327          CALL message( 'init_pegrid', 'PA0230', 1, 2, 0, 6, 0 )
    330328       ENDIF
     
    356354    nzt_y  = nzt_x
    357355    IF ( MOD( nxa+1 , pdims(2) ) /= 0 )  THEN
    358        WRITE( message_string, * ) 'transposition x --> y:', &
    359                                   '&nx+1=',nx+1,' is not an integral divisor of ',&
    360                                   'pdims(2)=',pdims(2)
     356       WRITE( message_string, * ) 'transposition x --> y:',                &
     357                         '&nx+1=',nx+1,' is not an integral divisor of ',&
     358                         'pdims(2)=',pdims(2)
    361359       CALL message( 'init_pegrid', 'PA0231', 1, 2, 0, 6, 0 )
    362360    ENDIF
     
    382380       nxr_z  = nxr_y
    383381       IF ( MOD( nya+1 , pdims(1) ) /= 0 )  THEN
    384           WRITE( message_string, * ) 'transposition y --> z:', &
    385                                      '& ny+1=',ny+1,' is not an integral divisor of ',&
    386                                      'pdims(1)=',pdims(1)
     382          WRITE( message_string, * ) 'transposition y --> z:',            &
     383                            '& ny+1=',ny+1,' is not an integral divisor of ',&
     384                            'pdims(1)=',pdims(1)
    387385          CALL message( 'init_pegrid', 'PA0232', 1, 2, 0, 6, 0 )
    388386       ENDIF
     
    398396!--    x --> y. This condition must be fulfilled for a 1D-decomposition along x
    399397       IF ( MOD( nya+1 , pdims(1) ) /= 0 )  THEN
    400           WRITE( message_string, * ) 'transposition x --> y:', &
    401                                      '& ny+1=',ny+1,' is not an integral divisor of ',&
    402                                      'pdims(1)=',pdims(1)
     398          WRITE( message_string, * ) 'transposition x --> y:',               &
     399                            '& ny+1=',ny+1,' is not an integral divisor of ',&
     400                            'pdims(1)=',pdims(1)
    403401          CALL message( 'init_pegrid', 'PA0233', 1, 2, 0, 6, 0 )
    404402       ENDIF
     
    410408    IF ( dt_dosp /= 9999999.9 )  THEN
    411409       IF ( MOD( nza, pdims(2) ) /= 0 )  THEN
    412           WRITE( message_string, * ) 'direct transposition z --> y (needed for spectra):', &
    413                                      '& nz=',nz,' is not an integral divisor of ',&
    414                                      'pdims(2)=',pdims(2)
     410          WRITE( message_string, * ) 'direct transposition z --> y (needed ', &
     411                    'for spectra):& nz=',nz,' is not an integral divisor of ',&
     412                    'pdims(2)=',pdims(2)
    415413          CALL message( 'init_pegrid', 'PA0234', 1, 2, 0, 6, 0 )
    416414       ELSE
  • palm/trunk/SOURCE/netcdf.f90

    r263 r274  
    110110          j = INDEX( netcdf_precision(i), '_' )
    111111          IF ( j == 0 )  THEN
    112              WRITE ( message_string, * ) 'netcdf_precision must contain a "_"', &   
    113                                          'netcdf_precision(', i, ')="',         &
     112             WRITE ( message_string, * ) 'netcdf_precision must contain a ', &
     113                                         '"_"netcdf_precision(', i, ')="',   &
    114114                                         TRIM( netcdf_precision(i) ),'"'
    115115             CALL message( 'define_netcdf_header', 'PA0241', 1, 2, 0, 6, 0 )
     
    153153
    154154             CASE DEFAULT
    155                 WRITE ( message_string, * ) 'unknown variable in inipar assignment:',&
    156                                             'netcdf_precision(', i, ')="',           &
     155                WRITE ( message_string, * ) 'unknown variable in inipar ',    &
     156                                  'assignment: netcdf_precision(', i, ')="',  &
    157157                                            TRIM( netcdf_precision(i) ),'"'
    158                 CALL message( 'define_netcdf_header', 'PA0243', 1, 2, 0, 6, 0 )            
     158                CALL message( 'define_netcdf_header', 'PA0243', 1, 2, 0, 6, 0 )
    159159
    160160          END SELECT
     
    418418                WRITE ( message_string, * ) 'no grid defined for', &
    419419                                            ' variable ', TRIM( do3d(av,i) )
    420                 CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 
     420                CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 )
    421421             ENDIF
    422422
     
    950950                      WRITE ( message_string, * ) 'no grid defined for', &
    951951                                            ' variable ', TRIM( do2d(av,i) )
    952                       CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 )
     952                      CALL message( 'define_netcdf_header', 'PA0244',&
     953                                                                0, 1, 0, 6, 0 )
    953954                   ENDIF
    954955
     
    11891190             IF ( section(i,1) /= -1 )  THEN
    11901191                IF ( zu(section(i,1)) /= netcdf_data(i) )  THEN
    1191                    message_string = 'NetCDF file for cross-sections ' //          &
    1192                                     TRIM( var ) // ' from previuos run found,' // &
    1193                                     '&but this file cannot be extended' //        &
    1194                                     ' due to mismatch in cross' //                &
    1195                                     '&section levels.' //                         &
    1196                                     '&New file is created instead.'
    1197                    CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
     1192                   message_string = 'NetCDF file for cross-sections ' //     &
     1193                               TRIM( var ) // ' from previuos run found,' // &
     1194                               '&but this file cannot be extended' //        &
     1195                               ' due to mismatch in cross' //                &
     1196                               '&section levels.' //                         &
     1197                               '&New file is created instead.'
     1198                   CALL message( 'define_netcdf_header', 'PA0251', &
     1199                                                                 0, 1, 0, 6, 0 )
    11981200                   extend = .FALSE.
    11991201                   RETURN
     
    12011203             ELSE
    12021204                IF ( -1.0 /= netcdf_data(i) )  THEN
    1203                    message_string = 'NetCDF file for cross-sections ' //          &
    1204                                     TRIM( var ) // ' from previuos run found,' // &
    1205                                     '&but this file cannot be extended' //        &
    1206                                     ' due to mismatch in cross' //                &
    1207                                     '&section levels.' //                         &
    1208                                     '&New file is created instead.'
    1209                    CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
     1205                   message_string = 'NetCDF file for cross-sections ' //     &
     1206                               TRIM( var ) // ' from previuos run found,' // &
     1207                               '&but this file cannot be extended' //        &
     1208                               ' due to mismatch in cross' //                &
     1209                               '&section levels.' //                         &
     1210                               '&New file is created instead.'
     1211                   CALL message( 'define_netcdf_header', 'PA0251',&
     1212                                                                 0, 1, 0, 6, 0 )
    12101213                   extend = .FALSE.
    12111214                   RETURN
     
    15011504                   WRITE ( message_string, * ) 'no grid defined for', &
    15021505                                            ' variable ', TRIM( do2d(av,i) )
    1503                    CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 
     1506                   CALL message( 'define_netcdf_header', 'PA0244',&
     1507                                                                 0, 1, 0, 6, 0 )
    15041508                ENDIF
    15051509
     
    17081712             IF ( section(i,2) /= -1 )  THEN
    17091713                IF ( ( section(i,2) * dy ) /= netcdf_data(i) )  THEN
    1710                    message_string = 'NetCDF file for cross-sections ' //          &
    1711                                     TRIM( var ) // ' from previuos run found,' // &
    1712                                     '&but this file cannot be extended' //        &
    1713                                     ' due to mismatch in cross' //                &
    1714                                     '&section levels.' //                         &
    1715                                     '&New file is created instead.'
    1716                    CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
     1714                   message_string = 'NetCDF file for cross-sections ' //     &
     1715                               TRIM( var ) // ' from previuos run found,' // &
     1716                               '&but this file cannot be extended' //        &
     1717                               ' due to mismatch in cross' //                &
     1718                               '&section levels.' //                         &
     1719                                '&New file is created instead.'
     1720                   CALL message( 'define_netcdf_header', 'PA0251', &
     1721                                                                 0, 1, 0, 6, 0 )
    17171722                   extend = .FALSE.
    17181723                   RETURN
     
    17201725             ELSE
    17211726                IF ( -1.0 /= netcdf_data(i) )  THEN
    1722                    message_string = 'NetCDF file for cross-sections ' //          &
    1723                                     TRIM( var ) // ' from previuos run found,' // &
    1724                                     '&but this file cannot be extended' //        &
    1725                                     ' due to mismatch in cross' //                &
    1726                                     '&section levels.' //                         &               
    1727                                     '&New file is created instead.'
    1728                    CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
     1727                   message_string = 'NetCDF file for cross-sections ' //     &
     1728                               TRIM( var ) // ' from previuos run found,' // &
     1729                               '&but this file cannot be extended' //        &
     1730                               ' due to mismatch in cross' //                &
     1731                               '&section levels.' //                         &
     1732                               '&New file is created instead.'
     1733                   CALL message( 'define_netcdf_header', 'PA0251', &
     1734                                                                 0, 1, 0, 6, 0 )
    17291735                   extend = .FALSE.
    17301736                   RETURN
     
    20202026                   WRITE ( message_string, * ) 'no grid defined for', &
    20212027                                            ' variable ', TRIM( do2d(av,i) )
    2022                    CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 ) 
     2028                   CALL message( 'define_netcdf_header', 'PA0244',&
     2029                                                                 0, 1, 0, 6, 0 )
    20232030                ENDIF
    20242031
     
    22252232             IF ( section(i,3) /= -1 )  THEN
    22262233                IF ( ( section(i,3) * dx ) /= netcdf_data(i) )  THEN
    2227                    message_string = 'NetCDF file for cross-sections ' //          &
    2228                                     TRIM( var ) // ' from previuos run found,' // &
    2229                                     '&but this file cannot be extended' //        &
    2230                                     ' due to mismatch in cross' //                &
    2231                                     '&section levels.' //                         &
    2232                                     '&New file is created instead.'
    2233                    CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
     2234                   message_string = 'NetCDF file for cross-sections ' //    &
     2235                              TRIM( var ) // ' from previuos run found,' // &
     2236                              '&but this file cannot be extended' //        &
     2237                              ' due to mismatch in cross' //                &
     2238                              '&section levels.' //                         &
     2239                             '&New file is created instead.'
     2240                   CALL message( 'define_netcdf_header', 'PA0251', &
     2241                                                                 0, 1, 0, 6, 0 )
    22342242                   extend = .FALSE.
    22352243                   RETURN
     
    22372245             ELSE
    22382246                IF ( -1.0 /= netcdf_data(i) )  THEN
    2239                    message_string = 'NetCDF file for cross-sections ' //          &
    2240                                     TRIM( var ) // ' from previuos run found,' // &
    2241                                     '&but this file cannot be extended' //        &
    2242                                     ' due to mismatch in cross' //                &
    2243                                     '&section levels.' //                         &
    2244                                     '&New file is created instead.'
    2245                    CALL message( 'define_netcdf_header', 'PA0251', 0, 1, 0, 6, 0 )
     2247                   message_string = 'NetCDF file for cross-sections ' //    &
     2248                              TRIM( var ) // ' from previuos run found,' // &
     2249                              '&but this file cannot be extended' //        &
     2250                              ' due to mismatch in cross' //                &
     2251                              '&section levels.' //                         &
     2252                              '&New file is created instead.'
     2253                   CALL message( 'define_netcdf_header', 'PA0251', &
     2254                                                                 0, 1, 0, 6, 0 )
    22462255                   extend = .FALSE.
    22472256                   RETURN
     
    32163225          IF ( averaging_interval_sp /= 0.0 )  THEN
    32173226             WRITE (time_average_text,'('', '',F7.1,'' s average'')') &
    3218                                                             averaging_interval_sp
     3227                                                           averaging_interval_sp
    32193228             nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title',  &
    32203229                                     TRIM( run_description_header ) // &
  • palm/trunk/SOURCE/parin.f90

    r260 r274  
    179179    READ ( 11, inipar, ERR=10, END=11 )
    180180    GOTO 12
    181  10 message_string = 'errors in \$inipar &or no \$inipar-namelist found (CRAY-machines only)'
     181 10 message_string = 'errors in \$inipar &or no \$inipar-namelist ' // &
     182                     'found (CRAY-machines only)'
    182183    CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
    183184
     
    229230
    230231       IF ( nx <= 0 )  THEN
    231           WRITE( message_string, * ) 'no value or wrong value given for nx: nx=', nx
     232          WRITE( message_string, * ) 'no value or wrong value given for nx: ',&
     233                                     'nx=', nx
    232234          CALL message( 'parin', 'PA0273', 1, 2, 0, 6, 0 )
    233235       ENDIF
    234236       IF ( ny <= 0 )  THEN
    235           WRITE( message_string, * ) 'no value or wrong value given for ny: ny=', ny
     237          WRITE( message_string, * ) 'no value or wrong value given for ny: ',&
     238                                     'ny=', ny
    236239          CALL message( 'parin', 'PA0274', 1, 2, 0, 6, 0 )
    237240       ENDIF
    238241       IF ( nz <= 0 )  THEN
    239           WRITE( message_string, * ) 'no value or wrong value given for nz: nz=', nz
     242          WRITE( message_string, * ) 'no value or wrong value given for nz: ',&
     243                                     'nz=', nz
    240244          CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 )
    241245       ENDIF
  • palm/trunk/SOURCE/poisfft_hybrid.f90

    r257 r274  
    187187                                              'tasks_per_logical_node = ',  &
    188188                                              tasks_per_logical_node
    189                    CALL message( 'poisfft_hybrid_ini', 'PA0281', 0, 0, 0, 6, 0 ) 
     189                   CALL message( 'poisfft_hybrid_ini', 'PA0281', 0, 0, 0, 6, 0 )
    190190
    191191                ENDIF
  • palm/trunk/SOURCE/read_3d_binary.f90

    r257 r274  
    204204    IF ( files_to_be_opened /= 1  .OR.  numprocs /= numprocs_previous_run ) &
    205205    THEN
    206        WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed in ',    &
    207                                   'restart run&  PE', myid, ' will read from files ', &
    208                                   file_list(1:files_to_be_opened)
     206       WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed ', &
     207                        'in restart run&  PE', myid, ' will read from files ', &
     208                         file_list(1:files_to_be_opened)
    209209       CALL message( 'read_3d_binary', 'PA0285', 0, 0, 0, 6, 0 )
    210210    ENDIF
     
    237237       binary_version = '3.1'
    238238       IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
    239           WRITE( message_string, * ) 'version mismatch concerning data ',                    &
    240                                      'from prior run',                                       &
    241                                      '&version on file    = "', TRIM( version_on_file ), '"',&
    242                                      '&version in program = "', TRIM( binary_version ), '"'
     239          WRITE( message_string, * ) 'version mismatch concerning data ',      &
     240                      'from prior run',                                        &
     241                      '&version on file    = "', TRIM( version_on_file ), '"', &
     242                      '&version in program = "', TRIM( binary_version ), '"'
    243243          CALL message( 'read_3d_binary', 'PA0286', 1, 2, 0, 6, 0 )
    244244       ENDIF
     
    251251
    252252       IF ( nxl_on_file /= hor_index_bounds_previous_run(1,j) )  THEN
    253           WRITE( message_string, * ) 'problem with index bound nxl on ',          &
    254                                      'restart file "', myid_char, '"',            &
    255                                      '&nxl = ', nxl_on_file, ' but it should be', &
    256                                      '&= ', hor_index_bounds_previous_run(1,j),   &
    257                                      '&from the index bound information array'
     253          WRITE( message_string, * ) 'problem with index bound nxl on ',  &
     254                            'restart file "', myid_char, '"',             &
     255                            '&nxl = ', nxl_on_file, ' but it should be', &
     256                            '&= ', hor_index_bounds_previous_run(1,j),    &
     257                            '&from the index bound information array'
    258258          CALL message( 'read_3d_binary', 'PA0287', 2, 2, 0, 6, 0 )
    259259       ENDIF
    260260
    261261       IF ( nxr_on_file /= hor_index_bounds_previous_run(2,j) )  THEN
    262            WRITE( message_string, * ) 'problem with index bound nxr on ',          &
    263                                       'restart file "', myid_char, '"'  ,          &
    264                                       '&nxr = ', nxr_on_file, ' but it should be', &
    265                                       '&= ', hor_index_bounds_previous_run(2,j),   &
    266                                       '&from the index bound information array'
     262           WRITE( message_string, * ) 'problem with index bound nxr on ',   &
     263                               'restart file "', myid_char, '"'  ,          &
     264                               '&nxr = ', nxr_on_file, ' but it should be', &
     265                               '&= ', hor_index_bounds_previous_run(2,j),   &
     266                               '&from the index bound information array'
    267267          CALL message( 'read_3d_binary', 'PA0288', 2, 2, 0, 6, 0 )
    268268
     
    270270
    271271       IF ( nys_on_file /= hor_index_bounds_previous_run(3,j) )  THEN
    272           WRITE( message_string, * ) 'problem with index bound nys on ',          &
    273                                      'restart file "', myid_char, '"',            &
    274                                      '&nys = ', nys_on_file, ' but it should be', &
    275                                      '&= ', hor_index_bounds_previous_run(3,j),   &
     272          WRITE( message_string, * ) 'problem with index bound nys on ',      &
     273                                 'restart file "', myid_char, '"',            &
     274                                 '&nys = ', nys_on_file, ' but it should be', &
     275                                 '&= ', hor_index_bounds_previous_run(3,j),   &
    276276                                     '&from the index bound information array'
    277277          CALL message( 'read_3d_binary', 'PA0289', 2, 2, 0, 6, 0 )
     
    279279
    280280       IF ( nyn_on_file /= hor_index_bounds_previous_run(4,j) )  THEN
    281           WRITE( message_string, * ) 'problem with index bound nyn on ',          &
    282                                      'restart file "', myid_char, '"',            &
    283                                      '&nyn = ', nyn_on_file, ' but it should be', &
    284                                      '&= ', hor_index_bounds_previous_run(4,j),   &
    285                                      '&from the index bound information array'
     281          WRITE( message_string, * ) 'problem with index bound nyn on ',    &
     282                               'restart file "', myid_char, '"',            &
     283                               '&nyn = ', nyn_on_file, ' but it should be', &
     284                               '&= ', hor_index_bounds_previous_run(4,j),   &
     285                               '&from the index bound information array'
    286286          CALL message( 'read_3d_binary', 'PA0290', 2, 2, 0, 6, 0 )
    287287       ENDIF
     
    614614                   IF ( k == 1 )  THEN
    615615                      IF ( nx_on_file /= nx )  THEN
    616                          message_string = 'read_3d_binary: spectrum_x ' //         &
    617                                           'on restart file ignored because' //     &
    618                                           '&total numbers of grid points (nx) ' // &
    619                                           'do not match'
    620                          CALL message( 'read_3d_binary', 'PA0293', 0, 1, 0, 6, 0 ) 
     616                         message_string = 'read_3d_binary: spectrum_x ' // &
     617                                     'on restart file ignored because' // &
     618                                     '&total numbers of grid points (nx) ' // &
     619                                     'do not match'
     620                         CALL message( 'read_3d_binary', 'PA0293',&
     621                                                                 0, 1, 0, 6, 0 )
    621622                         READ ( 13 )  rdummy
    622623                      ELSE
     
    628629                   IF ( k == 1 )  THEN
    629630                      IF ( ny_on_file /= ny )  THEN
    630                          message_string = 'read_3d_binary: spectrum_y ' //        &
    631                                           'on restart file ignored because' //    &
    632                                           '&total numbers of grid points (ny) '// &
    633                                           'do not match'
    634                          CALL message( 'read_3d_binary', 'PA0294', 0, 1, 0, 6, 0 ) 
    635                          READ ( 13 )  rdummy
     631                         message_string = 'read_3d_binary: spectrum_y ' //   &
     632                                     'on restart file ignored because' //    &
     633                                     '&total numbers of grid points (ny) '// &
     634                                     'do not match'
     635                         CALL message( 'read_3d_binary', 'PA0294', &
     636                                                                 0, 1, 0, 6, 0 )
     637                      READ ( 13 )  rdummy
    636638                      ELSE
    637639                         READ ( 13 )  spectrum_y
  • palm/trunk/SOURCE/read_var_list.f90

    r257 r274  
    9999    READ ( 13 )  variable_chr
    100100    IF ( TRIM( variable_chr ) /= 'numprocs' )  THEN
    101        WRITE( message_string, * ) 'numprocs not found in data from prior run ', &
    102                                   'on PE ', myid
     101       WRITE( message_string, * ) 'numprocs not found in data from prior ', &
     102                                  'run on PE ', myid
    103103       CALL message( 'read_var_list', 'PA0297', 1, 2, 0, 6, 0 )
    104104    ENDIF
     
    633633    READ ( 13 )  variable_chr
    634634    IF ( TRIM( variable_chr ) /= 'numprocs' )  THEN
    635        WRITE( message_string, * ) 'numprocs not found in data from prior run ', &
    636                                   'on PE ', myid
     635       WRITE( message_string, * ) 'numprocs not found in data from prior ', &
     636                                  'run on PE ', myid
    637637       CALL message( 'read_parts_of_var_list', 'PA0297', 1, 2, 0, 6, 0 )
    638638    ENDIF
     
    663663    IF ( nz_on_file /= nz )  THEN
    664664       WRITE( message_string, * ) 'mismatch concerning number of ',      &
    665                                  'gridpoints along z',                  &
    666                                  '&nz on file    = "', nz_on_file, '"', &
    667                                  '&nz from run   = "', nz, '"'
     665                                  'gridpoints along z',                  &
     666                                  '&nz on file    = "', nz_on_file, '"', &
     667                                  '&nz from run   = "', nz, '"'
    668668       CALL message( 'read_parts_of_var_list', 'PA0304', 1, 2, 0, 6, 0 )
    669669    ENDIF
     
    676676    READ ( 13 )  max_pr_user_on_file
    677677    IF ( max_pr_user_on_file /= max_pr_user )  THEN
    678        WRITE( message_string, * ) 'number of user profiles on res', &
    679                                   'tart data file differs from the current run', &
    680                                   '&max_pr_user on file    = "', &
    681                                   max_pr_user_on_file, '"', &
    682                                   '&max_pr_user from run   = "', &
     678       WRITE( message_string, * ) 'number of user profiles on res',           &
     679                                  'tart data file differs from the current ', &
     680                                  'run&max_pr_user on file    = "',          &
     681                                  max_pr_user_on_file, '"',                   &
     682                                  '&max_pr_user from run   = "',              &
    683683                                  max_pr_user, '"'
    684684       CALL message( 'read_parts_of_var_list', 'PA0306', 0, 0, 0, 6, 0 )
     
    695695    READ ( 13 )  statistic_regions_on_file
    696696    IF ( statistic_regions_on_file /= statistic_regions )  THEN
    697        WRITE( message_string, * ) 'statistic regions on restart data file differ ',&
    698                                   'from the current run',&
    699                                   '&statistic regions on file    = "', &
    700                                   statistic_regions_on_file, '"', &
    701                                   '&statistic regions from run   = "', &
    702                                    statistic_regions, '"', &
     697       WRITE( message_string, * ) 'statistic regions on restart data file ',&
     698                                  'differ from the current run',            &
     699                                  '&statistic regions on file    = "',      &
     700                                  statistic_regions_on_file, '"',           &
     701                                  '&statistic regions from run   = "',      &
     702                                   statistic_regions, '"',                  &
    703703                                  '&statistic data may be lost!'
    704704       CALL message( 'read_parts_of_var_list', 'PA0308', 0, 1, 0, 6, 0 )
     
    725725             READ ( 13 )  average_count_pr
    726726             IF ( average_count_pr /= 0 )  THEN
    727                 WRITE( message_string, * ) 'inflow profiles not temporally averaged.',&
    728                                            '&Averaging will be done now using ',      &
    729                                            average_count_pr, ' samples.'
    730                 CALL message( 'read_parts_of_var_list', 'PA0309', 0, 1, 0, 6, 0 )
     727                WRITE( message_string, * ) 'inflow profiles not temporally ',  &
     728                               'averaged. &Averaging will be done now using ', &
     729                               average_count_pr, ' samples.'
     730                CALL message( 'read_parts_of_var_list', 'PA0309', &
     731                                                                 0, 1, 0, 6, 0 )
    731732             ENDIF
    732733
  • palm/trunk/SOURCE/surface_coupler.f90

    r258 r274  
    5353                       0, comm_inter, status, ierr )
    5454    IF ( terminate_coupled_remote > 0 )  THEN
    55        WRITE( message_string, * ) 'remote model "', TRIM( coupling_mode_remote ), &
    56                                   '" terminated',                                 &
    57                                   '&with terminate_coupled_remote = ',            &
    58                                   terminate_coupled_remote,                       &
    59                                   '&local model  "', TRIM( coupling_mode ),       &
    60                                   '" has',                                        &
    61                                   '&terminate_coupled = ',                        &
     55       WRITE( message_string, * ) 'remote model "',                         &
     56                                  TRIM( coupling_mode_remote ),             &
     57                                  '" terminated',                           &
     58                                  '&with terminate_coupled_remote = ',      &
     59                                  terminate_coupled_remote,                 &
     60                                  '&local model  "', TRIM( coupling_mode ), &
     61                                  '" has',                                  &
     62                                  '&terminate_coupled = ',                  &
    6263                                  terminate_coupled
    6364       CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/timestep.f90

    r258 r274  
    202202          stop_dt = .TRUE.
    203203
    204           WRITE( message_string, * ) 'Time step has reached minimum limit.',        &
    205                              '&dt      = ', dt_3d, ' s  Simulation is terminated.', &
    206                              '&old_dt  = ', old_dt, ' s',                           &
    207                              '&dt_u    = ', dt_u, ' s',                             &
    208                              '&dt_v    = ', dt_v, ' s',                             &
    209                              '&dt_w    = ', dt_w, ' s',                             &
    210                              '&dt_diff = ', dt_diff, ' s',                          &
    211                              '&u_max   = ', u_max, ' m/s   k=', u_max_ijk(1),       &
    212                              '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),            &
    213                              '&v_max   = ', v_max, ' m/s   k=', v_max_ijk(1),       &
    214                              '  j=', v_max_ijk(2), '  i=', v_max_ijk(3),            &
    215                              '&w_max   = ', w_max, ' m/s   k=', w_max_ijk(1),       &
    216                              '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
     204          WRITE( message_string, * ) 'Time step has reached minimum limit.',   &
     205                        '&dt      = ', dt_3d, ' s  Simulation is terminated.', &
     206                        '&old_dt  = ', old_dt, ' s',                           &
     207                        '&dt_u    = ', dt_u, ' s',                             &
     208                        '&dt_v    = ', dt_v, ' s',                             &
     209                        '&dt_w    = ', dt_w, ' s',                             &
     210                        '&dt_diff = ', dt_diff, ' s',                          &
     211                        '&u_max   = ', u_max, ' m/s   k=', u_max_ijk(1),       &
     212                        '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),            &
     213                        '&v_max   = ', v_max, ' m/s   k=', v_max_ijk(1),       &
     214                        '  j=', v_max_ijk(2), '  i=', v_max_ijk(3),            &
     215                        '&w_max   = ', w_max, ' m/s   k=', w_max_ijk(1),       &
     216                        '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
    217217          CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 )
    218218!
  • palm/trunk/SOURCE/user_init_plant_canopy.f90

    r258 r274  
    6060!--       After definition, please
    6161!--       remove the following three lines!
    62           message_string = 'canopy_mode "' // canopy_mode // '" not available yet'
     62          message_string = 'canopy_mode "' // canopy_mode // &
     63                           '" not available yet'
    6364          CALL message( 'user_init_plant_canopy', 'UI0007', 0, 1, 0, 6, 0 )
    6465         
     
    6667!
    6768!--       The DEFAULT case is reached if the parameter canopy_mode contains a
    68 !--       wrong character string that is neither recognized in init_3d_model nor 
     69!--       wrong character string that is neither recognized in init_3d_model nor
    6970!--       here in user_init_plant_canopy.
    7071          message_string = 'unknown canopy_mode "' // canopy_mode // '"'
  • palm/trunk/SOURCE/user_parin.f90

    r258 r274  
    7575    IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
    7676       IF ( max_pr_user /= max_pr_user_tmp )  THEN
    77           WRITE( message_string, * ) 'the number of user-defined profiles given in ', &
    78                                      '&data_output_pr (', max_pr_user_tmp, ') doe',    &
    79                                      'snot match the one ',                           &
    80                                      '&found in the restart file (', max_pr_user,     &
     77          WRITE( message_string, * ) 'the number of user-defined profiles ', &
     78                     'given in &data_output_pr (', max_pr_user_tmp, ') doe', &
     79                     'snot match the one ',                                  &
     80                     '&found in the restart file (', max_pr_user,            &
    8181                                     ')'
    8282          CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/user_read_restart_data.f90

    r258 r274  
    8282!
    8383!                CASE DEFAULT
    84 !                   WRITE( message_string, * ) 'unknown variable named "',        &
    85 !                                               TRIM( field_char ), '" found in', &
    86 !                                              '&data from prior run on PE ', myid
     84!                   WRITE( message_string, * ) 'unknown variable named "',  &
     85!                                         TRIM( field_char ), '" found in', &
     86!                                         '&data from prior run on PE ', myid
    8787!                   CALL message( 'user_spectra', 'UI0012', 1, 2, 0, 6, 0 )
    8888!
  • palm/trunk/SOURCE/user_spectra.f90

    r258 r274  
    5454          CASE DEFAULT
    5555             message_string = 'Spectra of ' // &
    56                               TRIM( data_output_sp(m) ) // ' can not be calculated'
     56                         TRIM( data_output_sp(m) ) // ' can not be calculated'
    5757             CALL message( 'user_spectra', 'UI0010', 0, 0, 0, 6, 0 )
    5858           
Note: See TracChangeset for help on using the changeset viewer.