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

Timestamp:

Jan 22, 2018 5:17:47 PM (6 years ago)

Author:

kanani

Message:

Removal of chem directive, plus minor changes

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Increased LEN of canopy mode to 30
+! 
+! 2746 2018-01-15 12:06:04Z suehring
 ! Move flag plant canopy to modules
 ! 
@@ -170 +173 @@
 
 
-    CHARACTER (LEN=20)   ::  canopy_mode = 'block' !< canopy coverage
+    CHARACTER (LEN=30)   ::  canopy_mode = 'block' !< canopy coverage
 
     INTEGER(iwp) ::  pch_index = 0                               !< plant canopy height/top index