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

Last change on this file since 785 was 774, checked in by Laurent Fairhead, 17 years ago

Suite du merge entre la version et la HEAD: quelques modifications de
Yann sur le

LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 269 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 
13    COMM_LMDZ=MPI_COMM_WORLD
14    MPI_REAL_LMDZ=MPI_REAL8
15  END SUBROUTINE Init_const_mpi
16
17END MODULE mod_const_mpi
Note: See TracBrowser for help on using the repository browser.