Ignore:
Timestamp:
Mar 11, 2009 3:17: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/plant_canopy_model.f90

    r198 r257  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Bugfix: remove IF statement in plant_canopy_model_ij
     
    187188          CASE DEFAULT
    188189
    189              IF ( myid == 0 )  PRINT*,'+++ pcm:  wrong component: ', &
    190                                       component
    191              CALL local_stop
     190             WRITE( message_string, * ) 'wrong component: ', component
     191             CALL message( 'plant_canopy_model', 'PA0279', 1, 2, 0, 6, 0 )
    192192
    193193       END SELECT
     
    324324       CASE DEFAULT
    325325
    326           IF ( myid == 0 )  PRINT*,'+++ pcm:  wrong component: ', &
    327                                       component
    328           CALL local_stop
     326          WRITE( message_string, * ) 'wrong component: ', component
     327          CALL message( 'plant_canopy_model', 'PA0279', 1, 2, 0, 6, 0 )
    329328
    330329       END SELECT
Note: See TracChangeset for help on using the changeset viewer.