Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r2956 r3045  
    2525! -----------------
    2626! $Id$
     27! Error message revised
     28!
     29! 2956 2018-04-10 11:01:03Z Giersch
    2730! spectrum_x and spectrum_y will only be allocated if they are not allocated
    2831! before (e.g. in case of restart runs)
     
    472475
    473476                message_string = 'non-cyclic lateral boundaries along x do'//  &
    474                                  ' not & allow calculation of spectra along x'
     477                                 ' not allow calculation of spectra along x'
    475478                CALL message( 'calc_spectra', 'PA0160', 1, 2, 0, 6, 0 )
    476479             ENDIF
     
    488491#else
    489492             message_string = 'sorry, calculation of spectra in non paral' //  &
    490                               'lel mode& is still not realized'
     493                              'lel mode is still not realized'
    491494             CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
    492495#endif
     
    504507                IF ( myid == 0 )  THEN
    505508                   message_string = 'non-cyclic lateral boundaries along y' // &
    506                                     ' do not & allow calculation of spectr' // &
    507                                     'a along y'
     509                                    ' do not allow calculation of spectra' // &
     510                                    ' along y'
    508511                   CALL message( 'calc_spectra', 'PA0162', 1, 2, 0, 6, 0 )
    509512                ENDIF
     
    518521#else
    519522             message_string = 'sorry, calculation of spectra in non paral' //  &
    520                               'lel mode& is still not realized'
     523                              'lel mode is still not realized'
    521524             CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
    522525#endif
Note: See TracChangeset for help on using the changeset viewer.