Changeset 258 for palm/trunk/SOURCE/user_init_plant_canopy.f90
- Timestamp:
- Mar 13, 2009 12:36:03 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_init_plant_canopy.f90
r226 r258 2 2 3 3 !------------------------------------------------------------------------------! 4 ! Actualrevisions:4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Output of messages replaced by message handling routine. 7 ! 7 8 ! 8 9 ! Former revisions: … … 59 60 !-- After definition, please 60 61 !-- 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 64 65 CASE DEFAULT 65 66 ! … … 67 68 !-- wrong character string that is neither recognized in init_3d_model nor 68 69 !-- 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 ) 72 72 73 73 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.