source: XIOS3/branches/xios-3.0-beta/src/interface/fortran/ixios.F90 @ 2427

Last change on this file since 2427 was 2427, checked in by jderouillat, 17 months ago

Backport the system to log the memory consumption (commit ID [2418-2420,2425-2426])
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 9.4 KB
RevLine 
[325]1#include "xios_fortran_prefix.hpp"
2
3MODULE XIOS
4
[576]5USE icalendar, ONLY : xios(define_calendar), xios(set_timestep), xios(set_start_date), xios(set_time_origin),   &
[549]6                      xios(get_calendar_type), xios(get_timestep), xios(get_start_date), xios(get_time_origin), &
[576]7                      xios(update_calendar), xios(get_current_date),                                            &
[549]8                      xios(get_year_length_in_seconds), xios(get_day_length_in_seconds)
[325]9
[1761]10USE icontext, ONLY : txios(context), xios(set_current_context), xios(get_current_context), xios(is_valid_context)
[325]11
[576]12USE icontext_attr, ONLY : xios(set_context_attr), xios(get_context_attr), xios(is_defined_context_attr)
[489]13
[576]14USE idata, ONLY : xios(initialize), xios(init_server), xios(finalize), xios(context_initialize), xios(context_is_initialized), &
[1587]15                  xios(close_context_definition), xios(context_finalize), xios(solve_inheritance), xios(oasis_enddef)
[325]16
[576]17USE idomain, ONLY : txios(domain), txios(domaingroup), xios(is_valid_domain), xios(is_valid_domaingroup)
[325]18
[576]19USE idomain_attr, ONLY : xios(set_domain_attr), xios(get_domain_attr), xios(is_defined_domain_attr)
[325]20
[576]21USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr), xios(get_domaingroup_attr), xios(is_defined_domaingroup_attr)
[325]22
[576]23USE iduration, ONLY: txios(duration),                                                                            &
[545]24                     xios(year), xios(month), xios(day), xios(hour), xios(minute), xios(second), xios(timestep), &
[801]25                     xios(duration_convert_to_string), xios(duration_convert_from_string),                       &
[576]26                     xios(duration_add), xios(duration_sub), xios(duration_mult), xios(duration_neg),            &
27                     xios(duration_eq), xios(duration_neq),                                                      &
[545]28                     OPERATOR(+), OPERATOR(-), OPERATOR(*)
29
[801]30USE idate, ONLY : txios(date),                                                                                 &
31                  xios(date_convert_to_seconds), xios(date_convert_to_string), xios(date_convert_from_string), &
32                  xios(date_add_duration), xios(date_sub_duration), xios(date_sub),                            &
33                  xios(date_eq), xios(date_neq), xios(date_lt), xios(date_le), xios(date_gt), xios(date_ge),   &
34                  xios(date_get_second_of_year), xios(date_get_day_of_year), xios(date_get_fraction_of_year),  &
35                  xios(date_get_second_of_day), xios(date_get_fraction_of_day),                                &
36                  OPERATOR(+), OPERATOR(-),                                                                    &
37                  OPERATOR(==), OPERATOR(/=), OPERATOR(<), OPERATOR(<=), OPERATOR(>), OPERATOR(>=),            &
[576]38                  ASSIGNMENT(=)
[1754]39USE itimer, ONLY : xios(timer_resume), xios(timer_suspend), xios(timer_reset), xios(timer_get_time)
[2427]40USE imem_checker, ONLY : xios(mem_checker_get), xios(mem_checker_log)
[325]41
[576]42USE ifield, ONLY : txios(field), txios(fieldgroup), xios(is_valid_field), xios(is_valid_fieldgroup)
[489]43
[576]44USE ifield_attr, ONLY : xios(set_field_attr), xios(get_field_attr), xios(is_defined_field_attr)
[325]45
[576]46USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr), xios(get_fieldgroup_attr), xios(is_defined_fieldgroup_attr)
[472]47
[576]48USE ivariable, ONLY : txios(variable), txios(variablegroup), xios(is_valid_variable), xios(is_valid_variablegroup)
[489]49
[576]50USE ivariable_attr, ONLY : xios(set_variable_attr), xios(get_variable_attr), xios(is_defined_variable_attr)
[489]51
[576]52USE ivariablegroup_attr, ONLY : xios(set_variablegroup_attr), xios(get_variablegroup_attr), xios(is_defined_variablegroup_attr)
[325]53
[576]54USE ifile, ONLY : txios(file), txios(filegroup), xios(is_valid_file), xios(is_valid_filegroup)
[325]55
[576]56USE ifile_attr, ONLY : xios(set_file_attr), xios(get_file_attr), xios(is_defined_file_attr)
[489]57
[576]58USE ifilegroup_attr, ONLY : xios(set_filegroup_attr), xios(get_filegroup_attr), xios(is_defined_filegroup_attr)
[325]59
[576]60USE igrid, ONLY : txios(grid), txios(gridgroup), xios(is_valid_grid), xios(is_valid_gridgroup)
[325]61
[576]62USE igrid_attr, ONLY : xios(set_grid_attr), xios(get_grid_attr), xios(is_defined_grid_attr)
[325]63
[576]64USE igridgroup_attr, ONLY : xios(set_gridgroup_attr), xios(get_gridgroup_attr), xios(is_defined_gridgroup_attr)
[325]65
[576]66USE iaxis, ONLY : txios(axis), txios(axisgroup), xios(is_valid_axis), xios(is_valid_axisgroup)
[325]67
[576]68USE iaxis_attr, ONLY : xios(set_axis_attr), xios(get_axis_attr), xios(is_defined_axis_attr)
[325]69
[576]70USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr), xios(get_axisgroup_attr), xios(is_defined_axisgroup_attr)
[325]71
[891]72USE iscalar, ONLY : txios(scalar), txios(scalargroup), xios(is_valid_scalar), xios(is_valid_scalargroup)
73
74USE iscalar_attr, ONLY : xios(set_scalar_attr), xios(get_scalar_attr), xios(is_defined_scalar_attr)
75
76USE iscalargroup_attr, ONLY : xios(set_scalargroup_attr), xios(get_scalargroup_attr), xios(is_defined_scalargroup_attr)
77
[981]78!-------------------------------------------------------------------------------
79!!! Transformation INTERFACES
80!-------------------------------------------------------------------------------
81!!! DOMAIN TRANSFORMATIONS
[2338]82USE iextract_domain, ONLY : txios(extract_domain), xios(is_valid_extract_domain)
83
84USE iextract_domain_attr, ONLY : xios(set_extract_domain_attr), xios(get_extract_domain_attr), xios(is_defined_extract_domain_attr)
85
[981]86USE izoom_domain, ONLY : txios(zoom_domain), xios(is_valid_zoom_domain)
87
88USE izoom_domain_attr, ONLY : xios(set_zoom_domain_attr), xios(get_zoom_domain_attr), xios(is_defined_zoom_domain_attr)
89
90USE iinterpolate_domain, ONLY : txios(interpolate_domain), xios(is_valid_interpolate_domain)
91
92USE iinterpolate_domain_attr, ONLY : xios(set_interpolate_domain_attr), xios(get_interpolate_domain_attr), &
93                                     xios(is_defined_interpolate_domain_attr)
94
95USE igenerate_rectilinear_domain, ONLY : txios(generate_rectilinear_domain), xios(is_valid_generate_rectilinear_domain)
96
97USE igenerate_rectilinear_domain_attr, ONLY : xios(set_generate_rectilinear_domain_attr), &
98                                              xios(get_generate_rectilinear_domain_attr), &
99                                              xios(is_defined_generate_rectilinear_domain_attr)
100
101USE icompute_connectivity_domain, ONLY : txios(compute_connectivity_domain), xios(is_valid_compute_connectivity_domain)
102
103USE icompute_connectivity_domain_attr, ONLY : xios(set_compute_connectivity_domain_attr), &
104                                              xios(get_compute_connectivity_domain_attr), &
105                                              xios(is_defined_compute_connectivity_domain_attr)
106
107USE iexpand_domain, ONLY : txios(expand_domain), xios(is_valid_expand_domain)
108
109USE iexpand_domain_attr, ONLY : xios(set_expand_domain_attr), &
110                                xios(get_expand_domain_attr), &
111                                xios(is_defined_expand_domain_attr)
112
113!!! AXIS TRANSFORMATIONS
[784]114USE izoom_axis, ONLY : txios(zoom_axis), xios(is_valid_zoom_axis)
115
116USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr), xios(get_zoom_axis_attr), xios(is_defined_zoom_axis_attr)
117
118
[786]119USE iinterpolate_axis, ONLY : txios(interpolate_axis), xios(is_valid_interpolate_axis)
120
121USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr), xios(get_interpolate_axis_attr), &
122                                   xios(is_defined_interpolate_axis_attr)
123
124USE iinverse_axis, ONLY : txios(inverse_axis), xios(is_valid_inverse_axis)
125
126USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr), xios(get_inverse_axis_attr), xios(is_defined_inverse_axis_attr)
127
[981]128USE ireduce_domain_to_axis, ONLY : txios(reduce_domain_to_axis), xios(is_valid_reduce_domain_to_axis)
[786]129
[981]130USE ireduce_domain_to_axis_attr, ONLY : xios(set_reduce_domain_to_axis_attr), &
131                                        xios(get_reduce_domain_to_axis_attr), &
132                                        xios(is_defined_reduce_domain_to_axis_attr)
133
134USE iextract_domain_to_axis, ONLY : txios(extract_domain_to_axis), xios(is_valid_extract_domain_to_axis)
135
136USE iextract_domain_to_axis_attr, ONLY : xios(set_extract_domain_to_axis_attr), &
137                                         xios(get_extract_domain_to_axis_attr), &
138                                         xios(is_defined_extract_domain_to_axis_attr)
139
140!!! SCALAR TRANSFORMATIONS
141USE ireduce_domain_to_scalar, ONLY : txios(reduce_domain_to_scalar), xios(is_valid_reduce_domain_to_scalar)
142
143USE ireduce_domain_to_scalar_attr, ONLY : xios(set_reduce_domain_to_scalar_attr), xios(get_reduce_domain_to_scalar_attr), &
144                                          xios(is_defined_reduce_domain_to_scalar_attr)
145
[891]146USE ireduce_axis_to_scalar, ONLY : txios(reduce_axis_to_scalar), xios(is_valid_reduce_axis_to_scalar)
[786]147
[891]148USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr), xios(get_reduce_axis_to_scalar_attr), &
149                                        xios(is_defined_reduce_axis_to_scalar_attr)
150
[981]151USE iextract_axis_to_scalar, ONLY : txios(extract_axis_to_scalar), xios(is_valid_extract_axis_to_scalar)
[934]152
[981]153USE iextract_axis_to_scalar_attr, ONLY : xios(set_extract_axis_to_scalar_attr), &
154                                         xios(get_extract_axis_to_scalar_attr), &
155                                         xios(is_defined_extract_axis_to_scalar_attr)
[934]156
[593]157USE XIOS_INTERFACES, ONLY : xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), xios(add_child), &
[943]158                            xios(send_field), xios(recv_field), xios(field_is_active), xios(getVar), xios(setVar), &
159                            xios(field_get_domain),xios(field_get_axis),xios(field_get_scalar)
[325]160
161END MODULE XIOS
Note: See TracBrowser for help on using the repository browser.