Changeset 3046 for palm/trunk/SOURCE/plant_canopy_model_mod.f90

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

• palm/trunk/SOURCE/plant_canopy_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -362 +362 @@
        IF ( canopy_drag_coeff == 0.0_wp )  THEN
           message_string = 'plant_canopy = .TRUE. requires a non-zero drag '// &
-                           'coefficient, given value is canopy_drag_coeff = 0.0'
+                           'coefficient & given value is canopy_drag_coeff = 0.0'
           CALL message( 'pcm_check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
        ENDIF
@@ -1053 +1053 @@
 
        message_string = 'namelist canopy_par is deprecated and will be ' // &
-                     'removed in near future. Please &use namelist ' //     &
+                     'removed in near future. Please use namelist ' //      &
                      'plant_canopy_parameters instead'
        CALL message( 'pcm_parin', 'PA0487', 0, 1, 0, 6, 0 )