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_parent_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!
     
    310313        ENDIF
    311314     ENDIF
    312      CALL set_pe_index_list( childid, children(childid),                       &
     315     CALL set_pe_index_list( children(childid),                                &
    313316                             indchildren(childid)%index_list_2d,               &
    314317                             indchildren(childid)%nrpoints )
     
    591594                         children(childid)%inter_comm, MPI_STATUS_IGNORE, ierr )
    592595          IF ( ar%nrdims == 3 )  THEN
    593              bufsize = MAX( bufsize, ape%nrele * ar%a_dim(4) )
     596             bufsize = MAX( bufsize,                                           &
     597                            INT( ape%nrele * ar%a_dim(4), MPI_ADDRESS_KIND ) )
    594598          ELSE
    595              bufsize = MAX( bufsize, ape%nrele )
     599             bufsize = MAX( bufsize, INT( ape%nrele, MPI_ADDRESS_KIND ) )
    596600          ENDIF
    597601          ar%recvindex = myindex
     
    954958
    955959
    956  SUBROUTINE set_pe_index_list( childid, mychild, index_list, nrp )
    957 
    958     IMPLICIT NONE
    959 
    960     INTEGER(iwp), INTENT(IN)                 ::  childid     !<
     960 SUBROUTINE set_pe_index_list( mychild, index_list, nrp )
     961
     962    IMPLICIT NONE
     963
    961964    INTEGER(iwp), INTENT(IN), DIMENSION(:,:) ::  index_list  !<
    962965    INTEGER(iwp), INTENT(IN)                 ::  nrp         !<
     
    10451048!
    10461049!-- Make sure, MPI_ALLOC_MEM works
    1047     winsize = MAX( winsize, 1 )
     1050    winsize = MAX( winsize, INT( 1, MPI_ADDRESS_KIND ) )
    10481051
    10491052    CALL pmc_alloc_mem( remindw, INT( winsize ) )
Note: See TracChangeset for help on using the changeset viewer.