Changeset 4221 for palm/trunk/SOURCE

Timestamp:

Sep 9, 2019 8:50:35 AM (5 years ago)

Author:

suehring

Message:

Bugfix in plant-canopy model, missing intialization of heating rate

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -22 +22 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix, missing initialization of heating rate
 ! 
 ! Former revisions:
@@ -1150 +1150 @@
 !--    Allocation of arrays pc_heating_rate, pc_transpiration_rate and pc_latent_rate
        ALLOCATE( pc_heating_rate(0:pch_index,nysg:nyng,nxlg:nxrg) )
+       pc_heating_rate = 0.0_wp
+       
        IF ( humidity )  THEN
           ALLOCATE( pc_transpiration_rate(0:pch_index,nysg:nyng,nxlg:nxrg) )