Ignore:
Timestamp:
Jun 8, 2017 9:09:11 AM (4 years ago)
Author:
gronemeier
Message:

Implemented synthetic turbulence generator

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_pegrid.f90

    r2238 r2259  
    2525! -----------------
    2626! $Id$
     27! Implemented synthetic turbulence generator
     28!
     29! 2238 2017-05-31 16:49:16Z suehring
    2730! Remove unnecessary module load of pmc_interface
    2831!
     
    209212    USE spectra_mod,                                                           &
    210213        ONLY:  calculate_spectra, dt_dosp
     214
     215    USE synthetic_turbulence_generator_mod,                                    &
     216        ONLY:  use_synthetic_turbulence_generator
    211217
    212218    USE transpose_indices,                                                     &
     
    423429!-- 1. transposition  z --> x
    424430!-- This transposition is not neccessary in case of a 1d-decomposition along x
    425     IF ( psolver == 'poisfft'  .OR.  calculate_spectra )  THEN
     431    IF ( psolver == 'poisfft'  .OR.  calculate_spectra  .OR.                   &
     432         use_synthetic_turbulence_generator )  THEN
    426433
    427434       IF ( pdims(2) /= 1 )  THEN
Note: See TracChangeset for help on using the changeset viewer.