source: lmdz_wrf/trunk/WRFV3/frame/xxx_template_ioapi.F @ 1544

Last change on this file since 1544 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 26.9 KB
Line 
1!
2! This is a template for adding a package-dependent implemetnation of
3! the I/O API.  You can use the name xxx since that is already set up
4! as a placeholder in module_io.F, md_calls.m4, and the Registry, or
5! you can change the name here and in those other places.  For additional
6! information on adding a package to WRF, see the latest version of the
7! WRF Design and Implementation Document 1.1 (Draft). June 21, 2001
8!
9
10!--- ioinit
11SUBROUTINE ext_xxx_ioinit( SysDepInfo,Status )
12  IMPLICIT NONE
13  CHARACTER (LEN=80), INTENT(IN) :: SysDepInfo
14  INTEGER, INTENT(INOUT) :: Status
15  RETURN 
16END SUBROUTINE ext_xxx_ioinit
17
18SUBROUTINE ext_xxx_inquiry( Inquiry, Result,Status )
19  IMPLICIT NONE
20  CHARACTER *(*), INTENT(IN) :: Inquiry
21  CHARACTER *(*), INTENT(OUT) :: Result
22  INTEGER, INTENT(INOUT) :: Status
23  RETURN 
24END SUBROUTINE ext_xxx_inquiry
25
26!--- ioexit
27SUBROUTINE ext_xxx_ioexit( Status )
28  IMPLICIT NONE
29  INTEGER, INTENT(INOUT) :: Status
30  RETURN 
31END SUBROUTINE
32
33!--- open_for_write_begin
34SUBROUTINE ext_xxx_open_for_write_begin( FileName , Comm_compute, Comm_io, SysDepInfo, &
35                                     DataHandle , Status )
36  IMPLICIT NONE
37  CHARACTER *(*), INTENT(IN)  :: FileName
38  INTEGER ,       INTENT(IN)  :: Comm_compute , Comm_io
39  CHARACTER *(*), INTENT(IN)  :: SysDepInfo
40  INTEGER ,       INTENT(OUT) :: DataHandle
41  INTEGER ,       INTENT(OUT) :: Status
42  RETURN 
43END SUBROUTINE ext_xxx_open_for_write_begin
44
45!--- open_for_write_commit
46SUBROUTINE ext_xxx_open_for_write_commit( DataHandle , Status )
47  IMPLICIT NONE
48  INTEGER ,       INTENT(IN ) :: DataHandle
49  INTEGER ,       INTENT(OUT) :: Status
50  RETURN 
51END SUBROUTINE ext_xxx_open_for_write_commit
52
53!--- open_for_read
54SUBROUTINE ext_xxx_open_for_read ( FileName , Comm_compute, Comm_io, SysDepInfo, &
55                               DataHandle , Status )
56  IMPLICIT NONE
57  CHARACTER *(*), INTENT(IN)  :: FileName
58  INTEGER ,       INTENT(IN)  :: Comm_compute , Comm_io
59  CHARACTER *(*), INTENT(IN)  :: SysDepInfo
60  INTEGER ,       INTENT(OUT) :: DataHandle
61  INTEGER ,       INTENT(OUT) :: Status
62  RETURN 
63END SUBROUTINE ext_xxx_open_for_read
64
65!--- inquire_opened
66SUBROUTINE ext_xxx_inquire_opened ( DataHandle, FileName , FileStatus, Status )
67  IMPLICIT NONE
68  INTEGER ,       INTENT(IN)  :: DataHandle
69  CHARACTER *(*), INTENT(IN)  :: FileName
70  INTEGER ,       INTENT(OUT) :: FileStatus
71  INTEGER ,       INTENT(OUT) :: Status
72  RETURN
73END SUBROUTINE ext_xxx_inquire_opened
74
75!--- inquire_filename
76SUBROUTINE ext_xxx_inquire_filename ( DataHandle, FileName , FileStatus, Status )
77  IMPLICIT NONE
78  INTEGER ,       INTENT(IN)  :: DataHandle
79  CHARACTER *(*), INTENT(OUT) :: FileName
80  INTEGER ,       INTENT(OUT) :: FileStatus
81  INTEGER ,       INTENT(OUT) :: Status
82END SUBROUTINE ext_xxx_inquire_filename
83
84!--- sync
85SUBROUTINE ext_xxx_iosync ( DataHandle, Status )
86  IMPLICIT NONE
87  INTEGER ,       INTENT(IN)  :: DataHandle
88  INTEGER ,       INTENT(OUT) :: Status
89  RETURN
90END SUBROUTINE ext_xxx_iosync
91
92!--- close
93SUBROUTINE ext_xxx_ioclose ( DataHandle, Status )
94  IMPLICIT NONE
95  INTEGER ,       INTENT(IN)  :: DataHandle
96  INTEGER ,       INTENT(OUT) :: Status
97  RETURN
98END SUBROUTINE ext_xxx_ioclose
99
100!--- get_next_time (not defined for IntIO )
101SUBROUTINE ext_xxx_get_next_time ( DataHandle, DateStr, Status )
102  IMPLICIT NONE
103  INTEGER ,       INTENT(IN)  :: DataHandle
104  CHARACTER*(*) , INTENT(OUT) :: DateStr
105  INTEGER ,       INTENT(OUT) :: Status
106  RETURN
107END SUBROUTINE ext_xxx_get_next_time
108
109!--- set_time
110SUBROUTINE ext_xxx_set_time ( DataHandle, DateStr, Status )
111  IMPLICIT NONE
112  INTEGER ,       INTENT(IN)  :: DataHandle
113  CHARACTER*(*) , INTENT(IN)  :: DateStr
114  INTEGER ,       INTENT(OUT) :: Status
115  RETURN
116END SUBROUTINE ext_xxx_set_time
117
118!--- get_next_var  (not defined for IntIO)
119SUBROUTINE ext_xxx_get_next_var ( DataHandle, VarName, Status )
120  IMPLICIT NONE
121  INTEGER ,       INTENT(IN)  :: DataHandle
122  CHARACTER*(*) , INTENT(OUT) :: VarName
123  INTEGER ,       INTENT(OUT) :: Status
124  RETURN
125END SUBROUTINE ext_xxx_get_next_var
126
127!--- get_dom_ti_real
128SUBROUTINE ext_xxx_get_dom_ti_real ( DataHandle,Element,   Data, Count, Outcount, Status )
129  IMPLICIT NONE
130  INTEGER ,       INTENT(IN)  :: DataHandle
131  CHARACTER*(*) , INTENT(IN)  :: Element
132RETURN
133END SUBROUTINE ext_xxx_get_dom_ti_real
134
135!--- put_dom_ti_real
136SUBROUTINE ext_xxx_put_dom_ti_real ( DataHandle,Element,   Data, Count,  Status )
137  IMPLICIT NONE
138  INTEGER ,       INTENT(IN)  :: DataHandle
139  CHARACTER*(*) , INTENT(IN)  :: Element
140  real ,            INTENT(IN) :: Data(*)
141  INTEGER ,       INTENT(IN)  :: Count
142  INTEGER ,       INTENT(OUT) :: Status
143RETURN
144END SUBROUTINE ext_xxx_put_dom_ti_real
145
146!--- get_dom_ti_double
147SUBROUTINE ext_xxx_get_dom_ti_double ( DataHandle,Element,   Data, Count, Outcount, Status )
148  IMPLICIT NONE
149  INTEGER ,       INTENT(IN)  :: DataHandle
150  CHARACTER*(*) , INTENT(IN)  :: Element
151  real*8 ,            INTENT(OUT) :: Data(*)
152  INTEGER ,       INTENT(IN)  :: Count
153  INTEGER ,       INTENT(OUT)  :: OutCount
154  INTEGER ,       INTENT(OUT) :: Status
155RETURN
156END SUBROUTINE ext_xxx_get_dom_ti_double
157
158!--- put_dom_ti_double
159SUBROUTINE ext_xxx_put_dom_ti_double ( DataHandle,Element,   Data, Count,  Status )
160  IMPLICIT NONE
161  INTEGER ,       INTENT(IN)  :: DataHandle
162  CHARACTER*(*) , INTENT(IN)  :: Element
163  real*8 ,            INTENT(IN) :: Data(*)
164  INTEGER ,       INTENT(IN)  :: Count
165  INTEGER ,       INTENT(OUT) :: Status
166RETURN
167END SUBROUTINE ext_xxx_put_dom_ti_double
168
169!--- get_dom_ti_integer
170SUBROUTINE ext_xxx_get_dom_ti_integer ( DataHandle,Element,   Data, Count, Outcount, Status )
171  IMPLICIT NONE
172  INTEGER ,       INTENT(IN)  :: DataHandle
173  CHARACTER*(*) , INTENT(IN)  :: Element
174  integer ,            INTENT(OUT) :: Data(*)
175  INTEGER ,       INTENT(IN)  :: Count
176  INTEGER ,       INTENT(OUT)  :: OutCount
177  INTEGER ,       INTENT(OUT) :: Status
178RETURN
179END SUBROUTINE ext_xxx_get_dom_ti_integer
180
181!--- put_dom_ti_integer
182SUBROUTINE ext_xxx_put_dom_ti_integer ( DataHandle,Element,   Data, Count,  Status )
183  IMPLICIT NONE
184  INTEGER ,       INTENT(IN)  :: DataHandle
185  CHARACTER*(*) , INTENT(IN)  :: Element
186  integer ,            INTENT(IN) :: Data(*)
187  INTEGER ,       INTENT(IN)  :: Count
188  INTEGER ,       INTENT(OUT) :: Status
189RETURN
190END SUBROUTINE ext_xxx_put_dom_ti_integer
191
192!--- get_dom_ti_logical
193SUBROUTINE ext_xxx_get_dom_ti_logical ( DataHandle,Element,   Data, Count, Outcount, Status )
194  IMPLICIT NONE
195  INTEGER ,       INTENT(IN)  :: DataHandle
196  CHARACTER*(*) , INTENT(IN)  :: Element
197  logical ,            INTENT(OUT) :: Data(*)
198  INTEGER ,       INTENT(IN)  :: Count
199  INTEGER ,       INTENT(OUT)  :: OutCount
200  INTEGER ,       INTENT(OUT) :: Status
201RETURN
202END SUBROUTINE ext_xxx_get_dom_ti_logical
203
204!--- put_dom_ti_logical
205SUBROUTINE ext_xxx_put_dom_ti_logical ( DataHandle,Element,   Data, Count,  Status )
206  IMPLICIT NONE
207  INTEGER ,       INTENT(IN)  :: DataHandle
208  CHARACTER*(*) , INTENT(IN)  :: Element
209  logical ,            INTENT(IN) :: Data(*)
210  INTEGER ,       INTENT(IN)  :: Count
211  INTEGER ,       INTENT(OUT) :: Status
212RETURN
213END SUBROUTINE ext_xxx_put_dom_ti_logical
214
215!--- get_dom_ti_char
216SUBROUTINE ext_xxx_get_dom_ti_char ( DataHandle,Element,   Data,  Status )
217  IMPLICIT NONE
218  INTEGER ,       INTENT(IN)  :: DataHandle
219  CHARACTER*(*) , INTENT(IN)  :: Element
220  CHARACTER*(*) , INTENT(OUT) :: Data
221  INTEGER ,       INTENT(OUT) :: Status
222RETURN
223END SUBROUTINE ext_xxx_get_dom_ti_char
224
225!--- put_dom_ti_char
226SUBROUTINE ext_xxx_put_dom_ti_char ( DataHandle,Element,   Data,  Status )
227  IMPLICIT NONE
228  INTEGER ,       INTENT(IN)  :: DataHandle
229  CHARACTER*(*) , INTENT(IN)  :: Element
230  CHARACTER*(*) , INTENT(IN) :: Data
231  INTEGER ,       INTENT(OUT) :: Status
232RETURN
233END SUBROUTINE ext_xxx_put_dom_ti_char
234
235!--- get_dom_td_real
236SUBROUTINE ext_xxx_get_dom_td_real ( DataHandle,Element, DateStr,  Data, Count, Outcount, Status )
237  IMPLICIT NONE
238  INTEGER ,       INTENT(IN)  :: DataHandle
239  CHARACTER*(*) , INTENT(IN)  :: Element
240  CHARACTER*(*) , INTENT(IN)  :: DateStr
241  real ,            INTENT(OUT) :: Data(*)
242  INTEGER ,       INTENT(IN)  :: Count
243  INTEGER ,       INTENT(OUT)  :: OutCount
244  INTEGER ,       INTENT(OUT) :: Status
245RETURN
246END SUBROUTINE ext_xxx_get_dom_td_real
247
248!--- put_dom_td_real
249SUBROUTINE ext_xxx_put_dom_td_real ( DataHandle,Element, DateStr,  Data, Count,  Status )
250  IMPLICIT NONE
251  INTEGER ,       INTENT(IN)  :: DataHandle
252  CHARACTER*(*) , INTENT(IN)  :: Element
253  CHARACTER*(*) , INTENT(IN)  :: DateStr
254  real ,            INTENT(IN) :: Data(*)
255  INTEGER ,       INTENT(IN)  :: Count
256  INTEGER ,       INTENT(OUT) :: Status
257RETURN
258END SUBROUTINE ext_xxx_put_dom_td_real
259
260!--- get_dom_td_double
261SUBROUTINE ext_xxx_get_dom_td_double ( DataHandle,Element, DateStr,  Data, Count, Outcount, Status )
262  IMPLICIT NONE
263  INTEGER ,       INTENT(IN)  :: DataHandle
264  CHARACTER*(*) , INTENT(IN)  :: Element
265  CHARACTER*(*) , INTENT(IN)  :: DateStr
266  real*8 ,            INTENT(OUT) :: Data(*)
267  INTEGER ,       INTENT(IN)  :: Count
268  INTEGER ,       INTENT(OUT)  :: OutCount
269  INTEGER ,       INTENT(OUT) :: Status
270RETURN
271END SUBROUTINE ext_xxx_get_dom_td_double
272
273!--- put_dom_td_double
274SUBROUTINE ext_xxx_put_dom_td_double ( DataHandle,Element, DateStr,  Data, Count,  Status )
275  IMPLICIT NONE
276  INTEGER ,       INTENT(IN)  :: DataHandle
277  CHARACTER*(*) , INTENT(IN)  :: Element
278  CHARACTER*(*) , INTENT(IN)  :: DateStr
279  real*8 ,            INTENT(IN) :: Data(*)
280  INTEGER ,       INTENT(IN)  :: Count
281  INTEGER ,       INTENT(OUT) :: Status
282RETURN
283END SUBROUTINE ext_xxx_put_dom_td_double
284
285!--- get_dom_td_integer
286SUBROUTINE ext_xxx_get_dom_td_integer ( DataHandle,Element, DateStr,  Data, Count, Outcount, Status )
287  IMPLICIT NONE
288  INTEGER ,       INTENT(IN)  :: DataHandle
289  CHARACTER*(*) , INTENT(IN)  :: Element
290  CHARACTER*(*) , INTENT(IN)  :: DateStr
291  integer ,            INTENT(OUT) :: Data(*)
292  INTEGER ,       INTENT(IN)  :: Count
293  INTEGER ,       INTENT(OUT)  :: OutCount
294  INTEGER ,       INTENT(OUT) :: Status
295RETURN
296END SUBROUTINE ext_xxx_get_dom_td_integer
297
298!--- put_dom_td_integer
299SUBROUTINE ext_xxx_put_dom_td_integer ( DataHandle,Element, DateStr,  Data, Count,  Status )
300  IMPLICIT NONE
301  INTEGER ,       INTENT(IN)  :: DataHandle
302  CHARACTER*(*) , INTENT(IN)  :: Element
303  CHARACTER*(*) , INTENT(IN)  :: DateStr
304  integer ,            INTENT(IN) :: Data(*)
305  INTEGER ,       INTENT(IN)  :: Count
306  INTEGER ,       INTENT(OUT) :: Status
307RETURN
308END SUBROUTINE ext_xxx_put_dom_td_integer
309
310!--- get_dom_td_logical
311SUBROUTINE ext_xxx_get_dom_td_logical ( DataHandle,Element, DateStr,  Data, Count, Outcount, Status )
312  IMPLICIT NONE
313  INTEGER ,       INTENT(IN)  :: DataHandle
314  CHARACTER*(*) , INTENT(IN)  :: Element
315  CHARACTER*(*) , INTENT(IN)  :: DateStr
316  logical ,            INTENT(OUT) :: Data(*)
317  INTEGER ,       INTENT(IN)  :: Count
318  INTEGER ,       INTENT(OUT)  :: OutCount
319  INTEGER ,       INTENT(OUT) :: Status
320RETURN
321END SUBROUTINE ext_xxx_get_dom_td_logical
322
323!--- put_dom_td_logical
324SUBROUTINE ext_xxx_put_dom_td_logical ( DataHandle,Element, DateStr,  Data, Count,  Status )
325  IMPLICIT NONE
326  INTEGER ,       INTENT(IN)  :: DataHandle
327  CHARACTER*(*) , INTENT(IN)  :: Element
328  CHARACTER*(*) , INTENT(IN)  :: DateStr
329  logical ,            INTENT(IN) :: Data(*)
330  INTEGER ,       INTENT(IN)  :: Count
331  INTEGER ,       INTENT(OUT) :: Status
332RETURN
333END SUBROUTINE ext_xxx_put_dom_td_logical
334
335!--- get_dom_td_char
336SUBROUTINE ext_xxx_get_dom_td_char ( DataHandle,Element, DateStr,  Data,  Status )
337  IMPLICIT NONE
338  INTEGER ,       INTENT(IN)  :: DataHandle
339  CHARACTER*(*) , INTENT(IN)  :: Element
340  CHARACTER*(*) , INTENT(IN)  :: DateStr
341  CHARACTER*(*) , INTENT(OUT) :: Data
342  INTEGER ,       INTENT(OUT) :: Status
343RETURN
344END SUBROUTINE ext_xxx_get_dom_td_char
345
346!--- put_dom_td_char
347SUBROUTINE ext_xxx_put_dom_td_char ( DataHandle,Element, DateStr,  Data,  Status )
348  IMPLICIT NONE
349  INTEGER ,       INTENT(IN)  :: DataHandle
350  CHARACTER*(*) , INTENT(IN)  :: Element
351  CHARACTER*(*) , INTENT(IN)  :: DateStr
352  CHARACTER*(*) , INTENT(IN) :: Data
353  INTEGER ,       INTENT(OUT) :: Status
354RETURN
355END SUBROUTINE ext_xxx_put_dom_td_char
356
357!--- get_var_ti_real
358SUBROUTINE ext_xxx_get_var_ti_real ( DataHandle,Element,  Varname, Data, Count, Outcount, Status )
359  IMPLICIT NONE
360  INTEGER ,       INTENT(IN)  :: DataHandle
361  CHARACTER*(*) , INTENT(IN)  :: Element
362  CHARACTER*(*) , INTENT(IN)  :: VarName
363  real ,            INTENT(OUT) :: Data(*)
364  INTEGER ,       INTENT(IN)  :: Count
365  INTEGER ,       INTENT(OUT)  :: OutCount
366  INTEGER ,       INTENT(OUT) :: Status
367RETURN
368END SUBROUTINE ext_xxx_get_var_ti_real
369
370!--- put_var_ti_real
371SUBROUTINE ext_xxx_put_var_ti_real ( DataHandle,Element,  Varname, Data, Count,  Status )
372  IMPLICIT NONE
373  INTEGER ,       INTENT(IN)  :: DataHandle
374  CHARACTER*(*) , INTENT(IN)  :: Element
375  CHARACTER*(*) , INTENT(IN)  :: VarName
376  real ,            INTENT(IN) :: Data(*)
377  INTEGER ,       INTENT(IN)  :: Count
378  INTEGER ,       INTENT(OUT) :: Status
379RETURN
380END SUBROUTINE ext_xxx_put_var_ti_real
381
382!--- get_var_ti_double
383SUBROUTINE ext_xxx_get_var_ti_double ( DataHandle,Element,  Varname, Data, Count, Outcount, Status )
384  IMPLICIT NONE
385  INTEGER ,       INTENT(IN)  :: DataHandle
386  CHARACTER*(*) , INTENT(IN)  :: Element
387  CHARACTER*(*) , INTENT(IN)  :: VarName
388  real*8 ,            INTENT(OUT) :: Data(*)
389  INTEGER ,       INTENT(IN)  :: Count
390  INTEGER ,       INTENT(OUT)  :: OutCount
391  INTEGER ,       INTENT(OUT) :: Status
392RETURN
393END SUBROUTINE ext_xxx_get_var_ti_double
394
395!--- put_var_ti_double
396SUBROUTINE ext_xxx_put_var_ti_double ( DataHandle,Element,  Varname, Data, Count,  Status )
397  IMPLICIT NONE
398  INTEGER ,       INTENT(IN)  :: DataHandle
399  CHARACTER*(*) , INTENT(IN)  :: Element
400  CHARACTER*(*) , INTENT(IN)  :: VarName
401  real*8 ,            INTENT(IN) :: Data(*)
402  INTEGER ,       INTENT(IN)  :: Count
403  INTEGER ,       INTENT(OUT) :: Status
404RETURN
405END SUBROUTINE ext_xxx_put_var_ti_double
406
407!--- get_var_ti_integer
408SUBROUTINE ext_xxx_get_var_ti_integer ( DataHandle,Element,  Varname, Data, Count, Outcount, Status )
409  IMPLICIT NONE
410  INTEGER ,       INTENT(IN)  :: DataHandle
411  CHARACTER*(*) , INTENT(IN)  :: Element
412  CHARACTER*(*) , INTENT(IN)  :: VarName
413  integer ,            INTENT(OUT) :: Data(*)
414  INTEGER ,       INTENT(IN)  :: Count
415  INTEGER ,       INTENT(OUT)  :: OutCount
416  INTEGER ,       INTENT(OUT) :: Status
417RETURN
418END SUBROUTINE ext_xxx_get_var_ti_integer
419
420!--- put_var_ti_integer
421SUBROUTINE ext_xxx_put_var_ti_integer ( DataHandle,Element,  Varname, Data, Count,  Status )
422  IMPLICIT NONE
423  INTEGER ,       INTENT(IN)  :: DataHandle
424  CHARACTER*(*) , INTENT(IN)  :: Element
425  CHARACTER*(*) , INTENT(IN)  :: VarName
426  integer ,            INTENT(IN) :: Data(*)
427  INTEGER ,       INTENT(IN)  :: Count
428  INTEGER ,       INTENT(OUT) :: Status
429RETURN
430END SUBROUTINE ext_xxx_put_var_ti_integer
431
432!--- get_var_ti_logical
433SUBROUTINE ext_xxx_get_var_ti_logical ( DataHandle,Element,  Varname, Data, Count, Outcount, Status )
434  IMPLICIT NONE
435  INTEGER ,       INTENT(IN)  :: DataHandle
436  CHARACTER*(*) , INTENT(IN)  :: Element
437  CHARACTER*(*) , INTENT(IN)  :: VarName
438  logical ,            INTENT(OUT) :: Data(*)
439  INTEGER ,       INTENT(IN)  :: Count
440  INTEGER ,       INTENT(OUT)  :: OutCount
441  INTEGER ,       INTENT(OUT) :: Status
442RETURN
443END SUBROUTINE ext_xxx_get_var_ti_logical
444
445!--- put_var_ti_logical
446SUBROUTINE ext_xxx_put_var_ti_logical ( DataHandle,Element,  Varname, Data, Count,  Status )
447  IMPLICIT NONE
448  INTEGER ,       INTENT(IN)  :: DataHandle
449  CHARACTER*(*) , INTENT(IN)  :: Element
450  CHARACTER*(*) , INTENT(IN)  :: VarName
451  logical ,            INTENT(IN) :: Data(*)
452  INTEGER ,       INTENT(IN)  :: Count
453  INTEGER ,       INTENT(OUT) :: Status
454RETURN
455END SUBROUTINE ext_xxx_put_var_ti_logical
456
457!--- get_var_ti_char
458SUBROUTINE ext_xxx_get_var_ti_char ( DataHandle,Element,  Varname, Data,  Status )
459  IMPLICIT NONE
460  INTEGER ,       INTENT(IN)  :: DataHandle
461  CHARACTER*(*) , INTENT(IN)  :: Element
462  CHARACTER*(*) , INTENT(IN)  :: VarName
463  CHARACTER*(*) , INTENT(OUT) :: Data
464  INTEGER ,       INTENT(OUT) :: Status
465RETURN
466END SUBROUTINE ext_xxx_get_var_ti_char
467
468!--- put_var_ti_char
469SUBROUTINE ext_xxx_put_var_ti_char ( DataHandle,Element,  Varname, Data,  Status )
470  IMPLICIT NONE
471  INTEGER ,       INTENT(IN)  :: DataHandle
472  CHARACTER*(*) , INTENT(IN)  :: Element
473  CHARACTER*(*) , INTENT(IN)  :: VarName
474  CHARACTER*(*) , INTENT(IN) :: Data
475  INTEGER ,       INTENT(OUT) :: Status
476RETURN
477END SUBROUTINE ext_xxx_put_var_ti_char
478
479!--- get_var_td_real
480SUBROUTINE ext_xxx_get_var_td_real ( DataHandle,Element,  DateStr,Varname, Data, Count, Outcount, Status )
481  IMPLICIT NONE
482  INTEGER ,       INTENT(IN)  :: DataHandle
483  CHARACTER*(*) , INTENT(IN)  :: Element
484  CHARACTER*(*) , INTENT(IN)  :: DateStr
485  CHARACTER*(*) , INTENT(IN)  :: VarName
486  real ,            INTENT(OUT) :: Data(*)
487  INTEGER ,       INTENT(IN)  :: Count
488  INTEGER ,       INTENT(OUT)  :: OutCount
489  INTEGER ,       INTENT(OUT) :: Status
490RETURN
491END SUBROUTINE ext_xxx_get_var_td_real
492
493!--- put_var_td_real
494SUBROUTINE ext_xxx_put_var_td_real ( DataHandle,Element,  DateStr,Varname, Data, Count,  Status )
495  IMPLICIT NONE
496  INTEGER ,       INTENT(IN)  :: DataHandle
497  CHARACTER*(*) , INTENT(IN)  :: Element
498  CHARACTER*(*) , INTENT(IN)  :: DateStr
499  CHARACTER*(*) , INTENT(IN)  :: VarName
500  real ,            INTENT(IN) :: Data(*)
501  INTEGER ,       INTENT(IN)  :: Count
502  INTEGER ,       INTENT(OUT) :: Status
503RETURN
504END SUBROUTINE ext_xxx_put_var_td_real
505
506!--- get_var_td_double
507SUBROUTINE ext_xxx_get_var_td_double ( DataHandle,Element,  DateStr,Varname, Data, Count, Outcount, Status )
508  IMPLICIT NONE
509  INTEGER ,       INTENT(IN)  :: DataHandle
510  CHARACTER*(*) , INTENT(IN)  :: Element
511  CHARACTER*(*) , INTENT(IN)  :: DateStr
512  CHARACTER*(*) , INTENT(IN)  :: VarName
513  real*8 ,            INTENT(OUT) :: Data(*)
514  INTEGER ,       INTENT(IN)  :: Count
515  INTEGER ,       INTENT(OUT)  :: OutCount
516  INTEGER ,       INTENT(OUT) :: Status
517RETURN
518END SUBROUTINE ext_xxx_get_var_td_double
519
520!--- put_var_td_double
521SUBROUTINE ext_xxx_put_var_td_double ( DataHandle,Element,  DateStr,Varname, Data, Count,  Status )
522  IMPLICIT NONE
523  INTEGER ,       INTENT(IN)  :: DataHandle
524  CHARACTER*(*) , INTENT(IN)  :: Element
525  CHARACTER*(*) , INTENT(IN)  :: DateStr
526  CHARACTER*(*) , INTENT(IN)  :: VarName
527  real*8 ,            INTENT(IN) :: Data(*)
528  INTEGER ,       INTENT(IN)  :: Count
529  INTEGER ,       INTENT(OUT) :: Status
530RETURN
531END SUBROUTINE ext_xxx_put_var_td_double
532
533!--- get_var_td_integer
534SUBROUTINE ext_xxx_get_var_td_integer ( DataHandle,Element,  DateStr,Varname, Data, Count, Outcount, Status )
535  IMPLICIT NONE
536  INTEGER ,       INTENT(IN)  :: DataHandle
537  CHARACTER*(*) , INTENT(IN)  :: Element
538  CHARACTER*(*) , INTENT(IN)  :: DateStr
539  CHARACTER*(*) , INTENT(IN)  :: VarName
540  integer ,            INTENT(OUT) :: Data(*)
541  INTEGER ,       INTENT(IN)  :: Count
542  INTEGER ,       INTENT(OUT)  :: OutCount
543  INTEGER ,       INTENT(OUT) :: Status
544RETURN
545END SUBROUTINE ext_xxx_get_var_td_integer
546
547!--- put_var_td_integer
548SUBROUTINE ext_xxx_put_var_td_integer ( DataHandle,Element,  DateStr,Varname, Data, Count,  Status )
549  IMPLICIT NONE
550  INTEGER ,       INTENT(IN)  :: DataHandle
551  CHARACTER*(*) , INTENT(IN)  :: Element
552  CHARACTER*(*) , INTENT(IN)  :: DateStr
553  CHARACTER*(*) , INTENT(IN)  :: VarName
554  integer ,            INTENT(IN) :: Data(*)
555  INTEGER ,       INTENT(IN)  :: Count
556  INTEGER ,       INTENT(OUT) :: Status
557RETURN
558END SUBROUTINE ext_xxx_put_var_td_integer
559
560!--- get_var_td_logical
561SUBROUTINE ext_xxx_get_var_td_logical ( DataHandle,Element,  DateStr,Varname, Data, Count, Outcount, Status )
562  IMPLICIT NONE
563  INTEGER ,       INTENT(IN)  :: DataHandle
564  CHARACTER*(*) , INTENT(IN)  :: Element
565  CHARACTER*(*) , INTENT(IN)  :: DateStr
566  CHARACTER*(*) , INTENT(IN)  :: VarName
567  logical ,            INTENT(OUT) :: Data(*)
568  INTEGER ,       INTENT(IN)  :: Count
569  INTEGER ,       INTENT(OUT)  :: OutCount
570  INTEGER ,       INTENT(OUT) :: Status
571RETURN
572END SUBROUTINE ext_xxx_get_var_td_logical
573
574!--- put_var_td_logical
575SUBROUTINE ext_xxx_put_var_td_logical ( DataHandle,Element,  DateStr,Varname, Data, Count,  Status )
576  IMPLICIT NONE
577  INTEGER ,       INTENT(IN)  :: DataHandle
578  CHARACTER*(*) , INTENT(IN)  :: Element
579  CHARACTER*(*) , INTENT(IN)  :: DateStr
580  CHARACTER*(*) , INTENT(IN)  :: VarName
581  logical ,            INTENT(IN) :: Data(*)
582  INTEGER ,       INTENT(IN)  :: Count
583  INTEGER ,       INTENT(OUT) :: Status
584RETURN
585END SUBROUTINE ext_xxx_put_var_td_logical
586
587!--- get_var_td_char
588SUBROUTINE ext_xxx_get_var_td_char ( DataHandle,Element,  DateStr,Varname, Data,  Status )
589  IMPLICIT NONE
590  INTEGER ,       INTENT(IN)  :: DataHandle
591  CHARACTER*(*) , INTENT(IN)  :: Element
592  CHARACTER*(*) , INTENT(IN)  :: DateStr
593  CHARACTER*(*) , INTENT(IN)  :: VarName
594  CHARACTER*(*) , INTENT(OUT) :: Data
595  INTEGER ,       INTENT(OUT) :: Status
596RETURN
597END SUBROUTINE ext_xxx_get_var_td_char
598
599!--- put_var_td_char
600SUBROUTINE ext_xxx_put_var_td_char ( DataHandle,Element,  DateStr,Varname, Data,  Status )
601  IMPLICIT NONE
602  INTEGER ,       INTENT(IN)  :: DataHandle
603  CHARACTER*(*) , INTENT(IN)  :: Element
604  CHARACTER*(*) , INTENT(IN)  :: DateStr
605  CHARACTER*(*) , INTENT(IN)  :: VarName
606  CHARACTER*(*) , INTENT(IN) :: Data
607  INTEGER ,       INTENT(OUT) :: Status
608RETURN
609END SUBROUTINE ext_xxx_put_var_td_char
610
611!--- read_field
612SUBROUTINE ext_xxx_read_field ( DataHandle , DateStr , VarName , Field , FieldType , Comm , IOComm &
613                            DomainDesc , MemoryOrder , Stagger , DimNames ,              &
614                            DomainStart , DomainEnd ,                                    &
615                            MemoryStart , MemoryEnd ,                                    &
616                            PatchStart , PatchEnd ,                                      &
617                            Status )
618  IMPLICIT NONE
619  INTEGER ,       INTENT(IN)    :: DataHandle
620  CHARACTER*(*) , INTENT(INOUT) :: DateStr
621  CHARACTER*(*) , INTENT(INOUT) :: VarName
622  INTEGER ,       INTENT(INOUT) :: Field(*)
623  integer                       ,intent(in)    :: FieldType
624  integer                       ,intent(inout) :: Comm
625  integer                       ,intent(inout) :: IOComm
626  integer                       ,intent(in)    :: DomainDesc
627  character*(*)                 ,intent(in)    :: MemoryOrder
628  character*(*)                 ,intent(in)    :: Stagger
629  character*(*) , dimension (*) ,intent(in)    :: DimNames
630  integer ,dimension(*)         ,intent(in)    :: DomainStart, DomainEnd
631  integer ,dimension(*)         ,intent(in)    :: MemoryStart, MemoryEnd
632  integer ,dimension(*)         ,intent(in)    :: PatchStart,  PatchEnd
633  integer                       ,intent(out)   :: Status
634RETURN
635END SUBROUTINE ext_xxx_read_field
636
637!--- write_field
638SUBROUTINE ext_xxx_write_field ( DataHandle , DateStr , VarName , Field , FieldType , Comm , IOComm , &
639                             DomainDesc , MemoryOrder , Stagger , DimNames ,              &
640                             DomainStart , DomainEnd ,                                    &
641                             MemoryStart , MemoryEnd ,                                    &
642                             PatchStart , PatchEnd ,                                      &
643                             Status )
644  IMPLICIT NONE
645  INTEGER ,       INTENT(IN)    :: DataHandle
646  CHARACTER*(*) , INTENT(IN)    :: DateStr
647  CHARACTER*(*) , INTENT(IN)    :: VarName
648  INTEGER ,       INTENT(IN)    :: Field(*)
649  integer                       ,intent(in)    :: FieldType
650  integer                       ,intent(inout) :: Comm
651  integer                       ,intent(inout) :: IOComm
652  integer                       ,intent(in)    :: DomainDesc
653  character*(*)                 ,intent(in)    :: MemoryOrder
654  character*(*)                 ,intent(in)    :: Stagger
655  character*(*) , dimension (*) ,intent(in)    :: DimNames
656  integer ,dimension(*)         ,intent(in)    :: DomainStart, DomainEnd
657  integer ,dimension(*)         ,intent(in)    :: MemoryStart, MemoryEnd
658  integer ,dimension(*)         ,intent(in)    :: PatchStart,  PatchEnd
659  integer                       ,intent(out)   :: Status
660RETURN
661END SUBROUTINE ext_xxx_write_field
662
663!--- get_var_info  (not implemented for IntIO)
664SUBROUTINE ext_xxx_get_var_info ( DataHandle , VarName , NDim , MemoryOrder , Stagger , &
665                              DomainStart , DomainEnd , Status )
666  IMPLICIT NONE
667  integer               ,intent(in)     :: DataHandle
668  character*(*)         ,intent(in)     :: VarName
669  integer               ,intent(out)    :: NDim
670  character*(*)         ,intent(out)    :: MemoryOrder
671  character*(*)         ,intent(out)    :: Stagger
672  integer ,dimension(*) ,intent(out)    :: DomainStart, DomainEnd
673  integer               ,intent(out)    :: Status
674RETURN
675END SUBROUTINE ext_xxx_get_var_info
676
677
678!--- end_of_frame
679SUBROUTINE ext_xxx_end_of_frame(DataHandle, Status)
680  IMPLICIT NONE
681  INTEGER, INTENT(IN)  :: DataHandle
682  INTEGER, INTENT(OUT) :: Status
683RETURN
684END SUBROUTINE ext_xxx_end_of_frame
685
686
687!--- error_str
688SUBROUTINE ext_xxx_error_str( Code, ReturnString, Status)
689  IMPLICIT NONE
690  INTEGER       , INTENT(IN)  :: Code
691  CHARACTER *(*), INTENT(OUT) :: ReturnString
692  INTEGER       , INTENT(OUT) :: Status
693RETURN
694END SUBROUTINE ext_xxx_error_str
695
696
697!--- get_previous_time
698SUBROUTINE ext_xxx_get_previous_time(DataHandle, DateStr, Status)
699  IMPLICIT NONE
700  INTEGER      , INTENT(IN)  :: DataHandle
701  CHARACTER*(*), INTENT(OUT) :: DateStr
702  INTEGER      , INTENT(OUT) :: Status
703RETURN
704END SUBROUTINE ext_xxx_get_previous_time
705
706
707!--- open_for_read_begin
708SUBROUTINE ext_xxx_open_for_read_begin( FileName, Comm, IOComm, SysDepInfo, DataHandle, Status)
709  IMPLICIT NONE
710  CHARACTER*(*), INTENT(IN)      :: FileName
711  INTEGER      , INTENT(IN)      :: Comm
712  INTEGER      , INTENT(IN)      :: IOComm
713  CHARACTER*(*), INTENT(IN)      :: SysDepInfo
714  INTEGER      , INTENT(OUT)     :: DataHandle
715  INTEGER      , INTENT(OUT)     :: Status
716RETURN
717END SUBROUTINE ext_xxx_open_for_read_begin
718
719
720!--- open_for_read_commit
721SUBROUTINE ext_xxx_open_for_read_commit(DataHandle, Status)
722  IMPLICIT NONE
723  INTEGER, INTENT(IN)  :: DataHandle
724  INTEGER, INTENT(OUT) :: Status
725RETURN
726END SUBROUTINE ext_xxx_open_for_read_commit
727
728
729!--- open_for_update
730SUBROUTINE ext_xxx_open_for_update( FileName, Comm, IOComm, SysDepInfo, DataHandle, Status)
731  IMPLICIT NONE
732  CHARACTER*(*), INTENT(IN)  :: FileName
733  INTEGER      , INTENT(IN)  :: Comm
734  INTEGER      , INTENT(IN)  :: IOComm
735  CHARACTER*(*), INTENT(IN)  :: SysDepInfo
736  INTEGER      , INTENT(OUT) :: DataHandle
737  INTEGER      , INTENT(OUT) :: Status
738RETURN
739END SUBROUTINE ext_xxx_open_for_update
740
741
742!--- open_for_write
743SUBROUTINE ext_xxx_open_for_write (DatasetName, Comm1, Comm2, &
744                                   SysDepInfo, DataHandle, Status)
745  IMPLICIT NONE
746  CHARACTER *(*), INTENT(IN)  :: DatasetName
747  INTEGER       , INTENT(IN)  :: Comm1, Comm2
748  CHARACTER *(*), INTENT(IN)  :: SysDepInfo
749  INTEGER       , INTENT(OUT) :: DataHandle
750  INTEGER       , INTENT(OUT) :: Status
751RETURN
752END SUBROUTINE ext_xxx_open_for_write
753
754
755!--- warning_str
756SUBROUTINE ext_xxx_warning_str( Code, ReturnString, Status)
757  IMPLICIT NONE
758  INTEGER       , INTENT(IN)  :: Code
759  CHARACTER *(*), INTENT(OUT) :: ReturnString
760  INTEGER       , INTENT(OUT) :: Status
761RETURN
762END SUBROUTINE ext_xxx_warning_str
763
Note: See TracBrowser for help on using the repository browser.