Changeset 167 for palm/trunk

Timestamp:

May 15, 2008 1:19:25 PM (17 years ago)

Author:

steinfeld

Message:

Bugfix in header.f90

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• header.f90 (modified) (4 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -77 +77 @@
 Errors:
 ------
+Bugfix: Lengths of those characters that are needed for the output of the 
+characteristic levels of potential temperature, the geostrophic wind, 
+scalar concentration, humidity and leaf area density to the header file 
+has been increased. (header) 
+
 Bugfix: add ')' in user_read_restart_data.
 

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Bugfix in the output of the characteristic levels of potential temperature, 
+! geostrophic wind, scalar concentration, humidity and leaf area density
 ! Output of turbulence recycling informations
 !
@@ -79 +81 @@
     CHARACTER (LEN=21) ::  ver_rev
     CHARACTER (LEN=40) ::  output_format
-    CHARACTER (LEN=70) ::  char1, char2, coordinates, gradients, dopr_chr, &
+    CHARACTER (LEN=70) ::  char1, char2, dopr_chr, &
                            do2d_xy, do2d_xz, do2d_yz, do3d_chr, &
-                           run_classification, slices, temperatures, learde, &
-                           ugcomponent, vgcomponent
+                           run_classification
+    CHARACTER (LEN=86) ::  coordinates, gradients, learde, slices,  &
+                           temperatures, ugcomponent, vgcomponent
     CHARACTER (LEN=85) ::  roben, runten
 
@@ -1004 +1007 @@
     DO  WHILE ( ug_vertical_gradient_level_ind(i) /= -9999 )
       
-       WRITE (coor_chr,'(F6.2,4X)')  ug(ug_vertical_gradient_level_ind(i))
+       WRITE (coor_chr,'(F6.2,1X)')  ug(ug_vertical_gradient_level_ind(i))
        ugcomponent = TRIM( ugcomponent ) // '  ' // TRIM( coor_chr )
 
-       WRITE (coor_chr,'(F6.2,4X)')  ug_vertical_gradient(i)
+       WRITE (coor_chr,'(F6.2,1X)')  ug_vertical_gradient(i)
        gradients = TRIM( gradients ) // '  ' // TRIM( coor_chr )
 
-       WRITE (coor_chr,'(I6,4X)')  ug_vertical_gradient_level_ind(i)
+       WRITE (coor_chr,'(I6,1X)')  ug_vertical_gradient_level_ind(i)
        slices = TRIM( slices ) // '  ' // TRIM( coor_chr )
 
-       WRITE (coor_chr,'(F6.1,4X)')  ug_vertical_gradient_level(i)
+       WRITE (coor_chr,'(F6.1,1X)')  ug_vertical_gradient_level(i)
        coordinates = TRIM( coordinates ) // '  ' // TRIM( coor_chr )
 
@@ -1031 +1034 @@
     DO  WHILE ( vg_vertical_gradient_level_ind(i) /= -9999 )
 
-       WRITE (coor_chr,'(F6.2,4X)')  vg(vg_vertical_gradient_level_ind(i))
+       WRITE (coor_chr,'(F6.2,1X)')  vg(vg_vertical_gradient_level_ind(i))
        vgcomponent = TRIM( vgcomponent ) // '  ' // TRIM( coor_chr )
 
-       WRITE (coor_chr,'(F6.2,4X)')  vg_vertical_gradient(i)
+       WRITE (coor_chr,'(F6.2,1X)')  vg_vertical_gradient(i)
        gradients = TRIM( gradients ) // '  ' // TRIM( coor_chr )
 
-       WRITE (coor_chr,'(I6,4X)')  vg_vertical_gradient_level_ind(i)
+       WRITE (coor_chr,'(I6,1X)')  vg_vertical_gradient_level_ind(i)
        slices = TRIM( slices ) // '  ' // TRIM( coor_chr )
 
-       WRITE (coor_chr,'(F6.1,4X)')  vg_vertical_gradient_level(i)
+       WRITE (coor_chr,'(F6.1,1X)')  vg_vertical_gradient_level(i)
        coordinates = TRIM( coordinates ) // '  ' // TRIM( coor_chr )