Changeset 4851 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

Timestamp:

Jan 22, 2021 9:25:05 AM (3 years ago)

Author:

gronemeier

Message:

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

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! formatting clean-up
+!
+! 4848 2021-01-21 15:51:51Z gronemeier
 ! replaced use_syn_turb_gen by syn_turb_gen
 !
@@ -534 +537 @@
  SUBROUTINE stg_check_parameters
 
-    IF ( .NOT. syn_turb_gen  .AND.  .NOT. rans_mode  .AND.                                     &
+    IF ( .NOT. syn_turb_gen  .AND.  .NOT. rans_mode  .AND.                                         &
           nesting_offline )  THEN
        message_string = 'Synthetic turbulence generator is required ' //                           &
@@ -541 +544 @@
     ENDIF
 
-    IF ( .NOT. syn_turb_gen  .AND.  child_domain                                               &
+    IF ( .NOT. syn_turb_gen  .AND.  child_domain                                                   &
          .AND. rans_mode_parent  .AND.  .NOT. rans_mode )  THEN
        message_string = 'Synthetic turbulence generator is required when nesting is applied ' //   &
@@ -737 +740 @@
 !--    Set-up MPI datatyp to involve all cores for turbulence generation at xz layer
 !--    stg_type_xz: xz-slice with vertical bounds nzb:nzt+1
-       IF ( nesting_offline  .OR.  ( child_domain .AND.  rans_mode_parent      &
-                              .AND.  .NOT.  rans_mode ) )  THEN
-          CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt-nzb+2,nxr-nxl+1],             &
+       IF ( nesting_offline  .OR.  ( child_domain .AND.  rans_mode_parent                          &
+                                     .AND.  .NOT.  rans_mode ) )  THEN
+          CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt-nzb+2,nxr-nxl+1],                                 &
                   [1,nxr-nxl+1], [0,0], MPI_ORDER_FORTRAN, MPI_REAL, newtype, ierr )
           CALL MPI_TYPE_CREATE_RESIZED( newtype, tob, extent, stg_type_xz, ierr )
@@ -746 +749 @@
 
           ! stg_type_yz_small: xz-slice with vertical bounds nzb_x_stg:nzt_x_stg+1
-          CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt_y_stg-nzb_y_stg+2,nxr-nxl+1], &
+          CALL MPI_TYPE_CREATE_SUBARRAY( 2, [nzt_y_stg-nzb_y_stg+2,nxr-nxl+1],                     &
                   [1,nxr-nxl+1], [0,0], MPI_ORDER_FORTRAN, MPI_REAL, newtype, ierr )
           CALL MPI_TYPE_CREATE_RESIZED( newtype, tob, extent, stg_type_xz_small, ierr )