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

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

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