Changeset 189 for palm/trunk/SOURCE/calc_spectra.f90
- Timestamp:
- Aug 13, 2008 5:09:26 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/calc_spectra.f90
r164 r189 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! allow 100 spectra levels instead of 10 for consistency with 7 ! define_netcdf_header 6 8 ! user-defined spectra, arguments removed from transpose routines 7 9 ! … … 223 225 REAL, DIMENSION(0:nx) :: work 224 226 REAL, DIMENSION(0:nx/2) :: sums_spectra_l 225 REAL, DIMENSION(0:nx/2,10 ):: sums_spectra227 REAL, DIMENSION(0:nx/2,100):: sums_spectra 226 228 227 229 REAL, DIMENSION(0:nxa,nys_x:nyn_xa,nzb_x:nzt_xa) :: ddd … … 234 236 !-- Loop over all levels defined by the user 235 237 n = 1 236 DO WHILE ( comp_spectra_level(n) /= 999999 .AND. n <= 10 )238 DO WHILE ( comp_spectra_level(n) /= 999999 .AND. n <= 100 ) 237 239 238 240 k = comp_spectra_level(n) … … 333 335 REAL, DIMENSION(0:ny) :: work 334 336 REAL, DIMENSION(0:ny/2) :: sums_spectra_l 335 REAL, DIMENSION(0:ny/2,10 ):: sums_spectra337 REAL, DIMENSION(0:ny/2,100):: sums_spectra 336 338 337 339 REAL, DIMENSION(0:nya,nxl_yd:nxr_yda,nzb_yd:nzt_yda) :: ddd … … 345 347 !-- Loop over all levels defined by the user 346 348 n = 1 347 DO WHILE ( comp_spectra_level(n) /= 999999 .AND. n <= 10 )349 DO WHILE ( comp_spectra_level(n) /= 999999 .AND. n <= 100 ) 348 350 349 351 k = comp_spectra_level(n)
Note: See TracChangeset
for help on using the changeset viewer.