Changeset 241 for palm/trunk/SOURCE/init_3d_model.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/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -9 +9 @@
 ! Set the starting level and the vertical smoothing factor used for 
 ! the external pressure gradient
+! +converve_volume_flow_mode: 'default', 'initial_profiles', 'inflow_profile'
+! and 'bulk_velocity'
 !
 ! Former revisions:
@@ -821 +823 @@
           volume_flow_initial = volume_flow_initial_l
           volume_flow_area    = volume_flow_area_l
-#endif  
+#endif
+!
+!--       In case of 'bulk_velocity' mode, volume_flow_initial is overridden
+!--       and calculated from u|v_bulk instead.
+          IF ( TRIM( conserve_volume_flow_mode ) == 'bulk_velocity' )  THEN
+             volume_flow_initial(1) = u_bulk * volume_flow_area(1)
+             volume_flow_initial(2) = v_bulk * volume_flow_area(2)
+          ENDIF
+
        ENDIF