MODULE mod_const_mpi

  INTEGER :: COMM_LMDZ
  INTEGER :: MPI_REAL_LMDZ
 

CONTAINS 

  SUBROUTINE Init_const_mpi
  IMPLICIT NONE
    INCLUDE 'mpif.h'
  
    COMM_LMDZ=MPI_COMM_WORLD
    MPI_REAL_LMDZ=MPI_REAL8
  END SUBROUTINE Init_const_mpi

END MODULE mod_const_mpi