Changeset 4429 for palm/trunk/SOURCE/poisfft_mod.f90

Timestamp:

Feb 27, 2020 3:24:30 PM (4 years ago)

Author:

raasch

Message:

serial (non-MPI) test case added, several bugfixes for the serial mode

File:

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

palm/trunk/SOURCE/poisfft_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Statements added to avoid compile errors due to unused dummy arguments in serial mode
+! 
+! 4366 2020-01-09 08:12:43Z raasch
 ! modification concerning NEC vectorizatio
 ! 
@@ -780 +783 @@
                           comm1dx, ierr )
        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'stop' )
+#else
+!
+!--    Next line required to avoid compile error about unused dummy argument in serial mode
+       i = SIZE( f_out )
 #endif
 
@@ -830 +837 @@
                           comm1dx, ierr )
        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'stop' )
+#else
+!
+!--    Next line required to avoid compile error about unused dummy argument in serial mode
+       i = SIZE( f_in )
 #endif
 
@@ -1172 +1183 @@
                           comm1dy, ierr )
        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'stop' )
+#else
+!
+!--    Next line required to avoid compile error about unused dummy argument in serial mode
+       i = SIZE( f_out )
 #endif
 
@@ -1206 +1221 @@
        REAL(wp), DIMENSION(1:nz,nys:nyn,0:nx)             ::  f_out      !<
        REAL(wp), DIMENSION(nys:nyn,1:nz,0:nx)             ::  work       !<
+
 
 !
@@ -1216 +1232 @@
                           comm1dy, ierr )
        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'stop' )
+#else
+!
+!--    Next line required to avoid compile error about unused dummy argument in serial mode
+       i = SIZE( f_in )
 #endif