Changeset 3251 for palm/trunk
- Timestamp:
- Sep 14, 2018 1:18:42 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_child_mod.f90
r3241 r3251 26 26 ! ----------------- 27 27 ! $Id$ 28 ! explicit kind settings 29 ! 30 ! 3241 2018-09-12 15:02:00Z raasch 28 31 ! unused variables removed 29 32 ! … … 359 362 NULLIFY( ape%locind ) 360 363 ENDIF 361 winsize = MAX( nr, winsize )364 winsize = MAX( INT( nr, MPI_ADDRESS_KIND ), winsize ) 362 365 ENDDO 363 366 … … 612 615 613 616 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 ) ) 615 620 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 ) ) 617 623 ENDIF 618 624 ENDDO -
palm/trunk/SOURCE/pmc_parent_mod.f90
r3241 r3251 26 26 ! ----------------- 27 27 ! $Id$ 28 ! explicit kind settings 29 ! 30 ! 3241 2018-09-12 15:02:00Z raasch 28 31 ! unused variables removed 29 32 ! … … 310 313 ENDIF 311 314 ENDIF 312 CALL set_pe_index_list( child id, children(childid),&315 CALL set_pe_index_list( children(childid), & 313 316 indchildren(childid)%index_list_2d, & 314 317 indchildren(childid)%nrpoints ) … … 591 594 children(childid)%inter_comm, MPI_STATUS_IGNORE, ierr ) 592 595 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 ) ) 594 598 ELSE 595 bufsize = MAX( bufsize, ape%nrele)599 bufsize = MAX( bufsize, INT( ape%nrele, MPI_ADDRESS_KIND ) ) 596 600 ENDIF 597 601 ar%recvindex = myindex … … 954 958 955 959 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 961 964 INTEGER(iwp), INTENT(IN), DIMENSION(:,:) :: index_list !< 962 965 INTEGER(iwp), INTENT(IN) :: nrp !< … … 1045 1048 ! 1046 1049 !-- Make sure, MPI_ALLOC_MEM works 1047 winsize = MAX( winsize, 1)1050 winsize = MAX( winsize, INT( 1, MPI_ADDRESS_KIND ) ) 1048 1051 1049 1052 CALL pmc_alloc_mem( remindw, INT( winsize ) )
Note: See TracChangeset
for help on using the changeset viewer.