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/idomain_attr.F90

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