Changeset 3251


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

explicit kind settings

Location:
palm/trunk/SOURCE
Files:
2 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
  • 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.