Ignore:
Timestamp:
Jan 22, 2021 9:25:05 AM (6 months ago)
Author:
gronemeier
Message:

bugfix: deactivated header output (dynamics_mod); change: formatting clean-up (synthetic_turbulence_generator_mod)

File:
1 edited

Legend:

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

    r4848 r4851  
    2525! -----------------
    2626! $Id$
     27! formatting clean-up
     28!
     29! 4848 2021-01-21 15:51:51Z gronemeier
    2730! replaced use_syn_turb_gen by syn_turb_gen
    2831!
     
    534537 SUBROUTINE stg_check_parameters
    535538
    536     IF ( .NOT. syn_turb_gen  .AND.  .NOT. rans_mode  .AND.                                     &
     539    IF ( .NOT. syn_turb_gen  .AND.  .NOT. rans_mode  .AND.                                         &
    537540          nesting_offline )  THEN
    538541       message_string = 'Synthetic turbulence generator is required ' //                           &
     
    541544    ENDIF
    542545
    543     IF ( .NOT. syn_turb_gen  .AND.  child_domain                                               &
     546    IF ( .NOT. syn_turb_gen  .AND.  child_domain                                                   &
    544547         .AND. rans_mode_parent  .AND.  .NOT. rans_mode )  THEN
    545548       message_string = 'Synthetic turbulence generator is required when nesting is applied ' //   &
     
    737740!--    Set-up MPI datatyp to involve all cores for turbulence generation at xz layer
    738741!--    stg_type_xz: xz-slice with vertical bounds nzb:nzt+1
    739        IF ( nesting_offline  .OR.  ( child_domain .AND.  rans_mode_parent      &
    740                               .AND.  .NOT.  rans_mode ) )  THEN
    741           CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt-nzb+2,nxr-nxl+1],             &
     742       IF ( nesting_offline  .OR.  ( child_domain .AND.  rans_mode_parent                          &
     743                                     .AND.  .NOT.  rans_mode ) )  THEN
     744          CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt-nzb+2,nxr-nxl+1],                                 &
    742745                  [1,nxr-nxl+1], [0,0], MPI_ORDER_FORTRAN, MPI_REAL, newtype, ierr )
    743746          CALL MPI_TYPE_CREATE_RESIZED( newtype, tob, extent, stg_type_xz, ierr )
     
    746749
    747750          ! stg_type_yz_small: xz-slice with vertical bounds nzb_x_stg:nzt_x_stg+1
    748           CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt_y_stg-nzb_y_stg+2,nxr-nxl+1], &
     751          CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt_y_stg-nzb_y_stg+2,nxr-nxl+1],                     &
    749752                  [1,nxr-nxl+1], [0,0], MPI_ORDER_FORTRAN, MPI_REAL, newtype, ierr )
    750753          CALL MPI_TYPE_CREATE_RESIZED( newtype, tob, extent, stg_type_xz_small, ierr )
Note: See TracChangeset for help on using the changeset viewer.