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/domain_interface.f90

    r280 r286  
    44   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 
    55        
    6       SUBROUTINE xios_set_domain_name(domain_hdl, name, name_size) BIND(C) 
     6      SUBROUTINE cxios_set_domain_name(domain_hdl, name, name_size) BIND(C) 
    77         USE ISO_C_BINDING 
    88         INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    99         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name 
    1010         INTEGER  (kind = C_INT)     , VALUE        :: name_size 
    11       END SUBROUTINE xios_set_domain_name 
    12  
    13       SUBROUTINE xios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 
     11      END SUBROUTINE cxios_set_domain_name 
     12 
     13      SUBROUTINE cxios_set_domain_standard_name(domain_hdl, standard_name, standard_name_size) BIND(C) 
    1414         USE ISO_C_BINDING 
    1515         INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    1616         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name 
    1717         INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size 
    18       END SUBROUTINE xios_set_domain_standard_name 
    19  
    20       SUBROUTINE xios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) 
     18      END SUBROUTINE cxios_set_domain_standard_name 
     19 
     20      SUBROUTINE cxios_set_domain_long_name(domain_hdl, long_name, long_name_size) BIND(C) 
    2121         USE ISO_C_BINDING 
    2222         INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    2323         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name 
    2424         INTEGER  (kind = C_INT)     , VALUE        :: long_name_size 
    25       END SUBROUTINE xios_set_domain_long_name 
    26  
    27       SUBROUTINE xios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
     25      END SUBROUTINE cxios_set_domain_long_name 
     26 
     27      SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
    2828         USE ISO_C_BINDING 
    2929         INTEGER  (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    3030         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    3131         INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    32       END SUBROUTINE xios_set_domain_domain_group_ref 
    33  
    34       SUBROUTINE xios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) 
     32      END SUBROUTINE cxios_set_domain_domain_group_ref 
     33 
     34      SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) 
    3535         USE ISO_C_BINDING 
    3636         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    3737         INTEGER (kind = C_INT)     , VALUE :: ni_glo 
    38       END SUBROUTINE xios_set_domain_ni_glo 
    39  
    40       SUBROUTINE xios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) 
     38      END SUBROUTINE cxios_set_domain_ni_glo 
     39 
     40      SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) 
    4141         USE ISO_C_BINDING 
    4242         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    4343         INTEGER (kind = C_INT)     , VALUE :: nj_glo 
    44       END SUBROUTINE xios_set_domain_nj_glo 
    45  
    46       SUBROUTINE xios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) 
     44      END SUBROUTINE cxios_set_domain_nj_glo 
     45 
     46      SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) 
    4747         USE ISO_C_BINDING 
    4848         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    4949         INTEGER (kind = C_INT)     , VALUE :: ibegin 
    50       END SUBROUTINE xios_set_domain_ibegin 
    51  
    52       SUBROUTINE xios_set_domain_iend(domain_hdl, iend) BIND(C) 
     50      END SUBROUTINE cxios_set_domain_ibegin 
     51 
     52      SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C) 
    5353         USE ISO_C_BINDING 
    5454         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    5555         INTEGER (kind = C_INT)     , VALUE :: iend 
    56       END SUBROUTINE xios_set_domain_iend 
    57  
    58       SUBROUTINE xios_set_domain_ni(domain_hdl, ni) BIND(C) 
     56      END SUBROUTINE cxios_set_domain_iend 
     57 
     58      SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C) 
    5959         USE ISO_C_BINDING 
    6060         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    6161         INTEGER (kind = C_INT)     , VALUE :: ni 
    62       END SUBROUTINE xios_set_domain_ni 
    63  
    64       SUBROUTINE xios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) 
     62      END SUBROUTINE cxios_set_domain_ni 
     63 
     64      SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) 
    6565         USE ISO_C_BINDING 
    6666         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    6767         INTEGER (kind = C_INT)     , VALUE :: jbegin 
    68       END SUBROUTINE xios_set_domain_jbegin 
    69  
    70       SUBROUTINE xios_set_domain_jend(domain_hdl, jend) BIND(C) 
     68      END SUBROUTINE cxios_set_domain_jbegin 
     69 
     70      SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C) 
    7171         USE ISO_C_BINDING 
    7272         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    7373         INTEGER (kind = C_INT)     , VALUE :: jend 
    74       END SUBROUTINE xios_set_domain_jend 
    75  
    76       SUBROUTINE xios_set_domain_nj(domain_hdl, nj) BIND(C) 
     74      END SUBROUTINE cxios_set_domain_jend 
     75 
     76      SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C) 
    7777         USE ISO_C_BINDING 
    7878         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    7979         INTEGER (kind = C_INT)     , VALUE :: nj 
    80       END SUBROUTINE xios_set_domain_nj 
    81  
    82       SUBROUTINE xios_set_domain_mask(domain_hdl, mask, mask_extent1, mask_extent2) BIND(C) 
     80      END SUBROUTINE cxios_set_domain_nj 
     81 
     82      SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, mask_extent1, mask_extent2) BIND(C) 
    8383         USE ISO_C_BINDING 
    8484         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    … …  
    8686         INTEGER (kind = C_INT)     , VALUE        :: mask_extent1 
    8787         INTEGER (kind = C_INT)     , VALUE        :: mask_extent2 
    88       END SUBROUTINE xios_set_domain_mask 
    89  
    90       SUBROUTINE xios_set_domain_data_dim(domain_hdl, data_dim) BIND(C) 
     88      END SUBROUTINE cxios_set_domain_mask 
     89 
     90      SUBROUTINE cxios_set_domain_data_dim(domain_hdl, data_dim) BIND(C) 
    9191         USE ISO_C_BINDING 
    9292         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    9393         INTEGER (kind = C_INT)     , VALUE :: data_dim 
    94       END SUBROUTINE xios_set_domain_data_dim 
    95  
    96       SUBROUTINE xios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) 
     94      END SUBROUTINE cxios_set_domain_data_dim 
     95 
     96      SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) 
    9797         USE ISO_C_BINDING 
    9898         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    9999         INTEGER (kind = C_INT)     , VALUE :: data_ni 
    100       END SUBROUTINE xios_set_domain_data_ni 
    101  
    102       SUBROUTINE xios_set_domain_data_nj(domain_hdl, data_nj) BIND(C) 
     100      END SUBROUTINE cxios_set_domain_data_ni 
     101 
     102      SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C) 
    103103         USE ISO_C_BINDING 
    104104         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    105105         INTEGER (kind = C_INT)     , VALUE :: data_nj 
    106       END SUBROUTINE xios_set_domain_data_nj 
    107  
    108       SUBROUTINE xios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C) 
     106      END SUBROUTINE cxios_set_domain_data_nj 
     107 
     108      SUBROUTINE cxios_set_domain_data_ibegin(domain_hdl, data_ibegin) BIND(C) 
    109109         USE ISO_C_BINDING 
    110110         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    111111         INTEGER (kind = C_INT)     , VALUE :: data_ibegin 
    112       END SUBROUTINE xios_set_domain_data_ibegin 
    113  
    114       SUBROUTINE xios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C) 
     112      END SUBROUTINE cxios_set_domain_data_ibegin 
     113 
     114      SUBROUTINE cxios_set_domain_data_jbegin(domain_hdl, data_jbegin) BIND(C) 
    115115         USE ISO_C_BINDING 
    116116         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    117117         INTEGER (kind = C_INT)     , VALUE :: data_jbegin 
    118       END SUBROUTINE xios_set_domain_data_jbegin 
    119  
    120       SUBROUTINE xios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) 
     118      END SUBROUTINE cxios_set_domain_data_jbegin 
     119 
     120      SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) 
    121121         USE ISO_C_BINDING 
    122122         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    123123         INTEGER (kind = C_INT)     , VALUE :: zoom_ni 
    124       END SUBROUTINE xios_set_domain_zoom_ni 
    125  
    126       SUBROUTINE xios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) 
     124      END SUBROUTINE cxios_set_domain_zoom_ni 
     125 
     126      SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) 
    127127         USE ISO_C_BINDING 
    128128         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    129129         INTEGER (kind = C_INT)     , VALUE :: zoom_nj 
    130       END SUBROUTINE xios_set_domain_zoom_nj 
    131  
    132       SUBROUTINE xios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) 
     130      END SUBROUTINE cxios_set_domain_zoom_nj 
     131 
     132      SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) 
    133133         USE ISO_C_BINDING 
    134134         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    135135         INTEGER (kind = C_INT)     , VALUE :: zoom_ibegin 
    136       END SUBROUTINE xios_set_domain_zoom_ibegin 
    137  
    138       SUBROUTINE xios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) 
     136      END SUBROUTINE cxios_set_domain_zoom_ibegin 
     137 
     138      SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) 
    139139         USE ISO_C_BINDING 
    140140         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    141141         INTEGER (kind = C_INT)     , VALUE :: zoom_jbegin 
    142       END SUBROUTINE xios_set_domain_zoom_jbegin 
    143  
    144       SUBROUTINE xios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) 
     142      END SUBROUTINE cxios_set_domain_zoom_jbegin 
     143 
     144      SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) 
    145145         USE ISO_C_BINDING 
    146146         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    147147         INTEGER (kind = C_INT)     , VALUE :: zoom_ni_loc 
    148       END SUBROUTINE xios_set_domain_zoom_ni_loc 
    149  
    150       SUBROUTINE xios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) 
     148      END SUBROUTINE cxios_set_domain_zoom_ni_loc 
     149 
     150      SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) 
    151151         USE ISO_C_BINDING 
    152152         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    153153         INTEGER (kind = C_INT)     , VALUE :: zoom_nj_loc 
    154       END SUBROUTINE xios_set_domain_zoom_nj_loc 
    155  
    156       SUBROUTINE xios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) 
     154      END SUBROUTINE cxios_set_domain_zoom_nj_loc 
     155 
     156      SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) 
    157157         USE ISO_C_BINDING 
    158158         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    159159         INTEGER (kind = C_INT)     , VALUE :: zoom_ibegin_loc 
    160       END SUBROUTINE xios_set_domain_zoom_ibegin_loc 
    161  
    162       SUBROUTINE xios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) 
     160      END SUBROUTINE cxios_set_domain_zoom_ibegin_loc 
     161 
     162      SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) 
    163163         USE ISO_C_BINDING 
    164164         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    165165         INTEGER (kind = C_INT)     , VALUE :: zoom_jbegin_loc 
    166       END SUBROUTINE xios_set_domain_zoom_jbegin_loc 
    167  
    168       SUBROUTINE xios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) 
     166      END SUBROUTINE cxios_set_domain_zoom_jbegin_loc 
     167 
     168      SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) 
    169169         USE ISO_C_BINDING 
    170170         INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    171171         INTEGER (kind = C_INT)     , VALUE :: data_n_index 
    172       END SUBROUTINE xios_set_domain_data_n_index 
    173  
    174       SUBROUTINE xios_set_domain_data_i_index(domain_hdl, data_i_index, data_i_index_extent1) BIND(C) 
     172      END SUBROUTINE cxios_set_domain_data_n_index 
     173 
     174      SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, data_i_index_extent1) BIND(C) 
    175175         USE ISO_C_BINDING 
    176176         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    177177         INTEGER (kind = C_INT)     , DIMENSION(*) :: data_i_index 
    178178         INTEGER (kind = C_INT)     , VALUE        :: data_i_index_extent1 
    179       END SUBROUTINE xios_set_domain_data_i_index 
    180  
    181       SUBROUTINE xios_set_domain_data_j_index(domain_hdl, data_j_index, data_j_index_extent1) BIND(C) 
     179      END SUBROUTINE cxios_set_domain_data_i_index 
     180 
     181      SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, data_j_index_extent1) BIND(C) 
    182182         USE ISO_C_BINDING 
    183183         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    184184         INTEGER (kind = C_INT)     , DIMENSION(*) :: data_j_index 
    185185         INTEGER (kind = C_INT)     , VALUE        :: data_j_index_extent1 
    186       END SUBROUTINE xios_set_domain_data_j_index 
    187  
    188       SUBROUTINE xios_set_domain_lonvalue(domain_hdl, lonvalue, lonvalue_extent1) BIND(C) 
     186      END SUBROUTINE cxios_set_domain_data_j_index 
     187 
     188      SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, lonvalue_extent1) BIND(C) 
    189189         USE ISO_C_BINDING 
    190190         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    191191         REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: lonvalue 
    192192         INTEGER (kind = C_INT)     , VALUE        :: lonvalue_extent1 
    193       END SUBROUTINE xios_set_domain_lonvalue 
    194  
    195       SUBROUTINE xios_set_domain_latvalue(domain_hdl, latvalue, latvalue_extent1) BIND(C) 
     193      END SUBROUTINE cxios_set_domain_lonvalue 
     194 
     195      SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, latvalue_extent1) BIND(C) 
    196196         USE ISO_C_BINDING 
    197197         INTEGER (kind = C_INTPTR_T), VALUE        :: domain_hdl 
    198198         REAL    (kind = C_DOUBLE)  , DIMENSION(*) :: latvalue 
    199199         INTEGER (kind = C_INT)     , VALUE        :: latvalue_extent1 
    200       END SUBROUTINE xios_set_domain_latvalue 
    201         
    202       SUBROUTINE xios_domain_handle_create(ret, idt, idt_size) BIND(C) 
     200      END SUBROUTINE cxios_set_domain_latvalue 
     201        
     202      SUBROUTINE cxios_domain_handle_create(ret, idt, idt_size) BIND(C) 
    203203         USE ISO_C_BINDING 
    204204         INTEGER  (kind = C_INTPTR_T)               :: ret 
    205205         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    206206         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    207       END SUBROUTINE xios_domain_handle_create 
    208  
    209       SUBROUTINE xios_domain_valid_id(ret, idt, idt_size) BIND(C) 
     207      END SUBROUTINE cxios_domain_handle_create 
     208 
     209      SUBROUTINE cxios_domain_valid_id(ret, idt, idt_size) BIND(C) 
    210210         USE ISO_C_BINDING 
    211211         LOGICAL  (kind = C_BOOL)                   :: ret 
    212212         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    213213         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    214       END SUBROUTINE xios_domain_valid_id 
     214      END SUBROUTINE cxios_domain_valid_id 
    215215 
    216216   END INTERFACE 
Note: See TracChangeset for help on using the changeset viewer.