Changeset 189 for palm/trunk/SOURCE/calc_spectra.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/calc_spectra.f90 (modified) (5 diffs)

palm/trunk/SOURCE/calc_spectra.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! allow 100 spectra levels instead of 10 for consistency with
+! define_netcdf_header
 ! user-defined spectra, arguments removed from transpose routines
 !
@@ -223 +225 @@
     REAL, DIMENSION(0:nx)      ::  work
     REAL, DIMENSION(0:nx/2)    ::  sums_spectra_l
-    REAL, DIMENSION(0:nx/2,10) ::  sums_spectra
+    REAL, DIMENSION(0:nx/2,100)::  sums_spectra
 
     REAL, DIMENSION(0:nxa,nys_x:nyn_xa,nzb_x:nzt_xa) ::  ddd
@@ -234 +236 @@
 !-- Loop over all levels defined by the user
     n = 1
-    DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 10 )
+    DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 100 )
 
        k = comp_spectra_level(n)
@@ -333 +335 @@
     REAL, DIMENSION(0:ny)      ::  work
     REAL, DIMENSION(0:ny/2)    ::  sums_spectra_l
-    REAL, DIMENSION(0:ny/2,10) ::  sums_spectra
+    REAL, DIMENSION(0:ny/2,100)::  sums_spectra
 
     REAL, DIMENSION(0:nya,nxl_yd:nxr_yda,nzb_yd:nzt_yda) :: ddd
@@ -345 +347 @@
 !-- Loop over all levels defined by the user
     n = 1
-    DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 10 )
+    DO WHILE ( comp_spectra_level(n) /= 999999  .AND.  n <= 100 )
 
        k = comp_spectra_level(n)