Changeset 1788 for palm/trunk/SOURCE/header.f90

Timestamp:

Mar 10, 2016 11:01:04 AM (8 years ago)

Author:

maronga

Message:

added support for water and paved surfaced in land surface model / minor changes

File:

• palm/trunk/SOURCE/header.f90 (modified) (4 diffs)

palm/trunk/SOURCE/header.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! Parameter dewfall removed
 !
 ! Former revisions:
@@ -248 +248 @@
    
     USE land_surface_model_mod,                                                &
-        ONLY:  conserve_water_content, dewfall, land_surface, nzb_soil,        &
+        ONLY:  conserve_water_content, land_surface, nzb_soil,                 &
                nzt_soil, root_fraction, soil_moisture, soil_temperature,       &
                soil_type, soil_type_name, veg_type, veg_type_name, zs
@@ -964 +964 @@
        ELSE
           WRITE( io, 441 )
-       ENDIF
-
-       IF ( dewfall )  THEN
-          WRITE( io, 442 )
-       ELSE
-          WRITE( io, 443 )
        ENDIF
 
@@ -2341 +2335 @@
             '       Root fraction: ',A,'  '/ &
             '       Gridpoint:     ',A)
-440 FORMAT (/' --> Dewfall is allowed (default)')
-441 FORMAT (' --> Dewfall is inhibited')
-442 FORMAT (' --> Soil bottom is closed (water content is conserved, default)')
-443 FORMAT (' --> Soil bottom is open (water content is not conserved)')
+440 FORMAT (' --> Soil bottom is closed (water content is conserved, default)')
+441 FORMAT (' --> Soil bottom is open (water content is not conserved)')
 444 FORMAT (//' Radiation model information:'/                                 &
               ' ----------------------------'/)