Ignore:
Timestamp:
11/04/15 15:50:20 (8 years ago)
Author:
rlacroix
Message:

Update the Fortran API.

It had been forgotten in recent changes.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r674 r779  
    1313  SUBROUTINE xios(set_axisgroup_attr)  & 
    1414    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    15     , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     15    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    1616 
    1717    IMPLICIT NONE 
    … …  
    2929      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) 
    3030      INTEGER  , OPTIONAL, INTENT(IN) :: n 
     31      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition 
    3132      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo 
    3233      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    … …  
    3940      CALL xios(set_axisgroup_attr_hdl_)   & 
    4041      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    41       , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     42      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    4243 
    4344  END SUBROUTINE xios(set_axisgroup_attr) 
    … …  
    4546  SUBROUTINE xios(set_axisgroup_attr_hdl)  & 
    4647    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    47     , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     48    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    4849 
    4950    IMPLICIT NONE 
    … …  
    6061      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) 
    6162      INTEGER  , OPTIONAL, INTENT(IN) :: n 
     63      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition 
    6264      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo 
    6365      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    … …  
    6971      CALL xios(set_axisgroup_attr_hdl_)  & 
    7072      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    71       , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     73      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    7274 
    7375  END SUBROUTINE xios(set_axisgroup_attr_hdl) 
    … …  
    7577  SUBROUTINE xios(set_axisgroup_attr_hdl_)   & 
    7678    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, long_name_  & 
    77     , mask_, n_, n_glo_, name_, positive_, standard_name_, unit_, value_ ) 
     79    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  & 
     80     ) 
    7881 
    7982    IMPLICIT NONE 
    … …  
    9093      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:) 
    9194      INTEGER  , OPTIONAL, INTENT(IN) :: n_ 
     95      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition_ 
    9296      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo_ 
    9397      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
    … …  
    139143      ENDIF 
    140144 
     145      IF (PRESENT(n_distributed_partition_)) THEN 
     146        CALL cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl%daddr, n_distributed_partition_) 
     147      ENDIF 
     148 
    141149      IF (PRESENT(n_glo_)) THEN 
    142150        CALL cxios_set_axisgroup_n_glo(axisgroup_hdl%daddr, n_glo_) 
    … …  
    167175  SUBROUTINE xios(get_axisgroup_attr)  & 
    168176    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    169     , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     177    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    170178 
    171179    IMPLICIT NONE 
    … …  
    183191      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) 
    184192      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
     193      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition 
    185194      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo 
    186195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    … …  
    193202      CALL xios(get_axisgroup_attr_hdl_)   & 
    194203      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    195       , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     204      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    196205 
    197206  END SUBROUTINE xios(get_axisgroup_attr) 
    … …  
    199208  SUBROUTINE xios(get_axisgroup_attr_hdl)  & 
    200209    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    201     , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     210    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    202211 
    203212    IMPLICIT NONE 
    … …  
    214223      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:) 
    215224      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
     225      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition 
    216226      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo 
    217227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    … …  
    223233      CALL xios(get_axisgroup_attr_hdl_)  & 
    224234      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    225       , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     235      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    226236 
    227237  END SUBROUTINE xios(get_axisgroup_attr_hdl) 
    … …  
    229239  SUBROUTINE xios(get_axisgroup_attr_hdl_)   & 
    230240    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, long_name_  & 
    231     , mask_, n_, n_glo_, name_, positive_, standard_name_, unit_, value_ ) 
     241    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  & 
     242     ) 
    232243 
    233244    IMPLICIT NONE 
    … …  
    244255      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:) 
    245256      INTEGER  , OPTIONAL, INTENT(OUT) :: n_ 
     257      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition_ 
    246258      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo_ 
    247259      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
    … …  
    293305      ENDIF 
    294306 
     307      IF (PRESENT(n_distributed_partition_)) THEN 
     308        CALL cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl%daddr, n_distributed_partition_) 
     309      ENDIF 
     310 
    295311      IF (PRESENT(n_glo_)) THEN 
    296312        CALL cxios_get_axisgroup_n_glo(axisgroup_hdl%daddr, n_glo_) 
    … …  
    321337  SUBROUTINE xios(is_defined_axisgroup_attr)  & 
    322338    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    323     , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     339    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    324340 
    325341    IMPLICIT NONE 
    … …  
    346362      LOGICAL, OPTIONAL, INTENT(OUT) :: n 
    347363      LOGICAL(KIND=C_BOOL) :: n_tmp 
     364      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition 
     365      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp 
    348366      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo 
    349367      LOGICAL(KIND=C_BOOL) :: n_glo_tmp 
    … …  
    362380      CALL xios(is_defined_axisgroup_attr_hdl_)   & 
    363381      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    364       , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     382      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    365383 
    366384  END SUBROUTINE xios(is_defined_axisgroup_attr) 
    … …  
    368386  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  & 
    369387    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    370     , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     388    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    371389 
    372390    IMPLICIT NONE 
    … …  
    392410      LOGICAL, OPTIONAL, INTENT(OUT) :: n 
    393411      LOGICAL(KIND=C_BOOL) :: n_tmp 
     412      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition 
     413      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp 
    394414      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo 
    395415      LOGICAL(KIND=C_BOOL) :: n_glo_tmp 
    … …  
    407427      CALL xios(is_defined_axisgroup_attr_hdl_)  & 
    408428      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, long_name  & 
    409       , mask, n, n_glo, name, positive, standard_name, unit, value ) 
     429      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
    410430 
    411431  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) 
    … …  
    413433  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   & 
    414434    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, long_name_  & 
    415     , mask_, n_, n_glo_, name_, positive_, standard_name_, unit_, value_ ) 
     435    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  & 
     436     ) 
    416437 
    417438    IMPLICIT NONE 
    … …  
    437458      LOGICAL, OPTIONAL, INTENT(OUT) :: n_ 
    438459      LOGICAL(KIND=C_BOOL) :: n__tmp 
     460      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_ 
     461      LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp 
    439462      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_ 
    440463      LOGICAL(KIND=C_BOOL) :: n_glo__tmp 
    … …  
    500523      ENDIF 
    501524 
     525      IF (PRESENT(n_distributed_partition_)) THEN 
     526        n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl%daddr) 
     527        n_distributed_partition_ = n_distributed_partition__tmp 
     528      ENDIF 
     529 
    502530      IF (PRESENT(n_glo_)) THEN 
    503531        n_glo__tmp = cxios_is_defined_axisgroup_n_glo(axisgroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.