Changeset 2330 for palm/trunk/SOURCE

Timestamp:

Aug 3, 2017 2:26:02 PM (8 years ago)

Author:

schwenkel

Message:

Bugfix for gfortran

File:

• palm/trunk/SOURCE/lpm_exchange_horiz.f90 (modified) (6 diffs)

palm/trunk/SOURCE/lpm_exchange_horiz.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: Also for gfortran compilable, function c_sizeof is not used. 
+! 
+! 2305 2017-07-06 11:18:47Z hoffmann
 ! Improved calculation of particle IDs.
 ! 
@@ -406 +409 @@
     ENDDO
 
+#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
+       par_size = 184
+#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)
+       par_size = c_sizeof(trlp(1))
+#endif
+
+
 !
 !-- Allocate arrays required for north-south exchange, as these
@@ -424 +443 @@
 
        ALLOCATE(rvrp(MAX(1,trrp_count_recv)))
-!      
-!--    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)
-       par_size = c_sizeof(trlp(1))
+
        CALL MPI_SENDRECV( trlp, max(1,trlp_count)*par_size, MPI_BYTE,&
                           pleft, 1, rvrp,                            &
@@ -447 +463 @@
 !--    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)
-       par_size = c_sizeof(trrp(1))
        CALL MPI_SENDRECV( trrp, max(1,trrp_count)*par_size, MPI_BYTE,&
                           pright, 1, rvlp,                           &
@@ -655 +670 @@
 !--    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)
-       par_size = c_sizeof(trsp(1))
        CALL MPI_SENDRECV( trsp, trsp_count*par_size, MPI_BYTE,      &
                           psouth, 1, rvnp,                             &
@@ -675 +689 @@
 !--    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)
-       par_size = c_sizeof(trnp(1))
        CALL MPI_SENDRECV( trnp, trnp_count*par_size, MPI_BYTE,      &
                           pnorth, 1, rvsp,                          &