Ignore:
Timestamp:
Feb 15, 2018 9:55:58 AM (4 years ago)
Author:
schwenkel
Message:

Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE

File:
1 edited

Legend:

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

    r2801 r2809  
    2626! -----------------
    2727! $Id$
     28! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
     29!
     30! 2801 2018-02-14 16:01:55Z thiele
    2831! Introduce particle transfer in nested models.
    2932!
     
    10101013!
    10111014!-- Number of child processes * size of INTEGER (i just arbitrary INTEGER)
    1012     winsize = mychild%inter_npes*c_sizeof(i)*2
     1015    winsize = mychild%inter_npes*STORAGE_SIZE(i)/8*2
    10131016
    10141017    CALL MPI_WIN_CREATE( rldef, winsize, iwp, MPI_INFO_NULL,                   &
     
    10431046
    10441047    CALL MPI_BARRIER( m_model_comm, ierr )
    1045     CALL MPI_WIN_CREATE( remindw, winsize*c_sizeof(i), iwp, MPI_INFO_NULL,     &
     1048    CALL MPI_WIN_CREATE( remindw, winsize*STORAGE_SIZE(i)/8, iwp, MPI_INFO_NULL,     &
    10461049                         mychild%intra_comm, indwin2, ierr )
    10471050!
Note: See TracChangeset for help on using the changeset viewer.