Changeset 4279

Timestamp:

Oct 29, 2019 8:48:17 AM (5 years ago)

Author:

scharf

Message:

unused variables removed

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 4258 2019-10-07 13:29:08Z scharf
 ! changed check for static driver and fixed bugs in initialization and header
 ! 
@@ -347 +350 @@
 !------------------------------------------------------------------------------!
  SUBROUTINE pcm_check_data_output( var, unit )
- 
- 
+
     USE control_parameters,                                                 &
         ONLY:  message_string, urban_surface
@@ -398 +400 @@
 
        USE control_parameters,                                                 &
-           ONLY: coupling_char, message_string
+           ONLY: message_string
 
        USE bulk_cloud_model_mod,                                               &
@@ -404 +406 @@
 
        USE netcdf_data_input_mod,                                              &
-           ONLY:  input_file_static, input_pids_static
-                 
-    
+           ONLY:  input_pids_static
+
+
        IMPLICIT NONE
 
-    
        IF ( canopy_drag_coeff == 0.0_wp )  THEN
           message_string = 'plant_canopy = .TRUE. requires a non-zero drag '// &
@@ -415 +416 @@
           CALL message( 'pcm_check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
        ENDIF
-    
+
        IF ( ( alpha_lad /= 9999999.9_wp  .AND.  beta_lad == 9999999.9_wp ) .OR.&
               beta_lad /= 9999999.9_wp   .AND.  alpha_lad == 9999999.9_wp )  THEN
@@ -423 +424 @@
           CALL message( 'pcm_check_parameters', 'PA0118', 1, 2, 0, 6, 0 )
        ENDIF
-    
+
        IF ( calc_beta_lad_profile  .AND.  lai_beta == 0.0_wp )  THEN
           message_string = 'using the beta function for the construction ' //  &