MODULE MOD_CONST_MPI_INCA

  IMPLICIT NONE
  INTEGER :: COMM_INCA
  INTEGER :: MPI_REAL_INCA

CONTAINS 

  SUBROUTINE INIT_CONST_MPI_inca(COMM_LMDZ)
    IMPLICIT NONE
    INCLUDE 'mpif.h'

    INTEGER, INTENT(IN) :: COMM_LMDZ
  
    COMM_INCA=COMM_LMDZ    
    MPI_REAL_INCA=MPI_REAL8

  END SUBROUTINE INIT_CONST_MPI_inca

END MODULE MOD_CONST_MPI_INCA