Ignore:
Timestamp:
06/03/13 11:21:19 (11 years ago)
Author:
ymipsl
Message:

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r326 r432  
    569569  END SUBROUTINE xios(get_domaingroup_attr_hdl_) 
    570570   
     571  SUBROUTINE xios(is_defined_domaingroup_attr)  & 
     572    ( domaingroup_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  & 
     573    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
     574    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  & 
     575    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     576     
     577    IMPLICIT NONE 
     578      TYPE(txios(domaingroup))  :: domaingroup_hdl 
     579      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 
     580      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 
     581      LOGICAL(KIND=C_BOOL) :: data_dim_tmp 
     582      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 
     583      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 
     584      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 
     585      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 
     586      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 
     587      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 
     588      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 
     589      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 
     590      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 
     591      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 
     592      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 
     593      LOGICAL(KIND=C_BOOL) :: data_ni_tmp 
     594      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 
     595      LOGICAL(KIND=C_BOOL) :: data_nj_tmp 
     596      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 
     597      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 
     598      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
     599      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     600      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
     601      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
     602      LOGICAL, OPTIONAL, INTENT(OUT) :: iend 
     603      LOGICAL(KIND=C_BOOL) :: iend_tmp 
     604      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
     605      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
     606      LOGICAL, OPTIONAL, INTENT(OUT) :: jend 
     607      LOGICAL(KIND=C_BOOL) :: jend_tmp 
     608      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 
     609      LOGICAL(KIND=C_BOOL) :: latvalue_tmp 
     610      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
     611      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
     612      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 
     613      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 
     614      LOGICAL, OPTIONAL, INTENT(OUT) :: mask 
     615      LOGICAL(KIND=C_BOOL) :: mask_tmp 
     616      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
     617      LOGICAL(KIND=C_BOOL) :: name_tmp 
     618      LOGICAL, OPTIONAL, INTENT(OUT) :: ni 
     619      LOGICAL(KIND=C_BOOL) :: ni_tmp 
     620      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 
     621      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 
     622      LOGICAL, OPTIONAL, INTENT(OUT) :: nj 
     623      LOGICAL(KIND=C_BOOL) :: nj_tmp 
     624      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
     625      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     626      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
     627      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     628      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 
     629      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 
     630      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 
     631      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 
     632      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 
     633      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 
     634      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 
     635      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 
     636      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 
     637      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 
     638      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 
     639      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 
     640      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 
     641      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 
     642      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 
     643      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 
     644       
     645      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
     646      CALL xios(is_defined_domaingroup_attr_hdl_)   & 
     647      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  & 
     648      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
     649      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  & 
     650      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     651     
     652  END SUBROUTINE xios(is_defined_domaingroup_attr) 
     653   
     654  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  & 
     655    ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  & 
     656    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
     657    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  & 
     658    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     659     
     660    IMPLICIT NONE 
     661      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
     662      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 
     663      LOGICAL(KIND=C_BOOL) :: data_dim_tmp 
     664      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index 
     665      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp 
     666      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin 
     667      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp 
     668      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index 
     669      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp 
     670      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin 
     671      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp 
     672      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index 
     673      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp 
     674      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni 
     675      LOGICAL(KIND=C_BOOL) :: data_ni_tmp 
     676      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 
     677      LOGICAL(KIND=C_BOOL) :: data_nj_tmp 
     678      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 
     679      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 
     680      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
     681      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     682      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin 
     683      LOGICAL(KIND=C_BOOL) :: ibegin_tmp 
     684      LOGICAL, OPTIONAL, INTENT(OUT) :: iend 
     685      LOGICAL(KIND=C_BOOL) :: iend_tmp 
     686      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
     687      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
     688      LOGICAL, OPTIONAL, INTENT(OUT) :: jend 
     689      LOGICAL(KIND=C_BOOL) :: jend_tmp 
     690      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 
     691      LOGICAL(KIND=C_BOOL) :: latvalue_tmp 
     692      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
     693      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
     694      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 
     695      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 
     696      LOGICAL, OPTIONAL, INTENT(OUT) :: mask 
     697      LOGICAL(KIND=C_BOOL) :: mask_tmp 
     698      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
     699      LOGICAL(KIND=C_BOOL) :: name_tmp 
     700      LOGICAL, OPTIONAL, INTENT(OUT) :: ni 
     701      LOGICAL(KIND=C_BOOL) :: ni_tmp 
     702      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo 
     703      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp 
     704      LOGICAL, OPTIONAL, INTENT(OUT) :: nj 
     705      LOGICAL(KIND=C_BOOL) :: nj_tmp 
     706      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
     707      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     708      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
     709      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     710      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin 
     711      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp 
     712      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc 
     713      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp 
     714      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin 
     715      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp 
     716      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc 
     717      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp 
     718      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni 
     719      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp 
     720      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc 
     721      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp 
     722      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj 
     723      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp 
     724      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc 
     725      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp 
     726       
     727      CALL xios(is_defined_domaingroup_attr_hdl_)  & 
     728      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  & 
     729      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  & 
     730      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  & 
     731      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc ) 
     732     
     733  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
     734   
     735  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   & 
     736    ( domaingroup_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_  & 
     737    , data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_  & 
     738    , long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_  & 
     739    , zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_  & 
     740     ) 
     741     
     742    IMPLICIT NONE 
     743      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
     744      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 
     745      LOGICAL(KIND=C_BOOL) :: data_dim__tmp 
     746      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_ 
     747      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp 
     748      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_ 
     749      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp 
     750      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_ 
     751      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp 
     752      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_ 
     753      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp 
     754      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_ 
     755      LOGICAL(KIND=C_BOOL) :: data_n_index__tmp 
     756      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_ 
     757      LOGICAL(KIND=C_BOOL) :: data_ni__tmp 
     758      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 
     759      LOGICAL(KIND=C_BOOL) :: data_nj__tmp 
     760      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
     761      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 
     762      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 
     763      LOGICAL(KIND=C_BOOL) :: group_ref__tmp 
     764      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_ 
     765      LOGICAL(KIND=C_BOOL) :: ibegin__tmp 
     766      LOGICAL, OPTIONAL, INTENT(OUT) :: iend_ 
     767      LOGICAL(KIND=C_BOOL) :: iend__tmp 
     768      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 
     769      LOGICAL(KIND=C_BOOL) :: jbegin__tmp 
     770      LOGICAL, OPTIONAL, INTENT(OUT) :: jend_ 
     771      LOGICAL(KIND=C_BOOL) :: jend__tmp 
     772      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_ 
     773      LOGICAL(KIND=C_BOOL) :: latvalue__tmp 
     774      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 
     775      LOGICAL(KIND=C_BOOL) :: long_name__tmp 
     776      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_ 
     777      LOGICAL(KIND=C_BOOL) :: lonvalue__tmp 
     778      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 
     779      LOGICAL(KIND=C_BOOL) :: mask__tmp 
     780      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
     781      LOGICAL(KIND=C_BOOL) :: name__tmp 
     782      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_ 
     783      LOGICAL(KIND=C_BOOL) :: ni__tmp 
     784      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_ 
     785      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp 
     786      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_ 
     787      LOGICAL(KIND=C_BOOL) :: nj__tmp 
     788      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 
     789      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 
     790      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
     791      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     792      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_ 
     793      LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp 
     794      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_ 
     795      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp 
     796      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_ 
     797      LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp 
     798      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_ 
     799      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp 
     800      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_ 
     801      LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp 
     802      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_ 
     803      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp 
     804      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_ 
     805      LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp 
     806      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_ 
     807      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp 
     808       
     809      IF (PRESENT(data_dim_)) THEN 
     810        data_dim__tmp=cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr) 
     811        data_dim_=data_dim__tmp 
     812      ENDIF 
     813       
     814      IF (PRESENT(data_i_index_)) THEN 
     815        data_i_index__tmp=cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr) 
     816        data_i_index_=data_i_index__tmp 
     817      ENDIF 
     818       
     819      IF (PRESENT(data_ibegin_)) THEN 
     820        data_ibegin__tmp=cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr) 
     821        data_ibegin_=data_ibegin__tmp 
     822      ENDIF 
     823       
     824      IF (PRESENT(data_j_index_)) THEN 
     825        data_j_index__tmp=cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr) 
     826        data_j_index_=data_j_index__tmp 
     827      ENDIF 
     828       
     829      IF (PRESENT(data_jbegin_)) THEN 
     830        data_jbegin__tmp=cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr) 
     831        data_jbegin_=data_jbegin__tmp 
     832      ENDIF 
     833       
     834      IF (PRESENT(data_n_index_)) THEN 
     835        data_n_index__tmp=cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr) 
     836        data_n_index_=data_n_index__tmp 
     837      ENDIF 
     838       
     839      IF (PRESENT(data_ni_)) THEN 
     840        data_ni__tmp=cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr) 
     841        data_ni_=data_ni__tmp 
     842      ENDIF 
     843       
     844      IF (PRESENT(data_nj_)) THEN 
     845        data_nj__tmp=cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr) 
     846        data_nj_=data_nj__tmp 
     847      ENDIF 
     848       
     849      IF (PRESENT(domain_group_ref_)) THEN 
     850        domain_group_ref__tmp=cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr) 
     851        domain_group_ref_=domain_group_ref__tmp 
     852      ENDIF 
     853       
     854      IF (PRESENT(group_ref_)) THEN 
     855        group_ref__tmp=cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr) 
     856        group_ref_=group_ref__tmp 
     857      ENDIF 
     858       
     859      IF (PRESENT(ibegin_)) THEN 
     860        ibegin__tmp=cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr) 
     861        ibegin_=ibegin__tmp 
     862      ENDIF 
     863       
     864      IF (PRESENT(iend_)) THEN 
     865        iend__tmp=cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr) 
     866        iend_=iend__tmp 
     867      ENDIF 
     868       
     869      IF (PRESENT(jbegin_)) THEN 
     870        jbegin__tmp=cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr) 
     871        jbegin_=jbegin__tmp 
     872      ENDIF 
     873       
     874      IF (PRESENT(jend_)) THEN 
     875        jend__tmp=cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr) 
     876        jend_=jend__tmp 
     877      ENDIF 
     878       
     879      IF (PRESENT(latvalue_)) THEN 
     880        latvalue__tmp=cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr) 
     881        latvalue_=latvalue__tmp 
     882      ENDIF 
     883       
     884      IF (PRESENT(long_name_)) THEN 
     885        long_name__tmp=cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr) 
     886        long_name_=long_name__tmp 
     887      ENDIF 
     888       
     889      IF (PRESENT(lonvalue_)) THEN 
     890        lonvalue__tmp=cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr) 
     891        lonvalue_=lonvalue__tmp 
     892      ENDIF 
     893       
     894      IF (PRESENT(mask_)) THEN 
     895        mask__tmp=cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr) 
     896        mask_=mask__tmp 
     897      ENDIF 
     898       
     899      IF (PRESENT(name_)) THEN 
     900        name__tmp=cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr) 
     901        name_=name__tmp 
     902      ENDIF 
     903       
     904      IF (PRESENT(ni_)) THEN 
     905        ni__tmp=cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr) 
     906        ni_=ni__tmp 
     907      ENDIF 
     908       
     909      IF (PRESENT(ni_glo_)) THEN 
     910        ni_glo__tmp=cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr) 
     911        ni_glo_=ni_glo__tmp 
     912      ENDIF 
     913       
     914      IF (PRESENT(nj_)) THEN 
     915        nj__tmp=cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr) 
     916        nj_=nj__tmp 
     917      ENDIF 
     918       
     919      IF (PRESENT(nj_glo_)) THEN 
     920        nj_glo__tmp=cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr) 
     921        nj_glo_=nj_glo__tmp 
     922      ENDIF 
     923       
     924      IF (PRESENT(standard_name_)) THEN 
     925        standard_name__tmp=cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr) 
     926        standard_name_=standard_name__tmp 
     927      ENDIF 
     928       
     929      IF (PRESENT(zoom_ibegin_)) THEN 
     930        zoom_ibegin__tmp=cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr) 
     931        zoom_ibegin_=zoom_ibegin__tmp 
     932      ENDIF 
     933       
     934      IF (PRESENT(zoom_ibegin_loc_)) THEN 
     935        zoom_ibegin_loc__tmp=cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr) 
     936        zoom_ibegin_loc_=zoom_ibegin_loc__tmp 
     937      ENDIF 
     938       
     939      IF (PRESENT(zoom_jbegin_)) THEN 
     940        zoom_jbegin__tmp=cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr) 
     941        zoom_jbegin_=zoom_jbegin__tmp 
     942      ENDIF 
     943       
     944      IF (PRESENT(zoom_jbegin_loc_)) THEN 
     945        zoom_jbegin_loc__tmp=cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr) 
     946        zoom_jbegin_loc_=zoom_jbegin_loc__tmp 
     947      ENDIF 
     948       
     949      IF (PRESENT(zoom_ni_)) THEN 
     950        zoom_ni__tmp=cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr) 
     951        zoom_ni_=zoom_ni__tmp 
     952      ENDIF 
     953       
     954      IF (PRESENT(zoom_ni_loc_)) THEN 
     955        zoom_ni_loc__tmp=cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr) 
     956        zoom_ni_loc_=zoom_ni_loc__tmp 
     957      ENDIF 
     958       
     959      IF (PRESENT(zoom_nj_)) THEN 
     960        zoom_nj__tmp=cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr) 
     961        zoom_nj_=zoom_nj__tmp 
     962      ENDIF 
     963       
     964      IF (PRESENT(zoom_nj_loc_)) THEN 
     965        zoom_nj_loc__tmp=cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr) 
     966        zoom_nj_loc_=zoom_nj_loc__tmp 
     967      ENDIF 
     968       
     969       
     970     
     971  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) 
     972   
    571973END MODULE idomaingroup_attr 
Note: See TracChangeset for help on using the changeset viewer.