Ignore:
Timestamp:
12/17/18 10:19:12 (5 years ago)
Author:
oabramkina
Message:

Trunk: limiting the line length to 132 characters in the Fortran interface + updating the interface.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

    r1492 r1626  
    1616    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    1717    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    18     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     18    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    1919 
    2020    IMPLICIT NONE 
     
    6262      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    6363      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
     64      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    6465      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    6566      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     
    7273      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    7374      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    74       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     75      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    7576 
    7677  END SUBROUTINE xios(set_domaingroup_attr) 
     
    8182    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    8283    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    83     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     84    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    8485 
    8586    IMPLICIT NONE 
     
    126127      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    127128      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
     129      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    128130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    129131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
     
    134136      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    135137      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    136       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     138      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    137139 
    138140  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
     
    143145    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    144146    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    145     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  & 
    146     ) 
     147    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
     148    , type_ ) 
    147149 
    148150    IMPLICIT NONE 
     
    189191      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
    190192      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
     193      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    191194      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
    192195      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
     
    391394      ENDIF 
    392395 
     396      IF (PRESENT(radius_)) THEN 
     397        CALL cxios_set_domaingroup_radius & 
     398      (domaingroup_hdl%daddr, radius_) 
     399      ENDIF 
     400 
    393401      IF (PRESENT(standard_name_)) THEN 
    394402        CALL cxios_set_domaingroup_standard_name & 
     
    408416    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    409417    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    410     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     418    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    411419 
    412420    IMPLICIT NONE 
     
    454462      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    455463      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
     464      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    456465      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    457466      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     
    464473      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    465474      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    466       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     475      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    467476 
    468477  END SUBROUTINE xios(get_domaingroup_attr) 
     
    473482    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    474483    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    475     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     484    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    476485 
    477486    IMPLICIT NONE 
     
    518527      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    519528      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
     529      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    520530      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    521531      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
     
    526536      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    527537      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    528       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     538      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    529539 
    530540  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
     
    535545    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    536546    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    537     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  & 
    538     ) 
     547    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
     548    , type_ ) 
    539549 
    540550    IMPLICIT NONE 
     
    581591      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
    582592      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
     593      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    583594      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
    584595      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
     
    783794      ENDIF 
    784795 
     796      IF (PRESENT(radius_)) THEN 
     797        CALL cxios_get_domaingroup_radius & 
     798      (domaingroup_hdl%daddr, radius_) 
     799      ENDIF 
     800 
    785801      IF (PRESENT(standard_name_)) THEN 
    786802        CALL cxios_get_domaingroup_standard_name & 
     
    800816    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    801817    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    802     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     818    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    803819 
    804820    IMPLICIT NONE 
     
    883899      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    884900      LOGICAL(KIND=C_BOOL) :: prec_tmp 
     901      LOGICAL, OPTIONAL, INTENT(OUT) :: radius 
     902      LOGICAL(KIND=C_BOOL) :: radius_tmp 
    885903      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    886904      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     
    895913      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    896914      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    897       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     915      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    898916 
    899917  END SUBROUTINE xios(is_defined_domaingroup_attr) 
     
    904922    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    905923    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    906     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     924    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    907925 
    908926    IMPLICIT NONE 
     
    9861004      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
    9871005      LOGICAL(KIND=C_BOOL) :: prec_tmp 
     1006      LOGICAL, OPTIONAL, INTENT(OUT) :: radius 
     1007      LOGICAL(KIND=C_BOOL) :: radius_tmp 
    9881008      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    9891009      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     
    9961016      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    9971017      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    998       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type ) 
     1018      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
    9991019 
    10001020  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
     
    10051025    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    10061026    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    1007     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  & 
    1008     ) 
     1027    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
     1028    , type_ ) 
    10091029 
    10101030    IMPLICIT NONE 
     
    10881108      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
    10891109      LOGICAL(KIND=C_BOOL) :: prec__tmp 
     1110      LOGICAL, OPTIONAL, INTENT(OUT) :: radius_ 
     1111      LOGICAL(KIND=C_BOOL) :: radius__tmp 
    10901112      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    10911113      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     
    13271349      ENDIF 
    13281350 
     1351      IF (PRESENT(radius_)) THEN 
     1352        radius__tmp = cxios_is_defined_domaingroup_radius & 
     1353      (domaingroup_hdl%daddr) 
     1354        radius_ = radius__tmp 
     1355      ENDIF 
     1356 
    13291357      IF (PRESENT(standard_name_)) THEN 
    13301358        standard_name__tmp = cxios_is_defined_domaingroup_standard_name & 
Note: See TracChangeset for help on using the changeset viewer.