Changeset 555 for palm/trunk/SOURCE

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

Location:

palm/trunk/SOURCE

Files:

• disturb_heatflux.f90 (modified) (2 diffs)
• init_grid.f90 (modified) (2 diffs)
• user_statistics.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

palm/trunk/SOURCE/init_grid.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: default setting of nzb_local for flat topographie
 !
 ! Former revisions:
@@ -344 +344 @@
        CASE ( 'flat' )
 !
-!--       No actions necessary
+!--       nzb_local is required for the multigrid solver
+          nzb_local = 0
 
        CASE ( 'single_building' )

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.