Ignore:
Timestamp:
Apr 12, 2018 2:47:44 PM (3 years ago)
Author:
suehring
Message:

Minor revision of static input file checks, bugfix in initialization of surface-fractions in LSM; minor bugfix in initialization of albedo at window-surfaces; for clearer access of albedo and emissivity introduce index for vegetation/wall, pavement/green-wall and water/window surfaces

File:
1 edited

Legend:

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

    r2942 r2963  
    2626! -----------------
    2727! $Id$
     28! Introduce index for vegetation/wall, pavement/green-wall and water/window
     29! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
     30!
     31! 2942 2018-04-03 13:51:09Z suehring
    2832! Bugfix in assigning surface element data after restart
    2933!
     
    435439    TYPE (surf_type), DIMENSION(0:3), TARGET ::  surf_usm_v  !< vertical urban surfaces (North, South, East, West)
    436440
     441    INTEGER(iwp), PARAMETER ::  ind_veg_wall  = 0            !< index for vegetation / wall-surface fraction, used for access of albedo, emissivity, etc., for each surface type   
     442    INTEGER(iwp), PARAMETER ::  ind_pav_green = 1            !< index for pavement / green-wall surface fraction, used for access of albedo, emissivity, etc., for each surface type
     443    INTEGER(iwp), PARAMETER ::  ind_wat_win   = 2            !< index for water / window-surface fraction, used for access of albedo, emissivity, etc., for each surface type
     444
    437445    INTEGER(iwp) ::  ns_h_on_file(0:2)                       !< total number of horizontal surfaces with the same facing, required for writing restart data
    438446    INTEGER(iwp) ::  ns_v_on_file(0:3)                       !< total number of vertical surfaces with the same facing, required for writing restart data
     
    474482!
    475483!-- Public variables
    476     PUBLIC bc_h, ns_h_on_file, ns_v_on_file, surf_def_h, surf_def_v,           &
    477            surf_lsm_h, surf_lsm_v, surf_usm_h, surf_usm_v, surf_type
     484    PUBLIC bc_h, ind_pav_green, ind_veg_wall, ind_wat_win, ns_h_on_file,       &
     485           ns_v_on_file, surf_def_h, surf_def_v, surf_lsm_h, surf_lsm_v,       &
     486           surf_usm_h, surf_usm_v, surf_type
    478487!
    479488!-- Public subroutines and functions
Note: See TracChangeset for help on using the changeset viewer.