Changeset 274 for palm/trunk/SOURCE


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

Indentation of the message calls corrected

Location:
palm/trunk/SOURCE
Files:
27 edited

Legend:

Unmodified
Added
Removed
  • 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.