Changeset 3083 for palm/trunk/SOURCE/parin.f90

Timestamp:

Jun 19, 2018 2:03:12 PM (6 years ago)

Author:

gronemeier

Message:

merge with branch rans

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/parin.f90 (modified) (4 diffs)

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added rans_const_c and rans_const_sigma as input parameters (TG)
+! 
+! 3065 2018-06-12 07:03:02Z Giersch
 ! New initialization parameters added
 ! 
@@ -467 +470 @@
     USE synthetic_turbulence_generator_mod,                                    &
         ONLY:  stg_parin
+
+    USE turbulence_closure_mod,                                                &
+        ONLY:  rans_const_c, rans_const_sigma
 
     USE urban_surface_mod,                                                     &
@@ -531 +537 @@
              pt_vertical_gradient_level, q_surface, q_surface_initial_change,  &
              q_vertical_gradient, q_vertical_gradient_level,                   &
-             random_generator, random_heatflux, rans_mode,                     &
+             random_generator, random_heatflux, rans_const_c, rans_const_sigma,&
+             rans_mode,                                                        &
              rayleigh_damping_factor, rayleigh_damping_height,                 &
              recycling_width, recycling_yshift,                                &
@@ -601 +608 @@
              pt_vertical_gradient_level, q_surface, q_surface_initial_change,  &
              q_vertical_gradient, q_vertical_gradient_level,                   &
-             random_generator, random_heatflux, rans_mode,                     &
+             random_generator, random_heatflux, rans_const_c, rans_const_sigma,&
+             rans_mode,                                                        &
              rayleigh_damping_factor, rayleigh_damping_height,                 &
              recycling_width, recycling_yshift,                                &