Changeset 2809 for palm/trunk/SOURCE/pmc_child_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_child_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_child_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
+! 
+! 2801 2018-02-14 16:01:55Z thiele
 ! Introduce particle transfer in nested models.
 ! 
@@ -314 +317 @@
 
 
-    win_size = C_SIZEOF( dummy )
+    win_size = STORAGE_SIZE( dummy )/8
     CALL MPI_WIN_CREATE( dummy, win_size, iwp, MPI_INFO_NULL, me%intra_comm,   &
                          indwin, ierr )