Changeset 2807 for palm

Timestamp:

Feb 14, 2018 5:24:14 PM (7 years ago)

Author:

thiele

Message:

Bugfixes gfortran c_sizeof

File:

• palm/trunk/SOURCE/pmc_particle_interface.f90 (modified) (4 diffs)

palm/trunk/SOURCE/pmc_particle_interface.f90

@@ -26 +26 @@
 ! -----------------
 !
+! Bugfixes gfortran c_sizeof
+! 
+! 
 ! Initial Version (by Klaus Ketelsen)
 !
@@ -219 +222 @@
     INTEGER(iwp) ::  nr_childs !< Number of child models of the current model
     
+    INTEGER(KIND=MPI_ADDRESS_KIND) ::  parsize !<
     INTEGER(KIND=MPI_ADDRESS_KIND) ::  winsize !<
-    
     TYPE(C_PTR), SAVE ::  ptr !<
     
@@ -230 +233 @@
 !-- If the model has a parent model prepare the structures for transfer
     IF ( cpl_id > 1 )  THEN 
-       winsize = C_SIZEOF (zero_particle)
-       CALL MPI_ALLOC_MEM( winsize , MPI_INFO_NULL, ptr, 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
+       parsize = 184
+#else
+       parsize = C_SIZEOF (zero_particle)
+#endif
+       CALL MPI_ALLOC_MEM( parsize , MPI_INFO_NULL, ptr, ierr )
        buf_shape(1) = 1
        CALL C_F_POINTER( ptr, win_buffer, buf_shape )
-       CALL MPI_WIN_CREATE( win_buffer, winsize, C_SIZEOF (zero_particle),     &
+       CALL MPI_WIN_CREATE( win_buffer, parsize, parsize,     &
                             MPI_INFO_NULL, me%intra_comm, particle_win_child,  &
                             ierr )
@@ -258 +271 @@
        DO  m = 1, nr_childs
           child_id = get_childid(m)
-
-          winsize = max_nr_particle_in_rma_win * C_SIZEOF( zero_particle )
+#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
+          parsize = 184
+#else
+          parsize = C_SIZEOF (zero_particle)
+#endif
+          winsize = max_nr_particle_in_rma_win * parsize
           CALL MPI_ALLOC_MEM( winsize , MPI_INFO_NULL, buf_ptr(m), ierr )
           buf_shape(1) = max_nr_particle_in_rma_win
           CALL C_F_POINTER( buf_ptr(m), win_buffer, buf_shape )
-          CALL MPI_WIN_CREATE( win_buffer, winsize, C_SIZEOF( zero_particle ), &
+          CALL MPI_WIN_CREATE( win_buffer, winsize, parsize, &
                                MPI_INFO_NULL, children(child_id)%intra_comm,   &
                                particle_win_parent(m), ierr )