Changeset 192 for palm/trunk/SOURCE/calc_spectra.f90

Timestamp:

Aug 27, 2008 4:51:49 PM (16 years ago)

Author:

letzel

Message:

• Bugfix: exponent in calc_spectra_x (calc_spectra)

File:

• palm/trunk/SOURCE/calc_spectra.f90 (modified) (2 diffs)

palm/trunk/SOURCE/calc_spectra.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! bugfix in calc_spectra_x: exponent = 1.0 / ( ny + 1.0 )
 ! allow 100 spectra levels instead of 10 for consistency with
 ! define_netcdf_header
@@ -231 +232 @@
 !
 !-- Exponent for geometric average
-    exponent = 1.0 / ( nx + 1.0 )
+    exponent = 1.0 / ( ny + 1.0 )
 
 !