Changeset 192 for palm/trunk

Timestamp:

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

Author:

letzel

Message:

• Bugfix: exponent in calc_spectra_x (calc_spectra)

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (2 diffs)
• calc_spectra.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -96 +96 @@
 Errors:
 ------
+Bugfix: exponent = 1.0 / ( ny + 1.0 ) in calc_spectra_x (calc_spectra)
+
 Bugfix: change definition of us_wall from 1D to 2D. Tests showed that this decreases 
 u* by some 10% and increases TKE and momentum fluxes by some 10% because friction 
@@ -146 +148 @@
 Bugfix: misplaced #endif directives (combine_plot_fields)
 
-check_parameters, diffusion_s, flow_statistics, init_dvrp, init_3d_model, local_stop, plant_canopy_model, poismg, prandtl_fluxes, pres, read_3d_binary, user_interface, wall_fluxes, write_3d_binary
+calc_spectra, check_parameters, diffusion_s, flow_statistics, init_dvrp, init_3d_model, local_stop, plant_canopy_model, poismg, prandtl_fluxes, pres, read_3d_binary, user_interface, wall_fluxes, write_3d_binary
 

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 )
 
 !