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

Timestamp:

Dec 2, 2014 5:25:50 PM (9 years ago)

Author:

maronga

Message:

added beta version of a land surface model and a simple radiation model for clear sky conditions

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Renamed: "radiation -> "cloud_top_radiation"
 ! 
 ! Former revisions:
@@ -1600 +1600 @@
     ELSEIF ( humidity  .AND.  cloud_physics )  THEN
        WRITE ( io, 432 )
-       IF ( radiation )  WRITE ( io, 132 )
+       IF ( cloud_top_radiation )  WRITE ( io, 132 )
        IF ( icloud_scheme == 1 )  THEN
           IF ( precipitation )  WRITE ( io, 133 )