Changeset 4684

Timestamp:

Sep 18, 2020 9:50:28 AM (4 years ago)

Author:

pavelkrc

Message:

Bugfix to previous for serial build

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix to previous for serial build
+!
+! 4683 2020-09-18 09:23:09Z pavelkrc
 ! Add option to limit the size of MPI_Alltoall calls
 !
@@ -9989 +9992 @@
 !> exchange to multiple iterations with maximum number of items per iteration.
 !--------------------------------------------------------------------------------------------------!
+#if defined( __parallel )
  SUBROUTINE radiation_exchange_alltoall(ntosend, npint, npfloat, isendbuf, fsendbuf,               &
                                         nrecv, irecvbuf, frecvbuf)
@@ -10103 +10107 @@
     DEALLOCATE( ntorecv, dsend, drecv, dsendnow, drecvnow, nsendnow, nrecvnow )
  END SUBROUTINE radiation_exchange_alltoall
+#endif
 
 !------------------------------------------------------------------------------!