Ignore:
Timestamp:
Mar 13, 2009 12:36:03 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/user_init_plant_canopy.f90

    r226 r258  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    5960!--       After definition, please
    6061!--       remove the following three lines!
    61           PRINT*, '+++ user_init_plant_canopy: canopy_mode "', &
    62                canopy_mode, '" not available yet'
    63 
     62          message_string = 'canopy_mode "' // canopy_mode // '" not available yet'
     63          CALL message( 'user_init_plant_canopy', 'UI0007', 0, 1, 0, 6, 0 )
     64         
    6465       CASE DEFAULT
    6566!
     
    6768!--       wrong character string that is neither recognized in init_3d_model nor
    6869!--       here in user_init_plant_canopy.
    69           PRINT*, '+++ user_init_plant_canopy: unknown canopy_mode "', &
    70                canopy_mode, '"'
    71           CALL local_stop
     70          message_string = 'unknown canopy_mode "' // canopy_mode // '"'
     71          CALL message( 'user_init_plant_canopy', 'UI0008', 1, 2, 0, 6, 0 )
    7272
    7373    END SELECT
Note: See TracChangeset for help on using the changeset viewer.