source: XIOS/trunk/src/interface/fortran/ixios.F90 @ 586

Last change on this file since 586 was 586, checked in by mhnguyen, 7 years ago

Fixing some bugs on writting non-distributed data

+) Implement scalar grid: Allow to send scalar real data
+) Modify the way to compute the mapping of buffer size from one client to a server
+) Fix a bug of writting axis on one_file mode
+) Make some changes in test_new_features.f90 and test_complete.f90

Test
+) On Curie,
+) test_client and test_complete pass and results are correct

  • 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
  • Property svn:executable set to *
File size: 4.6 KB
Line 
1#include "xios_fortran_prefix.hpp"
2
3MODULE XIOS
4
5USE icalendar, ONLY : xios(define_calendar), xios(set_timestep), xios(set_start_date), xios(set_time_origin),   &
6                      xios(get_calendar_type), xios(get_timestep), xios(get_start_date), xios(get_time_origin), &
7                      xios(update_calendar), xios(get_current_date),                                            &
8                      xios(get_year_length_in_seconds), xios(get_day_length_in_seconds)
9
10USE icontext, ONLY : txios(context), xios(set_current_context), xios(is_valid_context)
11
12USE icontext_attr, ONLY : xios(set_context_attr), xios(get_context_attr), xios(is_defined_context_attr)
13                  xios(setVar_logic), xios(setVar_char), xios(send_field_r8), xios(send_field_r4)
14
15USE idata, ONLY : xios(initialize), xios(init_server), xios(finalize), xios(context_initialize), xios(context_is_initialized), &
16                  xios(close_context_definition), xios(context_finalize), xios(solve_inheritance)
17
18USE idomain, ONLY : txios(domain), txios(domaingroup), xios(is_valid_domain), xios(is_valid_domaingroup)
19
20USE idomain_attr, ONLY : xios(set_domain_attr), xios(get_domain_attr), xios(is_defined_domain_attr)
21
22USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr), xios(get_domaingroup_attr), xios(is_defined_domaingroup_attr)
23
24USE iduration, ONLY: txios(duration),                                                                            &
25                     xios(year), xios(month), xios(day), xios(hour), xios(minute), xios(second), xios(timestep), &
26                     xios(duration_add), xios(duration_sub), xios(duration_mult), xios(duration_neg),            &
27                     xios(duration_eq), xios(duration_neq),                                                      &
28                     OPERATOR(+), OPERATOR(-), OPERATOR(*)
29
30USE idate, ONLY : txios(date),                                                                                &
31                  xios(date_convert_to_seconds),                                                              &
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(>=),           &
38                  ASSIGNMENT(=)
39
40USE ifield, ONLY : txios(field), txios(fieldgroup), xios(is_valid_field), xios(is_valid_fieldgroup)
41                    xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d),              &
42                    xios(send_field_r8), xios(send_field_r4)
43
44USE ifield_attr, ONLY : xios(set_field_attr), xios(get_field_attr), xios(is_defined_field_attr)
45
46USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr), xios(get_fieldgroup_attr), xios(is_defined_fieldgroup_attr)
47
48USE ivariable, ONLY : txios(variable), txios(variablegroup), xios(is_valid_variable), xios(is_valid_variablegroup)
49
50USE ivariable_attr, ONLY : xios(set_variable_attr), xios(get_variable_attr), xios(is_defined_variable_attr)
51
52USE ivariablegroup_attr, ONLY : xios(set_variablegroup_attr), xios(get_variablegroup_attr), xios(is_defined_variablegroup_attr)
53
54USE ifile, ONLY : txios(file), txios(filegroup), xios(is_valid_file), xios(is_valid_filegroup)
55
56USE ifile_attr, ONLY : xios(set_file_attr), xios(get_file_attr), xios(is_defined_file_attr)
57
58USE ifilegroup_attr, ONLY : xios(set_filegroup_attr), xios(get_filegroup_attr), xios(is_defined_filegroup_attr)
59
60USE igrid, ONLY : txios(grid), txios(gridgroup), xios(is_valid_grid), xios(is_valid_gridgroup)
61
62USE igrid_attr, ONLY : xios(set_grid_attr), xios(get_grid_attr), xios(is_defined_grid_attr)
63
64USE igridgroup_attr, ONLY : xios(set_gridgroup_attr), xios(get_gridgroup_attr), xios(is_defined_gridgroup_attr)
65
66USE iaxis, ONLY : txios(axis), txios(axisgroup), xios(is_valid_axis), xios(is_valid_axisgroup)
67
68USE iaxis_attr, ONLY : xios(set_axis_attr), xios(get_axis_attr), xios(is_defined_axis_attr)
69
70USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr), xios(get_axisgroup_attr), xios(is_defined_axisgroup_attr)
71
72USE XIOS_INTERFACES, ONLY : xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), &
73                            xios(add_child), xios(send_field), xios(field_is_active), xios(getVar), xios(setVar)
74
75END MODULE XIOS
Note: See TracBrowser for help on using the repository browser.