/[MITgcm]/MITgcm_contrib/heimbach/OpenAD/code_heat_transport_MPI/OADmpiStubs.F
ViewVC logotype

Annotation of /MITgcm_contrib/heimbach/OpenAD/code_heat_transport_MPI/OADmpiStubs.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (hide annotations) (download)
Tue Mar 18 19:45:01 2008 UTC (17 years, 7 months ago) by utke
Branch: MAIN 
treat all exch routines in split mode,
retain the templates directive that already are in the aMPI stubs
1 utke 1.1 #include "CPP_EEMACROS.h"
2    
3     C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4     C AWAITALL
5     C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6     subroutine ampi_awaitall (
7     + count,
8     + requests,
9     + statuses,
10     + ierror)
11     C$openad xxx template ../code_heat_transport_MPI/oad_t_awaitall.f
12     include 'mpif.h'
13    
14     integer count
15     integer requests(*)
16     integer statuses(MPI_STATUS_SIZE,*)
17     integer ierror
18    
19     C do nothing
20    
21     end
22    
23     C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
24     C ISEND
25     C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
26     subroutine ampi_isend_RL (
27     + buf,
28     + count,
29     + datatype,
30     + dest,
31     + tag,
32     + comm,
33     + request,
34     + ierror)
35     C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
36    
37     use oadMPIwrapper
38    
39     _RL buf(*)
40     integer count
41     integer datatype
42     integer dest
43     integer tag
44     integer comm
45     integer request
46     integer ierror
47    
48     oadGBuf(1)=buf(1)
49    
50     end
51    
52     subroutine ampi_isend_RS (
53     + buf,
54     + count,
55     + datatype,
56     + dest,
57     + tag,
58     + comm,
59     + request,
60     + ierror)
61     C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
62    
63     use oadMPIwrapper
64    
65     _RS buf(*)
66     integer count
67     integer datatype
68     integer dest
69     integer tag
70     integer comm
71     integer request
72     integer ierror
73    
74     oadGBuf(1)=buf(1)
75    
76     end
77    
78     subroutine ampi_isend_R4 (
79     + buf,
80     + count,
81     + datatype,
82     + dest,
83     + tag,
84     + comm,
85     + request,
86     + ierror)
87     C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
88    
89     use oadMPIwrapper
90    
91     _R4 buf(*)
92     integer count
93     integer datatype
94     integer dest
95     integer tag
96     integer comm
97     integer request
98     integer ierror
99    
100     oadGBuf(1)=buf(1)
101    
102     end
103    
104     subroutine ampi_isend_R8 (
105     + buf,
106     + count,
107     + datatype,
108     + dest,
109     + tag,
110     + comm,
111     + request,
112     + ierror)
113     C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
114    
115     use oadMPIwrapper
116    
117     _R8 buf(*)
118     integer count
119     integer datatype
120     integer dest
121     integer tag
122     integer comm
123     integer request
124     integer ierror
125    
126     oadGBuf(1)=buf(1)
127    
128     end
129    
130     C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
131     C RECV
132     C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
133     subroutine ampi_recv_RL (
134     + buf,
135     + count,
136     + datatype,
137     + src,
138     + tag,
139     + comm,
140     + status,
141     + ierror)
142     C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
143    
144     use oadMPIwrapper
145     include 'mpif.h'
146    
147     _RL buf(*)
148     integer count
149     integer datatype
150     integer src
151     integer tag
152     integer comm
153     integer status(MPI_STATUS_SIZE)
154     integer ierror
155    
156     buf(1)=oadGBuf(1)
157    
158     end
159    
160     subroutine ampi_recv_RS (
161     + buf,
162     + count,
163     + datatype,
164     + src,
165     + tag,
166     + comm,
167     + status,
168     + ierror)
169     C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
170    
171     use oadMPIwrapper
172     include 'mpif.h'
173    
174     _RS buf(*)
175     integer count
176     integer datatype
177     integer src
178     integer tag
179     integer comm
180     integer status(MPI_STATUS_SIZE)
181     integer ierror
182    
183     buf(1)=oadGBuf(1)
184    
185     end
186    
187     subroutine ampi_recv_R4 (
188     + buf,
189     + count,
190     + datatype,
191     + src,
192     + tag,
193     + comm,
194     + status,
195     + ierror)
196     C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
197    
198     use oadMPIwrapper
199     include 'mpif.h'
200    
201     _R4 buf(*)
202     integer count
203     integer datatype
204     integer src
205     integer tag
206     integer comm
207     integer status(MPI_STATUS_SIZE)
208     integer ierror
209    
210     buf(1)=oadGBuf(1)
211    
212     end
213    
214     subroutine ampi_recv_R8 (
215     + buf,
216     + count,
217     + datatype,
218     + src,
219     + tag,
220     + comm,
221     + status,
222     + ierror)
223     C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
224    
225     use oadMPIwrapper
226     include 'mpif.h'
227    
228     _R8 buf(*)
229     integer count
230     integer datatype
231     integer src
232     integer tag
233     integer comm
234     integer status(MPI_STATUS_SIZE)
235     integer ierror
236    
237     buf(1)=oadGBuf(1)
238    
239     end
240    
241     C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
242     C WAITALL
243     C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
244     subroutine ampi_waitall (
245     + count,
246     + requests,
247     + statuses,
248     + ierror)
249     C$openad xxx template ../code_heat_transport_MPI/oad_t_waitall.f
250     include 'mpif.h'
251    
252     integer count
253     integer requests(*)
254     integer statuses(MPI_STATUS_SIZE,*)
255     integer ierror
256    
257     end
258    
  ViewVC Help
Powered by ViewVC 1.1.22