Ignore:
Timestamp:
Feb 27, 2009 2:01:30 PM (13 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routin

File:
1 edited

Legend:

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

    r226 r247  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine
     7!
    78!
    89! Former revisions:
     
    8384!--       Calculation of spectra works for cyclic boundary conditions only
    8485          IF ( bc_lr /= 'cyclic' )  THEN
    85              IF ( myid == 0 )  THEN
    86                 PRINT*, '+++ calc_spectra:'
    87                 PRINT*, '    non-cyclic lateral boundaries along x do not ', &
    88                              'allow calculation of spectra along x'
    89              ENDIF
    90              CALL local_stop
     86
     87             message_string = 'non-cyclic lateral boundaries along x do not ' // &
     88                              '& allow calculation of spectra along x'
     89             CALL message( 'calc_spectra', 'PA0160', 1, 2, 0, 6, 0 )
    9190          ENDIF
    9291
     
    101100          CALL calc_spectra_x( d, pr, m )
    102101#else
    103           PRINT*, '+++ calc_spectra: sorry, calculation of spectra ', &
    104                                     'in non parallel mode'
    105           PRINT*, '                  is still not realized'
    106           CALL local_stop
     102          message_string = 'sorry, calculation of spectra in non parallel mode' // &
     103                           '& is still not realized'
     104          CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )     
    107105#endif
    108106
     
    118116          IF ( bc_ns /= 'cyclic' )  THEN
    119117             IF ( myid == 0 )  THEN
    120                 PRINT*, '+++ calc_spectra:'
    121                 PRINT*, '    non-cyclic lateral boundaries along y do not ', &
    122                              'allow calculation of spectra along y'
     118                message_string = 'non-cyclic lateral boundaries along y do not ' // &
     119                                 '& allow calculation of spectra along y'
     120                CALL message( 'calc_spectra', 'PA0162', 1, 2, 0, 6, 0 )
    123121             ENDIF
    124122             CALL local_stop
     
    131129          CALL calc_spectra_y( d, pr, m )
    132130#else
    133           PRINT*, '+++ calc_spectra: sorry, calculation of spectra', &
    134                                     'in non parallel mode'
    135           PRINT*, '                  still not realized'
    136           CALL local_stop
     131          message_string = 'sorry, calculation of spectra in non parallel mode' // &
     132                           '& is still not realized'
     133          CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
    137134#endif
    138135
Note: See TracChangeset for help on using the changeset viewer.