Changeset 892


Ignore:
Timestamp:
06/13/19 16:45:39 (5 years ago)
Author:
adurocher
Message:

trunk : Replaced deprecated MPI_TYPE_EXTENT by MPI_Type_get_extent

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/parallel/mpipara.F90

    r708 r892  
    146146 
    147147    TYPE(C_PTR)         :: base_ptr 
    148     INTEGER(KIND=MPI_ADDRESS_KIND) :: size 
    149     INTEGER :: real_size,ierr 
    150      
    151     CALL MPI_TYPE_EXTENT(MPI_REAL8, real_size, ierr) 
     148    INTEGER(KIND=MPI_ADDRESS_KIND) :: real_size,lb,size 
     149    INTEGER :: ierr 
     150     
     151    CALL MPI_Type_get_extent(MPI_REAL8, lb, real_size, ierr) 
    152152    size=length*real_size 
    153153     
    … …  
    178178 
    179179    TYPE(C_PTR)         :: base_ptr 
    180     INTEGER(KIND=MPI_ADDRESS_KIND) :: size 
    181     INTEGER :: real_size,ierr 
    182      
    183     CALL MPI_TYPE_EXTENT(MPI_REAL8, real_size, ierr) 
     180    INTEGER(KIND=MPI_ADDRESS_KIND) :: real_size,lb,size 
     181    INTEGER :: ierr 
     182     
     183    CALL MPI_Type_get_extent(MPI_REAL8, lb, real_size, ierr) 
    184184    size=length*real_size*dim3 
    185185     
    … …  
    211211 
    212212    TYPE(C_PTR)         :: base_ptr 
    213     INTEGER(KIND=MPI_ADDRESS_KIND) :: size 
    214     INTEGER :: real_size,ierr 
    215      
    216     CALL MPI_TYPE_EXTENT(MPI_REAL8, real_size, ierr) 
     213    INTEGER(KIND=MPI_ADDRESS_KIND) :: real_size,lb,size 
     214    INTEGER :: ierr 
     215     
     216    CALL MPI_Type_get_extent(MPI_REAL8, lb, real_size, ierr) 
    217217    size=length*real_size*dim3*dim4 
    218218     
Note: See TracChangeset for help on using the changeset viewer.