Changeset 1678 for LMDZ5


Ignore:
Timestamp:
Nov 12, 2012, 8:58:29 AM (12 years ago)
Author:
Ehouarn Millour
Message:

Add a "fix" to parallel.F90 (otherwise ifort complains and wrongly fails to compile when in debug mode): add a dummy allocation of Buffer_Recv(), even when it is not needed.
EM

Location:
LMDZ5/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/parallel.F90

    r1673 r1678  
    657657          enddo
    658658         
    659         endif
     659        else
     660          ! Ehouarn: When in debug mode, ifort complains (for call MPI_GATHERV
     661          !          below) about Buffer_Recv() being not allocated.
     662          !          So make a dummy allocation.
     663          allocate(Buffer_Recv(1))
     664        endif ! of if (MPI_Rank==rank)
    660665 
    661666!$OMP CRITICAL (MPI)

  • LMDZ5/trunk/libf/dyn3dpar/parallel.F90

    r1575 r1678  
    489489          enddo
    490490         
    491         endif
     491        else
     492          ! Ehouarn: When in debug mode, ifort complains (for call MPI_GATHERV
     493          !          below) about Buffer_Recv() being not allocated.
     494          !          So make a dummy allocation.
     495          allocate(Buffer_Recv(1))
     496        endif ! of if (MPI_Rank==rank)
    492497 
    493498!$OMP CRITICAL (MPI)
Note: See TracChangeset for help on using the changeset viewer.