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

Timestamp:

Oct 12, 2016 4:42:37 PM (8 years ago)

Author:

kanani

Message:

changes related to urban surface model and output of ssws

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Added missing lad_s initialization
 ! 
 ! Former revisions:
@@ -707 +707 @@
         REAL(wp), DIMENSION(:), ALLOCATABLE     :: col
 
+        lad_s = 0.0_wp
         OPEN(152, file='PLANT_CANOPY_DATA_3D', access='SEQUENTIAL', &
                 action='READ', status='OLD', form='FORMATTED', err=515)