source: LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90 @ 811

Last change on this file since 811 was 811, checked in by lsce, 17 years ago

ACo + YM : correction bug

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 492 bytes
Line 
1MODULE mod_const_mpi
2
3  INTEGER :: COMM_LMDZ
4  INTEGER :: MPI_REAL_LMDZ
5 
6
7CONTAINS
8
9  SUBROUTINE Init_const_mpi
10  IMPLICIT NONE
11    INCLUDE 'mpif.h'
12    INTEGER :: ierr
13    INTEGER :: comp_id
14 
15#ifdef CPP_COUPLE
16       call prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
17       call prism_get_localcomm_proto(COMM_LMDZ,ierr)
18#else     
19      call MPI_INIT(ierr)
20      COMM_LMDZ=MPI_COMM_WORLD
21#endif
22
23    MPI_REAL_LMDZ=MPI_REAL8
24  END SUBROUTINE Init_const_mpi
25
26END MODULE mod_const_mpi
Note: See TracBrowser for help on using the repository browser.