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

Timestamp:

Feb 22, 2012 8:55:55 AM (12 years ago)

Author:

maronga

Message:

Adjusted format for leaf area density

File:

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

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Modified format for leaf area density
 ! 
 ! Former revisions:
@@ -530 +530 @@
 !--    Leaf area density profile
 !--    Building output strings, starting with surface value
-       WRITE ( learde, '(F6.2)' )  lad_surface
+       WRITE ( learde, '(F6.4)' )  lad_surface
        gradients = '------'
        slices = '     0'