Changeset 2232 for palm/trunk/SOURCE/user_init_land_surface.f90

Timestamp:

May 30, 2017 5:47:52 PM (6 years ago)

Author:

suehring

Message:

Adjustments according new topography and surface-modelling concept implemented

File:

• palm/trunk/SOURCE/user_init_land_surface.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_init_land_surface.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Load surface_mod
+! Add simple example how to access surface data type
 ! 
 ! Former revisions:
@@ -60 +61 @@
     
     USE pegrid
-    
+
+    USE surface_mod    
+
     USE user
 
     IMPLICIT NONE
 
-    INTEGER(iwp) :: i   !< running index
-    INTEGER(iwp) :: j   !< running index
+    INTEGER(iwp) ::  i  !< grid index
+    INTEGER(iwp) ::  j  !< grid index
+    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
 
 !
-!-- Here the user-defined land surface initialization actions follow:
-
+!-- Here the user-defined land surface initialization actions follow.
+!-- Example: set roughness length at natural land-surface
+!     DO  m = 1, surf_lsm_h%ns
+!        surf_lsm_h%z0(m) = 0.1_wp
+!     ENDDO