source: LMDZ5/branches/LF-private/libf/dyn3dpar/mod_const_mpi.F90 @ 3347

Last change on this file since 3347 was 1856, checked in by Ehouarn Millour, 11 years ago

Implémentation de XIOS dans dyn3dmem.
UG
................................
XIOS implementation in dyn3dmem.
UG

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.0 KB
Line 
1!
2! $Id: mod_const_mpi.F90 1856 2013-08-30 13:59:10Z idelkadi $
3!
4MODULE mod_const_mpi
5
6  INTEGER,SAVE :: COMM_LMDZ
7  INTEGER,SAVE :: MPI_REAL_LMDZ
8 
9
10CONTAINS
11
12  SUBROUTINE Init_const_mpi
13#ifdef CPP_IOIPSL
14    USE IOIPSL
15#else
16! if not using IOIPSL, we still need to use (a local version of) getin
17    USE ioipsl_getincom
18#endif
19
20    IMPLICIT NONE
21#ifdef CPP_MPI
22    INCLUDE 'mpif.h'
23#endif
24    INTEGER             :: ierr
25    INTEGER             :: comp_id
26    INTEGER             :: thread_required
27    INTEGER             :: thread_provided
28    CHARACTER(len = 6)  :: type_ocean
29
30!$OMP MASTER
31    type_ocean = 'force '
32    CALL getin('type_ocean', type_ocean)
33!$OMP END MASTER
34!$OMP BARRIER
35
36    IF (type_ocean=='couple') THEN
37#ifdef CPP_COUPLE
38!$OMP MASTER
39       CALL prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
40       CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
41!$OMP END MASTER
42#endif
43#ifdef CPP_MPI
44      MPI_REAL_LMDZ=MPI_REAL8
45#endif
46    ELSE
47      CALL init_mpi
48    ENDIF
49
50  END SUBROUTINE Init_const_mpi
51 
52  SUBROUTINE Init_mpi
53#ifdef CPP_XIOS
54    USE wxios
55#endif
56  IMPLICIT NONE
57#ifdef CPP_MPI
58     INCLUDE 'mpif.h'
59#endif
60    INTEGER             :: ierr
61    INTEGER             :: thread_required
62    INTEGER             :: thread_provided
63
64#ifdef CPP_MPI
65!$OMP MASTER
66      thread_required=MPI_THREAD_SERIALIZED
67
68      CALL MPI_INIT_THREAD(thread_required,thread_provided,ierr)
69      IF (thread_provided < thread_required) THEN
70        PRINT *,'Warning : The multithreaded level of MPI librairy do not provide the requiered level',  &
71                ' in mod_const_mpi::Init_const_mpi'
72      ENDIF
73      COMM_LMDZ=MPI_COMM_WORLD
74      MPI_REAL_LMDZ=MPI_REAL8
75
76    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
77    ! Initialisation de XIOS
78    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
79#ifdef CPP_XIOS
80      CALL wxios_init("LMDZ", outcom=COMM_LMDZ)
81#endif
82!$OMP END MASTER
83#else
84#ifdef CPP_XIOS
85!$OMP MASTER
86      CALL wxios_init("LMDZ")
87!$OMP END MASTER
88#endif
89#endif
90   END SUBROUTINE Init_mpi
91   
92END MODULE mod_const_mpi
Note: See TracBrowser for help on using the repository browser.