Changeset 2938 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Mar 27, 2018 3:52:42 PM (6 years ago)

Author:

suehring

Message:

Nesting in RANS-LES and RANS-RANS mode enabled; synthetic turbulence generator at all lateral boundaries in nesting or non-cyclic forcing mode; revised Inifor initialization in nesting mode

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (5 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Nesting of dissipation rate in case of RANS mode and TKE-e closure is applied
+! 
+! 2936 2018-03-27 14:49:27Z suehring
 ! Little formatting adjustment.
 ! 
@@ -358 +361 @@
                microphysics_morrison, microphysics_seifert, mid, nest_domain,  &
                neutral, nr_timesteps_this_run, nudging,                        &
-               ocean, passive_scalar,                                          &
-               prho_reference, pt_reference, pt_slope_offset, random_heatflux, &
+               ocean, passive_scalar, prho_reference, pt_reference,            &
+               pt_slope_offset, random_heatflux, rans_mode,                    &
                rans_tke_e, run_coupled, simulated_time, simulated_time_chr,    &
                skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,        &
@@ -782 +785 @@
                 IF ( .NOT. constant_diffusion )  CALL exchange_horiz( e, nbgp )
 
+                IF ( .NOT. constant_diffusion  .AND.  rans_mode  .AND.         &
+                                                      rans_tke_e )             &
+                   CALL exchange_horiz( diss, nbgp )
+
                 IF ( air_chemistry )  THEN
                    DO  n = 1, nspec     
@@ -820 +827 @@
 !
 !--       Impose a turbulent inflow using synthetic generated turbulence
-          IF ( use_syn_turb_gen ) THEN 
-             CALL  stg_main
-          ENDIF
+          IF ( use_syn_turb_gen )  CALL  stg_main
 
 !
@@ -862 +867 @@
                                intermediate_timestep_count_max  )  THEN
              CALL forcing_bc
-          ENDIF
-!
-!--       Moreover, ensure mass conservation at each RK substep.
-          IF ( forcing )  CALL forcing_bc_mass_conservation
+!
+!--          Moreover, ensure mass conservation
+             CALL forcing_bc_mass_conservation
+          ENDIF
 
 !