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

palm/trunk/SOURCE/netcdf.f90

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