Ignore:
Timestamp:
Feb 14, 2018 4:56:32 PM (4 years ago)
Author:
thiele
Message:

preprocessor directive for c_sizeof in case of gfortran added

File:
1 edited

Legend:

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

    r2801 r2803  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! preprocessor directive for c_sizeof in case of __gfortran added
    2323!
    2424! Former revisions:
     
    217217!       routine
    218218! @todo Data transfer of qc and nc is prepared but not activated
     219! @todo determine c_sizeof(childgrid(1)) for gfortran
    219220!------------------------------------------------------------------------------!
    220221 MODULE pmc_interface
     
    921922     
    922923       CALL MPI_BCAST( nz_cl, 1, MPI_INTEGER, 0, comm2d, ierr )
     924#if defined( __gfortran )
     925!
     926!--    For the gfortran compiler the function c_sizeof produces strange erros
     927!--    which can probably be attributed to an error in the gfortran compiler.
     928!--    Therefore the particle size in bytes is set manually. Attention: A
     929!--    change of the size of the particle type requires an adjustment of
     930!--    this value
     931!--    TODO: determine c_sizeof(childgrid(1)) as gfortran can not handle the
     932!--    function
     933#else
     934!     
     935!--    This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit
     936!--    variables in structure particle_type (due to the calculation of par_size).
     937!--    Please note, in case of 1D decomposition ( only 1 core along
     938!--    x dimension), array trlp is not allocated, leading to program crash.
     939!--    Hence, check if array is allocated and allocate it temporarily if
     940!--    if required.
    923941       CALL MPI_BCAST( childgrid(m), c_sizeof(childgrid(1)), MPI_BYTE, 0, comm2d, ierr )
     942#endif
    924943
    925944!
Note: See TracChangeset for help on using the changeset viewer.