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/coriolis.f90

    r110 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:
     
    106107          CASE DEFAULT
    107108
    108              IF ( myid == 0 )  PRINT*,'+++ coriolis:  wrong component: ', &
    109                                       component
    110              CALL local_stop
     109             WRITE( message_string, * ) ' wrong component: ', component
     110             CALL message( 'coriolis', 'PA0173', 1, 2, 0, 6, 0 )
    111111
    112112       END SELECT
     
    166166          CASE DEFAULT
    167167
    168              IF ( myid == 0 )  PRINT*,'+++ coriolis:  wrong component: ', &
    169                                       component
    170              CALL local_stop
     168             WRITE( message_string, * ) ' wrong component: ', component
     169             CALL message( 'coriolis', 'PA0173', 1, 2, 0, 6, 0 )
    171170
    172171       END SELECT
Note: See TracChangeset for help on using the changeset viewer.