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

Timestamp:

May 8, 2015 1:56:27 PM (9 years ago)

Author:

maronga

Message:

bugfix in definition of character arrays within the LSM and radiation code

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: Added TRIM statements for character strings for LSM and radiation code
 ! 
 ! Former revisions:
@@ -922 +922 @@
        ENDIF
 
-       WRITE( io, 438 ) veg_type_name(veg_type), soil_type_name(soil_type)
+       WRITE( io, 438 ) TRIM( veg_type_name(veg_type) ),                       &
+                        TRIM (soil_type_name(soil_type) )
        WRITE( io, 439 ) TRIM( coordinates ), TRIM( temperatures ),             &
                         TRIM( gradients ), TRIM( roots ), TRIM( slices )
@@ -947 +948 @@
           WRITE( io, 448 ) albedo
        ELSE
-          WRITE( io, 456 ) albedo_type_name(albedo_type)
+          WRITE( io, 456 ) TRIM( albedo_type_name(albedo_type) )
        ENDIF
        IF ( constant_albedo )  THEN