MODULE mod_const_mpi

  INTEGER :: COMM_LMDZ
  INTEGER :: MPI_REAL_LMDZ
 

CONTAINS 

  SUBROUTINE Init_const_mpi
  IMPLICIT NONE
    INCLUDE 'mpif.h'
    INTEGER :: ierr
    INTEGER :: comp_id
  
#ifdef CPP_COUPLE
       call prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
       call prism_get_localcomm_proto(COMM_LMDZ,ierr)
#else      
      call MPI_INIT(ierr)
      COMM_LMDZ=MPI_COMM_WORLD
#endif

    MPI_REAL_LMDZ=MPI_REAL8
  END SUBROUTINE Init_const_mpi

END MODULE mod_const_mpi