Changeset 4291 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 11, 2019 12:36:54 PM (5 years ago)
Author:
moh.hefny
Message:

RTM is ON in case of biometeorology even if there is no vertical surfaces and/or trees to enable biommet-output in flat surfaces domain

File:
1 edited

Legend:

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

    r4286 r4291  
    2727! Former revisions:
    2828! -----------------
     29!
    2930! $Id$
     31! Enabled RTM in case of biometeorology even if there is no vertical
     32! surfaces or 3D vegetation in the domain
     33!
     34! 4286 2019-10-30 16:01:14Z resler
    3035! - Fix wrong treating of time_rad during interpolation in radiation_model_mod
    3136! - Fix wrong checks of time_rad from dynamic driver in radiation_model_mod
    3237! - Add new directional model of human body for MRT: ellipsoid
    33 ! 
     38!
    3439! 4271 2019-10-23 10:46:41Z maronga
    3540! Bugfix: missing parentheses in calculation of snow albedo
     
    230235
    231236    USE control_parameters,                                                    &
    232         ONLY:  cloud_droplets, coupling_char,                                  &
     237        ONLY:  biometeorology, cloud_droplets, coupling_char,                  &
    233238               debug_output, debug_output_timestep, debug_string,              &
    234239               dt_3d,                                                          &
     
    15391544       IF ( debug_output )  CALL debug_message( 'radiation_init', 'start' )
    15401545!
    1541 !--    Activate radiation_interactions according to the existence of vertical surfaces and/or trees.
     1546!--    Activate radiation_interactions according to the existence of vertical surfaces and/or trees
     1547!      or if biometeorology output is required for flat surfaces.
    15421548!--    The namelist parameter radiation_interactions_on can override this behavior.
    15431549!--    (This check cannot be performed in check_parameters, because vertical_surfaces_exist is first set in
    15441550!--    init_surface_arrays.)
    15451551       IF ( radiation_interactions_on )  THEN
    1546           IF ( vertical_surfaces_exist  .OR.  plant_canopy )  THEN
     1552          IF ( vertical_surfaces_exist  .OR.  plant_canopy  .OR.  biometeorology )  THEN
    15471553             radiation_interactions    = .TRUE.
    15481554             average_radiation         = .TRUE.
     
    15511557                                                   !< calculations necessary in case of flat surface
    15521558          ENDIF
    1553        ELSEIF ( vertical_surfaces_exist  .OR.  plant_canopy )  THEN
     1559       ELSEIF ( vertical_surfaces_exist  .OR.  plant_canopy  .OR.  biometeorology )  THEN
    15541560          message_string = 'radiation_interactions_on is set to .FALSE. although '     // &
    1555                            'vertical surfaces and/or trees exist. The model will run ' // &
    1556                            'without RTM (no shadows, no radiation reflections)'
     1561                           'vertical surfaces and/or trees or biometeorology exist '   // &
     1562                           'is ON. The model will run without RTM (no shadows, no '    // &
     1563                           'radiation reflections)'
    15571564          CALL message( 'init_3d_model', 'PA0348', 0, 1, 0, 6, 0 )
    15581565       ENDIF
Note: See TracChangeset for help on using the changeset viewer.