Changeset 3200

Timestamp:

Aug 17, 2018 2:46:36 PM (6 years ago)

Author:

suehring

Message:

Missing pre-processor directive

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, missing pre-processor directive
+! 
+! 3183 2018-07-27 14:25:55Z suehring
 ! Rename variables in mesoscale-offline nesting mode
 ! 
@@ -1347 +1350 @@
 !-- need to be remove to avoid steep edges at the child-domain boundaries.
     IF ( input_pids_static )  THEN
-
+#if defined( __parallel ) 
        CALL MPI_ALLREDUCE( MINVAL( terrain_height_f%var ), oro_min, 1,         &
                            MPI_REAL, MPI_MIN, MPI_COMM_WORLD, ierr )
-                           
+#else
+       oro_min = MINVAL( terrain_height_f%var )
+#endif
+
        terrain_height_f%var = terrain_height_f%var - oro_min
 !