Changeset 4684 for palm


Ignore:
Timestamp:
Sep 18, 2020 9:50:28 AM (6 weeks ago)
Author:
pavelkrc
Message:

Bugfix to previous for serial build

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r4683 r4684  
    2828! -----------------
    2929! $Id$
     30! Bugfix to previous for serial build
     31!
     32! 4683 2020-09-18 09:23:09Z pavelkrc
    3033! Add option to limit the size of MPI_Alltoall calls
    3134!
     
    99899992!> exchange to multiple iterations with maximum number of items per iteration.
    99909993!--------------------------------------------------------------------------------------------------!
     9994#if defined( __parallel )
    99919995 SUBROUTINE radiation_exchange_alltoall(ntosend, npint, npfloat, isendbuf, fsendbuf,               &
    99929996                                        nrecv, irecvbuf, frecvbuf)
     
    1010310107    DEALLOCATE( ntorecv, dsend, drecv, dsendnow, drecvnow, nsendnow, nrecvnow )
    1010410108 END SUBROUTINE radiation_exchange_alltoall
     10109#endif
    1010510110
    1010610111!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.