Ignore:
Timestamp:
Mar 5, 2009 3:33:42 PM (12 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

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

    r198 r254  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    290291                      IF ( cross_normx_factor(k,j) == 0.0  .OR. &
    291292                           cross_normy_factor(k,j) == 0.0 )  THEN
    292                          PRINT*,'+++ WARNING data_output_profiles: normalizi', &
    293                                 'ng cross ',j, ' is not possible since one o', &
    294                                 'f the'
    295                          PRINT*,'                     normalizing factors is ',&
    296                                 'zero!'
    297                          PRINT*,'    cross_normx_factor(',k,',',j,') = ', &
    298                                 cross_normx_factor(k,j)
    299                          PRINT*,'    cross_normy_factor(',k,',',j,') = ', &
    300                                 cross_normy_factor(k,j)
     293                         WRITE( message_string, * ) 'data_output_profiles: normalizi', &
     294                                                    'ng cross ',j, ' is not possible since one o', &
     295                                                    'f the & normalizing factors is zero! & ', &
     296                                                    'cross_normx_factor(',k,',',j,') = ', &
     297                                                     cross_normx_factor(k,j), &
     298                                                    ' & cross_normy_factor(',k,',',j,') = ', &
     299                                                     cross_normy_factor(k,j)
     300                         CALL message( 'data_output_profiles', 'PA0185', 0, 1, 0, 6, 0 )
    301301                         cross_normx_factor(k,j) = 1.0
    302302                         cross_normy_factor(k,j) = 1.0
     
    532532
    533533!
    534 !--             Check the normalizing factors for zeros and deactivate the
    535 !--             normalization, if required.
     534!--             Check the normalizing factors for zeros and deactivate
     535!--             the normalization, if required.
    536536                IF ( cross_normx_factor(k,j) == 0.0  .OR. &
    537537                     cross_normy_factor(k,j) == 0.0 )  THEN
    538                    PRINT*,'+++ WARNING data_output_profiles: normalizing ',j, &
    539                           ' cross is not possible since one of the'
    540                    PRINT*,'                     normalizing factors is zero!'
    541                    PRINT*,'    cross_normx_factor(',k,',',j,') = ', &
    542                            cross_normx_factor(k,j)
    543                    PRINT*,'    cross_normy_factor(',k,',',j,') = ', &
    544                            cross_normy_factor(k,j)
    545                    cross_normx_factor(k,j) = 1.0
    546                    cross_normy_factor(k,j) = 1.0
    547                    cross_normalized_x(j) = ' '
    548                    cross_normalized_y(j) = ' '
     538                   WRITE( message_string, * ) 'data_output_profiles: normalizi', &
     539                                              'ng cross ',j, ' is not possible since one o', &
     540                                              'f the & normalizing factors is zero! & ', &
     541                                              'cross_normx_factor(',k,',',j,') = ', &
     542                                               cross_normx_factor(k,j), &
     543                                              ' & cross_normy_factor(',k,',',j,') = ', &
     544                                               cross_normy_factor(k,j)
     545                    CALL message( 'data_output_profiles', 'PA0185', 0, 1, 0, 6, 0 )
     546                    cross_normx_factor(k,j) = 1.0
     547                    cross_normy_factor(k,j) = 1.0
     548                    cross_normalized_x(j) = ' '
     549                    cross_normalized_y(j) = ' '
    549550                ENDIF
    550551
Note: See TracChangeset for help on using the changeset viewer.