Changeset 175 for palm/trunk/SOURCE

Timestamp:

Jul 8, 2008 8:29:06 AM (16 years ago)

Author:

steinfeld

Message:

NCL scripts for spectra added. Bug fix concerning spectra in netcdf.f90

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• netcdf.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -77 +77 @@
 Errors:
 ------
+Bugfix: Determination of the number of vertical levels for which spectra 
+shall be output - 100 replaced by 10. (netcdf)
+
 Bugfix: Lengths of those characters that are needed for the output of the 
 characteristic levels of potential temperature, the geostrophic wind, 

palm/trunk/SOURCE/netcdf.f90

@@ -7 +7 @@
 ! Current revisions:
 ! ------------------
+! bug fix in the determination of the number of output heights for spectra
+!
 ! user-defined spectra
 !
@@ -3057 +3059 @@
 !--       shall be output
           ns = 1
-          DO WHILE ( comp_spectra_level(ns) /= 999999  .AND.  ns <= 100 )
+          DO WHILE ( comp_spectra_level(ns) /= 999999  .AND.  ns <= 10 )
              ns = ns + 1
           ENDDO