source: XIOS/trunk/src/fortran/ixios.F90 @ 310

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

Add xios_field_is_active functionnality

YM

File size: 5.6 KB
Line 
1#include "xios_fortran_prefix.hpp"
2
3MODULE XIOS
4
5
6USE icontext, ONLY : txios(context), xios(set_context_attr), xios(set_context_attr_hdl),   &
7                     xios(get_context_handle), xios(set_current_context),                  &
8                     xios(is_valid_context)
9
10USE idata, ONLY : xios(initialize),xios(init_server), xios(finalize), xios(context_initialize),  &
11                  xios(close_context_definition),       &
12                  xios(context_finalize), xios(send_field_r8_1d), xios(send_field_r8_2d), &
13                  xios(send_field_r8_3d), xios(send_field_r4_1d), xios(send_field_r4_2d), &
14                  xios(send_field_r4_3d)
15
16USE idate, ONLY : txios(date),txios(time), xios(set_timestep),xios(update_calendar)
17
18USE idomain, ONLY : txios(domain), txios(domaingroup), xios(set_domaingroup_attr),       &
19                    xios(set_domaingroup_attr_hdl), xios(set_domain_attr), xios(set_domain_attr_hdl),&
20                    xios(get_domain_handle), xios(get_domaingroup_handle),xios(is_valid_domain),     &
21                    xios(is_valid_domaingroup)
22                     
23USE ifield, ONLY : txios(field), txios(fieldgroup), xios(set_fieldgroup_attr),           &
24                   xios(set_fieldgroup_attr_hdl),xios(set_field_attr),xios(set_field_attr_hdl),      &
25                   xios(get_field_handle), xios(get_fieldgroup_handle), xios(is_valid_field),        &
26                   xios(is_valid_fieldgroup),xios(field_is_active_id),xios(field_is_active_hdl) 
27                   
28USE ifile, ONLY : txios(file), txios(filegroup), xios(set_file_attr),xios(set_file_attr_hdl), &
29                  xios(set_filegroup_attr), xios(set_filegroup_attr_hdl), xios(get_file_handle),    & 
30                  xios(get_filegroup_handle), xios(is_valid_file), xios(is_valid_filegroup)
31                 
32USE igrid, ONLY : txios(grid), txios(gridgroup), xios(set_grid_attr), xios(set_grid_attr_hdl), &
33                  xios(set_gridgroup_attr), xios(set_gridgroup_attr_hdl), xios(get_grid_handle),     &
34                  xios(get_gridgroup_handle), xios(is_valid_grid), xios(is_valid_gridgroup) 
35
36USE iaxis, ONLY : txios(axis), txios(axisgroup), xios(set_axis_attr), xios(set_axis_attr_hdl), &
37                  xios(set_axisgroup_attr), xios(set_axisgroup_attr_hdl), xios(get_axis_handle),     &
38                  xios(get_axisgroup_handle), xios(is_valid_axis), xios(is_valid_axisgroup) 
39
40USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),          &
41                     xios(add_fieldtofile), xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), &
42                     xios(add_fieldgroup), xios(add_domaingroup), xios(add_fieldgrouptofile)
43                 
44
45PRIVATE
46
47
48INTERFACE xios(set_attr)
49  MODULE PROCEDURE xios(set_domaingroup_attr_hdl), xios(set_domain_attr_hdl), xios(set_fieldgroup_attr_hdl), &
50                   xios(set_field_attr_hdl), xios(set_file_attr_hdl), xios(set_filegroup_attr_hdl),          &
51                   xios(set_grid_attr_hdl), xios(set_gridgroup_attr_hdl), xios(set_axis_attr_hdl) ,          &
52                   xios(set_axisgroup_attr_hdl), xios(set_context_attr_hdl)
53END INTERFACE xios(set_attr)
54
55INTERFACE xios(get_handle)
56  MODULE PROCEDURE  xios(get_context_handle), xios(get_domain_handle), xios(get_domaingroup_handle),        &
57                    xios(get_file_handle), xios(get_filegroup_handle), xios(get_grid_handle),               &
58                    xios(get_gridgroup_handle), xios(get_axis_handle), xios(get_axisgroup_handle),          &
59                    xios(get_field_handle), xios(get_fieldgroup_handle)
60END INTERFACE xios(get_handle) 
61
62INTERFACE xios(add_child)
63  MODULE PROCEDURE xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),    &
64                   xios(add_fieldtofile), xios(add_axisgroup), xios(add_filegroup), xios(add_gridgroup), &
65                   xios(add_fieldgroup), xios(add_domaingroup), xios(add_fieldgrouptofile)
66END INTERFACE xios(add_child)
67
68
69INTERFACE xios(send_field)
70  MODULE PROCEDURE  xios(send_field_r8_1d), xios(send_field_r8_2d), xios(send_field_r8_3d),              &
71                    xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d)
72END INTERFACE xios(send_field)
73
74INTERFACE xios(field_is_active)
75  MODULE PROCEDURE xios(field_is_active_id),xios(field_is_active_hdl)
76END INTERFACE
77 
78 PUBLIC :: txios(domain), txios(domaingroup),txios(field), txios(fieldgroup),txios(file), txios(filegroup), &
79          txios(grid), txios(gridgroup), txios(axis), txios(axisgroup),txios(context), txios(date),txios(time) 
80
81 PUBLIC :: xios(set_attr), xios(set_domain_attr), xios(set_domaingroup_attr), xios(set_fieldgroup_attr), &
82          xios(set_field_attr), xios(set_file_attr), xios(set_filegroup_attr),          &
83          xios(set_grid_attr), xios(set_gridgroup_attr), xios(set_axis_attr) ,          &
84          xios(set_axisgroup_attr), xios(set_context_attr)
85
86 PUBLIC :: xios(get_handle) 
87 PUBLIC :: xios(add_child) 
88
89 PUBLIC :: xios(is_valid_context),xios(is_valid_domain), xios(is_valid_domaingroup),xios(is_valid_field),        &
90          xios(is_valid_fieldgroup), xios(is_valid_file), xios(is_valid_filegroup), xios(is_valid_grid),         &
91          xios(is_valid_gridgroup), xios(is_valid_axis), xios(is_valid_axisgroup)
92         
93 PUBLIC :: xios(set_current_context) 
94 PUBLIC :: xios(set_timestep),xios(update_calendar)
95 PUBLIC :: xios(initialize), xios(init_server), xios(finalize), xios(context_initialize),                       &
96           xios(close_context_definition), xios(context_finalize), xios(send_field),xios(field_is_active)
97
98END MODULE XIOS
Note: See TracBrowser for help on using the repository browser.