Ignore:
Timestamp:
Mar 22, 2017 4:14:10 AM (5 years ago)
Author:
raasch
Message:

bugfixes for calculating spectra and for misplaced/missing openMP statements

File:
1 edited

Legend:

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

    r2101 r2192  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfix for index bounds of arrays spectrum_x and spectrum_y
    2323!
    2424! Former revisions:
     
    241241
    242242       IF ( dt_dosp /= 9999999.9_wp )  THEN
    243           ALLOCATE( spectrum_x( 1:nx/2, 1:10, 1:10 ),                          &
    244                     spectrum_y( 1:ny/2, 1:10, 1:10 ) )
     243          ALLOCATE( spectrum_x( 1:nx/2, 1:100, 1:10 ),                         &
     244                    spectrum_y( 1:ny/2, 1:100, 1:10 ) )
    245245          spectrum_x = 0.0_wp
    246246          spectrum_y = 0.0_wp
Note: See TracChangeset for help on using the changeset viewer.