source: codes/icosagcm/trunk/src/transfert.F90 @ 266

Last change on this file since 266 was 266, checked in by ymipsl, 10 years ago

Synchronize trunk and Saturn branch.
Merge modification from Saturn branch to trunk

YM
File size: 4.7 KB
Line 
1MODULE transfert_mod
2
3#ifdef CPP_USING_MPI
4  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_mpi, req_i1,req_e1_vect, &
5                                req_e1_scal, req_i0, req_e0_vect, req_e0_scal, request_add_point, create_request, gather_field, scatter_field, &
6                                t_message,init_message=>init_message_mpi,transfert_message=>transfert_message_mpi,  &
7                                send_message=>send_message_mpi,test_message=>test_message_mpi,wait_message=>wait_message_mpi,barrier, &
8                                bcast_mpi
9#else
10  USE transfert_mpi_mod, ONLY : init_transfert, transfert_request=>transfert_request_seq, req_i1,req_e1_vect, &
11                                req_e1_scal,req_i0, req_e0_vect, req_e0_scal, request_add_point, create_request, gather_field, scatter_field,&
12                                t_message,init_message=>init_message_seq,transfert_message=>transfert_message_seq,  &
13                                send_message=>send_message_seq,test_message=>test_message_seq,wait_message=>wait_message_seq,barrier, &
14                                bcast_mpi
15#endif
16
17  USE transfert_omp_mod
18 
19  INTERFACE bcast
20    MODULE PROCEDURE bcast_c,                                     &
21                     bcast_i,bcast_i1,bcast_i2,bcast_i3,bcast_i4, &
22                     bcast_r,bcast_r1,bcast_r2,bcast_r3,bcast_r4, &
23                     bcast_l,bcast_l1,bcast_l2,bcast_l3,bcast_l4
24
25  END INTERFACE
26
27
28CONTAINS
29
30
31!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
32!! Definition des Broadcast --> 4D   !!
33!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
34
35!! -- Les chaine de charactère -- !!
36
37  SUBROUTINE bcast_c(var)
38  IMPLICIT NONE
39    CHARACTER(LEN=*),INTENT(INOUT) :: Var
40   
41!$OMP MASTER
42    CALL bcast_mpi(Var)
43!$OMP END MASTER
44    CALL bcast_omp(Var)
45   
46  END SUBROUTINE bcast_c
47
48!! -- Les entiers -- !!
49 
50  SUBROUTINE bcast_i(var)
51  IMPLICIT NONE
52    INTEGER,INTENT(INOUT) :: Var
53!$OMP MASTER
54    CALL bcast_mpi(Var)
55!$OMP END MASTER
56    CALL bcast_omp(Var)
57   
58  END SUBROUTINE bcast_i
59
60  SUBROUTINE bcast_i1(var)
61  IMPLICIT NONE
62    INTEGER,INTENT(INOUT) :: Var(:)
63   
64!$OMP MASTER
65    CALL bcast_mpi(Var)
66!$OMP END MASTER
67    CALL bcast_omp(Var)
68   
69  END SUBROUTINE bcast_i1
70
71
72  SUBROUTINE bcast_i2(var)
73  IMPLICIT NONE
74    INTEGER,INTENT(INOUT) :: Var(:,:)
75   
76!$OMP MASTER
77    CALL bcast_mpi(Var)
78!$OMP END MASTER
79    CALL bcast_omp(Var)
80   
81  END SUBROUTINE bcast_i2
82
83
84  SUBROUTINE bcast_i3(var)
85  IMPLICIT NONE
86    INTEGER,INTENT(INOUT) :: Var(:,:,:)
87   
88!$OMP MASTER
89    CALL bcast_mpi(Var)
90!$OMP END MASTER
91    CALL bcast_omp(Var)
92   
93  END SUBROUTINE bcast_i3
94
95
96  SUBROUTINE bcast_i4(var)
97  IMPLICIT NONE
98    INTEGER,INTENT(INOUT) :: Var(:,:,:,:)
99   
100!$OMP MASTER
101    CALL bcast_mpi(Var)
102!$OMP END MASTER
103    CALL bcast_omp(Var)
104   
105  END SUBROUTINE bcast_i4
106
107 
108!! -- Les reels -- !!
109 
110  SUBROUTINE bcast_r(var)
111  IMPLICIT NONE
112    REAL,INTENT(INOUT) :: Var
113
114!$OMP MASTER
115    CALL bcast_mpi(Var)
116!$OMP END MASTER
117    CALL bcast_omp(Var)
118   
119  END SUBROUTINE bcast_r
120
121  SUBROUTINE bcast_r1(var)
122  IMPLICIT NONE
123    REAL,INTENT(INOUT) :: Var(:)
124   
125!$OMP MASTER
126    CALL bcast_mpi(Var)
127!$OMP END MASTER
128    CALL bcast_omp(Var)
129   
130  END SUBROUTINE bcast_r1
131
132
133  SUBROUTINE bcast_r2(var)
134  IMPLICIT NONE
135    REAL,INTENT(INOUT) :: Var(:,:)
136   
137!$OMP MASTER
138    CALL bcast_mpi(Var)
139!$OMP END MASTER
140    CALL bcast_omp(Var)
141   
142  END SUBROUTINE bcast_r2
143
144
145  SUBROUTINE bcast_r3(var)
146  IMPLICIT NONE
147    REAL,INTENT(INOUT) :: Var(:,:,:)
148   
149!$OMP MASTER
150    CALL bcast_mpi(Var)
151!$OMP END MASTER
152    CALL bcast_omp(Var)
153   
154  END SUBROUTINE bcast_r3
155
156
157  SUBROUTINE bcast_r4(var)
158  IMPLICIT NONE
159    REAL,INTENT(INOUT) :: Var(:,:,:,:)
160   
161!$OMP MASTER
162    CALL bcast_mpi(Var)
163!$OMP END MASTER
164    CALL bcast_omp(Var)
165   
166  END SUBROUTINE bcast_r4 
167
168
169!! -- Les booleens -- !!
170 
171  SUBROUTINE bcast_l(var)
172  IMPLICIT NONE
173    LOGICAL,INTENT(INOUT) :: Var
174!$OMP MASTER
175    CALL bcast_mpi(Var)
176!$OMP END MASTER
177    CALL bcast_omp(Var)
178   
179  END SUBROUTINE bcast_l
180
181  SUBROUTINE bcast_l1(var)
182  IMPLICIT NONE
183    LOGICAL,INTENT(INOUT) :: Var(:)
184   
185!$OMP MASTER
186    CALL bcast_mpi(Var)
187!$OMP END MASTER
188    CALL bcast_omp(Var)
189   
190  END SUBROUTINE bcast_l1
191
192
193  SUBROUTINE bcast_l2(var)
194  IMPLICIT NONE
195    LOGICAL,INTENT(INOUT) :: Var(:,:)
196   
197!$OMP MASTER
198    CALL bcast_mpi(Var)
199!$OMP END MASTER
200    CALL bcast_omp(Var)
201   
202  END SUBROUTINE bcast_l2
203
204
205  SUBROUTINE bcast_l3(var)
206  IMPLICIT NONE
207    LOGICAL,INTENT(INOUT) :: Var(:,:,:)
208   
209!$OMP MASTER
210    CALL bcast_mpi(Var)
211!$OMP END MASTER
212    CALL bcast_omp(Var)
213   
214  END SUBROUTINE bcast_l3
215
216
217  SUBROUTINE bcast_l4(var)
218  IMPLICIT NONE
219    LOGICAL,INTENT(INOUT) :: Var(:,:,:,:)
220   
221!$OMP MASTER
222    CALL bcast_mpi(Var)
223!$OMP END MASTER
224    CALL bcast_omp(Var)
225   
226  END SUBROUTINE bcast_l4
227
228 
229END MODULE transfert_mod
Note: See TracBrowser for help on using the repository browser.