Changeset 2232 for palm/trunk/SOURCE/user_init_land_surface.f90
- Timestamp:
- May 30, 2017 5:47:52 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_init_land_surface.f90
r2101 r2232 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Load surface_mod 23 ! Add simple example how to access surface data type 23 24 ! 24 25 ! Former revisions: … … 60 61 61 62 USE pegrid 62 63 64 USE surface_mod 65 63 66 USE user 64 67 65 68 IMPLICIT NONE 66 69 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 69 73 70 74 ! 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 73 80 74 81
Note: See TracChangeset
for help on using the changeset viewer.