source: trunk/WRF.COMMON/WRFV2/frame/module_dm_stubs.F @ 3094

Last change on this file since 3094 was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien
File size: 9.2 KB
Line 
1!WRF:PACKAGE:NODM
2!
3MODULE module_dm
4
5  CONTAINS
6   SUBROUTINE init_module_dm
7   END SUBROUTINE init_module_dm
8
9   REAL FUNCTION wrf_dm_max_real ( inval )
10      IMPLICIT NONE
11      REAL inval
12      wrf_dm_max_real = inval
13   END FUNCTION wrf_dm_max_real
14
15   REAL FUNCTION wrf_dm_min_real ( inval )
16      IMPLICIT NONE
17      REAL inval
18      wrf_dm_min_real = inval
19   END FUNCTION wrf_dm_min_real
20
21   REAL FUNCTION wrf_dm_sum_real ( inval )
22      IMPLICIT NONE
23      REAL inval
24      wrf_dm_sum_real = inval
25   END FUNCTION wrf_dm_sum_real
26
27   INTEGER FUNCTION wrf_dm_sum_integer ( inval )
28      IMPLICIT NONE
29      INTEGER inval
30      wrf_dm_sum_integer = inval
31   END FUNCTION wrf_dm_sum_integer
32
33   SUBROUTINE wrf_dm_maxval ( val, idex, jdex )
34      IMPLICIT NONE
35      REAL val
36      INTEGER idex, jdex
37      RETURN
38   END SUBROUTINE wrf_dm_maxval
39
40! stub
41   SUBROUTINE wrf_dm_move_nest ( parent, nest, dx, dy )
42      USE module_domain
43      TYPE (domain), INTENT(INOUT) :: parent, nest
44      INTEGER, INTENT(IN)          :: dx,dy
45      RETURN
46   END SUBROUTINE wrf_dm_move_nest
47
48END MODULE module_dm
49
50!=========================================================================
51
52! These are stub functions that do the right thing (usually nothing)
53! in case DM_PARALLEL is not compiled for.
54! This file, src/module_dm_stubs.F is copied to src/module_dm.F  when
55! the code is built.
56! If, on the other hand, a DM package is specified, the module_dm.F
57! provided with that package (e.g. RSL) is copied from /external/RSL/module_dm.F
58! into src/module_dm.F.
59! It is important to recognize this, because changes directly to src/module_dm.F
60! will be lost!
61
62LOGICAL FUNCTION wrf_dm_on_monitor()
63  wrf_dm_on_monitor = .true.
64END FUNCTION wrf_dm_on_monitor
65
66SUBROUTINE wrf_get_myproc( myproc )
67  IMPLICIT NONE
68  INTEGER myproc
69  myproc = 0
70  RETURN
71END SUBROUTINE wrf_get_myproc
72
73SUBROUTINE wrf_get_nproc( nprocs )
74  IMPLICIT NONE
75  INTEGER nprocs
76  nprocs = 1
77  RETURN
78END SUBROUTINE wrf_get_nproc
79
80SUBROUTINE wrf_get_nprocx( nprocs )
81  IMPLICIT NONE
82  INTEGER nprocs
83  nprocs = 1
84  RETURN
85END SUBROUTINE wrf_get_nprocx
86
87SUBROUTINE wrf_get_nprocy( nprocs )
88  IMPLICIT NONE
89  INTEGER nprocs
90  nprocs = 1
91  RETURN
92END SUBROUTINE wrf_get_nprocy
93
94SUBROUTINE wrf_dm_bcast_string ( buf , size )
95  IMPLICIT NONE
96  INTEGER size
97  INTEGER BUF(*)
98  RETURN
99END SUBROUTINE wrf_dm_bcast_string
100
101SUBROUTINE wrf_dm_bcast_bytes ( buf , size )
102  IMPLICIT NONE
103  INTEGER size
104  INTEGER BUF(*)
105  RETURN
106END SUBROUTINE wrf_dm_bcast_bytes
107
108SUBROUTINE wrf_dm_bcast_integer( BUF, N1 )
109   IMPLICIT NONE
110   INTEGER n1
111   INTEGER  buf(*)
112   RETURN
113END SUBROUTINE wrf_dm_bcast_integer
114
115SUBROUTINE wrf_dm_bcast_real( BUF, N1 )
116   IMPLICIT NONE
117   INTEGER n1
118   REAL  buf(*)
119   RETURN
120END SUBROUTINE wrf_dm_bcast_real
121
122SUBROUTINE wrf_dm_bcast_logical( BUF, N1 )
123   IMPLICIT NONE
124   INTEGER n1
125   LOGICAL  buf(*)
126   RETURN
127END SUBROUTINE wrf_dm_bcast_logical
128
129SUBROUTINE wrf_dm_halo ( domdesc , comms , stencil_id )
130   IMPLICIT NONE
131   INTEGER domdesc , comms(*) , stencil_id
132   RETURN
133END SUBROUTINE wrf_dm_halo
134
135SUBROUTINE wrf_dm_boundary ( domdesc , comms , period_id , &
136                             periodic_x , periodic_y )
137   IMPLICIT NONE
138   INTEGER domdesc , comms(*) , period_id
139   LOGICAL , INTENT(IN)      :: periodic_x, periodic_y
140   RETURN
141END SUBROUTINE wrf_dm_boundary
142
143SUBROUTINE wrf_dm_xpose_z2x ( domdesc , comms , xpose_id  )
144   IMPLICIT NONE
145   INTEGER domdesc , comms(*), xpose_id
146   RETURN
147END SUBROUTINE wrf_dm_xpose_z2x
148SUBROUTINE wrf_dm_xpose_x2y ( domdesc , comms , xpose_id  )
149   IMPLICIT NONE
150   INTEGER domdesc , comms(*), xpose_id
151   RETURN
152END SUBROUTINE wrf_dm_xpose_x2y
153SUBROUTINE wrf_dm_xpose_y2z ( domdesc , comms , xpose_id  )
154   IMPLICIT NONE
155   INTEGER domdesc , comms(*), xpose_id
156   RETURN
157END SUBROUTINE wrf_dm_xpose_y2z
158
159SUBROUTINE wrf_dm_define_comms ( grid )
160   USE module_domain
161   IMPLICIT NONE
162   TYPE(domain) , INTENT (INOUT) :: grid
163   RETURN
164END SUBROUTINE wrf_dm_define_comms
165
166SUBROUTINE wrf_get_dm_communicator ( communicator )
167   IMPLICIT NONE
168   INTEGER , INTENT(OUT) :: communicator
169   communicator = 0
170   RETURN
171END SUBROUTINE wrf_get_dm_communicator
172
173SUBROUTINE wrf_get_dm_iocommunicator ( iocommunicator )
174   IMPLICIT NONE
175   INTEGER , INTENT(OUT) :: iocommunicator
176   iocommunicator = 0
177   RETURN
178END SUBROUTINE wrf_get_dm_iocommunicator
179
180SUBROUTINE wrf_dm_shutdown
181      RETURN
182END SUBROUTINE wrf_dm_shutdown
183SUBROUTINE wrf_abort
184      STOP 'wrf_abort'
185END SUBROUTINE wrf_abort
186
187SUBROUTINE wrf_patch_to_global_real (buf,globbuf,domdesc,ndim,&
188                                       ids,ide,jds,jde,kds,kde,&
189                                       ims,ime,jms,jme,kms,kme,&
190                                       ips,ipe,jps,jpe,kps,kpe )
191   IMPLICIT NONE
192   INTEGER                             ids,ide,jds,jde,kds,kde,&
193                                       ims,ime,jms,jme,kms,kme,&
194                                       ips,ipe,jps,jpe,kps,kpe
195   INTEGER fid,domdesc,ndim,glen(3),llen(3)
196   REAL globbuf(*)
197   REAL buf(*)
198   RETURN
199END SUBROUTINE wrf_patch_to_global_real
200
201SUBROUTINE wrf_global_to_patch_real (globbuf,buf,domdesc,ndim,&
202                                       ids,ide,jds,jde,kds,kde,&
203                                       ims,ime,jms,jme,kms,kme,&
204                                       ips,ipe,jps,jpe,kps,kpe )
205   IMPLICIT NONE
206   INTEGER                             ids,ide,jds,jde,kds,kde,&
207                                       ims,ime,jms,jme,kms,kme,&
208                                       ips,ipe,jps,jpe,kps,kpe
209   INTEGER fid,domdesc,ndim,glen(3),llen(3)
210   REAL globbuf(*)
211   REAL buf(*)
212   RETURN
213END SUBROUTINE wrf_global_to_patch_real
214
215
216SUBROUTINE wrf_patch_to_global_double (buf,globbuf,domdesc,ndim,&
217                                       ids,ide,jds,jde,kds,kde,&
218                                       ims,ime,jms,jme,kms,kme,&
219                                       ips,ipe,jps,jpe,kps,kpe )
220   IMPLICIT NONE
221   INTEGER                             ids,ide,jds,jde,kds,kde,&
222                                       ims,ime,jms,jme,kms,kme,&
223                                       ips,ipe,jps,jpe,kps,kpe
224   INTEGER fid,domdesc,ndim,glen(3),llen(3)
225   DOUBLE PRECISION globbuf(*)
226   DOUBLE PRECISION buf(*)
227   RETURN
228END SUBROUTINE wrf_patch_to_global_double
229
230SUBROUTINE wrf_global_to_patch_double (globbuf,buf,domdesc,ndim,&
231                                       ids,ide,jds,jde,kds,kde,&
232                                       ims,ime,jms,jme,kms,kme,&
233                                       ips,ipe,jps,jpe,kps,kpe )
234   IMPLICIT NONE
235   INTEGER                             ids,ide,jds,jde,kds,kde,&
236                                       ims,ime,jms,jme,kms,kme,&
237                                       ips,ipe,jps,jpe,kps,kpe
238   INTEGER fid,domdesc,ndim,glen(3),llen(3)
239   DOUBLE PRECISION globbuf(*)
240   DOUBLE PRECISION buf(*)
241   RETURN
242END SUBROUTINE wrf_global_to_patch_double
243
244SUBROUTINE wrf_patch_to_global_integer (buf,globbuf,domdesc,ndim,&
245                                       ids,ide,jds,jde,kds,kde,&
246                                       ims,ime,jms,jme,kms,kme,&
247                                       ips,ipe,jps,jpe,kps,kpe )
248   IMPLICIT NONE
249   INTEGER                             ids,ide,jds,jde,kds,kde,&
250                                       ims,ime,jms,jme,kms,kme,&
251                                       ips,ipe,jps,jpe,kps,kpe
252   INTEGER fid,domdesc,ndim,glen(3),llen(3)
253   INTEGER globbuf(*)
254   INTEGER buf(*)
255   RETURN
256END SUBROUTINE wrf_patch_to_global_integer
257
258SUBROUTINE wrf_global_to_patch_integer (globbuf,buf,domdesc,ndim,&
259                                       ids,ide,jds,jde,kds,kde,&
260                                       ims,ime,jms,jme,kms,kme,&
261                                       ips,ipe,jps,jpe,kps,kpe )
262   IMPLICIT NONE
263   INTEGER                             ids,ide,jds,jde,kds,kde,&
264                                       ims,ime,jms,jme,kms,kme,&
265                                       ips,ipe,jps,jpe,kps,kpe
266   INTEGER fid,domdesc,ndim,glen(3),llen(3)
267   INTEGER globbuf(*)
268   INTEGER buf(*)
269   RETURN
270END SUBROUTINE wrf_global_to_patch_integer
271
272SUBROUTINE wrf_patch_to_global_logical (buf,globbuf,domdesc,ndim,&
273                                       ids,ide,jds,jde,kds,kde,&
274                                       ims,ime,jms,jme,kms,kme,&
275                                       ips,ipe,jps,jpe,kps,kpe )
276   IMPLICIT NONE
277   INTEGER                             ids,ide,jds,jde,kds,kde,&
278                                       ims,ime,jms,jme,kms,kme,&
279                                       ips,ipe,jps,jpe,kps,kpe
280   INTEGER fid,domdesc,ndim,glen(3),llen(3)
281   LOGICAL globbuf(*)
282   LOGICAL buf(*)
283   RETURN
284END SUBROUTINE wrf_patch_to_global_logical
285
286SUBROUTINE wrf_global_to_patch_LOGICAL (globbuf,buf,domdesc,ndim,&
287                                       ids,ide,jds,jde,kds,kde,&
288                                       ims,ime,jms,jme,kms,kme,&
289                                       ips,ipe,jps,jpe,kps,kpe )
290   IMPLICIT NONE
291   INTEGER                             ids,ide,jds,jde,kds,kde,&
292                                       ims,ime,jms,jme,kms,kme,&
293                                       ips,ipe,jps,jpe,kps,kpe
294   INTEGER fid,domdesc,ndim,glen(3),llen(3)
295   LOGICAL globbuf(*)
296   LOGICAL buf(*)
297   RETURN
298END SUBROUTINE wrf_global_to_patch_LOGICAL
299
300
Note: See TracBrowser for help on using the repository browser.