Changeset 274 for palm/trunk/SOURCE/user_init_plant_canopy.f90
- Timestamp:
- Mar 26, 2009 3:11:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_init_plant_canopy.f90
r258 r274 60 60 !-- After definition, please 61 61 !-- remove the following three lines! 62 message_string = 'canopy_mode "' // canopy_mode // '" not available yet' 62 message_string = 'canopy_mode "' // canopy_mode // & 63 '" not available yet' 63 64 CALL message( 'user_init_plant_canopy', 'UI0007', 0, 1, 0, 6, 0 ) 64 65 … … 66 67 ! 67 68 !-- The DEFAULT case is reached if the parameter canopy_mode contains a 68 !-- wrong character string that is neither recognized in init_3d_model nor 69 !-- wrong character string that is neither recognized in init_3d_model nor 69 70 !-- here in user_init_plant_canopy. 70 71 message_string = 'unknown canopy_mode "' // canopy_mode // '"'
Note: See TracChangeset
for help on using the changeset viewer.