Ignore:
Timestamp:
May 30, 2017 5:47:52 PM (4 years ago)
Author:
suehring
Message:

Adjustments according new topography and surface-modelling concept implemented

File:
1 edited

Legend:

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

    r2101 r2232  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! Load surface_mod
     24! Add simple example how to access surface data type
    2425!
    2526! Former revisions:
     
    5051
    5152    USE urban_surface_mod
     53
     54    USE surface_mod   
    5255   
    5356    USE user
     
    5558    IMPLICIT NONE
    5659
    57     INTEGER(iwp) ::  i  !< running index
    58     INTEGER(iwp) ::  j  !< running index
     60    INTEGER(iwp) ::  i  !< grid index
     61    INTEGER(iwp) ::  j  !< grid index
     62    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
    5963
    6064!
    61 !-- Here the user-defined urban surface initialization actions follow:
     65!-- Here the user-defined urban surface initialization actions follow.
     66!-- Example: set roughness length at urban surface
     67!     DO  m = 1, surf_usm_h%ns
     68!        surf_usm_h%z0(m) = 0.1_wp
     69!     ENDDO
    6270
    6371
Note: See TracChangeset for help on using the changeset viewer.