source: LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/mod_const_para.F90 @ 4668

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

Modifs pour faire tourner le meme executable en force ou couple JG
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 681 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    USE IOIPSL
11
12    IMPLICIT NONE
13    INCLUDE 'mpif.h'
14    INTEGER             :: ierr
15    INTEGER             :: comp_id
16    CHARACTER(len = 6)  :: ocean
17
18!$OMP MASTER
19    ocean = 'force '
20    CALL getin('OCEAN', ocean)
21!$OMP END
22
23    IF (ocean=='couple') THEN
24#ifdef CPP_COUPLE
25       CALL prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
26       CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
27#endif
28    ELSE
29       CALL MPI_INIT(ierr)
30       COMM_LMDZ=MPI_COMM_WORLD
31    END IF
32
33    MPI_REAL_LMDZ=MPI_REAL8
34  END SUBROUTINE Init_const_mpi
35
36END MODULE mod_const_mpi
Note: See TracBrowser for help on using the repository browser.