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

Timestamp:

Aug 13, 2008 5:09:26 PM (16 years ago)

Author:

letzel

Message:

• changed: allow 100 spectra levels instead of 10 for consistency with define_netcdf_header

File:

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

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! allow 100 spectra levels instead of 10 for consistency with 
+! define_netcdf_header
 ! Bugfix in the output of the characteristic levels of potential temperature, 
 ! geostrophic wind, scalar concentration, humidity and leaf area density
@@ -964 +966 @@
        WRITE ( io, 372 )  ( data_output_sp(i), i = 1,10 ),     &
                           ( spectra_direction(i), i = 1,10 ),  &
-                          ( comp_spectra_level(i), i = 1,10 ), &
-                          ( plot_spectra_level(i), i = 1,10 ), &
+                          ( comp_spectra_level(i), i = 1,100 ), &
+                          ( plot_spectra_level(i), i = 1,100 ), &
                           averaging_interval_sp, dt_averaging_input_pr
     ENDIF
@@ -1492 +1494 @@
 372 FORMAT ('       Arrays:     ', 10(A5,',')/                         &
             '       Directions: ', 10(A5,',')/                         &
-            '       height levels  k = ', 9(I3,','),I3,'.'/            &
+            '       height levels  k = ', 20(I3,',')/                  &
+            '                          ', 20(I3,',')/                  &
+            '                          ', 20(I3,',')/                  &
+            '                          ', 20(I3,',')/                  &
+            '                          ', 19(I3,','),I3,'.'/           &
             '       height levels selected for standard plot:'/        &
-            '                      k = ', 9(I3,','),I3,'.'/            &
+            '                      k = ', 20(I3,',')/                  &
+            '                          ', 20(I3,',')/                  &
+            '                          ', 20(I3,',')/                  &
+            '                          ', 20(I3,',')/                  &
+            '                          ', 19(I3,','),I3,'.'/           &
             '       Time averaged over ', F7.1, ' s,' /                &
             '       Profiles for the time averaging are taken every ', &