Changeset 4279 for palm/trunk/SOURCE/plant_canopy_model_mod.f90
- Timestamp:
- Oct 29, 2019 8:48:17 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/plant_canopy_model_mod.f90
r4278 r4279 27 27 ! ----------------- 28 28 ! $Id$ 29 ! unused variables removed 30 ! 31 ! 4258 2019-10-07 13:29:08Z scharf 29 32 ! changed check for static driver and fixed bugs in initialization and header 30 33 ! … … 347 350 !------------------------------------------------------------------------------! 348 351 SUBROUTINE pcm_check_data_output( var, unit ) 349 350 352 351 353 USE control_parameters, & 352 354 ONLY: message_string, urban_surface … … 398 400 399 401 USE control_parameters, & 400 ONLY: coupling_char,message_string402 ONLY: message_string 401 403 402 404 USE bulk_cloud_model_mod, & … … 404 406 405 407 USE netcdf_data_input_mod, & 406 ONLY: input_ file_static, input_pids_static407 408 408 ONLY: input_pids_static 409 410 409 411 IMPLICIT NONE 410 412 411 412 413 IF ( canopy_drag_coeff == 0.0_wp ) THEN 413 414 message_string = 'plant_canopy = .TRUE. requires a non-zero drag '// & … … 415 416 CALL message( 'pcm_check_parameters', 'PA0041', 1, 2, 0, 6, 0 ) 416 417 ENDIF 417 418 418 419 IF ( ( alpha_lad /= 9999999.9_wp .AND. beta_lad == 9999999.9_wp ) .OR.& 419 420 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 ) 424 425 ENDIF 425 426 426 427 IF ( calc_beta_lad_profile .AND. lai_beta == 0.0_wp ) THEN 427 428 message_string = 'using the beta function for the construction ' // &
Note: See TracChangeset
for help on using the changeset viewer.