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

Timestamp:

Sep 7, 2010 7:32:53 AM (13 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/disturb_heatflux.f90 (modified) (2 diffs)

palm/trunk/SOURCE/disturb_heatflux.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in if statement
 !
 ! Former revisions:
@@ -52 +52 @@
              IF ( nzb_s_inner(j,i) == 0 )  THEN
                 shf(j,i) = randomnumber * surface_heatflux
+             ELSE
 !
 !--             Over topography surface_heatflux is replaced by wall_heatflux(0)
                 shf(j,i) = randomnumber * wall_heatflux(0)
-             ELSE
              ENDIF
           ENDIF