Ignore:
Timestamp:
10/24/16 16:16:51 (5 years ago)
Author:
mhnguyen
Message:

Fortran interfaces:

+) Adding Fortran interfaces of transformation

Test
+) Only complilation on Curie

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran/ixios.F90

    r943 r981  
    7474USE iscalargroup_attr, ONLY : xios(set_scalargroup_attr), xios(get_scalargroup_attr), xios(is_defined_scalargroup_attr) 
    7575 
    76 USE izoom_axis, ONLY : txios(zoom_axis), xios(is_valid_zoom_axis) 
    77  
    78 USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr), xios(get_zoom_axis_attr), xios(is_defined_zoom_axis_attr) 
    79  
     76!------------------------------------------------------------------------------- 
     77!!! Transformation INTERFACES 
     78!------------------------------------------------------------------------------- 
     79!!! DOMAIN TRANSFORMATIONS 
    8080USE izoom_domain, ONLY : txios(zoom_domain), xios(is_valid_zoom_domain) 
    8181 
    8282USE izoom_domain_attr, ONLY : xios(set_zoom_domain_attr), xios(get_zoom_domain_attr), xios(is_defined_zoom_domain_attr) 
    83  
    84 USE iinterpolate_axis, ONLY : txios(interpolate_axis), xios(is_valid_interpolate_axis) 
    85  
    86 USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr), xios(get_interpolate_axis_attr), & 
    87                                    xios(is_defined_interpolate_axis_attr) 
    8883 
    8984USE iinterpolate_domain, ONLY : txios(interpolate_domain), xios(is_valid_interpolate_domain) 
     
    9287                                     xios(is_defined_interpolate_domain_attr) 
    9388 
    94 USE iinverse_axis, ONLY : txios(inverse_axis), xios(is_valid_inverse_axis) 
    95  
    96 USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr), xios(get_inverse_axis_attr), xios(is_defined_inverse_axis_attr) 
    97  
    9889USE igenerate_rectilinear_domain, ONLY : txios(generate_rectilinear_domain), xios(is_valid_generate_rectilinear_domain) 
    9990 
     
    10192                                              xios(get_generate_rectilinear_domain_attr), & 
    10293                                              xios(is_defined_generate_rectilinear_domain_attr) 
    103 USE ireduce_axis_to_scalar, ONLY : txios(reduce_axis_to_scalar), xios(is_valid_reduce_axis_to_scalar) 
    104  
    105 USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr), xios(get_reduce_axis_to_scalar_attr), & 
    106                                         xios(is_defined_reduce_axis_to_scalar_attr) 
    10794 
    10895USE icompute_connectivity_domain, ONLY : txios(compute_connectivity_domain), xios(is_valid_compute_connectivity_domain) 
     
    11299                                              xios(is_defined_compute_connectivity_domain_attr) 
    113100 
     101USE iexpand_domain, ONLY : txios(expand_domain), xios(is_valid_expand_domain) 
     102 
     103USE iexpand_domain_attr, ONLY : xios(set_expand_domain_attr), & 
     104                                xios(get_expand_domain_attr), & 
     105                                xios(is_defined_expand_domain_attr) 
     106 
     107!!! AXIS TRANSFORMATIONS 
     108USE izoom_axis, ONLY : txios(zoom_axis), xios(is_valid_zoom_axis) 
     109 
     110USE izoom_axis_attr, ONLY : xios(set_zoom_axis_attr), xios(get_zoom_axis_attr), xios(is_defined_zoom_axis_attr) 
     111 
     112 
     113USE iinterpolate_axis, ONLY : txios(interpolate_axis), xios(is_valid_interpolate_axis) 
     114 
     115USE iinterpolate_axis_attr, ONLY : xios(set_interpolate_axis_attr), xios(get_interpolate_axis_attr), & 
     116                                   xios(is_defined_interpolate_axis_attr) 
     117 
     118USE iinverse_axis, ONLY : txios(inverse_axis), xios(is_valid_inverse_axis) 
     119 
     120USE iinverse_axis_attr, ONLY : xios(set_inverse_axis_attr), xios(get_inverse_axis_attr), xios(is_defined_inverse_axis_attr) 
     121 
     122USE ireduce_domain_to_axis, ONLY : txios(reduce_domain_to_axis), xios(is_valid_reduce_domain_to_axis) 
     123 
     124USE ireduce_domain_to_axis_attr, ONLY : xios(set_reduce_domain_to_axis_attr), & 
     125                                        xios(get_reduce_domain_to_axis_attr), & 
     126                                        xios(is_defined_reduce_domain_to_axis_attr) 
     127 
     128USE iextract_domain_to_axis, ONLY : txios(extract_domain_to_axis), xios(is_valid_extract_domain_to_axis) 
     129 
     130USE iextract_domain_to_axis_attr, ONLY : xios(set_extract_domain_to_axis_attr), & 
     131                                         xios(get_extract_domain_to_axis_attr), & 
     132                                         xios(is_defined_extract_domain_to_axis_attr) 
     133 
     134!!! SCALAR TRANSFORMATIONS 
     135USE ireduce_domain_to_scalar, ONLY : txios(reduce_domain_to_scalar), xios(is_valid_reduce_domain_to_scalar) 
     136 
     137USE ireduce_domain_to_scalar_attr, ONLY : xios(set_reduce_domain_to_scalar_attr), xios(get_reduce_domain_to_scalar_attr), & 
     138                                          xios(is_defined_reduce_domain_to_scalar_attr) 
     139 
     140USE ireduce_axis_to_scalar, ONLY : txios(reduce_axis_to_scalar), xios(is_valid_reduce_axis_to_scalar) 
     141 
     142USE ireduce_axis_to_scalar_attr, ONLY : xios(set_reduce_axis_to_scalar_attr), xios(get_reduce_axis_to_scalar_attr), & 
     143                                        xios(is_defined_reduce_axis_to_scalar_attr) 
     144 
     145USE iextract_axis_to_scalar, ONLY : txios(extract_axis_to_scalar), xios(is_valid_extract_axis_to_scalar) 
     146 
     147USE iextract_axis_to_scalar_attr, ONLY : xios(set_extract_axis_to_scalar_attr), & 
     148                                         xios(get_extract_axis_to_scalar_attr), & 
     149                                         xios(is_defined_extract_axis_to_scalar_attr) 
     150 
    114151USE XIOS_INTERFACES, ONLY : xios(set_attr), xios(get_attr), xios(is_defined_attr), xios(get_handle), xios(add_child), & 
    115152                            xios(send_field), xios(recv_field), xios(field_is_active), xios(getVar), xios(setVar), & 
Note: See TracChangeset for help on using the changeset viewer.