Changeset 3251 for palm/trunk/SOURCE/pmc_child_mod.f90

Timestamp:

Sep 14, 2018 1:18:42 PM (6 years ago)

Author:

raasch

Message:

explicit kind settings

File:

• palm/trunk/SOURCE/pmc_child_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_child_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! explicit kind settings
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -359 +362 @@
           NULLIFY( ape%locind )
        ENDIF
-       winsize = MAX( nr, winsize )
+       winsize = MAX( INT( nr, MPI_ADDRESS_KIND ), winsize )
     ENDDO
 
@@ -612 +615 @@
 
           IF ( ar%nrdims == 3 )  THEN
-             bufsize = MAX( bufsize, ar%a_dim(1)*ar%a_dim(2)*ar%a_dim(3) )
+             bufsize = MAX( bufsize,                                           &
+                            INT( ar%a_dim(1)*ar%a_dim(2)*ar%a_dim(3),          &
+                                 MPI_ADDRESS_KIND ) )
           ELSE
-             bufsize = MAX( bufsize, ar%a_dim(1)*ar%a_dim(2) )
+             bufsize = MAX( bufsize,                                           &
+                            INT( ar%a_dim(1)*ar%a_dim(2), MPI_ADDRESS_KIND ) )
           ENDIF
        ENDDO