Changeset 555 for palm/trunk/SOURCE/user_statistics.f90

Timestamp:

Sep 7, 2010 7:32:53 AM (14 years ago)

Author:

raasch

Message:

New:
---

Changed:

---

Documentation for surface_heatflux in case of prandtl_layer = .F. improved.

bugfix for wrong netcdf/3.6.3 module on lcsgi (mbuild, mrun)

Errors:

---

Bugfix in if statement (disturb_heatflux)

Bugfix: in 2201 statement: closing " was missing (interpret_config)

Bugfix: default setting of nzb_local for flat topography (init_grid)

Bugfix: wrong dimension used for ts_value_l (user_statistics)

disturb_heatflux, init_grid, interpret_config, user_statistics

File:

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

palm/trunk/SOURCE/user_statistics.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: wrong dimension used for ts_value_l
 !
 ! Former revisions:
@@ -77 +77 @@
 !--    velocities u and v.
 !       ts_value_l = 0.0
-!       ts_value_l(dots_num_palm+1,sr) = ABS( u_max )
-!       ts_value_l(dots_num_palm+2,sr) = ABS( v_max )
+!       ts_value_l(dots_num_palm+1) = ABS( u_max )
+!       ts_value_l(dots_num_palm+2) = ABS( v_max )
 !
 !--     Collect / send values to PE0, because only PE0 outputs the time series.