Ignore:
Timestamp:
08/24/15 14:53:17 (9 years ago)
Author:
mhnguyen
Message:

Changing some domain attributes

+) Longitude and latitude from now on can be 2 dimension array

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.F90

    r657 r664  
    3333 
    3434 
    35     SUBROUTINE cxios_set_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C) 
    36       USE ISO_C_BINDING 
    37       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    38       REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat 
    39       INTEGER (kind = C_INT), VALUE  :: extent1 
    40       INTEGER (kind = C_INT), VALUE  :: extent2 
    41     END SUBROUTINE cxios_set_domain_bounds_lat 
    42  
    43     SUBROUTINE cxios_get_domain_bounds_lat(domain_hdl, bounds_lat, extent1, extent2) BIND(C) 
    44       USE ISO_C_BINDING 
    45       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    46       REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat 
    47       INTEGER (kind = C_INT), VALUE  :: extent1 
    48       INTEGER (kind = C_INT), VALUE  :: extent2 
    49     END SUBROUTINE cxios_get_domain_bounds_lat 
    50  
    51     FUNCTION cxios_is_defined_domain_bounds_lat(domain_hdl) BIND(C) 
    52       USE ISO_C_BINDING 
    53       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat 
    54       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    55     END FUNCTION cxios_is_defined_domain_bounds_lat 
    56  
    57  
    58     SUBROUTINE cxios_set_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C) 
    59       USE ISO_C_BINDING 
    60       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    61       REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon 
    62       INTEGER (kind = C_INT), VALUE  :: extent1 
    63       INTEGER (kind = C_INT), VALUE  :: extent2 
    64     END SUBROUTINE cxios_set_domain_bounds_lon 
    65  
    66     SUBROUTINE cxios_get_domain_bounds_lon(domain_hdl, bounds_lon, extent1, extent2) BIND(C) 
    67       USE ISO_C_BINDING 
    68       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    69       REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon 
    70       INTEGER (kind = C_INT), VALUE  :: extent1 
    71       INTEGER (kind = C_INT), VALUE  :: extent2 
    72     END SUBROUTINE cxios_get_domain_bounds_lon 
    73  
    74     FUNCTION cxios_is_defined_domain_bounds_lon(domain_hdl) BIND(C) 
    75       USE ISO_C_BINDING 
    76       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon 
    77       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    78     END FUNCTION cxios_is_defined_domain_bounds_lon 
     35    SUBROUTINE cxios_set_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent1, extent2) BIND(C) 
     36      USE ISO_C_BINDING 
     37      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     38      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d 
     39      INTEGER (kind = C_INT), VALUE  :: extent1 
     40      INTEGER (kind = C_INT), VALUE  :: extent2 
     41    END SUBROUTINE cxios_set_domain_bounds_lat_1d 
     42 
     43    SUBROUTINE cxios_get_domain_bounds_lat_1d(domain_hdl, bounds_lat_1d, extent1, extent2) BIND(C) 
     44      USE ISO_C_BINDING 
     45      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     46      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_1d 
     47      INTEGER (kind = C_INT), VALUE  :: extent1 
     48      INTEGER (kind = C_INT), VALUE  :: extent2 
     49    END SUBROUTINE cxios_get_domain_bounds_lat_1d 
     50 
     51    FUNCTION cxios_is_defined_domain_bounds_lat_1d(domain_hdl) BIND(C) 
     52      USE ISO_C_BINDING 
     53      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_1d 
     54      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     55    END FUNCTION cxios_is_defined_domain_bounds_lat_1d 
     56 
     57 
     58    SUBROUTINE cxios_set_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C) 
     59      USE ISO_C_BINDING 
     60      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     61      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d 
     62      INTEGER (kind = C_INT), VALUE  :: extent1 
     63      INTEGER (kind = C_INT), VALUE  :: extent2 
     64      INTEGER (kind = C_INT), VALUE  :: extent3 
     65    END SUBROUTINE cxios_set_domain_bounds_lat_2d 
     66 
     67    SUBROUTINE cxios_get_domain_bounds_lat_2d(domain_hdl, bounds_lat_2d, extent1, extent2, extent3) BIND(C) 
     68      USE ISO_C_BINDING 
     69      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     70      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lat_2d 
     71      INTEGER (kind = C_INT), VALUE  :: extent1 
     72      INTEGER (kind = C_INT), VALUE  :: extent2 
     73      INTEGER (kind = C_INT), VALUE  :: extent3 
     74    END SUBROUTINE cxios_get_domain_bounds_lat_2d 
     75 
     76    FUNCTION cxios_is_defined_domain_bounds_lat_2d(domain_hdl) BIND(C) 
     77      USE ISO_C_BINDING 
     78      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lat_2d 
     79      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     80    END FUNCTION cxios_is_defined_domain_bounds_lat_2d 
     81 
     82 
     83    SUBROUTINE cxios_set_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent1, extent2) BIND(C) 
     84      USE ISO_C_BINDING 
     85      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     86      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d 
     87      INTEGER (kind = C_INT), VALUE  :: extent1 
     88      INTEGER (kind = C_INT), VALUE  :: extent2 
     89    END SUBROUTINE cxios_set_domain_bounds_lon_1d 
     90 
     91    SUBROUTINE cxios_get_domain_bounds_lon_1d(domain_hdl, bounds_lon_1d, extent1, extent2) BIND(C) 
     92      USE ISO_C_BINDING 
     93      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     94      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_1d 
     95      INTEGER (kind = C_INT), VALUE  :: extent1 
     96      INTEGER (kind = C_INT), VALUE  :: extent2 
     97    END SUBROUTINE cxios_get_domain_bounds_lon_1d 
     98 
     99    FUNCTION cxios_is_defined_domain_bounds_lon_1d(domain_hdl) BIND(C) 
     100      USE ISO_C_BINDING 
     101      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_1d 
     102      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     103    END FUNCTION cxios_is_defined_domain_bounds_lon_1d 
     104 
     105 
     106    SUBROUTINE cxios_set_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C) 
     107      USE ISO_C_BINDING 
     108      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     109      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d 
     110      INTEGER (kind = C_INT), VALUE  :: extent1 
     111      INTEGER (kind = C_INT), VALUE  :: extent2 
     112      INTEGER (kind = C_INT), VALUE  :: extent3 
     113    END SUBROUTINE cxios_set_domain_bounds_lon_2d 
     114 
     115    SUBROUTINE cxios_get_domain_bounds_lon_2d(domain_hdl, bounds_lon_2d, extent1, extent2, extent3) BIND(C) 
     116      USE ISO_C_BINDING 
     117      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     118      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds_lon_2d 
     119      INTEGER (kind = C_INT), VALUE  :: extent1 
     120      INTEGER (kind = C_INT), VALUE  :: extent2 
     121      INTEGER (kind = C_INT), VALUE  :: extent3 
     122    END SUBROUTINE cxios_get_domain_bounds_lon_2d 
     123 
     124    FUNCTION cxios_is_defined_domain_bounds_lon_2d(domain_hdl) BIND(C) 
     125      USE ISO_C_BINDING 
     126      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_bounds_lon_2d 
     127      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     128    END FUNCTION cxios_is_defined_domain_bounds_lon_2d 
    79129 
    80130 
    … …  
    357407 
    358408 
    359     SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) 
    360       USE ISO_C_BINDING 
    361       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    362       REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue 
    363       INTEGER (kind = C_INT), VALUE  :: extent1 
    364     END SUBROUTINE cxios_set_domain_latvalue 
    365  
    366     SUBROUTINE cxios_get_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) 
    367       USE ISO_C_BINDING 
    368       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    369       REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue 
    370       INTEGER (kind = C_INT), VALUE  :: extent1 
    371     END SUBROUTINE cxios_get_domain_latvalue 
    372  
    373     FUNCTION cxios_is_defined_domain_latvalue(domain_hdl) BIND(C) 
    374       USE ISO_C_BINDING 
    375       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue 
    376       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    377     END FUNCTION cxios_is_defined_domain_latvalue 
     409    SUBROUTINE cxios_set_domain_latvalue_1d(domain_hdl, latvalue_1d, extent1) BIND(C) 
     410      USE ISO_C_BINDING 
     411      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     412      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d 
     413      INTEGER (kind = C_INT), VALUE  :: extent1 
     414    END SUBROUTINE cxios_set_domain_latvalue_1d 
     415 
     416    SUBROUTINE cxios_get_domain_latvalue_1d(domain_hdl, latvalue_1d, extent1) BIND(C) 
     417      USE ISO_C_BINDING 
     418      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     419      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_1d 
     420      INTEGER (kind = C_INT), VALUE  :: extent1 
     421    END SUBROUTINE cxios_get_domain_latvalue_1d 
     422 
     423    FUNCTION cxios_is_defined_domain_latvalue_1d(domain_hdl) BIND(C) 
     424      USE ISO_C_BINDING 
     425      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_1d 
     426      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     427    END FUNCTION cxios_is_defined_domain_latvalue_1d 
     428 
     429 
     430    SUBROUTINE cxios_set_domain_latvalue_2d(domain_hdl, latvalue_2d, extent1, extent2) BIND(C) 
     431      USE ISO_C_BINDING 
     432      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     433      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d 
     434      INTEGER (kind = C_INT), VALUE  :: extent1 
     435      INTEGER (kind = C_INT), VALUE  :: extent2 
     436    END SUBROUTINE cxios_set_domain_latvalue_2d 
     437 
     438    SUBROUTINE cxios_get_domain_latvalue_2d(domain_hdl, latvalue_2d, extent1, extent2) BIND(C) 
     439      USE ISO_C_BINDING 
     440      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     441      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: latvalue_2d 
     442      INTEGER (kind = C_INT), VALUE  :: extent1 
     443      INTEGER (kind = C_INT), VALUE  :: extent2 
     444    END SUBROUTINE cxios_get_domain_latvalue_2d 
     445 
     446    FUNCTION cxios_is_defined_domain_latvalue_2d(domain_hdl) BIND(C) 
     447      USE ISO_C_BINDING 
     448      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue_2d 
     449      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     450    END FUNCTION cxios_is_defined_domain_latvalue_2d 
    378451 
    379452 
    … …  
    399472 
    400473 
    401     SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) 
    402       USE ISO_C_BINDING 
    403       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    404       REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue 
    405       INTEGER (kind = C_INT), VALUE  :: extent1 
    406     END SUBROUTINE cxios_set_domain_lonvalue 
    407  
    408     SUBROUTINE cxios_get_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) 
    409       USE ISO_C_BINDING 
    410       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    411       REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue 
    412       INTEGER (kind = C_INT), VALUE  :: extent1 
    413     END SUBROUTINE cxios_get_domain_lonvalue 
    414  
    415     FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl) BIND(C) 
    416       USE ISO_C_BINDING 
    417       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue 
    418       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    419     END FUNCTION cxios_is_defined_domain_lonvalue 
    420  
    421  
    422     SUBROUTINE cxios_set_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C) 
    423       USE ISO_C_BINDING 
    424       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    425       LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask 
    426       INTEGER (kind = C_INT), VALUE  :: extent1 
    427       INTEGER (kind = C_INT), VALUE  :: extent2 
    428     END SUBROUTINE cxios_set_domain_mask 
    429  
    430     SUBROUTINE cxios_get_domain_mask(domain_hdl, mask, extent1, extent2) BIND(C) 
    431       USE ISO_C_BINDING 
    432       INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
    433       LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask 
    434       INTEGER (kind = C_INT), VALUE  :: extent1 
    435       INTEGER (kind = C_INT), VALUE  :: extent2 
    436     END SUBROUTINE cxios_get_domain_mask 
    437  
    438     FUNCTION cxios_is_defined_domain_mask(domain_hdl) BIND(C) 
    439       USE ISO_C_BINDING 
    440       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask 
    441       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    442     END FUNCTION cxios_is_defined_domain_mask 
     474    SUBROUTINE cxios_set_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent1) BIND(C) 
     475      USE ISO_C_BINDING 
     476      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     477      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d 
     478      INTEGER (kind = C_INT), VALUE  :: extent1 
     479    END SUBROUTINE cxios_set_domain_lonvalue_1d 
     480 
     481    SUBROUTINE cxios_get_domain_lonvalue_1d(domain_hdl, lonvalue_1d, extent1) BIND(C) 
     482      USE ISO_C_BINDING 
     483      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     484      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_1d 
     485      INTEGER (kind = C_INT), VALUE  :: extent1 
     486    END SUBROUTINE cxios_get_domain_lonvalue_1d 
     487 
     488    FUNCTION cxios_is_defined_domain_lonvalue_1d(domain_hdl) BIND(C) 
     489      USE ISO_C_BINDING 
     490      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_1d 
     491      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     492    END FUNCTION cxios_is_defined_domain_lonvalue_1d 
     493 
     494 
     495    SUBROUTINE cxios_set_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent1, extent2) BIND(C) 
     496      USE ISO_C_BINDING 
     497      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     498      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d 
     499      INTEGER (kind = C_INT), VALUE  :: extent1 
     500      INTEGER (kind = C_INT), VALUE  :: extent2 
     501    END SUBROUTINE cxios_set_domain_lonvalue_2d 
     502 
     503    SUBROUTINE cxios_get_domain_lonvalue_2d(domain_hdl, lonvalue_2d, extent1, extent2) BIND(C) 
     504      USE ISO_C_BINDING 
     505      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     506      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: lonvalue_2d 
     507      INTEGER (kind = C_INT), VALUE  :: extent1 
     508      INTEGER (kind = C_INT), VALUE  :: extent2 
     509    END SUBROUTINE cxios_get_domain_lonvalue_2d 
     510 
     511    FUNCTION cxios_is_defined_domain_lonvalue_2d(domain_hdl) BIND(C) 
     512      USE ISO_C_BINDING 
     513      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue_2d 
     514      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     515    END FUNCTION cxios_is_defined_domain_lonvalue_2d 
     516 
     517 
     518    SUBROUTINE cxios_set_domain_mask_1d(domain_hdl, mask_1d, extent1) BIND(C) 
     519      USE ISO_C_BINDING 
     520      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     521      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d 
     522      INTEGER (kind = C_INT), VALUE  :: extent1 
     523    END SUBROUTINE cxios_set_domain_mask_1d 
     524 
     525    SUBROUTINE cxios_get_domain_mask_1d(domain_hdl, mask_1d, extent1) BIND(C) 
     526      USE ISO_C_BINDING 
     527      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     528      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_1d 
     529      INTEGER (kind = C_INT), VALUE  :: extent1 
     530    END SUBROUTINE cxios_get_domain_mask_1d 
     531 
     532    FUNCTION cxios_is_defined_domain_mask_1d(domain_hdl) BIND(C) 
     533      USE ISO_C_BINDING 
     534      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_1d 
     535      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     536    END FUNCTION cxios_is_defined_domain_mask_1d 
     537 
     538 
     539    SUBROUTINE cxios_set_domain_mask_2d(domain_hdl, mask_2d, extent1, extent2) BIND(C) 
     540      USE ISO_C_BINDING 
     541      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     542      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d 
     543      INTEGER (kind = C_INT), VALUE  :: extent1 
     544      INTEGER (kind = C_INT), VALUE  :: extent2 
     545    END SUBROUTINE cxios_set_domain_mask_2d 
     546 
     547    SUBROUTINE cxios_get_domain_mask_2d(domain_hdl, mask_2d, extent1, extent2) BIND(C) 
     548      USE ISO_C_BINDING 
     549      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     550      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask_2d 
     551      INTEGER (kind = C_INT), VALUE  :: extent1 
     552      INTEGER (kind = C_INT), VALUE  :: extent2 
     553    END SUBROUTINE cxios_get_domain_mask_2d 
     554 
     555    FUNCTION cxios_is_defined_domain_mask_2d(domain_hdl) BIND(C) 
     556      USE ISO_C_BINDING 
     557      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask_2d 
     558      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     559    END FUNCTION cxios_is_defined_domain_mask_2d 
    443560 
    444561 
Note: See TracChangeset for help on using the changeset viewer.