Ignore:
Timestamp:
Aug 13, 2008 5:09:26 PM (13 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/calc_spectra.f90

    r164 r189  
    44! Actual revisions:
    55! -----------------
     6! allow 100 spectra levels instead of 10 for consistency with
     7! define_netcdf_header
    68! user-defined spectra, arguments removed from transpose routines
    79!
     
    223225    REAL, DIMENSION(0:nx)      ::  work
    224226    REAL, DIMENSION(0:nx/2)    ::  sums_spectra_l
    225     REAL, DIMENSION(0:nx/2,10) ::  sums_spectra
     227    REAL, DIMENSION(0:nx/2,100)::  sums_spectra
    226228
    227229    REAL, DIMENSION(0:nxa,nys_x:nyn_xa,nzb_x:nzt_xa) ::  ddd
     
    234236!-- Loop over all levels defined by the user
    235237    n = 1
    236     DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 10 )
     238    DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 100 )
    237239
    238240       k = comp_spectra_level(n)
     
    333335    REAL, DIMENSION(0:ny)      ::  work
    334336    REAL, DIMENSION(0:ny/2)    ::  sums_spectra_l
    335     REAL, DIMENSION(0:ny/2,10) ::  sums_spectra
     337    REAL, DIMENSION(0:ny/2,100)::  sums_spectra
    336338
    337339    REAL, DIMENSION(0:nya,nxl_yd:nxr_yda,nzb_yd:nzt_yda) :: ddd
     
    345347!-- Loop over all levels defined by the user
    346348    n = 1
    347     DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 10 )
     349    DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 100 )
    348350
    349351       k = comp_spectra_level(n)
Note: See TracChangeset for help on using the changeset viewer.