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

Timestamp:

Feb 19, 2009 4:08:56 PM (15 years ago)

Author:

letzel

Message:

• Option to predefine a target bulk velocity for conserve_volume_flow

File:

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

palm/trunk/SOURCE/header.f90

@@ -5 +5 @@
 ! -----------------
 ! Output of cluster_size
-! +dp_external, dp_level_b, dp_smooth, dpdxy
 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left,
-! canyon_wall_south
+! canyon_wall_south, conserve_volume_flow_mode, dp_external, dp_level_b, 
+! dp_smooth, dpdxy, u_bulk, v_bulk
 !
 ! Former revisions:
@@ -290 +290 @@
     IF ( passive_scalar )  WRITE ( io, 134 )
     IF ( conserve_volume_flow )  THEN
-       WRITE ( io, 150 )
+       WRITE ( io, 150 )  conserve_volume_flow_mode
+       IF ( TRIM( conserve_volume_flow_mode ) == 'bulk_velocity' )  THEN
+          WRITE ( io, 151 )  u_bulk, v_bulk
+       ENDIF
     ELSEIF ( dp_external )  THEN
        IF ( dp_smooth )  THEN
-          WRITE ( io, 151 ) dpdxy, dp_level_b, ', vertically smoothed.'
+          WRITE ( io, 152 )  dpdxy, dp_level_b, ', vertically smoothed.'
        ELSE
-          WRITE ( io, 151 ) dpdxy, dp_level_b, '.'
+          WRITE ( io, 152 )  dpdxy, dp_level_b, '.'
        ENDIF
     ENDIF
@@ -1406 +1409 @@
                   'kinetic energy')
 150 FORMAT (' --> Volume flow at the right and north boundary will be ', &
-                  'conserved')
-151 FORMAT (' --> External pressure gradient directly prescribed by the user:'/, &
+                  'conserved'/ &
+            '     using the ',A,' mode')
+151 FORMAT ('     with u_bulk = ',F7.3,' m/s and v_bulk = ',F7.3,' m/s')
+152 FORMAT (' --> External pressure gradient directly prescribed by the user:'/, &
               2(1X,E12.5),'Pa/m', &
              ' in x/y direction starting from dp_level_b =', F6.3, 'm', &