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

    r139 r247  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Currrent revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine
     7!
    78!
    89! Former revisions:
     
    137138
    138139          ELSE
    139 
    140              IF ( myid == 0 )  PRINT*, '+++ buoyancy: no term for component "',&
     140             
     141             WRITE( message_string, * ) 'no term for component "',&
    141142                                       wind_component,'"'
    142              CALL local_stop
     143             CALL message( 'buoyancy', 'PA0159', 1, 2, 0, 6, 0 )
    143144
    144145          ENDIF
     
    213214          ELSE
    214215
    215              IF ( myid == 0 )  PRINT*, '+++ buoyancy: no term for component "',&
     216             WRITE( message_string, * ) 'no term for component "',&
    216217                                       wind_component,'"'
    217              CALL local_stop
     218             CALL message( 'buoyancy', 'PA0159', 1, 2, 0, 6, 0 )
    218219
    219220          ENDIF
Note: See TracChangeset for help on using the changeset viewer.