Changeset 4851


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

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r4845 r4851  
    2424! -----------------
    2525! $Id$
     26! bugfix: deactivated header output
     27!
     28! 4845 2021-01-18 11:15:37Z raasch
    2629! radiation boundary condition always uses maximum phase velocity, respective code for calculating
    2730! the phase velocity is removed
     
    352355                                             !< although the respective module namelist appears in
    353356                                             !< the namelist file
    354    
     357
    355358    NAMELIST /dynamics_parameters/  switch_off_module
    356359
     
    639642
    640643
    641     INTEGER(iwp) ::  io   !<
    642 
    643 !
    644 !-- If no module-specific variables are read from the namelist-file, no information will be printed.
    645     IF ( .NOT. dynamics_module_enabled )  THEN
    646        WRITE ( io, 100 )
    647        RETURN
    648     ENDIF
    649 
    650 !
    651 !-- Printing the information.
    652     WRITE ( io, 110 )
     644    INTEGER(iwp) ::  io   !< output-file id
     645
     646!
     647!-- Write dynamics module header
     648!-- NOTE: Deactivated because no relevant information to write so far
     649    IF ( .FALSE. )  WRITE ( io, 100 )
    653650
    654651!
    655652!-- Format-descriptors
    656 100 FORMAT (//' *** dynamic module disabled'/)
    657 110 FORMAT (//1X,78('#')                                                                           &
    658             //' User-defined variables and actions:'/                                              &
     653100 FORMAT (//' Dynamics module information:'/                                              &
    659654              ' -----------------------------------'//)
    660655
  • 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.