Changeset 132 for palm/trunk/SOURCE/header.f90

Timestamp:

Nov 20, 2007 9:46:11 AM (16 years ago)

Author:

letzel

Message:

Vertical profiles now based on nzb_s_inner; they are divided by
ngp_2dh_s_inner (scalars, procucts of scalars and velocity components) and
ngp_2dh (staggered velocity components and their products), respectively.

Allow new case bc_uv_t = 'dirichlet_0' for channel flow.

File:

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

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! allow two instead of one digit to specify isosurface and slicer variables
+! Allow new case bc_uv_t = 'dirichlet_0' for channel flow.
+! Allow two instead of one digit to specify isosurface and slicer variables.
 ! Output of sorting frequency of particles
 !
@@ -384 +385 @@
        runten = TRIM( runten ) // ' uv(0)     = uv(1)                 |'
     ENDIF
-    IF ( ibc_uv_t == 0 )  THEN
+    IF ( TRIM( bc_uv_t ) == 'dirichlet_0' )  THEN
+       roben  = TRIM( roben  ) // ' uv(nzt+1) = 0                     |'
+    ELSEIF ( ibc_uv_t == 0 )  THEN
        roben  = TRIM( roben  ) // ' uv(nzt+1) = ug(nzt+1), vg(nzt+1)  |'
     ELSE