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/advec_s_bc.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:
     
    840841    ELSE
    841842
    842        IF ( myid == 0 )  PRINT*,'+++ advec_s_bc:  no vertical boundary condi', &
     843       WRITE( message_string, * ) 'no vertical boundary condi', &
    843844                                'tion for variable "', sk_char, '"'
    844        CALL local_stop
    845 
     845       CALL message( 'advec_s_bc', 'PA0158', 1, 2, 0, 6, 0 )
     846     
    846847    ENDIF
    847848
Note: See TracChangeset for help on using the changeset viewer.