Ignore:
Timestamp:
Mar 5, 2009 3:33:42 PM (13 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_3d.f90

    r98 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:
     
    310311             resorted = .TRUE.
    311312
    312              IF ( myid == 0  .AND.  .NOT. found )  THEN
    313                 PRINT*, '+++ data_output_3d: no output available for: ', &
    314                              do3d(av,if)
     313             IF ( .NOT. found )  THEN
     314                message_string =  'no output available for: ' // TRIM( do3d(av,if) )
     315                CALL message( 'data_output_3d', 'PA0182', 0, 0, 0, 6, 0 )
    315316             ENDIF
    316317
Note: See TracChangeset for help on using the changeset viewer.