Changeset 4279 for palm/trunk/SOURCE


Ignore:
Timestamp:
Oct 29, 2019 8:48:17 AM (5 years ago)
Author:
scharf
Message:

unused variables removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/plant_canopy_model_mod.f90

    r4278 r4279  
    2727! -----------------
    2828! $Id$
     29! unused variables removed
     30!
     31! 4258 2019-10-07 13:29:08Z scharf
    2932! changed check for static driver and fixed bugs in initialization and header
    3033!
     
    347350!------------------------------------------------------------------------------!
    348351 SUBROUTINE pcm_check_data_output( var, unit )
    349  
    350  
     352
    351353    USE control_parameters,                                                 &
    352354        ONLY:  message_string, urban_surface
     
    398400
    399401       USE control_parameters,                                                 &
    400            ONLY: coupling_char, message_string
     402           ONLY: message_string
    401403
    402404       USE bulk_cloud_model_mod,                                               &
     
    404406
    405407       USE netcdf_data_input_mod,                                              &
    406            ONLY:  input_file_static, input_pids_static
    407                  
    408    
     408           ONLY:  input_pids_static
     409
     410
    409411       IMPLICIT NONE
    410412
    411    
    412413       IF ( canopy_drag_coeff == 0.0_wp )  THEN
    413414          message_string = 'plant_canopy = .TRUE. requires a non-zero drag '// &
     
    415416          CALL message( 'pcm_check_parameters', 'PA0041', 1, 2, 0, 6, 0 )
    416417       ENDIF
    417    
     418
    418419       IF ( ( alpha_lad /= 9999999.9_wp  .AND.  beta_lad == 9999999.9_wp ) .OR.&
    419420              beta_lad /= 9999999.9_wp   .AND.  alpha_lad == 9999999.9_wp )  THEN
     
    423424          CALL message( 'pcm_check_parameters', 'PA0118', 1, 2, 0, 6, 0 )
    424425       ENDIF
    425    
     426
    426427       IF ( calc_beta_lad_profile  .AND.  lai_beta == 0.0_wp )  THEN
    427428          message_string = 'using the beta function for the construction ' //  &
Note: See TracChangeset for help on using the changeset viewer.