Ignore:
Timestamp:
Aug 13, 2008 5:09:26 PM (14 years ago)
Author:
letzel
Message:
  • changed: allow 100 spectra levels instead of 10 for consistency with define_netcdf_header
File:
1 edited

Legend:

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

    r167 r189  
    44! Actual revisions:
    55! -----------------
     6! allow 100 spectra levels instead of 10 for consistency with
     7! define_netcdf_header
    68! Bugfix in the output of the characteristic levels of potential temperature,
    79! geostrophic wind, scalar concentration, humidity and leaf area density
     
    964966       WRITE ( io, 372 )  ( data_output_sp(i), i = 1,10 ),     &
    965967                          ( spectra_direction(i), i = 1,10 ),  &
    966                           ( comp_spectra_level(i), i = 1,10 ), &
    967                           ( plot_spectra_level(i), i = 1,10 ), &
     968                          ( comp_spectra_level(i), i = 1,100 ), &
     969                          ( plot_spectra_level(i), i = 1,100 ), &
    968970                          averaging_interval_sp, dt_averaging_input_pr
    969971    ENDIF
     
    14921494372 FORMAT ('       Arrays:     ', 10(A5,',')/                         &
    14931495            '       Directions: ', 10(A5,',')/                         &
    1494             '       height levels  k = ', 9(I3,','),I3,'.'/            &
     1496            '       height levels  k = ', 20(I3,',')/                  &
     1497            '                          ', 20(I3,',')/                  &
     1498            '                          ', 20(I3,',')/                  &
     1499            '                          ', 20(I3,',')/                  &
     1500            '                          ', 19(I3,','),I3,'.'/           &
    14951501            '       height levels selected for standard plot:'/        &
    1496             '                      k = ', 9(I3,','),I3,'.'/            &
     1502            '                      k = ', 20(I3,',')/                  &
     1503            '                          ', 20(I3,',')/                  &
     1504            '                          ', 20(I3,',')/                  &
     1505            '                          ', 20(I3,',')/                  &
     1506            '                          ', 19(I3,','),I3,'.'/           &
    14971507            '       Time averaged over ', F7.1, ' s,' /                &
    14981508            '       Profiles for the time averaging are taken every ', &
Note: See TracChangeset for help on using the changeset viewer.