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

Indentation of the message calls corrected

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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
Note: See TracChangeset for help on using the changeset viewer.