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

Timestamp:

Feb 25, 2019 3:31:42 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! unsed variables removed
+! 
+! 3745 2019-02-15 18:57:56Z suehring
 ! Bugfix in transpiration, floating invalid when temperature 
 ! becomes > 40 degrees
@@ -905 +908 @@
        INTEGER(iwp) ::  k   !< running index
        INTEGER(iwp) ::  m   !< running index
-       INTEGER(iwp) ::  pch_index_l
 
        REAL(wp) ::  int_bpdf        !< vertical integral for lad-profile construction