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_land_surface.f90

    r2101 r2232  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Load surface_mod
     23! Add simple example how to access surface data type
    2324!
    2425! Former revisions:
     
    6061   
    6162    USE pegrid
    62    
     63
     64    USE surface_mod   
     65
    6366    USE user
    6467
    6568    IMPLICIT NONE
    6669
    67     INTEGER(iwp) :: i   !< running index
    68     INTEGER(iwp) :: j   !< running index
     70    INTEGER(iwp) ::  i  !< grid index
     71    INTEGER(iwp) ::  j  !< grid index
     72    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
    6973
    7074!
    71 !-- Here the user-defined land surface initialization actions follow:
    72 
     75!-- Here the user-defined land surface initialization actions follow.
     76!-- Example: set roughness length at natural land-surface
     77!     DO  m = 1, surf_lsm_h%ns
     78!        surf_lsm_h%z0(m) = 0.1_wp
     79!     ENDDO
    7380
    7481
Note: See TracChangeset for help on using the changeset viewer.