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

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3065 2018-06-12 07:03:02Z Giersch
 ! dz was replaced by the help of zw to allow for vertical stretching
 ! 
@@ -314 +317 @@
  
     USE control_parameters,                                                 &
-        ONLY:  data_output, message_string, urban_surface
+        ONLY:  message_string, urban_surface
 
     IMPLICIT NONE
@@ -671 +674 @@
 
        USE control_parameters,                                                 &
-           ONLY: humidity, io_blocks, io_group, message_string, ocean,         &
-                 passive_scalar, urban_surface
+           ONLY: humidity, message_string, ocean, urban_surface
 
        USE netcdf_data_input_mod,                                              &
@@ -682 +684 @@
        IMPLICIT NONE
 
-       CHARACTER(10) :: pct
-       
        INTEGER(iwp) ::  i   !< running index
-       INTEGER(iwp) ::  ii  !< index       
        INTEGER(iwp) ::  j   !< running index
        INTEGER(iwp) ::  k   !< running index
@@ -691 +690 @@
 
        REAL(wp) ::  int_bpdf        !< vertical integral for lad-profile construction
-       REAL(wp) ::  dzh             !< vertical grid spacing in units of canopy height
        REAL(wp) ::  gradient        !< gradient for lad-profile construction
        REAL(wp) ::  canopy_height   !< canopy height for lad-profile construction
-       REAL(wp) ::  pcv(nzb:nzt+1)  !<
-       
+
 !
 !--    Allocate one-dimensional arrays for the computation of the 
@@ -1099 +1096 @@
     
        USE control_parameters,                                                 &
-           ONLY:  coupling_char, message_string, passive_scalar
+           ONLY:  coupling_char, message_string
 
        USE indices,                                                            &
@@ -1110 +1107 @@
        INTEGER(iwp)                        ::  i, j      !< running index
        INTEGER(iwp)                        ::  nzp       !< number of vertical layers of plant canopy
-       INTEGER(iwp)                        ::  nzpltop   !<
-       INTEGER(iwp)                        ::  nzpl      !<
        
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  col   !< vertical column of input data