Changeset 3422 for palm

Timestamp:

Oct 24, 2018 7:01:57 PM (6 years ago)

Author:

gronemeier

Message:

bugfix:bugfix: increase number of blanks in output string

File:

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

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: increase number of blanks in output string
+! 
+! 3421 2018-10-24 18:39:32Z gronemeier
 ! Renamed output variables
 ! +surface_data_output
@@ -2053 +2056 @@
                              ' km kh                                        ', &
                              ' l                                            ', &
-                         ( '                               ', i9 = 1, 94 ) /)
+             ( '                                              ', i9 = 1, 94 ) /)
 
     INTEGER(iwp) ::  profile_columns = 2  !< number of coordinate systems on a profile plot per column