Changeset 2809 for palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90

Timestamp:

Feb 15, 2018 9:55:58 AM (6 years ago)

Author:

schwenkel

Message:

Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE

File:

• palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -609 +612 @@
 
     
-    winsize = idim1 * C_SIZEOF( ierr )
+    winsize = idim1 * STORAGE_SIZE( ierr )/8
 
     CALL MPI_ALLOC_MEM( winsize, MPI_INFO_NULL, p_myind, ierr )