Changeset 4651 for palm/trunk/SOURCE/global_min_max.f90

Timestamp:

Aug 27, 2020 7:17:45 AM (4 years ago)

Author:

raasch

Message:

preprocessor branch for ibm removed

File:

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

palm/trunk/SOURCE/global_min_max.f90

@@ -23 +23 @@
 ! -----------------
 ! $Id$
+! preprocessor branch for ibm removed
+!
+! 4646 2020-08-24 16:02:40Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -86 +89 @@
     REAL(wp), OPTIONAL ::  value1  !<
 
-    REAL(wp) ::  ar(i1:i2,j1:j2,k1:k2)  !<
-
-#if defined( __ibm )
-    REAL(sp) ::  fmax(2)    !<
-    REAL(sp) ::  fmax_l(2)  !<
-    REAL(sp) ::  fmin(2)    !<
-    REAL(sp) ::  fmin_l(2)  !<
-             ! on 32bit-machines MPI_2REAL must not be replaced
-             ! by MPI_2DOUBLE_PRECISION
-#else
     REAL(wp), DIMENSION(2) ::  fmax    !<
     REAL(wp), DIMENSION(2) ::  fmax_l  !<
     REAL(wp), DIMENSION(2) ::  fmin    !<
     REAL(wp), DIMENSION(2) ::  fmin_l  !<
-#endif
+
+    REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) ::  ar  !<
 
 #if defined( _OPENACC )