Changeset 1553 for palm/trunk/SOURCE/land_surface_model.f90

Timestamp:

Mar 3, 2015 5:33:54 PM (9 years ago)

Author:

maronga

Message:

further adjustments in land surface model

File:

• palm/trunk/SOURCE/land_surface_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/land_surface_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Improved better treatment of roughness lengths. Added default soil temperature
+! profile
 ! 
 ! Former revisions:
@@ -173 +174 @@
 
     REAL(wp), DIMENSION(nzb_soil:nzt_soil+1) ::   &
-              soil_temperature = 9999999.9_wp !: soil temperature (K)
+              soil_temperature = (/290.0_wp, 287.0_wp, 285.0_wp,  283.0_wp,    &
+                                   283.0_wp /) !: soil temperature (K)
 
 #if defined( __nopointer )
@@ -824 +826 @@
           ENDIF
 
+       ELSE
+
+          IF ( z0_eb == 9999999.9_wp )  THEN
+             z0_eb = roughness_length
+          ENDIF
+          IF ( z0h_eb == 9999999.9_wp )  THEN
+             z0h_eb = z0_eb * z0h_factor
+          ENDIF
+
        ENDIF