Ignore:
Timestamp:
Sep 14, 2018 1:18:42 PM (3 years ago)
Author:
raasch
Message:

explicit kind settings

File:
1 edited

Legend:

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

    r3241 r3251  
    2626! -----------------
    2727! $Id$
     28! explicit kind settings
     29!
     30! 3241 2018-09-12 15:02:00Z raasch
    2831! unused variables removed
    2932!
     
    359362          NULLIFY( ape%locind )
    360363       ENDIF
    361        winsize = MAX( nr, winsize )
     364       winsize = MAX( INT( nr, MPI_ADDRESS_KIND ), winsize )
    362365    ENDDO
    363366
     
    612615
    613616          IF ( ar%nrdims == 3 )  THEN
    614              bufsize = MAX( bufsize, ar%a_dim(1)*ar%a_dim(2)*ar%a_dim(3) )
     617             bufsize = MAX( bufsize,                                           &
     618                            INT( ar%a_dim(1)*ar%a_dim(2)*ar%a_dim(3),          &
     619                                 MPI_ADDRESS_KIND ) )
    615620          ELSE
    616              bufsize = MAX( bufsize, ar%a_dim(1)*ar%a_dim(2) )
     621             bufsize = MAX( bufsize,                                           &
     622                            INT( ar%a_dim(1)*ar%a_dim(2), MPI_ADDRESS_KIND ) )
    617623          ENDIF
    618624       ENDDO
Note: See TracChangeset for help on using the changeset viewer.