Ignore:
Timestamp:
10/21/11 19:01:35 (13 years ago)
Author:
ymipsl
Message:

reprise en main de la version de H. Ozdoba. Correction de différentes erreurs de conception et bug.
Version NEMO operationnel en client/server, interoperabilita avec OASIS, reconstition de fichiers via netcdf4/HDF5

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_V2/dev/common/src/xmlio/fortran/fieldgroup_interface.f90

    r280 r286  
    44   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 
    55    
    6       SUBROUTINE xios_set_fieldgroup_name(fieldgroup_hdl, name ,name_size) BIND(C) 
     6      SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name ,name_size) BIND(C) 
    77         USE ISO_C_BINDING 
    88         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    1010         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    11       END SUBROUTINE xios_set_fieldgroup_name 
     11      END SUBROUTINE cxios_set_fieldgroup_name 
    1212 
    13       SUBROUTINE xios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name ,standard_name_size) BIND(C) 
     13      SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name ,standard_name_size) BIND(C) 
    1414         USE ISO_C_BINDING 
    1515         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    1616         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name 
    1717         INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    18       END SUBROUTINE xios_set_fieldgroup_standard_name 
     18      END SUBROUTINE cxios_set_fieldgroup_standard_name 
    1919 
    20       SUBROUTINE xios_set_fieldgroup_long_name(fieldgroup_hdl, long_name ,long_name_size) BIND(C) 
     20      SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name ,long_name_size) BIND(C) 
    2121         USE ISO_C_BINDING 
    2222         INTEGER (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    2323         CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: long_name 
    2424         INTEGER (kind = C_INT)     , VALUE        :: long_name_size 
    25       END SUBROUTINE xios_set_fieldgroup_long_name 
     25      END SUBROUTINE cxios_set_fieldgroup_long_name 
    2626 
    27       SUBROUTINE xios_set_fieldgroup_unit(fieldgroup_hdl, unit ,unit_size) BIND(C) 
     27      SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit ,unit_size) BIND(C) 
    2828         USE ISO_C_BINDING 
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    3030         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit 
    3131         INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    32       END SUBROUTINE xios_set_fieldgroup_unit 
     32      END SUBROUTINE cxios_set_fieldgroup_unit 
    3333 
    34       SUBROUTINE xios_set_fieldgroup_operation(fieldgroup_hdl, operation ,operation_size) BIND(C) 
     34      SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation ,operation_size) BIND(C) 
    3535         USE ISO_C_BINDING 
    3636         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    3737         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation 
    3838         INTEGER  (kind = C_INT)     , VALUE        :: operation_size 
    39       END SUBROUTINE xios_set_fieldgroup_operation 
     39      END SUBROUTINE cxios_set_fieldgroup_operation 
    4040 
    41       SUBROUTINE xios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op ,freq_op_size) BIND(C) 
     41      SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op ,freq_op_size) BIND(C) 
    4242         USE ISO_C_BINDING 
    4343         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    4444         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op 
    4545         INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size 
    46       END SUBROUTINE xios_set_fieldgroup_freq_op 
     46      END SUBROUTINE cxios_set_fieldgroup_freq_op 
    4747 
    48       SUBROUTINE xios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C) 
     48      SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C) 
    4949         USE ISO_C_BINDING 
    5050         INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    5151         INTEGER (kind = C_INT)     , VALUE :: level 
    52       END SUBROUTINE xios_set_fieldgroup_level 
     52      END SUBROUTINE cxios_set_fieldgroup_level 
    5353 
    54       SUBROUTINE xios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) 
     54      SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) 
    5555         USE ISO_C_BINDING 
    5656         INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    5757         INTEGER (kind = C_INT)     , VALUE :: prec 
    58       END SUBROUTINE xios_set_fieldgroup_prec 
     58      END SUBROUTINE cxios_set_fieldgroup_prec 
    5959 
    60       SUBROUTINE xios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) 
     60      SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) 
    6161         USE ISO_C_BINDING 
    6262         INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    6363         LOGICAL (kind = C_BOOL)    , VALUE :: enabled 
    64          END SUBROUTINE xios_set_fieldgroup_enabled 
     64         END SUBROUTINE cxios_set_fieldgroup_enabled 
    6565 
    66       SUBROUTINE xios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref ,domain_ref_size) BIND(C) 
     66      SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref ,domain_ref_size) BIND(C) 
    6767         USE ISO_C_BINDING 
    6868         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    6969         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref 
    7070         INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size 
    71       END SUBROUTINE xios_set_fieldgroup_domain_ref 
     71      END SUBROUTINE cxios_set_fieldgroup_domain_ref 
    7272 
    73       SUBROUTINE xios_set_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref ,axis_ref_size) BIND(C) 
     73      SUBROUTINE cxios_set_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref ,axis_ref_size) BIND(C) 
    7474         USE ISO_C_BINDING 
    7575         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    7676         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref 
    7777         INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
    78       END SUBROUTINE xios_set_fieldgroup_axis_ref 
     78      END SUBROUTINE cxios_set_fieldgroup_axis_ref 
    7979 
    80       SUBROUTINE xios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref ,grid_ref_size) BIND(C) 
     80      SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref ,grid_ref_size) BIND(C) 
    8181         USE ISO_C_BINDING 
    8282         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    8383         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref 
    8484         INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size 
    85       END SUBROUTINE xios_set_fieldgroup_grid_ref 
     85      END SUBROUTINE cxios_set_fieldgroup_grid_ref 
    8686 
    87       SUBROUTINE xios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref ,field_ref_size) BIND(C) 
     87      SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref ,field_ref_size) BIND(C) 
    8888         USE ISO_C_BINDING 
    8989         INTEGER  (kind = C_INTPTR_T), VALUE        :: fieldgroup_hdl 
    9090         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref 
    9191         INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size 
    92       END SUBROUTINE xios_set_fieldgroup_field_ref 
     92      END SUBROUTINE cxios_set_fieldgroup_field_ref 
    9393 
    94       SUBROUTINE xios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
     94      SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
    9595         USE ISO_C_BINDING 
    9696         INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
    9797         REAL    (kind = C_DOUBLE)  , VALUE :: default_value 
    98       END SUBROUTINE xios_set_fieldgroup_default_value 
     98      END SUBROUTINE cxios_set_fieldgroup_default_value 
    9999       
    100       SUBROUTINE xios_fieldgroup_handle_create(ret, idt, idt_size) BIND(C) 
     100      SUBROUTINE cxios_fieldgroup_handle_create(ret, idt, idt_size) BIND(C) 
    101101         USE ISO_C_BINDING 
    102102         INTEGER  (kind = C_INTPTR_T)               :: ret 
    103103         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    104104         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    105       END SUBROUTINE xios_fieldgroup_handle_create 
     105      END SUBROUTINE cxios_fieldgroup_handle_create 
    106106 
    107       SUBROUTINE xios_fieldgroup_valid_id(ret, idt, idt_size) BIND(C) 
     107      SUBROUTINE cxios_fieldgroup_valid_id(ret, idt, idt_size) BIND(C) 
    108108         USE ISO_C_BINDING 
    109109         LOGICAL  (kind = C_BOOL)                   :: ret 
    110110         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    111111         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    112       END SUBROUTINE xios_fieldgroup_valid_id 
     112      END SUBROUTINE cxios_fieldgroup_valid_id 
    113113    
    114114   END INTERFACE 
Note: See TracChangeset for help on using the changeset viewer.