Ignore:
Timestamp:
May 8, 2015 1:56:27 PM (6 years ago)
Author:
maronga
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r1586 r1590  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: Added TRIM statements for character strings for LSM and radiation code
    2323!
    2424! Former revisions:
     
    922922       ENDIF
    923923
    924        WRITE( io, 438 ) veg_type_name(veg_type), soil_type_name(soil_type)
     924       WRITE( io, 438 ) TRIM( veg_type_name(veg_type) ),                       &
     925                        TRIM (soil_type_name(soil_type) )
    925926       WRITE( io, 439 ) TRIM( coordinates ), TRIM( temperatures ),             &
    926927                        TRIM( gradients ), TRIM( roots ), TRIM( slices )
     
    947948          WRITE( io, 448 ) albedo
    948949       ELSE
    949           WRITE( io, 456 ) albedo_type_name(albedo_type)
     950          WRITE( io, 456 ) TRIM( albedo_type_name(albedo_type) )
    950951       ENDIF
    951952       IF ( constant_albedo )  THEN
Note: See TracChangeset for help on using the changeset viewer.