mpi crash with INTEL-MPI

This issue was created automatically from an original CUE issue. Further discussion may take place here.

---

I had a crash, because the maximum allowed mpi_tag value in Intle_MPi is muuch lower then the hard-coded version in TELEMAC

The solution is the following.

Change the lines in paraco.f paracoi.f and paracoi8.f

IF(PARACO_MSG_TAG.LT.1000000) THEN

to

IF(PARACO_MSG_TAG.LT.MAX_TAG) THEN

And determine INTEGER:: MAXTAG (I put it in declarations_parallel.f) using the following code addition in p_init.f:
LOGICAL :: ISSET

 <br>

!
! GETS THE MAXIMUM TAG SIZE
!
CALL MPI_COMM_GET_ATTR (COMM,MPI_TAG_UB,MAX_TAG,ISSET,IER)
IF(IER.NE.0) THEN
WRITE (LU,) 'MPI_COMM_GET_ATTR: ERROR GETING MAX TAG'
CALL PLANTE(1)
STOP
ENDIF
IF(.NOT.ISSET) THEN
WRITE (LU,) 'MPI_COMM_GET_ATTR: MAX TAG NOT SET'
CALL PLANTE(1)
STOP
ENDIF