Changeset 2803 for palm

Timestamp:

Feb 14, 2018 4:56:32 PM (7 years ago)

Author:

thiele

Message:

preprocessor directive for c_sizeof in case of gfortran added

File:

• palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! preprocessor directive for c_sizeof in case of __gfortran added
 ! 
 ! Former revisions:
@@ -217 +217 @@
 !       routine
 ! @todo Data transfer of qc and nc is prepared but not activated
+! @todo determine c_sizeof(childgrid(1)) for gfortran
 !------------------------------------------------------------------------------!
  MODULE pmc_interface
@@ -921 +922 @@
       
        CALL MPI_BCAST( nz_cl, 1, MPI_INTEGER, 0, comm2d, ierr )
+#if defined( __gfortran )
+!
+!--    For the gfortran compiler the function c_sizeof produces strange erros 
+!--    which can probably be attributed to an error in the gfortran compiler.
+!--    Therefore the particle size in bytes is set manually. Attention: A 
+!--    change of the size of the particle type requires an adjustment of 
+!--    this value
+!--    TODO: determine c_sizeof(childgrid(1)) as gfortran can not handle the 
+!--    function
+#else
+!      
+!--    This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 
+!--    variables in structure particle_type (due to the calculation of par_size).
+!--    Please note, in case of 1D decomposition ( only 1 core along 
+!--    x dimension), array trlp is not allocated, leading to program crash. 
+!--    Hence, check if array is allocated and allocate it temporarily if 
+!--    if required.
        CALL MPI_BCAST( childgrid(m), c_sizeof(childgrid(1)), MPI_BYTE, 0, comm2d, ierr )
+#endif
 
 !