Changeset 432


Ignore:
Timestamp:
06/03/13 11:21:19 (6 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

Location:
XIOS/trunk/src
Files:
44 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/attribute.cpp

    r369 r432  
    11#include "attribute.hpp" 
    22#include "base_type.hpp" 
     3#include "generate_interface.hpp" 
     4 
    35 
    46namespace xios 
     
    4850         return (this->getId());  
    4951      } 
     52    
     53      void CAttribute::generateCInterfaceIsDefined(ostream& oss, const string& className) 
     54      { 
     55        CInterface::AttributeIsDefinedCInterface(oss, className, this->getName()) ; 
     56      } 
    5057       
     58      void CAttribute::generateFortran2003InterfaceIsDefined(ostream& oss, const string& className) 
     59      { 
     60        CInterface::AttributeIsDefinedFortran2003Interface(oss, className, this->getName()) ; 
     61      } 
     62       
     63       
     64      void CAttribute::generateFortranInterfaceIsDefinedDeclaration_(ostream& oss,const string& className) 
     65      { 
     66        CInterface::AttributeFortranInterfaceIsDefinedDeclaration(oss, className, this->getName()+"_") ; 
     67      } 
     68 
     69      void CAttribute::generateFortranInterfaceIsDefinedDeclaration(ostream& oss,const string& className) 
     70      { 
     71        CInterface::AttributeFortranInterfaceIsDefinedDeclaration(oss, className, this->getName()) ; 
     72      } 
     73 
     74      void CAttribute::generateFortranInterfaceIsDefinedBody_(ostream& oss,const string& className) 
     75      { 
     76        CInterface::AttributeFortranInterfaceIsDefinedBody(oss, className, this->getName()) ; 
     77      } 
    5178 
    5279      ///-------------------------------------------------------------- 
     
    81108     } 
    82109 
     110  
    83111} // namespace xios 
  • XIOS/trunk/src/attribute.hpp

    r369 r432  
    5353 
    5454            virtual void generateCInterface(ostream& oss, const string& className) = 0 ; 
     55            virtual void generateCInterfaceIsDefined(ostream& oss, const string& className) ; 
    5556            virtual void generateFortran2003Interface(ostream& oss, const string& className) = 0 ; 
     57            virtual void generateFortran2003InterfaceIsDefined(ostream& oss, const string& className) ; 
    5658            virtual void generateFortranInterfaceDeclaration_(ostream& oss,const string& className) = 0 ; 
    5759            virtual void generateFortranInterfaceDeclaration(ostream& oss,const string& className) = 0 ; 
     
    6062            virtual void generateFortranInterfaceGetDeclaration(ostream& oss,const string& className) = 0 ; 
    6163            virtual void generateFortranInterfaceGetBody_(ostream& oss,const string& className) = 0 ; 
     64            virtual void generateFortranInterfaceIsDefinedDeclaration_(ostream& oss,const string& className) ; 
     65            virtual void generateFortranInterfaceIsDefinedDeclaration(ostream& oss,const string& className)  ; 
     66            virtual void generateFortranInterfaceIsDefinedBody_(ostream& oss,const string& className) ; 
    6267 
    6368 
  • XIOS/trunk/src/attribute_map.cpp

    r369 r432  
    191191         { 
    192192           it->second->generateCInterface(oss,className) ; 
     193           it->second->generateCInterfaceIsDefined(oss,className) ; 
    193194           oss<<iendl<<iendl ; 
    194195         } 
     
    201202         { 
    202203           it->second->generateFortran2003Interface(oss,className) ; 
     204           it->second->generateFortran2003InterfaceIsDefined(oss,className) ; 
     205           
    203206           oss<<iendl<<iendl ; 
    204207         } 
     
    299302         oss<<"END SUBROUTINE xios(get_"<<className<<"_attr_hdl_)"<<iendl ; 
    300303          
    301       }       
     304      }      
     305       
     306 
     307      void CAttributeMap::generateFortranInterfaceIsDefined_hdl_(ostream& oss, const string& className) 
     308      { 
     309         oss<<"SUBROUTINE xios(is_defined_"<<className<<"_attr_hdl_)   &"<<iendl++ ; 
     310         ostringstream* oss2 ; 
     311         SuperClassMap::const_iterator it ; 
     312         SuperClassMap::const_iterator begin = SuperClassMap::begin(), end = SuperClassMap::end(); 
     313          
     314         oss2=new ostringstream ; 
     315          
     316         *oss2<<"( "<<className<<"_hdl"  ; 
     317          
     318         for ( it=begin ; it != end; it++)  
     319         { 
     320           *oss2<<", "<<it->second->getName()<<"_" ; 
     321           if (oss2->str().size()>90)  
     322           { 
     323             oss<<oss2->str()<<"  &"<<iendl ; 
     324             delete oss2 ; 
     325             oss2=new ostringstream ; 
     326           } 
     327         } 
     328         *oss2<<" )" ; 
     329         oss<<oss2->str()<<iendl ; 
     330         oss<<iendl ; 
     331         delete oss2 ;  
     332          
     333         oss<<"IMPLICIT NONE"<<iendl++ ; 
     334         oss<<"TYPE(txios("<<className<<")) , INTENT(IN) :: "<<className<<"_hdl"<<iendl ; 
     335          
     336         for (it=begin; it != end; it++) 
     337         { 
     338           it->second->generateFortranInterfaceIsDefinedDeclaration_(oss,className) ; 
     339         } 
     340          
     341         oss<<iendl ; 
     342          
     343         for (it=begin; it != end; it++) 
     344         { 
     345           it->second->generateFortranInterfaceIsDefinedBody_(oss,className) ; 
     346           oss<<iendl ; 
     347         } 
     348          
     349         oss<<iendl--<<iendl-- ; 
     350         oss<<"END SUBROUTINE xios(is_defined_"<<className<<"_attr_hdl_)"<<iendl ; 
     351          
     352      }       
     353        
    302354 
    303355      void CAttributeMap::generateFortranInterface_hdl(ostream& oss, const string& className) 
     
    413465         oss<<"END SUBROUTINE xios(get_"<<className<<"_attr_hdl)"<<iendl ; 
    414466      }       
     467 
     468 
     469      void CAttributeMap::generateFortranInterfaceIsDefined_hdl(ostream& oss, const string& className) 
     470      { 
     471         oss<<"SUBROUTINE xios(is_defined_"<<className<<"_attr_hdl)  &"<<iendl++ ; 
     472         ostringstream* oss2 ; 
     473         SuperClassMap::const_iterator it ; 
     474         SuperClassMap::const_iterator begin = SuperClassMap::begin(), end = SuperClassMap::end(); 
     475          
     476         oss2=new ostringstream ; 
     477         *oss2<<"( "<<className<<"_hdl"  ; 
     478         for ( it=begin ; it != end; it++)  
     479         { 
     480           *oss2<<", "<<it->second->getName() ; 
     481           if (oss2->str().size()>90)  
     482           { 
     483             oss<<oss2->str()<<"  &"<<iendl ; 
     484             delete oss2 ; 
     485             oss2=new ostringstream ; 
     486           } 
     487         } 
     488         *oss2<<" )" ; 
     489         oss<<oss2->str()<<iendl ; 
     490         oss<<iendl ; 
     491         delete oss2 ;  
     492         oss2=new ostringstream ; 
     493          
     494         oss<<"IMPLICIT NONE"<<iendl++ ; 
     495         oss<<"TYPE(txios("<<className<<")) , INTENT(IN) :: "<<className<<"_hdl"<<iendl ; 
     496          
     497         for (it=begin; it != end; it++) 
     498         { 
     499           it->second->generateFortranInterfaceIsDefinedDeclaration(oss,className) ; 
     500         } 
     501          
     502         oss<<iendl ; 
     503          
     504         oss<<"CALL xios(is_defined_"<<className<<"_attr_hdl_)  &"<<iendl ; 
     505          
     506         *oss2<<"( "<<className<<"_hdl"  ; 
     507         for ( it=begin ; it != end; it++)  
     508         { 
     509           *oss2<<", "<<it->second->getName() ; 
     510           if (oss2->str().size()>90)  
     511           { 
     512             oss<<oss2->str()<<"  &"<<iendl ; 
     513             delete oss2 ; 
     514             oss2=new ostringstream ; 
     515           } 
     516         } 
     517         *oss2<<" )" ; 
     518         oss<<oss2->str() ; 
     519         delete oss2 ;  
     520          
     521         oss<<iendl--<<iendl-- ; 
     522         oss<<"END SUBROUTINE xios(is_defined_"<<className<<"_attr_hdl)"<<iendl ; 
     523      }       
     524 
    415525       
    416526      void CAttributeMap::generateFortranInterface_id(ostream& oss, const string& className) 
     
    529639          
    530640      }       
     641       
     642      void CAttributeMap::generateFortranInterfaceIsDefined_id(ostream& oss, const string& className) 
     643      { 
     644         oss<<"SUBROUTINE xios(is_defined_"<<className<<"_attr)  &"<<iendl++ ; 
     645         ostringstream* oss2 ; 
     646         SuperClassMap::const_iterator it ; 
     647         SuperClassMap::const_iterator begin = SuperClassMap::begin(), end = SuperClassMap::end(); 
     648          
     649         oss2=new ostringstream ; 
     650         *oss2<<"( "<<className<<"_id"  ; 
     651         for ( it=begin ; it != end; it++)  
     652         { 
     653           *oss2<<", "<<it->second->getName() ; 
     654           if (oss2->str().size()>90)  
     655           { 
     656             oss<<oss2->str()<<"  &"<<iendl ; 
     657             delete oss2 ; 
     658             oss2=new ostringstream ; 
     659           } 
     660         } 
     661         *oss2<<" )" ; 
     662         oss<<oss2->str()<<iendl ; 
     663         oss<<iendl ; 
     664         delete oss2 ;  
     665         oss2=new ostringstream ; 
     666          
     667         oss<<"IMPLICIT NONE"<<iendl++ ; 
     668 
     669         oss<<"TYPE(txios("<<className<<"))  :: "<<className<<"_hdl"<<iendl ; 
     670         oss<<"CHARACTER(LEN=*), INTENT(IN) ::"<<className<<"_id"<<iendl ; 
     671          
     672         for (it=begin; it != end; it++) 
     673         { 
     674           it->second->generateFortranInterfaceIsDefinedDeclaration(oss,className) ; 
     675         } 
     676          
     677         oss<<iendl ; 
     678         oss<<"CALL xios(get_"<<className<<"_handle)("<<className<<"_id,"<<className<<"_hdl)"<<iendl ;  
     679         oss<<"CALL xios(is_defined_"<<className<<"_attr_hdl_)   &"<<iendl ; 
     680         *oss2<<"( "<<className<<"_hdl"  ; 
     681         for ( it=begin ; it != end; it++)  
     682         { 
     683           *oss2<<", "<<it->second->getName() ; 
     684           if (oss2->str().size()>90)  
     685           { 
     686             oss<<oss2->str()<<"  &"<<iendl ; 
     687             delete oss2 ; 
     688             oss2=new ostringstream ; 
     689           } 
     690         } 
     691         *oss2<<" )" ; 
     692         oss<<oss2->str() ; 
     693         delete oss2 ;  
     694          
     695         oss<<iendl--<<iendl-- ; 
     696         oss<<"END SUBROUTINE xios(is_defined_"<<className<<"_attr)"<<iendl ; 
     697          
     698      }       
    531699      ///-------------------------------------------------------------- 
    532700   
  • XIOS/trunk/src/attribute_map.hpp

    r369 r432  
    5454            virtual void generateFortranInterfaceGet_hdl(ostream& oss, const string& className) ; 
    5555            virtual void generateFortranInterfaceGet_id(ostream& oss, const string& className) ; 
     56            virtual void generateFortranInterfaceIsDefined_hdl_(ostream& oss, const string& className) ; 
     57            virtual void generateFortranInterfaceIsDefined_hdl(ostream& oss, const string& className) ; 
     58            virtual void generateFortranInterfaceIsDefined_id(ostream& oss, const string& className) ; 
    5659 
    5760         protected : 
  • XIOS/trunk/src/attribute_template.hpp

    r369 r432  
    7373            virtual void generateFortranInterfaceGetBody_(ostream& oss,const string& className) ; 
    7474            virtual void generateFortranInterfaceGetDeclaration(ostream& oss,const string& className) ; 
     75//            virtual void generateFortranInterfaceIsDefinedDeclaration_(ostream& oss,const string& className) ; 
     76//            virtual void generateFortranInterfaceIsDefinedBody_(ostream& oss,const string& className) ; 
     77//            virtual void generateFortranInterfaceIsDefinedDeclaration(ostream& oss,const string& className) ; 
    7578 
    7679       
  • XIOS/trunk/src/attribute_template_impl.hpp

    r369 r432  
    214214      { 
    215215        CInterface::AttributeCInterface<T>(oss, className, this->getName()) ; 
     216//        CInterface::AttributeIsDefinedCInterface(oss, className, this->getName()) ; 
    216217      } 
    217218       
     
    220221      { 
    221222        CInterface::AttributeFortran2003Interface<T>(oss, className, this->getName()) ; 
     223//        CInterface::AttributeIsDefinedFortran2003Interface(oss, className, this->getName()) ; 
    222224      } 
    223225       
     
    246248      } 
    247249  
     250  
    248251      template <typename T> 
    249252      void CAttributeTemplate<T>::generateFortranInterfaceGetBody_(ostream& oss,const string& className) 
     
    257260        CInterface::AttributeFortranInterfaceGetDeclaration<T>(oss, className, this->getName()) ; 
    258261      } 
     262 
    259263  
    260264/*       
  • XIOS/trunk/src/generate_interface.hpp

    r352 r432  
    1212    template <class T> 
    1313    static void AttributeCInterface(ostream& oss,const string& className,const string& name) ; 
    14     
     14    static void AttributeIsDefinedCInterface(ostream& oss, const string& className,const string& name); 
     15   
    1516   template <class T> 
    1617   static void AttributeFortran2003Interface(ostream& oss,const string& className,const string& name) ; 
     18   static void AttributeIsDefinedFortran2003Interface(ostream& oss,const string& className,const string& name); 
    1719    
    1820   template <class T> 
     
    2224   static void AttributeFortranInterfaceGetDeclaration(ostream& oss,const string& className,const string& name) ; 
    2325 
     26   static void AttributeFortranInterfaceIsDefinedDeclaration(ostream& oss,const string& className,const string& name) ; 
     27 
    2428   template <class T> 
    2529   static void AttributeFortranInterfaceBody(ostream& oss,const string& className,const string& name) ; 
     
    2731   template <class T> 
    2832   static void AttributeFortranInterfaceGetBody(ostream& oss,const string& className,const string& name) ; 
    29    
     33  
     34   static void AttributeFortranInterfaceIsDefinedBody(ostream& oss,const string& className,const string& name) ; 
     35  
    3036   template <class T> 
    3137   static string getStrFortranType(void) ; 
  • XIOS/trunk/src/generate_interface_impl.hpp

    r417 r432  
    3636// ///////////////////////////////////////////////// 
    3737 
     38   
     39  void CInterface::AttributeIsDefinedCInterface(ostream& oss, const string& className,const string& name) 
     40  { 
     41    oss<<"bool cxios_is_defined_"<<className<<"_"<<name<<"("<<className<<"_Ptr "<<className<<"_hdl )"<<iendl ; 
     42    oss<<"{"<<iendl ; 
     43    oss<<"   CTimer::get(\"XIOS\").resume();"<<iendl ; 
     44    oss<<"  return !"<<className<<"_hdl->"<<name<<".isEmpty();"<<iendl ; 
     45    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ; 
     46    oss<<"}"<<iendl ; 
     47    oss<<iendl ; 
     48  } 
    3849   
    3950  template <class T> 
     
    5566    oss<<"  *"<<name<<" = "<<className<<"_hdl->"<<name<<".getValue();"<<iendl ; 
    5667    oss<<"}"<<iendl ; 
     68    oss<<iendl ; 
    5769  } 
    5870     
     
    8193    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ; 
    8294    oss<<"}"<<iendl ; 
    83    
     95    oss<<iendl ; 
     96    
    8497  } 
    8598 
     
    107120    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ; 
    108121    oss<<"}"<<iendl ; 
     122    oss<<iendl ; 
    109123   
    110124  } 
     
    193207// //          Fortran 2003 Interface             // 
    194208// ///////////////////////////////////////////////// 
    195  
     209   void CInterface::AttributeIsDefinedFortran2003Interface(ostream& oss,const string& className,const string& name) 
     210   { 
     211     oss<<"FUNCTION cxios_is_defined_"<<className<<"_"<<name<<"("<<className<<"_hdl ) BIND(C)"<<iendl ; 
     212     oss<<"  USE ISO_C_BINDING"<<iendl ; 
     213     oss<<"  LOGICAL(kind=C_BOOL) :: cxios_is_defined_"<<className<<"_"<<name<<iendl; 
     214     oss<<"  INTEGER (kind = C_INTPTR_T), VALUE :: "<<className<<"_hdl"<<iendl ; 
     215     oss<<"END FUNCTION cxios_is_defined_"<<className<<"_"<<name<<iendl ;    
     216   } 
     217    
    196218   template <class T> 
    197219   void CInterface::AttributeFortran2003Interface(ostream& oss,const string& className,const string& name) 
     
    205227     oss<<"  "<<fortranType<<" "<<fortranKindC<<"      , VALUE :: "<<name<<iendl ; 
    206228     oss<<"END SUBROUTINE cxios_set_"<<className<<"_"<<name<<iendl ; 
    207      oss<<iendl ; \ 
     229     oss<<iendl ;  
    208230     oss<<"SUBROUTINE cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl, "<<name<<") BIND(C)"<<iendl ; 
    209231     oss<<"  USE ISO_C_BINDING"<<iendl ; 
     
    211233     oss<<"  "<<fortranType<<" "<<fortranKindC<<"             :: "<<name<<iendl ; 
    212234     oss<<"END SUBROUTINE cxios_get_"<<className<<"_"<<name<<iendl ; 
     235     oss<<iendl ; 
    213236   } 
    214237    
     
    231254     oss<<"  INTEGER  (kind = C_INT)     , VALUE        :: "<<name<<"_size"<<iendl ; 
    232255     oss<<"END SUBROUTINE cxios_get_"<<className<<"_"<<name<<iendl ; 
    233       
     256     oss<<iendl ; 
    234257   } 
    235258 
     
    324347     if (!matchingTypeCFortran<T>()) oss<<getStrFortranType<T>()<<" "<<getStrFortranKindC<T>()<<" :: "<<name<<"_tmp"<<iendl ; 
    325348   } 
    326    
     349    
     350   void CInterface::AttributeFortranInterfaceIsDefinedDeclaration(ostream& oss,const string& className,const string& name) 
     351   { 
     352     oss<<"LOGICAL, OPTIONAL, INTENT(OUT) :: "<<name<<iendl ; 
     353     oss<<"LOGICAL(KIND=C_BOOL) :: "<<name<<"_tmp"<<iendl ; 
     354   } 
     355     
    327356   template <> 
    328357   void CInterface::AttributeFortranInterfaceDeclaration<string>(ostream& oss,const string& className,const string& name) 
     
    416445     oss<<"ENDIF"<<iendl ; 
    417446   } 
    418    
     447 
     448   void CInterface::AttributeFortranInterfaceIsDefinedBody(ostream& oss,const string& className,const string& name) 
     449   { 
     450     string name_tmp=name+"__tmp" ; 
     451      
     452     oss<<"IF (PRESENT("<<name<<"_)) THEN"<<iendl ; 
     453     oss<<"  "<<name<<"__tmp=cxios_is_defined_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr)"<<iendl ; 
     454     oss<<"  "<<name<<"_="<<name_tmp<<iendl ; 
     455     oss<<"ENDIF"<<iendl ; 
     456   } 
     457      
    419458   template <> 
    420459   void CInterface::AttributeFortranInterfaceBody<string>(ostream& oss,const string& className,const string& name) 
     
    574613    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ;\ 
    575614    oss<<"}"<<iendl ;\ 
     615    oss<<iendl ;\ 
    576616  }\ 
    577617\ 
     
    597637    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ;\ 
    598638    oss<<"}"<<iendl ;\ 
     639    oss<<iendl ;\ 
    599640  }\ 
    600641\ 
     
    620661    oss<<"   CTimer::get(\"XIOS\").suspend();"<<iendl ;\ 
    621662    oss<<"}"<<iendl ;\ 
     663    oss<<iendl ;\ 
    622664  } 
    623665 
     
    654696     oss<<"  INTEGER (kind = C_INT), VALUE  :: extent1"<<iendl ; \ 
    655697     oss<<"END SUBROUTINE cxios_get_"<<className<<"_"<<name<<iendl ; \ 
     698     oss<<iendl ;\ 
    656699   } \ 
    657700 \ 
     
    677720     oss<<"  INTEGER (kind = C_INT), VALUE  :: extent2"<<iendl ; \ 
    678721     oss<<"END SUBROUTINE cxios_get_"<<className<<"_"<<name<<iendl ; \ 
     722     oss<<iendl ;\ 
    679723   } \ 
    680724     \ 
     
    702746     oss<<"  INTEGER (kind = C_INT), VALUE  :: extent3"<<iendl ; \ 
    703747     oss<<"END SUBROUTINE cxios_get_"<<className<<"_"<<name<<iendl ; \ 
     748     oss<<iendl ;\ 
    704749   } 
    705750   
  • XIOS/trunk/src/interface/c_attr/icaxis_attr.cpp

    r416 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_axis_long_name(axis_Ptr axis_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !axis_hdl->long_name.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_axis_name(axis_Ptr axis_hdl, const char * name, int name_size) 
     
    5462  } 
    5563   
     64  bool cxios_is_defined_axis_name(axis_Ptr axis_hdl ) 
     65  { 
     66     CTimer::get("XIOS").resume(); 
     67    return !axis_hdl->name.isEmpty(); 
     68     CTimer::get("XIOS").suspend(); 
     69  } 
     70   
     71   
    5672   
    5773  void cxios_set_axis_positive(axis_Ptr axis_hdl, const char * positive, int positive_size) 
     
    7389  } 
    7490   
     91  bool cxios_is_defined_axis_positive(axis_Ptr axis_hdl ) 
     92  { 
     93     CTimer::get("XIOS").resume(); 
     94    return !axis_hdl->positive.isEmpty(); 
     95     CTimer::get("XIOS").suspend(); 
     96  } 
     97   
     98   
    7599   
    76100  void cxios_set_axis_size(axis_Ptr axis_hdl, int size) 
     
    87111  } 
    88112   
     113  bool cxios_is_defined_axis_size(axis_Ptr axis_hdl ) 
     114  { 
     115     CTimer::get("XIOS").resume(); 
     116    return !axis_hdl->size.isEmpty(); 
     117     CTimer::get("XIOS").suspend(); 
     118  } 
     119   
     120   
    89121   
    90122  void cxios_set_axis_standard_name(axis_Ptr axis_hdl, const char * standard_name, int standard_name_size) 
     
    106138  } 
    107139   
     140  bool cxios_is_defined_axis_standard_name(axis_Ptr axis_hdl ) 
     141  { 
     142     CTimer::get("XIOS").resume(); 
     143    return !axis_hdl->standard_name.isEmpty(); 
     144     CTimer::get("XIOS").suspend(); 
     145  } 
     146   
     147   
    108148   
    109149  void cxios_set_axis_unit(axis_Ptr axis_hdl, const char * unit, int unit_size) 
     
    124164     CTimer::get("XIOS").suspend(); 
    125165  } 
     166   
     167  bool cxios_is_defined_axis_unit(axis_Ptr axis_hdl ) 
     168  { 
     169     CTimer::get("XIOS").resume(); 
     170    return !axis_hdl->unit.isEmpty(); 
     171     CTimer::get("XIOS").suspend(); 
     172  } 
     173   
    126174   
    127175   
     
    143191  } 
    144192   
     193  bool cxios_is_defined_axis_value(axis_Ptr axis_hdl ) 
     194  { 
     195     CTimer::get("XIOS").resume(); 
     196    return !axis_hdl->value.isEmpty(); 
     197     CTimer::get("XIOS").suspend(); 
     198  } 
     199   
     200   
    145201   
    146202  void cxios_set_axis_zoom_begin(axis_Ptr axis_hdl, int zoom_begin) 
     
    157213  } 
    158214   
     215  bool cxios_is_defined_axis_zoom_begin(axis_Ptr axis_hdl ) 
     216  { 
     217     CTimer::get("XIOS").resume(); 
     218    return !axis_hdl->zoom_begin.isEmpty(); 
     219     CTimer::get("XIOS").suspend(); 
     220  } 
     221   
     222   
    159223   
    160224  void cxios_set_axis_zoom_end(axis_Ptr axis_hdl, int zoom_end) 
     
    171235  } 
    172236   
     237  bool cxios_is_defined_axis_zoom_end(axis_Ptr axis_hdl ) 
     238  { 
     239     CTimer::get("XIOS").resume(); 
     240    return !axis_hdl->zoom_end.isEmpty(); 
     241     CTimer::get("XIOS").suspend(); 
     242  } 
     243   
     244   
    173245   
    174246  void cxios_set_axis_zoom_size(axis_Ptr axis_hdl, int zoom_size) 
     
    185257  } 
    186258   
     259  bool cxios_is_defined_axis_zoom_size(axis_Ptr axis_hdl ) 
     260  { 
     261     CTimer::get("XIOS").resume(); 
     262    return !axis_hdl->zoom_size.isEmpty(); 
     263     CTimer::get("XIOS").suspend(); 
     264  } 
     265   
     266   
    187267   
    188268   
  • XIOS/trunk/src/interface/c_attr/icaxisgroup_attr.cpp

    r416 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_axisgroup_group_ref(axisgroup_Ptr axisgroup_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !axisgroup_hdl->group_ref.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_axisgroup_long_name(axisgroup_Ptr axisgroup_hdl, const char * long_name, int long_name_size) 
     
    5462  } 
    5563   
     64  bool cxios_is_defined_axisgroup_long_name(axisgroup_Ptr axisgroup_hdl ) 
     65  { 
     66     CTimer::get("XIOS").resume(); 
     67    return !axisgroup_hdl->long_name.isEmpty(); 
     68     CTimer::get("XIOS").suspend(); 
     69  } 
     70   
     71   
    5672   
    5773  void cxios_set_axisgroup_name(axisgroup_Ptr axisgroup_hdl, const char * name, int name_size) 
     
    7389  } 
    7490   
     91  bool cxios_is_defined_axisgroup_name(axisgroup_Ptr axisgroup_hdl ) 
     92  { 
     93     CTimer::get("XIOS").resume(); 
     94    return !axisgroup_hdl->name.isEmpty(); 
     95     CTimer::get("XIOS").suspend(); 
     96  } 
     97   
     98   
    7599   
    76100  void cxios_set_axisgroup_positive(axisgroup_Ptr axisgroup_hdl, const char * positive, int positive_size) 
     
    92116  } 
    93117   
     118  bool cxios_is_defined_axisgroup_positive(axisgroup_Ptr axisgroup_hdl ) 
     119  { 
     120     CTimer::get("XIOS").resume(); 
     121    return !axisgroup_hdl->positive.isEmpty(); 
     122     CTimer::get("XIOS").suspend(); 
     123  } 
     124   
     125   
    94126   
    95127  void cxios_set_axisgroup_size(axisgroup_Ptr axisgroup_hdl, int size) 
     
    106138  } 
    107139   
     140  bool cxios_is_defined_axisgroup_size(axisgroup_Ptr axisgroup_hdl ) 
     141  { 
     142     CTimer::get("XIOS").resume(); 
     143    return !axisgroup_hdl->size.isEmpty(); 
     144     CTimer::get("XIOS").suspend(); 
     145  } 
     146   
     147   
    108148   
    109149  void cxios_set_axisgroup_standard_name(axisgroup_Ptr axisgroup_hdl, const char * standard_name, int standard_name_size) 
     
    125165  } 
    126166   
     167  bool cxios_is_defined_axisgroup_standard_name(axisgroup_Ptr axisgroup_hdl ) 
     168  { 
     169     CTimer::get("XIOS").resume(); 
     170    return !axisgroup_hdl->standard_name.isEmpty(); 
     171     CTimer::get("XIOS").suspend(); 
     172  } 
     173   
     174   
    127175   
    128176  void cxios_set_axisgroup_unit(axisgroup_Ptr axisgroup_hdl, const char * unit, int unit_size) 
     
    143191     CTimer::get("XIOS").suspend(); 
    144192  } 
     193   
     194  bool cxios_is_defined_axisgroup_unit(axisgroup_Ptr axisgroup_hdl ) 
     195  { 
     196     CTimer::get("XIOS").resume(); 
     197    return !axisgroup_hdl->unit.isEmpty(); 
     198     CTimer::get("XIOS").suspend(); 
     199  } 
     200   
    145201   
    146202   
     
    162218  } 
    163219   
     220  bool cxios_is_defined_axisgroup_value(axisgroup_Ptr axisgroup_hdl ) 
     221  { 
     222     CTimer::get("XIOS").resume(); 
     223    return !axisgroup_hdl->value.isEmpty(); 
     224     CTimer::get("XIOS").suspend(); 
     225  } 
     226   
     227   
    164228   
    165229  void cxios_set_axisgroup_zoom_begin(axisgroup_Ptr axisgroup_hdl, int zoom_begin) 
     
    176240  } 
    177241   
     242  bool cxios_is_defined_axisgroup_zoom_begin(axisgroup_Ptr axisgroup_hdl ) 
     243  { 
     244     CTimer::get("XIOS").resume(); 
     245    return !axisgroup_hdl->zoom_begin.isEmpty(); 
     246     CTimer::get("XIOS").suspend(); 
     247  } 
     248   
     249   
    178250   
    179251  void cxios_set_axisgroup_zoom_end(axisgroup_Ptr axisgroup_hdl, int zoom_end) 
     
    190262  } 
    191263   
     264  bool cxios_is_defined_axisgroup_zoom_end(axisgroup_Ptr axisgroup_hdl ) 
     265  { 
     266     CTimer::get("XIOS").resume(); 
     267    return !axisgroup_hdl->zoom_end.isEmpty(); 
     268     CTimer::get("XIOS").suspend(); 
     269  } 
     270   
     271   
    192272   
    193273  void cxios_set_axisgroup_zoom_size(axisgroup_Ptr axisgroup_hdl, int zoom_size) 
     
    204284  } 
    205285   
     286  bool cxios_is_defined_axisgroup_zoom_size(axisgroup_Ptr axisgroup_hdl ) 
     287  { 
     288     CTimer::get("XIOS").resume(); 
     289    return !axisgroup_hdl->zoom_size.isEmpty(); 
     290     CTimer::get("XIOS").suspend(); 
     291  } 
     292   
     293   
    206294   
    207295   
  • XIOS/trunk/src/interface/c_attr/iccontext_attr.cpp

    r369 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_context_calendar_type(context_Ptr context_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !context_hdl->calendar_type.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size) 
     
    5361     CTimer::get("XIOS").suspend(); 
    5462  } 
     63   
     64  bool cxios_is_defined_context_output_dir(context_Ptr context_hdl ) 
     65  { 
     66     CTimer::get("XIOS").resume(); 
     67    return !context_hdl->output_dir.isEmpty(); 
     68     CTimer::get("XIOS").suspend(); 
     69  } 
     70   
    5571   
    5672   
     
    7389  } 
    7490   
     91  bool cxios_is_defined_context_start_date(context_Ptr context_hdl ) 
     92  { 
     93     CTimer::get("XIOS").resume(); 
     94    return !context_hdl->start_date.isEmpty(); 
     95     CTimer::get("XIOS").suspend(); 
     96  } 
     97   
     98   
    7599   
    76100  void cxios_set_context_time_origin(context_Ptr context_hdl, const char * time_origin, int time_origin_size) 
     
    91115     CTimer::get("XIOS").suspend(); 
    92116  } 
     117   
     118  bool cxios_is_defined_context_time_origin(context_Ptr context_hdl ) 
     119  { 
     120     CTimer::get("XIOS").resume(); 
     121    return !context_hdl->time_origin.isEmpty(); 
     122     CTimer::get("XIOS").suspend(); 
     123  } 
     124   
    93125   
    94126   
     
    111143  } 
    112144   
     145  bool cxios_is_defined_context_timestep(context_Ptr context_hdl ) 
     146  { 
     147     CTimer::get("XIOS").resume(); 
     148    return !context_hdl->timestep.isEmpty(); 
     149     CTimer::get("XIOS").suspend(); 
     150  } 
     151   
     152   
    113153   
    114154   
  • XIOS/trunk/src/interface/c_attr/icdomain_attr.cpp

    r416 r432  
    3030  } 
    3131   
     32  bool cxios_is_defined_domain_data_dim(domain_Ptr domain_hdl ) 
     33  { 
     34     CTimer::get("XIOS").resume(); 
     35    return !domain_hdl->data_dim.isEmpty(); 
     36     CTimer::get("XIOS").suspend(); 
     37  } 
     38   
     39   
    3240   
    3341  void cxios_set_domain_data_i_index(domain_Ptr domain_hdl, int* data_i_index, int extent1) 
     
    4856  } 
    4957   
     58  bool cxios_is_defined_domain_data_i_index(domain_Ptr domain_hdl ) 
     59  { 
     60     CTimer::get("XIOS").resume(); 
     61    return !domain_hdl->data_i_index.isEmpty(); 
     62     CTimer::get("XIOS").suspend(); 
     63  } 
     64   
     65   
    5066   
    5167  void cxios_set_domain_data_ibegin(domain_Ptr domain_hdl, int data_ibegin) 
     
    6177    *data_ibegin = domain_hdl->data_ibegin.getValue(); 
    6278  } 
     79   
     80  bool cxios_is_defined_domain_data_ibegin(domain_Ptr domain_hdl ) 
     81  { 
     82     CTimer::get("XIOS").resume(); 
     83    return !domain_hdl->data_ibegin.isEmpty(); 
     84     CTimer::get("XIOS").suspend(); 
     85  } 
     86   
    6387   
    6488   
     
    80104  } 
    81105   
     106  bool cxios_is_defined_domain_data_j_index(domain_Ptr domain_hdl ) 
     107  { 
     108     CTimer::get("XIOS").resume(); 
     109    return !domain_hdl->data_j_index.isEmpty(); 
     110     CTimer::get("XIOS").suspend(); 
     111  } 
     112   
     113   
    82114   
    83115  void cxios_set_domain_data_jbegin(domain_Ptr domain_hdl, int data_jbegin) 
     
    94126  } 
    95127   
     128  bool cxios_is_defined_domain_data_jbegin(domain_Ptr domain_hdl ) 
     129  { 
     130     CTimer::get("XIOS").resume(); 
     131    return !domain_hdl->data_jbegin.isEmpty(); 
     132     CTimer::get("XIOS").suspend(); 
     133  } 
     134   
     135   
    96136   
    97137  void cxios_set_domain_data_n_index(domain_Ptr domain_hdl, int data_n_index) 
     
    108148  } 
    109149   
     150  bool cxios_is_defined_domain_data_n_index(domain_Ptr domain_hdl ) 
     151  { 
     152     CTimer::get("XIOS").resume(); 
     153    return !domain_hdl->data_n_index.isEmpty(); 
     154     CTimer::get("XIOS").suspend(); 
     155  } 
     156   
     157   
    110158   
    111159  void cxios_set_domain_data_ni(domain_Ptr domain_hdl, int data_ni) 
     
    122170  } 
    123171   
     172  bool cxios_is_defined_domain_data_ni(domain_Ptr domain_hdl ) 
     173  { 
     174     CTimer::get("XIOS").resume(); 
     175    return !domain_hdl->data_ni.isEmpty(); 
     176     CTimer::get("XIOS").suspend(); 
     177  } 
     178   
     179   
    124180   
    125181  void cxios_set_domain_data_nj(domain_Ptr domain_hdl, int data_nj) 
     
    136192  } 
    137193   
     194  bool cxios_is_defined_domain_data_nj(domain_Ptr domain_hdl ) 
     195  { 
     196     CTimer::get("XIOS").resume(); 
     197    return !domain_hdl->data_nj.isEmpty(); 
     198     CTimer::get("XIOS").suspend(); 
     199  } 
     200   
     201   
    138202   
    139203  void cxios_set_domain_domain_group_ref(domain_Ptr domain_hdl, const char * domain_group_ref, int domain_group_ref_size) 
     
    155219  } 
    156220   
     221  bool cxios_is_defined_domain_domain_group_ref(domain_Ptr domain_hdl ) 
     222  { 
     223     CTimer::get("XIOS").resume(); 
     224    return !domain_hdl->domain_group_ref.isEmpty(); 
     225     CTimer::get("XIOS").suspend(); 
     226  } 
     227   
     228   
    157229   
    158230  void cxios_set_domain_ibegin(domain_Ptr domain_hdl, int ibegin) 
     
    169241  } 
    170242   
     243  bool cxios_is_defined_domain_ibegin(domain_Ptr domain_hdl ) 
     244  { 
     245     CTimer::get("XIOS").resume(); 
     246    return !domain_hdl->ibegin.isEmpty(); 
     247     CTimer::get("XIOS").suspend(); 
     248  } 
     249   
     250   
    171251   
    172252  void cxios_set_domain_iend(domain_Ptr domain_hdl, int iend) 
     
    183263  } 
    184264   
     265  bool cxios_is_defined_domain_iend(domain_Ptr domain_hdl ) 
     266  { 
     267     CTimer::get("XIOS").resume(); 
     268    return !domain_hdl->iend.isEmpty(); 
     269     CTimer::get("XIOS").suspend(); 
     270  } 
     271   
     272   
    185273   
    186274  void cxios_set_domain_jbegin(domain_Ptr domain_hdl, int jbegin) 
     
    197285  } 
    198286   
     287  bool cxios_is_defined_domain_jbegin(domain_Ptr domain_hdl ) 
     288  { 
     289     CTimer::get("XIOS").resume(); 
     290    return !domain_hdl->jbegin.isEmpty(); 
     291     CTimer::get("XIOS").suspend(); 
     292  } 
     293   
     294   
    199295   
    200296  void cxios_set_domain_jend(domain_Ptr domain_hdl, int jend) 
     
    210306    *jend = domain_hdl->jend.getValue(); 
    211307  } 
     308   
     309  bool cxios_is_defined_domain_jend(domain_Ptr domain_hdl ) 
     310  { 
     311     CTimer::get("XIOS").resume(); 
     312    return !domain_hdl->jend.isEmpty(); 
     313     CTimer::get("XIOS").suspend(); 
     314  } 
     315   
    212316   
    213317   
     
    229333  } 
    230334   
     335  bool cxios_is_defined_domain_latvalue(domain_Ptr domain_hdl ) 
     336  { 
     337     CTimer::get("XIOS").resume(); 
     338    return !domain_hdl->latvalue.isEmpty(); 
     339     CTimer::get("XIOS").suspend(); 
     340  } 
     341   
     342   
    231343   
    232344  void cxios_set_domain_long_name(domain_Ptr domain_hdl, const char * long_name, int long_name_size) 
     
    247359     CTimer::get("XIOS").suspend(); 
    248360  } 
     361   
     362  bool cxios_is_defined_domain_long_name(domain_Ptr domain_hdl ) 
     363  { 
     364     CTimer::get("XIOS").resume(); 
     365    return !domain_hdl->long_name.isEmpty(); 
     366     CTimer::get("XIOS").suspend(); 
     367  } 
     368   
    249369   
    250370   
     
    266386  } 
    267387   
     388  bool cxios_is_defined_domain_lonvalue(domain_Ptr domain_hdl ) 
     389  { 
     390     CTimer::get("XIOS").resume(); 
     391    return !domain_hdl->lonvalue.isEmpty(); 
     392     CTimer::get("XIOS").suspend(); 
     393  } 
     394   
     395   
    268396   
    269397  void cxios_set_domain_mask(domain_Ptr domain_hdl, bool* mask, int extent1, int extent2) 
     
    284412  } 
    285413   
     414  bool cxios_is_defined_domain_mask(domain_Ptr domain_hdl ) 
     415  { 
     416     CTimer::get("XIOS").resume(); 
     417    return !domain_hdl->mask.isEmpty(); 
     418     CTimer::get("XIOS").suspend(); 
     419  } 
     420   
     421   
    286422   
    287423  void cxios_set_domain_name(domain_Ptr domain_hdl, const char * name, int name_size) 
     
    303439  } 
    304440   
     441  bool cxios_is_defined_domain_name(domain_Ptr domain_hdl ) 
     442  { 
     443     CTimer::get("XIOS").resume(); 
     444    return !domain_hdl->name.isEmpty(); 
     445     CTimer::get("XIOS").suspend(); 
     446  } 
     447   
     448   
    305449   
    306450  void cxios_set_domain_ni(domain_Ptr domain_hdl, int ni) 
     
    317461  } 
    318462   
     463  bool cxios_is_defined_domain_ni(domain_Ptr domain_hdl ) 
     464  { 
     465     CTimer::get("XIOS").resume(); 
     466    return !domain_hdl->ni.isEmpty(); 
     467     CTimer::get("XIOS").suspend(); 
     468  } 
     469   
     470   
    319471   
    320472  void cxios_set_domain_ni_glo(domain_Ptr domain_hdl, int ni_glo) 
     
    331483  } 
    332484   
     485  bool cxios_is_defined_domain_ni_glo(domain_Ptr domain_hdl ) 
     486  { 
     487     CTimer::get("XIOS").resume(); 
     488    return !domain_hdl->ni_glo.isEmpty(); 
     489     CTimer::get("XIOS").suspend(); 
     490  } 
     491   
     492   
    333493   
    334494  void cxios_set_domain_nj(domain_Ptr domain_hdl, int nj) 
     
    345505  } 
    346506   
     507  bool cxios_is_defined_domain_nj(domain_Ptr domain_hdl ) 
     508  { 
     509     CTimer::get("XIOS").resume(); 
     510    return !domain_hdl->nj.isEmpty(); 
     511     CTimer::get("XIOS").suspend(); 
     512  } 
     513   
     514   
    347515   
    348516  void cxios_set_domain_nj_glo(domain_Ptr domain_hdl, int nj_glo) 
     
    359527  } 
    360528   
     529  bool cxios_is_defined_domain_nj_glo(domain_Ptr domain_hdl ) 
     530  { 
     531     CTimer::get("XIOS").resume(); 
     532    return !domain_hdl->nj_glo.isEmpty(); 
     533     CTimer::get("XIOS").suspend(); 
     534  } 
     535   
     536   
    361537   
    362538  void cxios_set_domain_standard_name(domain_Ptr domain_hdl, const char * standard_name, int standard_name_size) 
     
    378554  } 
    379555   
     556  bool cxios_is_defined_domain_standard_name(domain_Ptr domain_hdl ) 
     557  { 
     558     CTimer::get("XIOS").resume(); 
     559    return !domain_hdl->standard_name.isEmpty(); 
     560     CTimer::get("XIOS").suspend(); 
     561  } 
     562   
     563   
    380564   
    381565  void cxios_set_domain_zoom_ibegin(domain_Ptr domain_hdl, int zoom_ibegin) 
     
    392576  } 
    393577   
     578  bool cxios_is_defined_domain_zoom_ibegin(domain_Ptr domain_hdl ) 
     579  { 
     580     CTimer::get("XIOS").resume(); 
     581    return !domain_hdl->zoom_ibegin.isEmpty(); 
     582     CTimer::get("XIOS").suspend(); 
     583  } 
     584   
     585   
    394586   
    395587  void cxios_set_domain_zoom_ibegin_loc(domain_Ptr domain_hdl, int zoom_ibegin_loc) 
     
    406598  } 
    407599   
     600  bool cxios_is_defined_domain_zoom_ibegin_loc(domain_Ptr domain_hdl ) 
     601  { 
     602     CTimer::get("XIOS").resume(); 
     603    return !domain_hdl->zoom_ibegin_loc.isEmpty(); 
     604     CTimer::get("XIOS").suspend(); 
     605  } 
     606   
     607   
    408608   
    409609  void cxios_set_domain_zoom_jbegin(domain_Ptr domain_hdl, int zoom_jbegin) 
     
    420620  } 
    421621   
     622  bool cxios_is_defined_domain_zoom_jbegin(domain_Ptr domain_hdl ) 
     623  { 
     624     CTimer::get("XIOS").resume(); 
     625    return !domain_hdl->zoom_jbegin.isEmpty(); 
     626     CTimer::get("XIOS").suspend(); 
     627  } 
     628   
     629   
    422630   
    423631  void cxios_set_domain_zoom_jbegin_loc(domain_Ptr domain_hdl, int zoom_jbegin_loc) 
     
    434642  } 
    435643   
     644  bool cxios_is_defined_domain_zoom_jbegin_loc(domain_Ptr domain_hdl ) 
     645  { 
     646     CTimer::get("XIOS").resume(); 
     647    return !domain_hdl->zoom_jbegin_loc.isEmpty(); 
     648     CTimer::get("XIOS").suspend(); 
     649  } 
     650   
     651   
    436652   
    437653  void cxios_set_domain_zoom_ni(domain_Ptr domain_hdl, int zoom_ni) 
     
    448664  } 
    449665   
     666  bool cxios_is_defined_domain_zoom_ni(domain_Ptr domain_hdl ) 
     667  { 
     668     CTimer::get("XIOS").resume(); 
     669    return !domain_hdl->zoom_ni.isEmpty(); 
     670     CTimer::get("XIOS").suspend(); 
     671  } 
     672   
     673   
    450674   
    451675  void cxios_set_domain_zoom_ni_loc(domain_Ptr domain_hdl, int zoom_ni_loc) 
     
    462686  } 
    463687   
     688  bool cxios_is_defined_domain_zoom_ni_loc(domain_Ptr domain_hdl ) 
     689  { 
     690     CTimer::get("XIOS").resume(); 
     691    return !domain_hdl->zoom_ni_loc.isEmpty(); 
     692     CTimer::get("XIOS").suspend(); 
     693  } 
     694   
     695   
    464696   
    465697  void cxios_set_domain_zoom_nj(domain_Ptr domain_hdl, int zoom_nj) 
     
    476708  } 
    477709   
     710  bool cxios_is_defined_domain_zoom_nj(domain_Ptr domain_hdl ) 
     711  { 
     712     CTimer::get("XIOS").resume(); 
     713    return !domain_hdl->zoom_nj.isEmpty(); 
     714     CTimer::get("XIOS").suspend(); 
     715  } 
     716   
     717   
    478718   
    479719  void cxios_set_domain_zoom_nj_loc(domain_Ptr domain_hdl, int zoom_nj_loc) 
     
    490730  } 
    491731   
     732  bool cxios_is_defined_domain_zoom_nj_loc(domain_Ptr domain_hdl ) 
     733  { 
     734     CTimer::get("XIOS").resume(); 
     735    return !domain_hdl->zoom_nj_loc.isEmpty(); 
     736     CTimer::get("XIOS").suspend(); 
     737  } 
     738   
     739   
    492740   
    493741   
  • XIOS/trunk/src/interface/c_attr/icdomaingroup_attr.cpp

    r416 r432  
    3030  } 
    3131   
     32  bool cxios_is_defined_domaingroup_data_dim(domaingroup_Ptr domaingroup_hdl ) 
     33  { 
     34     CTimer::get("XIOS").resume(); 
     35    return !domaingroup_hdl->data_dim.isEmpty(); 
     36     CTimer::get("XIOS").suspend(); 
     37  } 
     38   
     39   
    3240   
    3341  void cxios_set_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl, int* data_i_index, int extent1) 
     
    4856  } 
    4957   
     58  bool cxios_is_defined_domaingroup_data_i_index(domaingroup_Ptr domaingroup_hdl ) 
     59  { 
     60     CTimer::get("XIOS").resume(); 
     61    return !domaingroup_hdl->data_i_index.isEmpty(); 
     62     CTimer::get("XIOS").suspend(); 
     63  } 
     64   
     65   
    5066   
    5167  void cxios_set_domaingroup_data_ibegin(domaingroup_Ptr domaingroup_hdl, int data_ibegin) 
     
    6177    *data_ibegin = domaingroup_hdl->data_ibegin.getValue(); 
    6278  } 
     79   
     80  bool cxios_is_defined_domaingroup_data_ibegin(domaingroup_Ptr domaingroup_hdl ) 
     81  { 
     82     CTimer::get("XIOS").resume(); 
     83    return !domaingroup_hdl->data_ibegin.isEmpty(); 
     84     CTimer::get("XIOS").suspend(); 
     85  } 
     86   
    6387   
    6488   
     
    80104  } 
    81105   
     106  bool cxios_is_defined_domaingroup_data_j_index(domaingroup_Ptr domaingroup_hdl ) 
     107  { 
     108     CTimer::get("XIOS").resume(); 
     109    return !domaingroup_hdl->data_j_index.isEmpty(); 
     110     CTimer::get("XIOS").suspend(); 
     111  } 
     112   
     113   
    82114   
    83115  void cxios_set_domaingroup_data_jbegin(domaingroup_Ptr domaingroup_hdl, int data_jbegin) 
     
    94126  } 
    95127   
     128  bool cxios_is_defined_domaingroup_data_jbegin(domaingroup_Ptr domaingroup_hdl ) 
     129  { 
     130     CTimer::get("XIOS").resume(); 
     131    return !domaingroup_hdl->data_jbegin.isEmpty(); 
     132     CTimer::get("XIOS").suspend(); 
     133  } 
     134   
     135   
    96136   
    97137  void cxios_set_domaingroup_data_n_index(domaingroup_Ptr domaingroup_hdl, int data_n_index) 
     
    108148  } 
    109149   
     150  bool cxios_is_defined_domaingroup_data_n_index(domaingroup_Ptr domaingroup_hdl ) 
     151  { 
     152     CTimer::get("XIOS").resume(); 
     153    return !domaingroup_hdl->data_n_index.isEmpty(); 
     154     CTimer::get("XIOS").suspend(); 
     155  } 
     156   
     157   
    110158   
    111159  void cxios_set_domaingroup_data_ni(domaingroup_Ptr domaingroup_hdl, int data_ni) 
     
    122170  } 
    123171   
     172  bool cxios_is_defined_domaingroup_data_ni(domaingroup_Ptr domaingroup_hdl ) 
     173  { 
     174     CTimer::get("XIOS").resume(); 
     175    return !domaingroup_hdl->data_ni.isEmpty(); 
     176     CTimer::get("XIOS").suspend(); 
     177  } 
     178   
     179   
    124180   
    125181  void cxios_set_domaingroup_data_nj(domaingroup_Ptr domaingroup_hdl, int data_nj) 
     
    136192  } 
    137193   
     194  bool cxios_is_defined_domaingroup_data_nj(domaingroup_Ptr domaingroup_hdl ) 
     195  { 
     196     CTimer::get("XIOS").resume(); 
     197    return !domaingroup_hdl->data_nj.isEmpty(); 
     198     CTimer::get("XIOS").suspend(); 
     199  } 
     200   
     201   
    138202   
    139203  void cxios_set_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, const char * domain_group_ref, int domain_group_ref_size) 
     
    155219  } 
    156220   
     221  bool cxios_is_defined_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl ) 
     222  { 
     223     CTimer::get("XIOS").resume(); 
     224    return !domaingroup_hdl->domain_group_ref.isEmpty(); 
     225     CTimer::get("XIOS").suspend(); 
     226  } 
     227   
     228   
    157229   
    158230  void cxios_set_domaingroup_group_ref(domaingroup_Ptr domaingroup_hdl, const char * group_ref, int group_ref_size) 
     
    174246  } 
    175247   
     248  bool cxios_is_defined_domaingroup_group_ref(domaingroup_Ptr domaingroup_hdl ) 
     249  { 
     250     CTimer::get("XIOS").resume(); 
     251    return !domaingroup_hdl->group_ref.isEmpty(); 
     252     CTimer::get("XIOS").suspend(); 
     253  } 
     254   
     255   
    176256   
    177257  void cxios_set_domaingroup_ibegin(domaingroup_Ptr domaingroup_hdl, int ibegin) 
     
    188268  } 
    189269   
     270  bool cxios_is_defined_domaingroup_ibegin(domaingroup_Ptr domaingroup_hdl ) 
     271  { 
     272     CTimer::get("XIOS").resume(); 
     273    return !domaingroup_hdl->ibegin.isEmpty(); 
     274     CTimer::get("XIOS").suspend(); 
     275  } 
     276   
     277   
    190278   
    191279  void cxios_set_domaingroup_iend(domaingroup_Ptr domaingroup_hdl, int iend) 
     
    202290  } 
    203291   
     292  bool cxios_is_defined_domaingroup_iend(domaingroup_Ptr domaingroup_hdl ) 
     293  { 
     294     CTimer::get("XIOS").resume(); 
     295    return !domaingroup_hdl->iend.isEmpty(); 
     296     CTimer::get("XIOS").suspend(); 
     297  } 
     298   
     299   
    204300   
    205301  void cxios_set_domaingroup_jbegin(domaingroup_Ptr domaingroup_hdl, int jbegin) 
     
    216312  } 
    217313   
     314  bool cxios_is_defined_domaingroup_jbegin(domaingroup_Ptr domaingroup_hdl ) 
     315  { 
     316     CTimer::get("XIOS").resume(); 
     317    return !domaingroup_hdl->jbegin.isEmpty(); 
     318     CTimer::get("XIOS").suspend(); 
     319  } 
     320   
     321   
    218322   
    219323  void cxios_set_domaingroup_jend(domaingroup_Ptr domaingroup_hdl, int jend) 
     
    229333    *jend = domaingroup_hdl->jend.getValue(); 
    230334  } 
     335   
     336  bool cxios_is_defined_domaingroup_jend(domaingroup_Ptr domaingroup_hdl ) 
     337  { 
     338     CTimer::get("XIOS").resume(); 
     339    return !domaingroup_hdl->jend.isEmpty(); 
     340     CTimer::get("XIOS").suspend(); 
     341  } 
     342   
    231343   
    232344   
     
    248360  } 
    249361   
     362  bool cxios_is_defined_domaingroup_latvalue(domaingroup_Ptr domaingroup_hdl ) 
     363  { 
     364     CTimer::get("XIOS").resume(); 
     365    return !domaingroup_hdl->latvalue.isEmpty(); 
     366     CTimer::get("XIOS").suspend(); 
     367  } 
     368   
     369   
    250370   
    251371  void cxios_set_domaingroup_long_name(domaingroup_Ptr domaingroup_hdl, const char * long_name, int long_name_size) 
     
    266386     CTimer::get("XIOS").suspend(); 
    267387  } 
     388   
     389  bool cxios_is_defined_domaingroup_long_name(domaingroup_Ptr domaingroup_hdl ) 
     390  { 
     391     CTimer::get("XIOS").resume(); 
     392    return !domaingroup_hdl->long_name.isEmpty(); 
     393     CTimer::get("XIOS").suspend(); 
     394  } 
     395   
    268396   
    269397   
     
    285413  } 
    286414   
     415  bool cxios_is_defined_domaingroup_lonvalue(domaingroup_Ptr domaingroup_hdl ) 
     416  { 
     417     CTimer::get("XIOS").resume(); 
     418    return !domaingroup_hdl->lonvalue.isEmpty(); 
     419     CTimer::get("XIOS").suspend(); 
     420  } 
     421   
     422   
    287423   
    288424  void cxios_set_domaingroup_mask(domaingroup_Ptr domaingroup_hdl, bool* mask, int extent1, int extent2) 
     
    303439  } 
    304440   
     441  bool cxios_is_defined_domaingroup_mask(domaingroup_Ptr domaingroup_hdl ) 
     442  { 
     443     CTimer::get("XIOS").resume(); 
     444    return !domaingroup_hdl->mask.isEmpty(); 
     445     CTimer::get("XIOS").suspend(); 
     446  } 
     447   
     448   
    305449   
    306450  void cxios_set_domaingroup_name(domaingroup_Ptr domaingroup_hdl, const char * name, int name_size) 
     
    322466  } 
    323467   
     468  bool cxios_is_defined_domaingroup_name(domaingroup_Ptr domaingroup_hdl ) 
     469  { 
     470     CTimer::get("XIOS").resume(); 
     471    return !domaingroup_hdl->name.isEmpty(); 
     472     CTimer::get("XIOS").suspend(); 
     473  } 
     474   
     475   
    324476   
    325477  void cxios_set_domaingroup_ni(domaingroup_Ptr domaingroup_hdl, int ni) 
     
    336488  } 
    337489   
     490  bool cxios_is_defined_domaingroup_ni(domaingroup_Ptr domaingroup_hdl ) 
     491  { 
     492     CTimer::get("XIOS").resume(); 
     493    return !domaingroup_hdl->ni.isEmpty(); 
     494     CTimer::get("XIOS").suspend(); 
     495  } 
     496   
     497   
    338498   
    339499  void cxios_set_domaingroup_ni_glo(domaingroup_Ptr domaingroup_hdl, int ni_glo) 
     
    350510  } 
    351511   
     512  bool cxios_is_defined_domaingroup_ni_glo(domaingroup_Ptr domaingroup_hdl ) 
     513  { 
     514     CTimer::get("XIOS").resume(); 
     515    return !domaingroup_hdl->ni_glo.isEmpty(); 
     516     CTimer::get("XIOS").suspend(); 
     517  } 
     518   
     519   
    352520   
    353521  void cxios_set_domaingroup_nj(domaingroup_Ptr domaingroup_hdl, int nj) 
     
    364532  } 
    365533   
     534  bool cxios_is_defined_domaingroup_nj(domaingroup_Ptr domaingroup_hdl ) 
     535  { 
     536     CTimer::get("XIOS").resume(); 
     537    return !domaingroup_hdl->nj.isEmpty(); 
     538     CTimer::get("XIOS").suspend(); 
     539  } 
     540   
     541   
    366542   
    367543  void cxios_set_domaingroup_nj_glo(domaingroup_Ptr domaingroup_hdl, int nj_glo) 
     
    378554  } 
    379555   
     556  bool cxios_is_defined_domaingroup_nj_glo(domaingroup_Ptr domaingroup_hdl ) 
     557  { 
     558     CTimer::get("XIOS").resume(); 
     559    return !domaingroup_hdl->nj_glo.isEmpty(); 
     560     CTimer::get("XIOS").suspend(); 
     561  } 
     562   
     563   
    380564   
    381565  void cxios_set_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl, const char * standard_name, int standard_name_size) 
     
    397581  } 
    398582   
     583  bool cxios_is_defined_domaingroup_standard_name(domaingroup_Ptr domaingroup_hdl ) 
     584  { 
     585     CTimer::get("XIOS").resume(); 
     586    return !domaingroup_hdl->standard_name.isEmpty(); 
     587     CTimer::get("XIOS").suspend(); 
     588  } 
     589   
     590   
    399591   
    400592  void cxios_set_domaingroup_zoom_ibegin(domaingroup_Ptr domaingroup_hdl, int zoom_ibegin) 
     
    411603  } 
    412604   
     605  bool cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_Ptr domaingroup_hdl ) 
     606  { 
     607     CTimer::get("XIOS").resume(); 
     608    return !domaingroup_hdl->zoom_ibegin.isEmpty(); 
     609     CTimer::get("XIOS").suspend(); 
     610  } 
     611   
     612   
    413613   
    414614  void cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_Ptr domaingroup_hdl, int zoom_ibegin_loc) 
     
    425625  } 
    426626   
     627  bool cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_Ptr domaingroup_hdl ) 
     628  { 
     629     CTimer::get("XIOS").resume(); 
     630    return !domaingroup_hdl->zoom_ibegin_loc.isEmpty(); 
     631     CTimer::get("XIOS").suspend(); 
     632  } 
     633   
     634   
    427635   
    428636  void cxios_set_domaingroup_zoom_jbegin(domaingroup_Ptr domaingroup_hdl, int zoom_jbegin) 
     
    439647  } 
    440648   
     649  bool cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_Ptr domaingroup_hdl ) 
     650  { 
     651     CTimer::get("XIOS").resume(); 
     652    return !domaingroup_hdl->zoom_jbegin.isEmpty(); 
     653     CTimer::get("XIOS").suspend(); 
     654  } 
     655   
     656   
    441657   
    442658  void cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_Ptr domaingroup_hdl, int zoom_jbegin_loc) 
     
    453669  } 
    454670   
     671  bool cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_Ptr domaingroup_hdl ) 
     672  { 
     673     CTimer::get("XIOS").resume(); 
     674    return !domaingroup_hdl->zoom_jbegin_loc.isEmpty(); 
     675     CTimer::get("XIOS").suspend(); 
     676  } 
     677   
     678   
    455679   
    456680  void cxios_set_domaingroup_zoom_ni(domaingroup_Ptr domaingroup_hdl, int zoom_ni) 
     
    467691  } 
    468692   
     693  bool cxios_is_defined_domaingroup_zoom_ni(domaingroup_Ptr domaingroup_hdl ) 
     694  { 
     695     CTimer::get("XIOS").resume(); 
     696    return !domaingroup_hdl->zoom_ni.isEmpty(); 
     697     CTimer::get("XIOS").suspend(); 
     698  } 
     699   
     700   
    469701   
    470702  void cxios_set_domaingroup_zoom_ni_loc(domaingroup_Ptr domaingroup_hdl, int zoom_ni_loc) 
     
    481713  } 
    482714   
     715  bool cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_Ptr domaingroup_hdl ) 
     716  { 
     717     CTimer::get("XIOS").resume(); 
     718    return !domaingroup_hdl->zoom_ni_loc.isEmpty(); 
     719     CTimer::get("XIOS").suspend(); 
     720  } 
     721   
     722   
    483723   
    484724  void cxios_set_domaingroup_zoom_nj(domaingroup_Ptr domaingroup_hdl, int zoom_nj) 
     
    495735  } 
    496736   
     737  bool cxios_is_defined_domaingroup_zoom_nj(domaingroup_Ptr domaingroup_hdl ) 
     738  { 
     739     CTimer::get("XIOS").resume(); 
     740    return !domaingroup_hdl->zoom_nj.isEmpty(); 
     741     CTimer::get("XIOS").suspend(); 
     742  } 
     743   
     744   
    497745   
    498746  void cxios_set_domaingroup_zoom_nj_loc(domaingroup_Ptr domaingroup_hdl, int zoom_nj_loc) 
     
    509757  } 
    510758   
     759  bool cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_Ptr domaingroup_hdl ) 
     760  { 
     761     CTimer::get("XIOS").resume(); 
     762    return !domaingroup_hdl->zoom_nj_loc.isEmpty(); 
     763     CTimer::get("XIOS").suspend(); 
     764  } 
     765   
     766   
    511767   
    512768   
  • XIOS/trunk/src/interface/c_attr/icfield_attr.cpp

    r369 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_field_axis_ref(field_Ptr field_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !field_hdl->axis_ref.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_field_default_value(field_Ptr field_hdl, double default_value) 
     
    4957  } 
    5058   
     59  bool cxios_is_defined_field_default_value(field_Ptr field_hdl ) 
     60  { 
     61     CTimer::get("XIOS").resume(); 
     62    return !field_hdl->default_value.isEmpty(); 
     63     CTimer::get("XIOS").suspend(); 
     64  } 
     65   
     66   
    5167   
    5268  void cxios_set_field_domain_ref(field_Ptr field_hdl, const char * domain_ref, int domain_ref_size) 
     
    6884  } 
    6985   
     86  bool cxios_is_defined_field_domain_ref(field_Ptr field_hdl ) 
     87  { 
     88     CTimer::get("XIOS").resume(); 
     89    return !field_hdl->domain_ref.isEmpty(); 
     90     CTimer::get("XIOS").suspend(); 
     91  } 
     92   
     93   
    7094   
    7195  void cxios_set_field_enabled(field_Ptr field_hdl, bool enabled) 
     
    82106  } 
    83107   
     108  bool cxios_is_defined_field_enabled(field_Ptr field_hdl ) 
     109  { 
     110     CTimer::get("XIOS").resume(); 
     111    return !field_hdl->enabled.isEmpty(); 
     112     CTimer::get("XIOS").suspend(); 
     113  } 
     114   
     115   
    84116   
    85117  void cxios_set_field_field_ref(field_Ptr field_hdl, const char * field_ref, int field_ref_size) 
     
    101133  } 
    102134   
     135  bool cxios_is_defined_field_field_ref(field_Ptr field_hdl ) 
     136  { 
     137     CTimer::get("XIOS").resume(); 
     138    return !field_hdl->field_ref.isEmpty(); 
     139     CTimer::get("XIOS").suspend(); 
     140  } 
     141   
     142   
    103143   
    104144  void cxios_set_field_freq_offset(field_Ptr field_hdl, const char * freq_offset, int freq_offset_size) 
     
    120160  } 
    121161   
     162  bool cxios_is_defined_field_freq_offset(field_Ptr field_hdl ) 
     163  { 
     164     CTimer::get("XIOS").resume(); 
     165    return !field_hdl->freq_offset.isEmpty(); 
     166     CTimer::get("XIOS").suspend(); 
     167  } 
     168   
     169   
    122170   
    123171  void cxios_set_field_freq_op(field_Ptr field_hdl, const char * freq_op, int freq_op_size) 
     
    139187  } 
    140188   
     189  bool cxios_is_defined_field_freq_op(field_Ptr field_hdl ) 
     190  { 
     191     CTimer::get("XIOS").resume(); 
     192    return !field_hdl->freq_op.isEmpty(); 
     193     CTimer::get("XIOS").suspend(); 
     194  } 
     195   
     196   
    141197   
    142198  void cxios_set_field_grid_ref(field_Ptr field_hdl, const char * grid_ref, int grid_ref_size) 
     
    158214  } 
    159215   
     216  bool cxios_is_defined_field_grid_ref(field_Ptr field_hdl ) 
     217  { 
     218     CTimer::get("XIOS").resume(); 
     219    return !field_hdl->grid_ref.isEmpty(); 
     220     CTimer::get("XIOS").suspend(); 
     221  } 
     222   
     223   
    160224   
    161225  void cxios_set_field_level(field_Ptr field_hdl, int level) 
     
    172236  } 
    173237   
     238  bool cxios_is_defined_field_level(field_Ptr field_hdl ) 
     239  { 
     240     CTimer::get("XIOS").resume(); 
     241    return !field_hdl->level.isEmpty(); 
     242     CTimer::get("XIOS").suspend(); 
     243  } 
     244   
     245   
    174246   
    175247  void cxios_set_field_long_name(field_Ptr field_hdl, const char * long_name, int long_name_size) 
     
    191263  } 
    192264   
     265  bool cxios_is_defined_field_long_name(field_Ptr field_hdl ) 
     266  { 
     267     CTimer::get("XIOS").resume(); 
     268    return !field_hdl->long_name.isEmpty(); 
     269     CTimer::get("XIOS").suspend(); 
     270  } 
     271   
     272   
    193273   
    194274  void cxios_set_field_name(field_Ptr field_hdl, const char * name, int name_size) 
     
    210290  } 
    211291   
     292  bool cxios_is_defined_field_name(field_Ptr field_hdl ) 
     293  { 
     294     CTimer::get("XIOS").resume(); 
     295    return !field_hdl->name.isEmpty(); 
     296     CTimer::get("XIOS").suspend(); 
     297  } 
     298   
     299   
    212300   
    213301  void cxios_set_field_operation(field_Ptr field_hdl, const char * operation, int operation_size) 
     
    229317  } 
    230318   
     319  bool cxios_is_defined_field_operation(field_Ptr field_hdl ) 
     320  { 
     321     CTimer::get("XIOS").resume(); 
     322    return !field_hdl->operation.isEmpty(); 
     323     CTimer::get("XIOS").suspend(); 
     324  } 
     325   
     326   
    231327   
    232328  void cxios_set_field_prec(field_Ptr field_hdl, int prec) 
     
    243339  } 
    244340   
     341  bool cxios_is_defined_field_prec(field_Ptr field_hdl ) 
     342  { 
     343     CTimer::get("XIOS").resume(); 
     344    return !field_hdl->prec.isEmpty(); 
     345     CTimer::get("XIOS").suspend(); 
     346  } 
     347   
     348   
    245349   
    246350  void cxios_set_field_standard_name(field_Ptr field_hdl, const char * standard_name, int standard_name_size) 
     
    262366  } 
    263367   
     368  bool cxios_is_defined_field_standard_name(field_Ptr field_hdl ) 
     369  { 
     370     CTimer::get("XIOS").resume(); 
     371    return !field_hdl->standard_name.isEmpty(); 
     372     CTimer::get("XIOS").suspend(); 
     373  } 
     374   
     375   
    264376   
    265377  void cxios_set_field_unit(field_Ptr field_hdl, const char * unit, int unit_size) 
     
    281393  } 
    282394   
     395  bool cxios_is_defined_field_unit(field_Ptr field_hdl ) 
     396  { 
     397     CTimer::get("XIOS").resume(); 
     398    return !field_hdl->unit.isEmpty(); 
     399     CTimer::get("XIOS").suspend(); 
     400  } 
     401   
     402   
    283403   
    284404   
  • XIOS/trunk/src/interface/c_attr/icfieldgroup_attr.cpp

    r369 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_fieldgroup_axis_ref(fieldgroup_Ptr fieldgroup_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !fieldgroup_hdl->axis_ref.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_fieldgroup_default_value(fieldgroup_Ptr fieldgroup_hdl, double default_value) 
     
    4957  } 
    5058   
     59  bool cxios_is_defined_fieldgroup_default_value(fieldgroup_Ptr fieldgroup_hdl ) 
     60  { 
     61     CTimer::get("XIOS").resume(); 
     62    return !fieldgroup_hdl->default_value.isEmpty(); 
     63     CTimer::get("XIOS").suspend(); 
     64  } 
     65   
     66   
    5167   
    5268  void cxios_set_fieldgroup_domain_ref(fieldgroup_Ptr fieldgroup_hdl, const char * domain_ref, int domain_ref_size) 
     
    6884  } 
    6985   
     86  bool cxios_is_defined_fieldgroup_domain_ref(fieldgroup_Ptr fieldgroup_hdl ) 
     87  { 
     88     CTimer::get("XIOS").resume(); 
     89    return !fieldgroup_hdl->domain_ref.isEmpty(); 
     90     CTimer::get("XIOS").suspend(); 
     91  } 
     92   
     93   
    7094   
    7195  void cxios_set_fieldgroup_enabled(fieldgroup_Ptr fieldgroup_hdl, bool enabled) 
     
    82106  } 
    83107   
     108  bool cxios_is_defined_fieldgroup_enabled(fieldgroup_Ptr fieldgroup_hdl ) 
     109  { 
     110     CTimer::get("XIOS").resume(); 
     111    return !fieldgroup_hdl->enabled.isEmpty(); 
     112     CTimer::get("XIOS").suspend(); 
     113  } 
     114   
     115   
    84116   
    85117  void cxios_set_fieldgroup_field_ref(fieldgroup_Ptr fieldgroup_hdl, const char * field_ref, int field_ref_size) 
     
    101133  } 
    102134   
     135  bool cxios_is_defined_fieldgroup_field_ref(fieldgroup_Ptr fieldgroup_hdl ) 
     136  { 
     137     CTimer::get("XIOS").resume(); 
     138    return !fieldgroup_hdl->field_ref.isEmpty(); 
     139     CTimer::get("XIOS").suspend(); 
     140  } 
     141   
     142   
    103143   
    104144  void cxios_set_fieldgroup_freq_offset(fieldgroup_Ptr fieldgroup_hdl, const char * freq_offset, int freq_offset_size) 
     
    120160  } 
    121161   
     162  bool cxios_is_defined_fieldgroup_freq_offset(fieldgroup_Ptr fieldgroup_hdl ) 
     163  { 
     164     CTimer::get("XIOS").resume(); 
     165    return !fieldgroup_hdl->freq_offset.isEmpty(); 
     166     CTimer::get("XIOS").suspend(); 
     167  } 
     168   
     169   
    122170   
    123171  void cxios_set_fieldgroup_freq_op(fieldgroup_Ptr fieldgroup_hdl, const char * freq_op, int freq_op_size) 
     
    139187  } 
    140188   
     189  bool cxios_is_defined_fieldgroup_freq_op(fieldgroup_Ptr fieldgroup_hdl ) 
     190  { 
     191     CTimer::get("XIOS").resume(); 
     192    return !fieldgroup_hdl->freq_op.isEmpty(); 
     193     CTimer::get("XIOS").suspend(); 
     194  } 
     195   
     196   
    141197   
    142198  void cxios_set_fieldgroup_grid_ref(fieldgroup_Ptr fieldgroup_hdl, const char * grid_ref, int grid_ref_size) 
     
    158214  } 
    159215   
     216  bool cxios_is_defined_fieldgroup_grid_ref(fieldgroup_Ptr fieldgroup_hdl ) 
     217  { 
     218     CTimer::get("XIOS").resume(); 
     219    return !fieldgroup_hdl->grid_ref.isEmpty(); 
     220     CTimer::get("XIOS").suspend(); 
     221  } 
     222   
     223   
    160224   
    161225  void cxios_set_fieldgroup_group_ref(fieldgroup_Ptr fieldgroup_hdl, const char * group_ref, int group_ref_size) 
     
    177241  } 
    178242   
     243  bool cxios_is_defined_fieldgroup_group_ref(fieldgroup_Ptr fieldgroup_hdl ) 
     244  { 
     245     CTimer::get("XIOS").resume(); 
     246    return !fieldgroup_hdl->group_ref.isEmpty(); 
     247     CTimer::get("XIOS").suspend(); 
     248  } 
     249   
     250   
    179251   
    180252  void cxios_set_fieldgroup_level(fieldgroup_Ptr fieldgroup_hdl, int level) 
     
    191263  } 
    192264   
     265  bool cxios_is_defined_fieldgroup_level(fieldgroup_Ptr fieldgroup_hdl ) 
     266  { 
     267     CTimer::get("XIOS").resume(); 
     268    return !fieldgroup_hdl->level.isEmpty(); 
     269     CTimer::get("XIOS").suspend(); 
     270  } 
     271   
     272   
    193273   
    194274  void cxios_set_fieldgroup_long_name(fieldgroup_Ptr fieldgroup_hdl, const char * long_name, int long_name_size) 
     
    210290  } 
    211291   
     292  bool cxios_is_defined_fieldgroup_long_name(fieldgroup_Ptr fieldgroup_hdl ) 
     293  { 
     294     CTimer::get("XIOS").resume(); 
     295    return !fieldgroup_hdl->long_name.isEmpty(); 
     296     CTimer::get("XIOS").suspend(); 
     297  } 
     298   
     299   
    212300   
    213301  void cxios_set_fieldgroup_name(fieldgroup_Ptr fieldgroup_hdl, const char * name, int name_size) 
     
    229317  } 
    230318   
     319  bool cxios_is_defined_fieldgroup_name(fieldgroup_Ptr fieldgroup_hdl ) 
     320  { 
     321     CTimer::get("XIOS").resume(); 
     322    return !fieldgroup_hdl->name.isEmpty(); 
     323     CTimer::get("XIOS").suspend(); 
     324  } 
     325   
     326   
    231327   
    232328  void cxios_set_fieldgroup_operation(fieldgroup_Ptr fieldgroup_hdl, const char * operation, int operation_size) 
     
    248344  } 
    249345   
     346  bool cxios_is_defined_fieldgroup_operation(fieldgroup_Ptr fieldgroup_hdl ) 
     347  { 
     348     CTimer::get("XIOS").resume(); 
     349    return !fieldgroup_hdl->operation.isEmpty(); 
     350     CTimer::get("XIOS").suspend(); 
     351  } 
     352   
     353   
    250354   
    251355  void cxios_set_fieldgroup_prec(fieldgroup_Ptr fieldgroup_hdl, int prec) 
     
    262366  } 
    263367   
     368  bool cxios_is_defined_fieldgroup_prec(fieldgroup_Ptr fieldgroup_hdl ) 
     369  { 
     370     CTimer::get("XIOS").resume(); 
     371    return !fieldgroup_hdl->prec.isEmpty(); 
     372     CTimer::get("XIOS").suspend(); 
     373  } 
     374   
     375   
    264376   
    265377  void cxios_set_fieldgroup_standard_name(fieldgroup_Ptr fieldgroup_hdl, const char * standard_name, int standard_name_size) 
     
    281393  } 
    282394   
     395  bool cxios_is_defined_fieldgroup_standard_name(fieldgroup_Ptr fieldgroup_hdl ) 
     396  { 
     397     CTimer::get("XIOS").resume(); 
     398    return !fieldgroup_hdl->standard_name.isEmpty(); 
     399     CTimer::get("XIOS").suspend(); 
     400  } 
     401   
     402   
    283403   
    284404  void cxios_set_fieldgroup_unit(fieldgroup_Ptr fieldgroup_hdl, const char * unit, int unit_size) 
     
    300420  } 
    301421   
     422  bool cxios_is_defined_fieldgroup_unit(fieldgroup_Ptr fieldgroup_hdl ) 
     423  { 
     424     CTimer::get("XIOS").resume(); 
     425    return !fieldgroup_hdl->unit.isEmpty(); 
     426     CTimer::get("XIOS").suspend(); 
     427  } 
     428   
     429   
    302430   
    303431   
  • XIOS/trunk/src/interface/c_attr/icfile_attr.cpp

    r415 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_file_description(file_Ptr file_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !file_hdl->description.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_file_enabled(file_Ptr file_hdl, bool enabled) 
     
    4957  } 
    5058   
     59  bool cxios_is_defined_file_enabled(file_Ptr file_hdl ) 
     60  { 
     61     CTimer::get("XIOS").resume(); 
     62    return !file_hdl->enabled.isEmpty(); 
     63     CTimer::get("XIOS").suspend(); 
     64  } 
     65   
     66   
    5167   
    5268  void cxios_set_file_min_digits(file_Ptr file_hdl, int min_digits) 
     
    6379  } 
    6480   
     81  bool cxios_is_defined_file_min_digits(file_Ptr file_hdl ) 
     82  { 
     83     CTimer::get("XIOS").resume(); 
     84    return !file_hdl->min_digits.isEmpty(); 
     85     CTimer::get("XIOS").suspend(); 
     86  } 
     87   
     88   
    6589   
    6690  void cxios_set_file_name(file_Ptr file_hdl, const char * name, int name_size) 
     
    82106  } 
    83107   
     108  bool cxios_is_defined_file_name(file_Ptr file_hdl ) 
     109  { 
     110     CTimer::get("XIOS").resume(); 
     111    return !file_hdl->name.isEmpty(); 
     112     CTimer::get("XIOS").suspend(); 
     113  } 
     114   
     115   
    84116   
    85117  void cxios_set_file_name_suffix(file_Ptr file_hdl, const char * name_suffix, int name_suffix_size) 
     
    101133  } 
    102134   
     135  bool cxios_is_defined_file_name_suffix(file_Ptr file_hdl ) 
     136  { 
     137     CTimer::get("XIOS").resume(); 
     138    return !file_hdl->name_suffix.isEmpty(); 
     139     CTimer::get("XIOS").suspend(); 
     140  } 
     141   
     142   
    103143   
    104144  void cxios_set_file_output_freq(file_Ptr file_hdl, const char * output_freq, int output_freq_size) 
     
    120160  } 
    121161   
     162  bool cxios_is_defined_file_output_freq(file_Ptr file_hdl ) 
     163  { 
     164     CTimer::get("XIOS").resume(); 
     165    return !file_hdl->output_freq.isEmpty(); 
     166     CTimer::get("XIOS").suspend(); 
     167  } 
     168   
     169   
    122170   
    123171  void cxios_set_file_output_level(file_Ptr file_hdl, int output_level) 
     
    134182  } 
    135183   
     184  bool cxios_is_defined_file_output_level(file_Ptr file_hdl ) 
     185  { 
     186     CTimer::get("XIOS").resume(); 
     187    return !file_hdl->output_level.isEmpty(); 
     188     CTimer::get("XIOS").suspend(); 
     189  } 
     190   
     191   
    136192   
    137193  void cxios_set_file_par_access(file_Ptr file_hdl, const char * par_access, int par_access_size) 
     
    153209  } 
    154210   
     211  bool cxios_is_defined_file_par_access(file_Ptr file_hdl ) 
     212  { 
     213     CTimer::get("XIOS").resume(); 
     214    return !file_hdl->par_access.isEmpty(); 
     215     CTimer::get("XIOS").suspend(); 
     216  } 
     217   
     218   
    155219   
    156220  void cxios_set_file_split_freq(file_Ptr file_hdl, const char * split_freq, int split_freq_size) 
     
    172236  } 
    173237   
     238  bool cxios_is_defined_file_split_freq(file_Ptr file_hdl ) 
     239  { 
     240     CTimer::get("XIOS").resume(); 
     241    return !file_hdl->split_freq.isEmpty(); 
     242     CTimer::get("XIOS").suspend(); 
     243  } 
     244   
     245   
     246   
     247  void cxios_set_file_split_freq_format(file_Ptr file_hdl, const char * split_freq_format, int split_freq_format_size) 
     248  { 
     249    std::string split_freq_format_str; 
     250    if(!cstr2string(split_freq_format, split_freq_format_size, split_freq_format_str)) return; 
     251     CTimer::get("XIOS").resume(); 
     252    file_hdl->split_freq_format.setValue(split_freq_format_str); 
     253    file_hdl->sendAttributToServer(file_hdl->split_freq_format); 
     254     CTimer::get("XIOS").suspend(); 
     255  } 
     256   
     257  void cxios_get_file_split_freq_format(file_Ptr file_hdl, char * split_freq_format, int split_freq_format_size) 
     258  { 
     259     CTimer::get("XIOS").resume(); 
     260    if(!string_copy(file_hdl->split_freq_format.getValue(),split_freq_format , split_freq_format_size)) 
     261      ERROR("void cxios_get_file_split_freq_format(file_Ptr file_hdl, char * split_freq_format, int split_freq_format_size)", <<"Input string is to short"); 
     262     CTimer::get("XIOS").suspend(); 
     263  } 
     264   
     265  bool cxios_is_defined_file_split_freq_format(file_Ptr file_hdl ) 
     266  { 
     267     CTimer::get("XIOS").resume(); 
     268    return !file_hdl->split_freq_format.isEmpty(); 
     269     CTimer::get("XIOS").suspend(); 
     270  } 
     271   
     272   
    174273   
    175274  void cxios_set_file_sync_freq(file_Ptr file_hdl, const char * sync_freq, int sync_freq_size) 
     
    191290  } 
    192291   
     292  bool cxios_is_defined_file_sync_freq(file_Ptr file_hdl ) 
     293  { 
     294     CTimer::get("XIOS").resume(); 
     295    return !file_hdl->sync_freq.isEmpty(); 
     296     CTimer::get("XIOS").suspend(); 
     297  } 
     298   
     299   
    193300   
    194301  void cxios_set_file_type(file_Ptr file_hdl, const char * type, int type_size) 
     
    210317  } 
    211318   
     319  bool cxios_is_defined_file_type(file_Ptr file_hdl ) 
     320  { 
     321     CTimer::get("XIOS").resume(); 
     322    return !file_hdl->type.isEmpty(); 
     323     CTimer::get("XIOS").suspend(); 
     324  } 
     325   
     326   
    212327   
    213328   
  • XIOS/trunk/src/interface/c_attr/icfilegroup_attr.cpp

    r415 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_filegroup_description(filegroup_Ptr filegroup_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !filegroup_hdl->description.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_filegroup_enabled(filegroup_Ptr filegroup_hdl, bool enabled) 
     
    4957  } 
    5058   
     59  bool cxios_is_defined_filegroup_enabled(filegroup_Ptr filegroup_hdl ) 
     60  { 
     61     CTimer::get("XIOS").resume(); 
     62    return !filegroup_hdl->enabled.isEmpty(); 
     63     CTimer::get("XIOS").suspend(); 
     64  } 
     65   
     66   
    5167   
    5268  void cxios_set_filegroup_group_ref(filegroup_Ptr filegroup_hdl, const char * group_ref, int group_ref_size) 
     
    6884  } 
    6985   
     86  bool cxios_is_defined_filegroup_group_ref(filegroup_Ptr filegroup_hdl ) 
     87  { 
     88     CTimer::get("XIOS").resume(); 
     89    return !filegroup_hdl->group_ref.isEmpty(); 
     90     CTimer::get("XIOS").suspend(); 
     91  } 
     92   
     93   
    7094   
    7195  void cxios_set_filegroup_min_digits(filegroup_Ptr filegroup_hdl, int min_digits) 
     
    82106  } 
    83107   
     108  bool cxios_is_defined_filegroup_min_digits(filegroup_Ptr filegroup_hdl ) 
     109  { 
     110     CTimer::get("XIOS").resume(); 
     111    return !filegroup_hdl->min_digits.isEmpty(); 
     112     CTimer::get("XIOS").suspend(); 
     113  } 
     114   
     115   
    84116   
    85117  void cxios_set_filegroup_name(filegroup_Ptr filegroup_hdl, const char * name, int name_size) 
     
    101133  } 
    102134   
     135  bool cxios_is_defined_filegroup_name(filegroup_Ptr filegroup_hdl ) 
     136  { 
     137     CTimer::get("XIOS").resume(); 
     138    return !filegroup_hdl->name.isEmpty(); 
     139     CTimer::get("XIOS").suspend(); 
     140  } 
     141   
     142   
    103143   
    104144  void cxios_set_filegroup_name_suffix(filegroup_Ptr filegroup_hdl, const char * name_suffix, int name_suffix_size) 
     
    120160  } 
    121161   
     162  bool cxios_is_defined_filegroup_name_suffix(filegroup_Ptr filegroup_hdl ) 
     163  { 
     164     CTimer::get("XIOS").resume(); 
     165    return !filegroup_hdl->name_suffix.isEmpty(); 
     166     CTimer::get("XIOS").suspend(); 
     167  } 
     168   
     169   
    122170   
    123171  void cxios_set_filegroup_output_freq(filegroup_Ptr filegroup_hdl, const char * output_freq, int output_freq_size) 
     
    139187  } 
    140188   
     189  bool cxios_is_defined_filegroup_output_freq(filegroup_Ptr filegroup_hdl ) 
     190  { 
     191     CTimer::get("XIOS").resume(); 
     192    return !filegroup_hdl->output_freq.isEmpty(); 
     193     CTimer::get("XIOS").suspend(); 
     194  } 
     195   
     196   
    141197   
    142198  void cxios_set_filegroup_output_level(filegroup_Ptr filegroup_hdl, int output_level) 
     
    153209  } 
    154210   
     211  bool cxios_is_defined_filegroup_output_level(filegroup_Ptr filegroup_hdl ) 
     212  { 
     213     CTimer::get("XIOS").resume(); 
     214    return !filegroup_hdl->output_level.isEmpty(); 
     215     CTimer::get("XIOS").suspend(); 
     216  } 
     217   
     218   
    155219   
    156220  void cxios_set_filegroup_par_access(filegroup_Ptr filegroup_hdl, const char * par_access, int par_access_size) 
     
    172236  } 
    173237   
     238  bool cxios_is_defined_filegroup_par_access(filegroup_Ptr filegroup_hdl ) 
     239  { 
     240     CTimer::get("XIOS").resume(); 
     241    return !filegroup_hdl->par_access.isEmpty(); 
     242     CTimer::get("XIOS").suspend(); 
     243  } 
     244   
     245   
    174246   
    175247  void cxios_set_filegroup_split_freq(filegroup_Ptr filegroup_hdl, const char * split_freq, int split_freq_size) 
     
    191263  } 
    192264   
     265  bool cxios_is_defined_filegroup_split_freq(filegroup_Ptr filegroup_hdl ) 
     266  { 
     267     CTimer::get("XIOS").resume(); 
     268    return !filegroup_hdl->split_freq.isEmpty(); 
     269     CTimer::get("XIOS").suspend(); 
     270  } 
     271   
     272   
     273   
     274  void cxios_set_filegroup_split_freq_format(filegroup_Ptr filegroup_hdl, const char * split_freq_format, int split_freq_format_size) 
     275  { 
     276    std::string split_freq_format_str; 
     277    if(!cstr2string(split_freq_format, split_freq_format_size, split_freq_format_str)) return; 
     278     CTimer::get("XIOS").resume(); 
     279    filegroup_hdl->split_freq_format.setValue(split_freq_format_str); 
     280    filegroup_hdl->sendAttributToServer(filegroup_hdl->split_freq_format); 
     281     CTimer::get("XIOS").suspend(); 
     282  } 
     283   
     284  void cxios_get_filegroup_split_freq_format(filegroup_Ptr filegroup_hdl, char * split_freq_format, int split_freq_format_size) 
     285  { 
     286     CTimer::get("XIOS").resume(); 
     287    if(!string_copy(filegroup_hdl->split_freq_format.getValue(),split_freq_format , split_freq_format_size)) 
     288      ERROR("void cxios_get_filegroup_split_freq_format(filegroup_Ptr filegroup_hdl, char * split_freq_format, int split_freq_format_size)", <<"Input string is to short"); 
     289     CTimer::get("XIOS").suspend(); 
     290  } 
     291   
     292  bool cxios_is_defined_filegroup_split_freq_format(filegroup_Ptr filegroup_hdl ) 
     293  { 
     294     CTimer::get("XIOS").resume(); 
     295    return !filegroup_hdl->split_freq_format.isEmpty(); 
     296     CTimer::get("XIOS").suspend(); 
     297  } 
     298   
     299   
    193300   
    194301  void cxios_set_filegroup_sync_freq(filegroup_Ptr filegroup_hdl, const char * sync_freq, int sync_freq_size) 
     
    210317  } 
    211318   
     319  bool cxios_is_defined_filegroup_sync_freq(filegroup_Ptr filegroup_hdl ) 
     320  { 
     321     CTimer::get("XIOS").resume(); 
     322    return !filegroup_hdl->sync_freq.isEmpty(); 
     323     CTimer::get("XIOS").suspend(); 
     324  } 
     325   
     326   
    212327   
    213328  void cxios_set_filegroup_type(filegroup_Ptr filegroup_hdl, const char * type, int type_size) 
     
    229344  } 
    230345   
     346  bool cxios_is_defined_filegroup_type(filegroup_Ptr filegroup_hdl ) 
     347  { 
     348     CTimer::get("XIOS").resume(); 
     349    return !filegroup_hdl->type.isEmpty(); 
     350     CTimer::get("XIOS").suspend(); 
     351  } 
     352   
     353   
    231354   
    232355   
  • XIOS/trunk/src/interface/c_attr/icgrid_attr.cpp

    r416 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_grid_axis_ref(grid_Ptr grid_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !grid_hdl->axis_ref.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_grid_description(grid_Ptr grid_hdl, const char * description, int description_size) 
     
    5361     CTimer::get("XIOS").suspend(); 
    5462  } 
     63   
     64  bool cxios_is_defined_grid_description(grid_Ptr grid_hdl ) 
     65  { 
     66     CTimer::get("XIOS").resume(); 
     67    return !grid_hdl->description.isEmpty(); 
     68     CTimer::get("XIOS").suspend(); 
     69  } 
     70   
    5571   
    5672   
     
    7389  } 
    7490   
     91  bool cxios_is_defined_grid_domain_ref(grid_Ptr grid_hdl ) 
     92  { 
     93     CTimer::get("XIOS").resume(); 
     94    return !grid_hdl->domain_ref.isEmpty(); 
     95     CTimer::get("XIOS").suspend(); 
     96  } 
     97   
     98   
    7599   
    76100  void cxios_set_grid_mask(grid_Ptr grid_hdl, bool* mask, int extent1, int extent2, int extent3) 
     
    90114     CTimer::get("XIOS").suspend(); 
    91115  } 
     116   
     117  bool cxios_is_defined_grid_mask(grid_Ptr grid_hdl ) 
     118  { 
     119     CTimer::get("XIOS").resume(); 
     120    return !grid_hdl->mask.isEmpty(); 
     121     CTimer::get("XIOS").suspend(); 
     122  } 
     123   
    92124   
    93125   
     
    110142  } 
    111143   
     144  bool cxios_is_defined_grid_name(grid_Ptr grid_hdl ) 
     145  { 
     146     CTimer::get("XIOS").resume(); 
     147    return !grid_hdl->name.isEmpty(); 
     148     CTimer::get("XIOS").suspend(); 
     149  } 
     150   
     151   
    112152   
    113153   
  • XIOS/trunk/src/interface/c_attr/icgridgroup_attr.cpp

    r416 r432  
    3535  } 
    3636   
     37  bool cxios_is_defined_gridgroup_axis_ref(gridgroup_Ptr gridgroup_hdl ) 
     38  { 
     39     CTimer::get("XIOS").resume(); 
     40    return !gridgroup_hdl->axis_ref.isEmpty(); 
     41     CTimer::get("XIOS").suspend(); 
     42  } 
     43   
     44   
    3745   
    3846  void cxios_set_gridgroup_description(gridgroup_Ptr gridgroup_hdl, const char * description, int description_size) 
     
    5361     CTimer::get("XIOS").suspend(); 
    5462  } 
     63   
     64  bool cxios_is_defined_gridgroup_description(gridgroup_Ptr gridgroup_hdl ) 
     65  { 
     66     CTimer::get("XIOS").resume(); 
     67    return !gridgroup_hdl->description.isEmpty(); 
     68     CTimer::get("XIOS").suspend(); 
     69  } 
     70   
    5571   
    5672   
     
    7389  } 
    7490   
     91  bool cxios_is_defined_gridgroup_domain_ref(gridgroup_Ptr gridgroup_hdl ) 
     92  { 
     93     CTimer::get("XIOS").resume(); 
     94    return !gridgroup_hdl->domain_ref.isEmpty(); 
     95     CTimer::get("XIOS").suspend(); 
     96  } 
     97   
     98   
    7599   
    76100  void cxios_set_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl, const char * group_ref, int group_ref_size) 
     
    92116  } 
    93117   
     118  bool cxios_is_defined_gridgroup_group_ref(gridgroup_Ptr gridgroup_hdl ) 
     119  { 
     120     CTimer::get("XIOS").resume(); 
     121    return !gridgroup_hdl->group_ref.isEmpty(); 
     122     CTimer::get("XIOS").suspend(); 
     123  } 
     124   
     125   
    94126   
    95127  void cxios_set_gridgroup_mask(gridgroup_Ptr gridgroup_hdl, bool* mask, int extent1, int extent2, int extent3) 
     
    109141     CTimer::get("XIOS").suspend(); 
    110142  } 
     143   
     144  bool cxios_is_defined_gridgroup_mask(gridgroup_Ptr gridgroup_hdl ) 
     145  { 
     146     CTimer::get("XIOS").resume(); 
     147    return !gridgroup_hdl->mask.isEmpty(); 
     148     CTimer::get("XIOS").suspend(); 
     149  } 
     150   
    111151   
    112152   
     
    129169  } 
    130170   
     171  bool cxios_is_defined_gridgroup_name(gridgroup_Ptr gridgroup_hdl ) 
     172  { 
     173     CTimer::get("XIOS").resume(); 
     174    return !gridgroup_hdl->name.isEmpty(); 
     175     CTimer::get("XIOS").suspend(); 
     176  } 
     177   
     178   
    131179   
    132180   
  • XIOS/trunk/src/interface/fortran/ixios.F90

    r325 r432  
    88 
    99USE icontext_attr, ONLY : xios(set_context_attr), xios(set_context_attr_hdl), & 
    10                           xios(get_context_attr), xios(get_context_attr_hdl) 
     10                          xios(get_context_attr), xios(get_context_attr_hdl), & 
     11                          xios(is_defined_context_attr), xios(is_defined_context_attr_hdl) 
    1112                                                
    1213USE idata, ONLY : xios(initialize),xios(init_server), xios(finalize), xios(context_initialize),  & 
     
    2324 
    2425USE idomain_attr, ONLY :  xios(set_domain_attr), xios(set_domain_attr_hdl),  & 
    25                           xios(get_domain_attr), xios(get_domain_attr_hdl) 
     26                          xios(get_domain_attr), xios(get_domain_attr_hdl), & 
     27                          xios(is_defined_domain_attr), xios(is_defined_domain_attr_hdl) 
    2628 
    2729USE idomaingroup_attr, ONLY : xios(set_domaingroup_attr), xios(set_domaingroup_attr_hdl),  &  
    28                               xios(get_domaingroup_attr), xios(get_domaingroup_attr_hdl)  
     30                              xios(get_domaingroup_attr), xios(get_domaingroup_attr_hdl), &  
     31                              xios(is_defined_domaingroup_attr), xios(is_defined_domaingroup_attr_hdl)  
    2932                     
    3033USE ifield, ONLY : txios(field), txios(fieldgroup), xios(get_field_handle),  & 
     
    3336 
    3437USE ifield_attr, ONLY : xios(set_field_attr),xios(set_field_attr_hdl),    & 
    35                         xios(get_field_attr),xios(get_field_attr_hdl) 
     38                        xios(get_field_attr),xios(get_field_attr_hdl), & 
     39                        xios(is_defined_field_attr),xios(is_defined_field_attr_hdl) 
    3640   
    3741USE ifieldgroup_attr, ONLY : xios(set_fieldgroup_attr), xios(set_fieldgroup_attr_hdl),  & 
    38                              xios(get_fieldgroup_attr), xios(get_fieldgroup_attr_hdl) 
     42                             xios(get_fieldgroup_attr), xios(get_fieldgroup_attr_hdl), & 
     43                             xios(is_defined_fieldgroup_attr), xios(is_defined_fieldgroup_attr_hdl) 
    3944 
    4045USE ifile, ONLY : txios(file), txios(filegroup), xios(get_file_handle),    &  
     
    4247 
    4348USE ifile_attr, ONLY : xios(set_file_attr),xios(set_file_attr_hdl), & 
    44                        xios(get_file_attr),xios(get_file_attr_hdl) 
     49                       xios(get_file_attr),xios(get_file_attr_hdl), & 
     50                       xios(is_defined_file_attr),xios(is_defined_file_attr_hdl) 
    4551 
    4652USE ifilegroup_attr, ONLY : xios(set_filegroup_attr), xios(set_filegroup_attr_hdl), & 
    47                             xios(get_filegroup_attr), xios(get_filegroup_attr_hdl) 
     53                            xios(get_filegroup_attr), xios(get_filegroup_attr_hdl), & 
     54                            xios(is_defined_filegroup_attr), xios(is_defined_filegroup_attr_hdl) 
    4855                   
    4956USE igrid, ONLY : txios(grid), txios(gridgroup), xios(get_grid_handle),     & 
     
    5158 
    5259USE igrid_attr, ONLY : xios(set_grid_attr_hdl), xios(set_grid_attr), & 
    53                        xios(get_grid_attr_hdl), xios(get_grid_attr) 
     60                       xios(get_grid_attr_hdl), xios(get_grid_attr), & 
     61                       xios(is_defined_grid_attr_hdl), xios(is_defined_grid_attr) 
    5462 
    5563USE igridgroup_attr, ONLY : xios(set_gridgroup_attr), xios(set_gridgroup_attr_hdl),  & 
    56                             xios(get_gridgroup_attr), xios(get_gridgroup_attr_hdl) 
     64                            xios(get_gridgroup_attr), xios(get_gridgroup_attr_hdl), & 
     65                            xios(is_defined_gridgroup_attr), xios(is_defined_gridgroup_attr_hdl) 
    5766 
    5867USE iaxis, ONLY : txios(axis), txios(axisgroup), xios(get_axis_handle),     & 
     
    6069 
    6170USE iaxis_attr, ONLY :  xios(set_axis_attr), xios(set_axis_attr_hdl), & 
    62                         xios(get_axis_attr), xios(get_axis_attr_hdl) 
     71                        xios(get_axis_attr), xios(get_axis_attr_hdl), & 
     72                        xios(is_defined_axis_attr), xios(is_defined_axis_attr_hdl) 
    6373 
    6474USE iaxisgroup_attr, ONLY : xios(set_axisgroup_attr), xios(set_axisgroup_attr_hdl), & 
    65                             xios(get_axisgroup_attr), xios(get_axisgroup_attr_hdl) 
     75                            xios(get_axisgroup_attr), xios(get_axisgroup_attr_hdl), & 
     76                            xios(is_defined_axisgroup_attr), xios(is_defined_axisgroup_attr_hdl) 
    6677 
    6778USE ixml_tree, ONLY : xios(add_axis), xios(add_file), xios(add_grid), xios(add_field), xios(add_domain),          & 
     
    8697                   xios(get_axisgroup_attr_hdl), xios(get_context_attr_hdl) 
    8798END INTERFACE xios(get_attr) 
     99 
     100INTERFACE xios(is_defined_attr) 
     101  MODULE PROCEDURE xios(is_defined_domaingroup_attr_hdl), xios(is_defined_domain_attr_hdl), xios(is_defined_fieldgroup_attr_hdl), & 
     102                   xios(is_defined_field_attr_hdl), xios(is_defined_file_attr_hdl), xios(is_defined_filegroup_attr_hdl),          & 
     103                   xios(is_defined_grid_attr_hdl), xios(is_defined_gridgroup_attr_hdl), xios(is_defined_axis_attr_hdl) ,          & 
     104                   xios(is_defined_axisgroup_attr_hdl), xios(is_defined_context_attr_hdl) 
     105END INTERFACE xios(is_defined_attr) 
    88106 
    89107INTERFACE xios(get_handle) 
     
    123141          xios(get_axisgroup_attr), xios(get_context_attr) 
    124142 
     143PUBLIC :: xios(is_defined_attr), xios(is_defined_domain_attr), xios(is_defined_domaingroup_attr), xios(is_defined_fieldgroup_attr), & 
     144          xios(is_defined_field_attr), xios(is_defined_file_attr), xios(is_defined_filegroup_attr),          & 
     145          xios(is_defined_grid_attr), xios(is_defined_gridgroup_attr), xios(is_defined_axis_attr) ,          & 
     146          xios(is_defined_axisgroup_attr), xios(is_defined_context_attr) 
     147 
    125148 PUBLIC :: xios(get_handle)  
    126149 PUBLIC :: xios(add_child)  
  • XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.f90

    r415 r432  
    2323    END SUBROUTINE cxios_get_axis_long_name 
    2424     
     25    FUNCTION cxios_is_defined_axis_long_name(axis_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     29    END FUNCTION cxios_is_defined_axis_long_name 
     30     
    2531     
    2632    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C) 
     
    3844    END SUBROUTINE cxios_get_axis_name 
    3945     
     46    FUNCTION cxios_is_defined_axis_name(axis_hdl ) BIND(C) 
     47      USE ISO_C_BINDING 
     48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name 
     49      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     50    END FUNCTION cxios_is_defined_axis_name 
     51     
    4052     
    4153    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C) 
     
    5365    END SUBROUTINE cxios_get_axis_positive 
    5466     
     67    FUNCTION cxios_is_defined_axis_positive(axis_hdl ) BIND(C) 
     68      USE ISO_C_BINDING 
     69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive 
     70      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     71    END FUNCTION cxios_is_defined_axis_positive 
     72     
    5573     
    5674    SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C) 
     
    6583      INTEGER (KIND=C_INT)             :: size 
    6684    END SUBROUTINE cxios_get_axis_size 
     85     
     86    FUNCTION cxios_is_defined_axis_size(axis_hdl ) BIND(C) 
     87      USE ISO_C_BINDING 
     88      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size 
     89      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     90    END FUNCTION cxios_is_defined_axis_size 
    6791     
    6892     
     
    81105    END SUBROUTINE cxios_get_axis_standard_name 
    82106     
     107    FUNCTION cxios_is_defined_axis_standard_name(axis_hdl ) BIND(C) 
     108      USE ISO_C_BINDING 
     109      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name 
     110      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     111    END FUNCTION cxios_is_defined_axis_standard_name 
     112     
    83113     
    84114    SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C) 
     
    95125      INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    96126    END SUBROUTINE cxios_get_axis_unit 
     127     
     128    FUNCTION cxios_is_defined_axis_unit(axis_hdl ) BIND(C) 
     129      USE ISO_C_BINDING 
     130      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit 
     131      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     132    END FUNCTION cxios_is_defined_axis_unit 
    97133     
    98134     
     
    111147    END SUBROUTINE cxios_get_axis_value 
    112148     
     149    FUNCTION cxios_is_defined_axis_value(axis_hdl ) BIND(C) 
     150      USE ISO_C_BINDING 
     151      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value 
     152      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     153    END FUNCTION cxios_is_defined_axis_value 
     154     
    113155     
    114156    SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) 
     
    124166    END SUBROUTINE cxios_get_axis_zoom_begin 
    125167     
     168    FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl ) BIND(C) 
     169      USE ISO_C_BINDING 
     170      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin 
     171      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     172    END FUNCTION cxios_is_defined_axis_zoom_begin 
     173     
    126174     
    127175    SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C) 
     
    137185    END SUBROUTINE cxios_get_axis_zoom_end 
    138186     
     187    FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl ) BIND(C) 
     188      USE ISO_C_BINDING 
     189      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end 
     190      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     191    END FUNCTION cxios_is_defined_axis_zoom_end 
     192     
    139193     
    140194    SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C) 
     
    149203      INTEGER (KIND=C_INT)             :: zoom_size 
    150204    END SUBROUTINE cxios_get_axis_zoom_size 
     205     
     206    FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl ) BIND(C) 
     207      USE ISO_C_BINDING 
     208      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size 
     209      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     210    END FUNCTION cxios_is_defined_axis_zoom_size 
    151211     
    152212     
  • XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.f90

    r415 r432  
    2323    END SUBROUTINE cxios_get_axisgroup_group_ref 
    2424     
     25    FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     29    END FUNCTION cxios_is_defined_axisgroup_group_ref 
     30     
    2531     
    2632    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 
     
    3844    END SUBROUTINE cxios_get_axisgroup_long_name 
    3945     
     46    FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl ) BIND(C) 
     47      USE ISO_C_BINDING 
     48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name 
     49      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     50    END FUNCTION cxios_is_defined_axisgroup_long_name 
     51     
    4052     
    4153    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 
     
    5365    END SUBROUTINE cxios_get_axisgroup_name 
    5466     
     67    FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl ) BIND(C) 
     68      USE ISO_C_BINDING 
     69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name 
     70      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     71    END FUNCTION cxios_is_defined_axisgroup_name 
     72     
    5573     
    5674    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) 
     
    6886    END SUBROUTINE cxios_get_axisgroup_positive 
    6987     
     88    FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl ) BIND(C) 
     89      USE ISO_C_BINDING 
     90      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive 
     91      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     92    END FUNCTION cxios_is_defined_axisgroup_positive 
     93     
    7094     
    7195    SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C) 
     
    80104      INTEGER (KIND=C_INT)             :: size 
    81105    END SUBROUTINE cxios_get_axisgroup_size 
     106     
     107    FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl ) BIND(C) 
     108      USE ISO_C_BINDING 
     109      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_size 
     110      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     111    END FUNCTION cxios_is_defined_axisgroup_size 
    82112     
    83113     
     
    96126    END SUBROUTINE cxios_get_axisgroup_standard_name 
    97127     
     128    FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl ) BIND(C) 
     129      USE ISO_C_BINDING 
     130      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name 
     131      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     132    END FUNCTION cxios_is_defined_axisgroup_standard_name 
     133     
    98134     
    99135    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C) 
     
    110146      INTEGER  (kind = C_INT)     , VALUE        :: unit_size 
    111147    END SUBROUTINE cxios_get_axisgroup_unit 
     148     
     149    FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl ) BIND(C) 
     150      USE ISO_C_BINDING 
     151      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit 
     152      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     153    END FUNCTION cxios_is_defined_axisgroup_unit 
    112154     
    113155     
     
    126168    END SUBROUTINE cxios_get_axisgroup_value 
    127169     
     170    FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl ) BIND(C) 
     171      USE ISO_C_BINDING 
     172      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value 
     173      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     174    END FUNCTION cxios_is_defined_axisgroup_value 
     175     
    128176     
    129177    SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C) 
     
    139187    END SUBROUTINE cxios_get_axisgroup_zoom_begin 
    140188     
     189    FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl ) BIND(C) 
     190      USE ISO_C_BINDING 
     191      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_begin 
     192      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     193    END FUNCTION cxios_is_defined_axisgroup_zoom_begin 
     194     
    141195     
    142196    SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C) 
     
    152206    END SUBROUTINE cxios_get_axisgroup_zoom_end 
    153207     
     208    FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl ) BIND(C) 
     209      USE ISO_C_BINDING 
     210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_end 
     211      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     212    END FUNCTION cxios_is_defined_axisgroup_zoom_end 
     213     
    154214     
    155215    SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C) 
     
    164224      INTEGER (KIND=C_INT)             :: zoom_size 
    165225    END SUBROUTINE cxios_get_axisgroup_zoom_size 
     226     
     227    FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl ) BIND(C) 
     228      USE ISO_C_BINDING 
     229      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_size 
     230      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     231    END FUNCTION cxios_is_defined_axisgroup_zoom_size 
    166232     
    167233     
  • XIOS/trunk/src/interface/fortran_attr/context_interface_attr.f90

    r336 r432  
    2323    END SUBROUTINE cxios_get_context_calendar_type 
    2424     
     25    FUNCTION cxios_is_defined_context_calendar_type(context_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_calendar_type 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     29    END FUNCTION cxios_is_defined_context_calendar_type 
     30     
    2531     
    2632    SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) 
     
    3743      INTEGER  (kind = C_INT)     , VALUE        :: output_dir_size 
    3844    END SUBROUTINE cxios_get_context_output_dir 
     45     
     46    FUNCTION cxios_is_defined_context_output_dir(context_hdl ) BIND(C) 
     47      USE ISO_C_BINDING 
     48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_output_dir 
     49      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     50    END FUNCTION cxios_is_defined_context_output_dir 
    3951     
    4052     
     
    5365    END SUBROUTINE cxios_get_context_start_date 
    5466     
     67    FUNCTION cxios_is_defined_context_start_date(context_hdl ) BIND(C) 
     68      USE ISO_C_BINDING 
     69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_start_date 
     70      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     71    END FUNCTION cxios_is_defined_context_start_date 
     72     
    5573     
    5674    SUBROUTINE cxios_set_context_time_origin(context_hdl, time_origin, time_origin_size) BIND(C) 
     
    6785      INTEGER  (kind = C_INT)     , VALUE        :: time_origin_size 
    6886    END SUBROUTINE cxios_get_context_time_origin 
     87     
     88    FUNCTION cxios_is_defined_context_time_origin(context_hdl ) BIND(C) 
     89      USE ISO_C_BINDING 
     90      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_time_origin 
     91      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     92    END FUNCTION cxios_is_defined_context_time_origin 
    6993     
    7094     
     
    83107    END SUBROUTINE cxios_get_context_timestep 
    84108     
     109    FUNCTION cxios_is_defined_context_timestep(context_hdl ) BIND(C) 
     110      USE ISO_C_BINDING 
     111      LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_timestep 
     112      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     113    END FUNCTION cxios_is_defined_context_timestep 
     114     
    85115     
    86116    END INTERFACE 
  • XIOS/trunk/src/interface/fortran_attr/domain_interface_attr.f90

    r326 r432  
    2121    END SUBROUTINE cxios_get_domain_data_dim 
    2222     
     23    FUNCTION cxios_is_defined_domain_data_dim(domain_hdl ) BIND(C) 
     24      USE ISO_C_BINDING 
     25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_dim 
     26      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     27    END FUNCTION cxios_is_defined_domain_data_dim 
     28     
    2329     
    2430    SUBROUTINE cxios_set_domain_data_i_index(domain_hdl, data_i_index, extent1) BIND(C) 
     
    3541      INTEGER (kind = C_INT), VALUE  :: extent1 
    3642    END SUBROUTINE cxios_get_domain_data_i_index 
     43     
     44    FUNCTION cxios_is_defined_domain_data_i_index(domain_hdl ) BIND(C) 
     45      USE ISO_C_BINDING 
     46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_i_index 
     47      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     48    END FUNCTION cxios_is_defined_domain_data_i_index 
    3749     
    3850     
     
    4961    END SUBROUTINE cxios_get_domain_data_ibegin 
    5062     
     63    FUNCTION cxios_is_defined_domain_data_ibegin(domain_hdl ) BIND(C) 
     64      USE ISO_C_BINDING 
     65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ibegin 
     66      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     67    END FUNCTION cxios_is_defined_domain_data_ibegin 
     68     
    5169     
    5270    SUBROUTINE cxios_set_domain_data_j_index(domain_hdl, data_j_index, extent1) BIND(C) 
     
    6381      INTEGER (kind = C_INT), VALUE  :: extent1 
    6482    END SUBROUTINE cxios_get_domain_data_j_index 
     83     
     84    FUNCTION cxios_is_defined_domain_data_j_index(domain_hdl ) BIND(C) 
     85      USE ISO_C_BINDING 
     86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_j_index 
     87      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     88    END FUNCTION cxios_is_defined_domain_data_j_index 
    6589     
    6690     
     
    77101    END SUBROUTINE cxios_get_domain_data_jbegin 
    78102     
     103    FUNCTION cxios_is_defined_domain_data_jbegin(domain_hdl ) BIND(C) 
     104      USE ISO_C_BINDING 
     105      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_jbegin 
     106      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     107    END FUNCTION cxios_is_defined_domain_data_jbegin 
     108     
    79109     
    80110    SUBROUTINE cxios_set_domain_data_n_index(domain_hdl, data_n_index) BIND(C) 
     
    90120    END SUBROUTINE cxios_get_domain_data_n_index 
    91121     
     122    FUNCTION cxios_is_defined_domain_data_n_index(domain_hdl ) BIND(C) 
     123      USE ISO_C_BINDING 
     124      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_n_index 
     125      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     126    END FUNCTION cxios_is_defined_domain_data_n_index 
     127     
    92128     
    93129    SUBROUTINE cxios_set_domain_data_ni(domain_hdl, data_ni) BIND(C) 
     
    103139    END SUBROUTINE cxios_get_domain_data_ni 
    104140     
     141    FUNCTION cxios_is_defined_domain_data_ni(domain_hdl ) BIND(C) 
     142      USE ISO_C_BINDING 
     143      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_ni 
     144      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     145    END FUNCTION cxios_is_defined_domain_data_ni 
     146     
    105147     
    106148    SUBROUTINE cxios_set_domain_data_nj(domain_hdl, data_nj) BIND(C) 
     
    115157      INTEGER (KIND=C_INT)             :: data_nj 
    116158    END SUBROUTINE cxios_get_domain_data_nj 
     159     
     160    FUNCTION cxios_is_defined_domain_data_nj(domain_hdl ) BIND(C) 
     161      USE ISO_C_BINDING 
     162      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_data_nj 
     163      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     164    END FUNCTION cxios_is_defined_domain_data_nj 
    117165     
    118166     
     
    131179    END SUBROUTINE cxios_get_domain_domain_group_ref 
    132180     
     181    FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl ) BIND(C) 
     182      USE ISO_C_BINDING 
     183      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref 
     184      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     185    END FUNCTION cxios_is_defined_domain_domain_group_ref 
     186     
    133187     
    134188    SUBROUTINE cxios_set_domain_ibegin(domain_hdl, ibegin) BIND(C) 
     
    144198    END SUBROUTINE cxios_get_domain_ibegin 
    145199     
     200    FUNCTION cxios_is_defined_domain_ibegin(domain_hdl ) BIND(C) 
     201      USE ISO_C_BINDING 
     202      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ibegin 
     203      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     204    END FUNCTION cxios_is_defined_domain_ibegin 
     205     
    146206     
    147207    SUBROUTINE cxios_set_domain_iend(domain_hdl, iend) BIND(C) 
     
    157217    END SUBROUTINE cxios_get_domain_iend 
    158218     
     219    FUNCTION cxios_is_defined_domain_iend(domain_hdl ) BIND(C) 
     220      USE ISO_C_BINDING 
     221      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_iend 
     222      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     223    END FUNCTION cxios_is_defined_domain_iend 
     224     
    159225     
    160226    SUBROUTINE cxios_set_domain_jbegin(domain_hdl, jbegin) BIND(C) 
     
    170236    END SUBROUTINE cxios_get_domain_jbegin 
    171237     
     238    FUNCTION cxios_is_defined_domain_jbegin(domain_hdl ) BIND(C) 
     239      USE ISO_C_BINDING 
     240      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jbegin 
     241      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     242    END FUNCTION cxios_is_defined_domain_jbegin 
     243     
    172244     
    173245    SUBROUTINE cxios_set_domain_jend(domain_hdl, jend) BIND(C) 
     
    183255    END SUBROUTINE cxios_get_domain_jend 
    184256     
     257    FUNCTION cxios_is_defined_domain_jend(domain_hdl ) BIND(C) 
     258      USE ISO_C_BINDING 
     259      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_jend 
     260      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     261    END FUNCTION cxios_is_defined_domain_jend 
     262     
    185263     
    186264    SUBROUTINE cxios_set_domain_latvalue(domain_hdl, latvalue, extent1) BIND(C) 
     
    197275      INTEGER (kind = C_INT), VALUE  :: extent1 
    198276    END SUBROUTINE cxios_get_domain_latvalue 
     277     
     278    FUNCTION cxios_is_defined_domain_latvalue(domain_hdl ) BIND(C) 
     279      USE ISO_C_BINDING 
     280      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_latvalue 
     281      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     282    END FUNCTION cxios_is_defined_domain_latvalue 
    199283     
    200284     
     
    213297    END SUBROUTINE cxios_get_domain_long_name 
    214298     
     299    FUNCTION cxios_is_defined_domain_long_name(domain_hdl ) BIND(C) 
     300      USE ISO_C_BINDING 
     301      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_long_name 
     302      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     303    END FUNCTION cxios_is_defined_domain_long_name 
     304     
    215305     
    216306    SUBROUTINE cxios_set_domain_lonvalue(domain_hdl, lonvalue, extent1) BIND(C) 
     
    227317      INTEGER (kind = C_INT), VALUE  :: extent1 
    228318    END SUBROUTINE cxios_get_domain_lonvalue 
     319     
     320    FUNCTION cxios_is_defined_domain_lonvalue(domain_hdl ) BIND(C) 
     321      USE ISO_C_BINDING 
     322      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_lonvalue 
     323      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     324    END FUNCTION cxios_is_defined_domain_lonvalue 
    229325     
    230326     
     
    244340      INTEGER (kind = C_INT), VALUE  :: extent2 
    245341    END SUBROUTINE cxios_get_domain_mask 
     342     
     343    FUNCTION cxios_is_defined_domain_mask(domain_hdl ) BIND(C) 
     344      USE ISO_C_BINDING 
     345      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_mask 
     346      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     347    END FUNCTION cxios_is_defined_domain_mask 
    246348     
    247349     
     
    260362    END SUBROUTINE cxios_get_domain_name 
    261363     
     364    FUNCTION cxios_is_defined_domain_name(domain_hdl ) BIND(C) 
     365      USE ISO_C_BINDING 
     366      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_name 
     367      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     368    END FUNCTION cxios_is_defined_domain_name 
     369     
    262370     
    263371    SUBROUTINE cxios_set_domain_ni(domain_hdl, ni) BIND(C) 
     
    273381    END SUBROUTINE cxios_get_domain_ni 
    274382     
     383    FUNCTION cxios_is_defined_domain_ni(domain_hdl ) BIND(C) 
     384      USE ISO_C_BINDING 
     385      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni 
     386      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     387    END FUNCTION cxios_is_defined_domain_ni 
     388     
    275389     
    276390    SUBROUTINE cxios_set_domain_ni_glo(domain_hdl, ni_glo) BIND(C) 
     
    286400    END SUBROUTINE cxios_get_domain_ni_glo 
    287401     
     402    FUNCTION cxios_is_defined_domain_ni_glo(domain_hdl ) BIND(C) 
     403      USE ISO_C_BINDING 
     404      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ni_glo 
     405      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     406    END FUNCTION cxios_is_defined_domain_ni_glo 
     407     
    288408     
    289409    SUBROUTINE cxios_set_domain_nj(domain_hdl, nj) BIND(C) 
     
    299419    END SUBROUTINE cxios_get_domain_nj 
    300420     
     421    FUNCTION cxios_is_defined_domain_nj(domain_hdl ) BIND(C) 
     422      USE ISO_C_BINDING 
     423      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj 
     424      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     425    END FUNCTION cxios_is_defined_domain_nj 
     426     
    301427     
    302428    SUBROUTINE cxios_set_domain_nj_glo(domain_hdl, nj_glo) BIND(C) 
     
    311437      INTEGER (KIND=C_INT)             :: nj_glo 
    312438    END SUBROUTINE cxios_get_domain_nj_glo 
     439     
     440    FUNCTION cxios_is_defined_domain_nj_glo(domain_hdl ) BIND(C) 
     441      USE ISO_C_BINDING 
     442      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_nj_glo 
     443      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     444    END FUNCTION cxios_is_defined_domain_nj_glo 
    313445     
    314446     
     
    327459    END SUBROUTINE cxios_get_domain_standard_name 
    328460     
     461    FUNCTION cxios_is_defined_domain_standard_name(domain_hdl ) BIND(C) 
     462      USE ISO_C_BINDING 
     463      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_standard_name 
     464      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     465    END FUNCTION cxios_is_defined_domain_standard_name 
     466     
    329467     
    330468    SUBROUTINE cxios_set_domain_zoom_ibegin(domain_hdl, zoom_ibegin) BIND(C) 
     
    340478    END SUBROUTINE cxios_get_domain_zoom_ibegin 
    341479     
     480    FUNCTION cxios_is_defined_domain_zoom_ibegin(domain_hdl ) BIND(C) 
     481      USE ISO_C_BINDING 
     482      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin 
     483      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     484    END FUNCTION cxios_is_defined_domain_zoom_ibegin 
     485     
    342486     
    343487    SUBROUTINE cxios_set_domain_zoom_ibegin_loc(domain_hdl, zoom_ibegin_loc) BIND(C) 
     
    353497    END SUBROUTINE cxios_get_domain_zoom_ibegin_loc 
    354498     
     499    FUNCTION cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl ) BIND(C) 
     500      USE ISO_C_BINDING 
     501      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ibegin_loc 
     502      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     503    END FUNCTION cxios_is_defined_domain_zoom_ibegin_loc 
     504     
    355505     
    356506    SUBROUTINE cxios_set_domain_zoom_jbegin(domain_hdl, zoom_jbegin) BIND(C) 
     
    366516    END SUBROUTINE cxios_get_domain_zoom_jbegin 
    367517     
     518    FUNCTION cxios_is_defined_domain_zoom_jbegin(domain_hdl ) BIND(C) 
     519      USE ISO_C_BINDING 
     520      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin 
     521      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     522    END FUNCTION cxios_is_defined_domain_zoom_jbegin 
     523     
    368524     
    369525    SUBROUTINE cxios_set_domain_zoom_jbegin_loc(domain_hdl, zoom_jbegin_loc) BIND(C) 
     
    379535    END SUBROUTINE cxios_get_domain_zoom_jbegin_loc 
    380536     
     537    FUNCTION cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl ) BIND(C) 
     538      USE ISO_C_BINDING 
     539      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_jbegin_loc 
     540      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     541    END FUNCTION cxios_is_defined_domain_zoom_jbegin_loc 
     542     
    381543     
    382544    SUBROUTINE cxios_set_domain_zoom_ni(domain_hdl, zoom_ni) BIND(C) 
     
    392554    END SUBROUTINE cxios_get_domain_zoom_ni 
    393555     
     556    FUNCTION cxios_is_defined_domain_zoom_ni(domain_hdl ) BIND(C) 
     557      USE ISO_C_BINDING 
     558      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni 
     559      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     560    END FUNCTION cxios_is_defined_domain_zoom_ni 
     561     
    394562     
    395563    SUBROUTINE cxios_set_domain_zoom_ni_loc(domain_hdl, zoom_ni_loc) BIND(C) 
     
    405573    END SUBROUTINE cxios_get_domain_zoom_ni_loc 
    406574     
     575    FUNCTION cxios_is_defined_domain_zoom_ni_loc(domain_hdl ) BIND(C) 
     576      USE ISO_C_BINDING 
     577      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_ni_loc 
     578      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     579    END FUNCTION cxios_is_defined_domain_zoom_ni_loc 
     580     
    407581     
    408582    SUBROUTINE cxios_set_domain_zoom_nj(domain_hdl, zoom_nj) BIND(C) 
     
    418592    END SUBROUTINE cxios_get_domain_zoom_nj 
    419593     
     594    FUNCTION cxios_is_defined_domain_zoom_nj(domain_hdl ) BIND(C) 
     595      USE ISO_C_BINDING 
     596      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj 
     597      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     598    END FUNCTION cxios_is_defined_domain_zoom_nj 
     599     
    420600     
    421601    SUBROUTINE cxios_set_domain_zoom_nj_loc(domain_hdl, zoom_nj_loc) BIND(C) 
     
    430610      INTEGER (KIND=C_INT)             :: zoom_nj_loc 
    431611    END SUBROUTINE cxios_get_domain_zoom_nj_loc 
     612     
     613    FUNCTION cxios_is_defined_domain_zoom_nj_loc(domain_hdl ) BIND(C) 
     614      USE ISO_C_BINDING 
     615      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_zoom_nj_loc 
     616      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     617    END FUNCTION cxios_is_defined_domain_zoom_nj_loc 
    432618     
    433619     
  • XIOS/trunk/src/interface/fortran_attr/domaingroup_interface_attr.f90

    r326 r432  
    2121    END SUBROUTINE cxios_get_domaingroup_data_dim 
    2222     
     23    FUNCTION cxios_is_defined_domaingroup_data_dim(domaingroup_hdl ) BIND(C) 
     24      USE ISO_C_BINDING 
     25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_dim 
     26      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     27    END FUNCTION cxios_is_defined_domaingroup_data_dim 
     28     
    2329     
    2430    SUBROUTINE cxios_set_domaingroup_data_i_index(domaingroup_hdl, data_i_index, extent1) BIND(C) 
     
    3541      INTEGER (kind = C_INT), VALUE  :: extent1 
    3642    END SUBROUTINE cxios_get_domaingroup_data_i_index 
     43     
     44    FUNCTION cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl ) BIND(C) 
     45      USE ISO_C_BINDING 
     46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_i_index 
     47      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     48    END FUNCTION cxios_is_defined_domaingroup_data_i_index 
    3749     
    3850     
     
    4961    END SUBROUTINE cxios_get_domaingroup_data_ibegin 
    5062     
     63    FUNCTION cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl ) BIND(C) 
     64      USE ISO_C_BINDING 
     65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ibegin 
     66      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     67    END FUNCTION cxios_is_defined_domaingroup_data_ibegin 
     68     
    5169     
    5270    SUBROUTINE cxios_set_domaingroup_data_j_index(domaingroup_hdl, data_j_index, extent1) BIND(C) 
     
    6381      INTEGER (kind = C_INT), VALUE  :: extent1 
    6482    END SUBROUTINE cxios_get_domaingroup_data_j_index 
     83     
     84    FUNCTION cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl ) BIND(C) 
     85      USE ISO_C_BINDING 
     86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_j_index 
     87      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     88    END FUNCTION cxios_is_defined_domaingroup_data_j_index 
    6589     
    6690     
     
    77101    END SUBROUTINE cxios_get_domaingroup_data_jbegin 
    78102     
     103    FUNCTION cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl ) BIND(C) 
     104      USE ISO_C_BINDING 
     105      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_jbegin 
     106      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     107    END FUNCTION cxios_is_defined_domaingroup_data_jbegin 
     108     
    79109     
    80110    SUBROUTINE cxios_set_domaingroup_data_n_index(domaingroup_hdl, data_n_index) BIND(C) 
     
    90120    END SUBROUTINE cxios_get_domaingroup_data_n_index 
    91121     
     122    FUNCTION cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl ) BIND(C) 
     123      USE ISO_C_BINDING 
     124      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_n_index 
     125      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     126    END FUNCTION cxios_is_defined_domaingroup_data_n_index 
     127     
    92128     
    93129    SUBROUTINE cxios_set_domaingroup_data_ni(domaingroup_hdl, data_ni) BIND(C) 
     
    103139    END SUBROUTINE cxios_get_domaingroup_data_ni 
    104140     
     141    FUNCTION cxios_is_defined_domaingroup_data_ni(domaingroup_hdl ) BIND(C) 
     142      USE ISO_C_BINDING 
     143      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_ni 
     144      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     145    END FUNCTION cxios_is_defined_domaingroup_data_ni 
     146     
    105147     
    106148    SUBROUTINE cxios_set_domaingroup_data_nj(domaingroup_hdl, data_nj) BIND(C) 
     
    115157      INTEGER (KIND=C_INT)             :: data_nj 
    116158    END SUBROUTINE cxios_get_domaingroup_data_nj 
     159     
     160    FUNCTION cxios_is_defined_domaingroup_data_nj(domaingroup_hdl ) BIND(C) 
     161      USE ISO_C_BINDING 
     162      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_data_nj 
     163      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     164    END FUNCTION cxios_is_defined_domaingroup_data_nj 
    117165     
    118166     
     
    131179    END SUBROUTINE cxios_get_domaingroup_domain_group_ref 
    132180     
     181    FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl ) BIND(C) 
     182      USE ISO_C_BINDING 
     183      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref 
     184      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     185    END FUNCTION cxios_is_defined_domaingroup_domain_group_ref 
     186     
    133187     
    134188    SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) 
     
    146200    END SUBROUTINE cxios_get_domaingroup_group_ref 
    147201     
     202    FUNCTION cxios_is_defined_domaingroup_group_ref(domaingroup_hdl ) BIND(C) 
     203      USE ISO_C_BINDING 
     204      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_group_ref 
     205      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     206    END FUNCTION cxios_is_defined_domaingroup_group_ref 
     207     
    148208     
    149209    SUBROUTINE cxios_set_domaingroup_ibegin(domaingroup_hdl, ibegin) BIND(C) 
     
    159219    END SUBROUTINE cxios_get_domaingroup_ibegin 
    160220     
     221    FUNCTION cxios_is_defined_domaingroup_ibegin(domaingroup_hdl ) BIND(C) 
     222      USE ISO_C_BINDING 
     223      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ibegin 
     224      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     225    END FUNCTION cxios_is_defined_domaingroup_ibegin 
     226     
    161227     
    162228    SUBROUTINE cxios_set_domaingroup_iend(domaingroup_hdl, iend) BIND(C) 
     
    172238    END SUBROUTINE cxios_get_domaingroup_iend 
    173239     
     240    FUNCTION cxios_is_defined_domaingroup_iend(domaingroup_hdl ) BIND(C) 
     241      USE ISO_C_BINDING 
     242      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_iend 
     243      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     244    END FUNCTION cxios_is_defined_domaingroup_iend 
     245     
    174246     
    175247    SUBROUTINE cxios_set_domaingroup_jbegin(domaingroup_hdl, jbegin) BIND(C) 
     
    185257    END SUBROUTINE cxios_get_domaingroup_jbegin 
    186258     
     259    FUNCTION cxios_is_defined_domaingroup_jbegin(domaingroup_hdl ) BIND(C) 
     260      USE ISO_C_BINDING 
     261      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jbegin 
     262      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     263    END FUNCTION cxios_is_defined_domaingroup_jbegin 
     264     
    187265     
    188266    SUBROUTINE cxios_set_domaingroup_jend(domaingroup_hdl, jend) BIND(C) 
     
    198276    END SUBROUTINE cxios_get_domaingroup_jend 
    199277     
     278    FUNCTION cxios_is_defined_domaingroup_jend(domaingroup_hdl ) BIND(C) 
     279      USE ISO_C_BINDING 
     280      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_jend 
     281      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     282    END FUNCTION cxios_is_defined_domaingroup_jend 
     283     
    200284     
    201285    SUBROUTINE cxios_set_domaingroup_latvalue(domaingroup_hdl, latvalue, extent1) BIND(C) 
     
    212296      INTEGER (kind = C_INT), VALUE  :: extent1 
    213297    END SUBROUTINE cxios_get_domaingroup_latvalue 
     298     
     299    FUNCTION cxios_is_defined_domaingroup_latvalue(domaingroup_hdl ) BIND(C) 
     300      USE ISO_C_BINDING 
     301      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_latvalue 
     302      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     303    END FUNCTION cxios_is_defined_domaingroup_latvalue 
    214304     
    215305     
     
    228318    END SUBROUTINE cxios_get_domaingroup_long_name 
    229319     
     320    FUNCTION cxios_is_defined_domaingroup_long_name(domaingroup_hdl ) BIND(C) 
     321      USE ISO_C_BINDING 
     322      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_long_name 
     323      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     324    END FUNCTION cxios_is_defined_domaingroup_long_name 
     325     
    230326     
    231327    SUBROUTINE cxios_set_domaingroup_lonvalue(domaingroup_hdl, lonvalue, extent1) BIND(C) 
     
    242338      INTEGER (kind = C_INT), VALUE  :: extent1 
    243339    END SUBROUTINE cxios_get_domaingroup_lonvalue 
     340     
     341    FUNCTION cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl ) BIND(C) 
     342      USE ISO_C_BINDING 
     343      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_lonvalue 
     344      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     345    END FUNCTION cxios_is_defined_domaingroup_lonvalue 
    244346     
    245347     
     
    259361      INTEGER (kind = C_INT), VALUE  :: extent2 
    260362    END SUBROUTINE cxios_get_domaingroup_mask 
     363     
     364    FUNCTION cxios_is_defined_domaingroup_mask(domaingroup_hdl ) BIND(C) 
     365      USE ISO_C_BINDING 
     366      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_mask 
     367      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     368    END FUNCTION cxios_is_defined_domaingroup_mask 
    261369     
    262370     
     
    275383    END SUBROUTINE cxios_get_domaingroup_name 
    276384     
     385    FUNCTION cxios_is_defined_domaingroup_name(domaingroup_hdl ) BIND(C) 
     386      USE ISO_C_BINDING 
     387      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_name 
     388      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     389    END FUNCTION cxios_is_defined_domaingroup_name 
     390     
    277391     
    278392    SUBROUTINE cxios_set_domaingroup_ni(domaingroup_hdl, ni) BIND(C) 
     
    288402    END SUBROUTINE cxios_get_domaingroup_ni 
    289403     
     404    FUNCTION cxios_is_defined_domaingroup_ni(domaingroup_hdl ) BIND(C) 
     405      USE ISO_C_BINDING 
     406      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni 
     407      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     408    END FUNCTION cxios_is_defined_domaingroup_ni 
     409     
    290410     
    291411    SUBROUTINE cxios_set_domaingroup_ni_glo(domaingroup_hdl, ni_glo) BIND(C) 
     
    301421    END SUBROUTINE cxios_get_domaingroup_ni_glo 
    302422     
     423    FUNCTION cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl ) BIND(C) 
     424      USE ISO_C_BINDING 
     425      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ni_glo 
     426      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     427    END FUNCTION cxios_is_defined_domaingroup_ni_glo 
     428     
    303429     
    304430    SUBROUTINE cxios_set_domaingroup_nj(domaingroup_hdl, nj) BIND(C) 
     
    314440    END SUBROUTINE cxios_get_domaingroup_nj 
    315441     
     442    FUNCTION cxios_is_defined_domaingroup_nj(domaingroup_hdl ) BIND(C) 
     443      USE ISO_C_BINDING 
     444      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj 
     445      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     446    END FUNCTION cxios_is_defined_domaingroup_nj 
     447     
    316448     
    317449    SUBROUTINE cxios_set_domaingroup_nj_glo(domaingroup_hdl, nj_glo) BIND(C) 
     
    326458      INTEGER (KIND=C_INT)             :: nj_glo 
    327459    END SUBROUTINE cxios_get_domaingroup_nj_glo 
     460     
     461    FUNCTION cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl ) BIND(C) 
     462      USE ISO_C_BINDING 
     463      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_nj_glo 
     464      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     465    END FUNCTION cxios_is_defined_domaingroup_nj_glo 
    328466     
    329467     
     
    342480    END SUBROUTINE cxios_get_domaingroup_standard_name 
    343481     
     482    FUNCTION cxios_is_defined_domaingroup_standard_name(domaingroup_hdl ) BIND(C) 
     483      USE ISO_C_BINDING 
     484      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_standard_name 
     485      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     486    END FUNCTION cxios_is_defined_domaingroup_standard_name 
     487     
    344488     
    345489    SUBROUTINE cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl, zoom_ibegin) BIND(C) 
     
    355499    END SUBROUTINE cxios_get_domaingroup_zoom_ibegin 
    356500     
     501    FUNCTION cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl ) BIND(C) 
     502      USE ISO_C_BINDING 
     503      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin 
     504      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     505    END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin 
     506     
    357507     
    358508    SUBROUTINE cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl, zoom_ibegin_loc) BIND(C) 
     
    368518    END SUBROUTINE cxios_get_domaingroup_zoom_ibegin_loc 
    369519     
     520    FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl ) BIND(C) 
     521      USE ISO_C_BINDING 
     522      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ibegin_loc 
     523      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     524    END FUNCTION cxios_is_defined_domaingroup_zoom_ibegin_loc 
     525     
    370526     
    371527    SUBROUTINE cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl, zoom_jbegin) BIND(C) 
     
    381537    END SUBROUTINE cxios_get_domaingroup_zoom_jbegin 
    382538     
     539    FUNCTION cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl ) BIND(C) 
     540      USE ISO_C_BINDING 
     541      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin 
     542      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     543    END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin 
     544     
    383545     
    384546    SUBROUTINE cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl, zoom_jbegin_loc) BIND(C) 
     
    394556    END SUBROUTINE cxios_get_domaingroup_zoom_jbegin_loc 
    395557     
     558    FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl ) BIND(C) 
     559      USE ISO_C_BINDING 
     560      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_jbegin_loc 
     561      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     562    END FUNCTION cxios_is_defined_domaingroup_zoom_jbegin_loc 
     563     
    396564     
    397565    SUBROUTINE cxios_set_domaingroup_zoom_ni(domaingroup_hdl, zoom_ni) BIND(C) 
     
    407575    END SUBROUTINE cxios_get_domaingroup_zoom_ni 
    408576     
     577    FUNCTION cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl ) BIND(C) 
     578      USE ISO_C_BINDING 
     579      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni 
     580      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     581    END FUNCTION cxios_is_defined_domaingroup_zoom_ni 
     582     
    409583     
    410584    SUBROUTINE cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl, zoom_ni_loc) BIND(C) 
     
    420594    END SUBROUTINE cxios_get_domaingroup_zoom_ni_loc 
    421595     
     596    FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl ) BIND(C) 
     597      USE ISO_C_BINDING 
     598      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_ni_loc 
     599      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     600    END FUNCTION cxios_is_defined_domaingroup_zoom_ni_loc 
     601     
    422602     
    423603    SUBROUTINE cxios_set_domaingroup_zoom_nj(domaingroup_hdl, zoom_nj) BIND(C) 
     
    433613    END SUBROUTINE cxios_get_domaingroup_zoom_nj 
    434614     
     615    FUNCTION cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl ) BIND(C) 
     616      USE ISO_C_BINDING 
     617      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj 
     618      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     619    END FUNCTION cxios_is_defined_domaingroup_zoom_nj 
     620     
    435621     
    436622    SUBROUTINE cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl, zoom_nj_loc) BIND(C) 
     
    445631      INTEGER (KIND=C_INT)             :: zoom_nj_loc 
    446632    END SUBROUTINE cxios_get_domaingroup_zoom_nj_loc 
     633     
     634    FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl ) BIND(C) 
     635      USE ISO_C_BINDING 
     636      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_zoom_nj_loc 
     637      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     638    END FUNCTION cxios_is_defined_domaingroup_zoom_nj_loc 
    447639     
    448640     
  • XIOS/trunk/src/interface/fortran_attr/field_interface_attr.f90

    r326 r432  
    2323    END SUBROUTINE cxios_get_field_axis_ref 
    2424     
     25    FUNCTION cxios_is_defined_field_axis_ref(field_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     29    END FUNCTION cxios_is_defined_field_axis_ref 
     30     
    2531     
    2632    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C) 
     
    3541      REAL (KIND=C_DOUBLE)             :: default_value 
    3642    END SUBROUTINE cxios_get_field_default_value 
     43     
     44    FUNCTION cxios_is_defined_field_default_value(field_hdl ) BIND(C) 
     45      USE ISO_C_BINDING 
     46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value 
     47      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     48    END FUNCTION cxios_is_defined_field_default_value 
    3749     
    3850     
     
    5163    END SUBROUTINE cxios_get_field_domain_ref 
    5264     
     65    FUNCTION cxios_is_defined_field_domain_ref(field_hdl ) BIND(C) 
     66      USE ISO_C_BINDING 
     67      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref 
     68      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     69    END FUNCTION cxios_is_defined_field_domain_ref 
     70     
    5371     
    5472    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C) 
     
    6381      LOGICAL (KIND=C_BOOL)             :: enabled 
    6482    END SUBROUTINE cxios_get_field_enabled 
     83     
     84    FUNCTION cxios_is_defined_field_enabled(field_hdl ) BIND(C) 
     85      USE ISO_C_BINDING 
     86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled 
     87      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     88    END FUNCTION cxios_is_defined_field_enabled 
    6589     
    6690     
     
    79103    END SUBROUTINE cxios_get_field_field_ref 
    80104     
     105    FUNCTION cxios_is_defined_field_field_ref(field_hdl ) BIND(C) 
     106      USE ISO_C_BINDING 
     107      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref 
     108      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     109    END FUNCTION cxios_is_defined_field_field_ref 
     110     
    81111     
    82112    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C) 
     
    94124    END SUBROUTINE cxios_get_field_freq_offset 
    95125     
     126    FUNCTION cxios_is_defined_field_freq_offset(field_hdl ) BIND(C) 
     127      USE ISO_C_BINDING 
     128      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset 
     129      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     130    END FUNCTION cxios_is_defined_field_freq_offset 
     131     
    96132     
    97133    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C) 
     
    109145    END SUBROUTINE cxios_get_field_freq_op 
    110146     
     147    FUNCTION cxios_is_defined_field_freq_op(field_hdl ) BIND(C) 
     148      USE ISO_C_BINDING 
     149      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op 
     150      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     151    END FUNCTION cxios_is_defined_field_freq_op 
     152     
    111153     
    112154    SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C) 
     
    124166    END SUBROUTINE cxios_get_field_grid_ref 
    125167     
     168    FUNCTION cxios_is_defined_field_grid_ref(field_hdl ) BIND(C) 
     169      USE ISO_C_BINDING 
     170      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref 
     171      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     172    END FUNCTION cxios_is_defined_field_grid_ref 
     173     
    126174     
    127175    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C) 
     
    136184      INTEGER (KIND=C_INT)             :: level 
    137185    END SUBROUTINE cxios_get_field_level 
     186     
     187    FUNCTION cxios_is_defined_field_level(field_hdl ) BIND(C) 
     188      USE ISO_C_BINDING 
     189      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level 
     190      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     191    END FUNCTION cxios_is_defined_field_level 
    138192     
    139193     
     
    152206    END SUBROUTINE cxios_get_field_long_name 
    153207     
     208    FUNCTION cxios_is_defined_field_long_name(field_hdl ) BIND(C) 
     209      USE ISO_C_BINDING 
     210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name 
     211      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     212    END FUNCTION cxios_is_defined_field_long_name 
     213     
    154214     
    155215    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C) 
     
    167227    END SUBROUTINE cxios_get_field_name 
    168228     
     229    FUNCTION cxios_is_defined_field_name(field_hdl ) BIND(C) 
     230      USE ISO_C_BINDING 
     231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name 
     232      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     233    END FUNCTION cxios_is_defined_field_name 
     234     
    169235     
    170236    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C) 
     
    182248    END SUBROUTINE cxios_get_field_operation 
    183249     
     250    FUNCTION cxios_is_defined_field_operation(field_hdl ) BIND(C) 
     251      USE ISO_C_BINDING 
     252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation 
     253      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     254    END FUNCTION cxios_is_defined_field_operation 
     255     
    184256     
    185257    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C) 
     
    194266      INTEGER (KIND=C_INT)             :: prec 
    195267    END SUBROUTINE cxios_get_field_prec 
     268     
     269    FUNCTION cxios_is_defined_field_prec(field_hdl ) BIND(C) 
     270      USE ISO_C_BINDING 
     271      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec 
     272      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     273    END FUNCTION cxios_is_defined_field_prec 
    196274     
    197275     
     
    210288    END SUBROUTINE cxios_get_field_standard_name 
    211289     
     290    FUNCTION cxios_is_defined_field_standard_name(field_hdl ) BIND(C) 
     291      USE ISO_C_BINDING 
     292      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name 
     293      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     294    END FUNCTION cxios_is_defined_field_standard_name 
     295     
    212296     
    213297    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C) 
     
    225309    END SUBROUTINE cxios_get_field_unit 
    226310     
     311    FUNCTION cxios_is_defined_field_unit(field_hdl ) BIND(C) 
     312      USE ISO_C_BINDING 
     313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit 
     314      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 
     315    END FUNCTION cxios_is_defined_field_unit 
     316     
    227317     
    228318    END INTERFACE 
  • XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.f90

    r326 r432  
    2323    END SUBROUTINE cxios_get_fieldgroup_axis_ref 
    2424     
     25    FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_axis_ref 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     29    END FUNCTION cxios_is_defined_fieldgroup_axis_ref 
     30     
    2531     
    2632    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C) 
     
    3541      REAL (KIND=C_DOUBLE)             :: default_value 
    3642    END SUBROUTINE cxios_get_fieldgroup_default_value 
     43     
     44    FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl ) BIND(C) 
     45      USE ISO_C_BINDING 
     46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value 
     47      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     48    END FUNCTION cxios_is_defined_fieldgroup_default_value 
    3749     
    3850     
     
    5163    END SUBROUTINE cxios_get_fieldgroup_domain_ref 
    5264     
     65    FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl ) BIND(C) 
     66      USE ISO_C_BINDING 
     67      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref 
     68      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     69    END FUNCTION cxios_is_defined_fieldgroup_domain_ref 
     70     
    5371     
    5472    SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C) 
     
    6381      LOGICAL (KIND=C_BOOL)             :: enabled 
    6482    END SUBROUTINE cxios_get_fieldgroup_enabled 
     83     
     84    FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl ) BIND(C) 
     85      USE ISO_C_BINDING 
     86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled 
     87      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     88    END FUNCTION cxios_is_defined_fieldgroup_enabled 
    6589     
    6690     
     
    79103    END SUBROUTINE cxios_get_fieldgroup_field_ref 
    80104     
     105    FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl ) BIND(C) 
     106      USE ISO_C_BINDING 
     107      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref 
     108      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     109    END FUNCTION cxios_is_defined_fieldgroup_field_ref 
     110     
    81111     
    82112    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset, freq_offset_size) BIND(C) 
     
    94124    END SUBROUTINE cxios_get_fieldgroup_freq_offset 
    95125     
     126    FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl ) BIND(C) 
     127      USE ISO_C_BINDING 
     128      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset 
     129      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     130    END FUNCTION cxios_is_defined_fieldgroup_freq_offset 
     131     
    96132     
    97133    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op, freq_op_size) BIND(C) 
     
    109145    END SUBROUTINE cxios_get_fieldgroup_freq_op 
    110146     
     147    FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl ) BIND(C) 
     148      USE ISO_C_BINDING 
     149      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op 
     150      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     151    END FUNCTION cxios_is_defined_fieldgroup_freq_op 
     152     
    111153     
    112154    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C) 
     
    124166    END SUBROUTINE cxios_get_fieldgroup_grid_ref 
    125167     
     168    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl ) BIND(C) 
     169      USE ISO_C_BINDING 
     170      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref 
     171      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     172    END FUNCTION cxios_is_defined_fieldgroup_grid_ref 
     173     
    126174     
    127175    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C) 
     
    139187    END SUBROUTINE cxios_get_fieldgroup_group_ref 
    140188     
     189    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl ) BIND(C) 
     190      USE ISO_C_BINDING 
     191      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref 
     192      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     193    END FUNCTION cxios_is_defined_fieldgroup_group_ref 
     194     
    141195     
    142196    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C) 
     
    151205      INTEGER (KIND=C_INT)             :: level 
    152206    END SUBROUTINE cxios_get_fieldgroup_level 
     207     
     208    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl ) BIND(C) 
     209      USE ISO_C_BINDING 
     210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level 
     211      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     212    END FUNCTION cxios_is_defined_fieldgroup_level 
    153213     
    154214     
     
    167227    END SUBROUTINE cxios_get_fieldgroup_long_name 
    168228     
     229    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl ) BIND(C) 
     230      USE ISO_C_BINDING 
     231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name 
     232      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     233    END FUNCTION cxios_is_defined_fieldgroup_long_name 
     234     
    169235     
    170236    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C) 
     
    182248    END SUBROUTINE cxios_get_fieldgroup_name 
    183249     
     250    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl ) BIND(C) 
     251      USE ISO_C_BINDING 
     252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name 
     253      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     254    END FUNCTION cxios_is_defined_fieldgroup_name 
     255     
    184256     
    185257    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C) 
     
    197269    END SUBROUTINE cxios_get_fieldgroup_operation 
    198270     
     271    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl ) BIND(C) 
     272      USE ISO_C_BINDING 
     273      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation 
     274      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     275    END FUNCTION cxios_is_defined_fieldgroup_operation 
     276     
    199277     
    200278    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C) 
     
    209287      INTEGER (KIND=C_INT)             :: prec 
    210288    END SUBROUTINE cxios_get_fieldgroup_prec 
     289     
     290    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl ) BIND(C) 
     291      USE ISO_C_BINDING 
     292      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec 
     293      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     294    END FUNCTION cxios_is_defined_fieldgroup_prec 
    211295     
    212296     
     
    225309    END SUBROUTINE cxios_get_fieldgroup_standard_name 
    226310     
     311    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl ) BIND(C) 
     312      USE ISO_C_BINDING 
     313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name 
     314      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     315    END FUNCTION cxios_is_defined_fieldgroup_standard_name 
     316     
    227317     
    228318    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C) 
     
    240330    END SUBROUTINE cxios_get_fieldgroup_unit 
    241331     
     332    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl ) BIND(C) 
     333      USE ISO_C_BINDING 
     334      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit 
     335      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl 
     336    END FUNCTION cxios_is_defined_fieldgroup_unit 
     337     
    242338     
    243339    END INTERFACE 
  • XIOS/trunk/src/interface/fortran_attr/file_interface_attr.f90

    r415 r432  
    2323    END SUBROUTINE cxios_get_file_description 
    2424     
     25    FUNCTION cxios_is_defined_file_description(file_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     29    END FUNCTION cxios_is_defined_file_description 
     30     
    2531     
    2632    SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C) 
     
    3642    END SUBROUTINE cxios_get_file_enabled 
    3743     
     44    FUNCTION cxios_is_defined_file_enabled(file_hdl ) BIND(C) 
     45      USE ISO_C_BINDING 
     46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled 
     47      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     48    END FUNCTION cxios_is_defined_file_enabled 
     49     
    3850     
    3951    SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C) 
     
    4860      INTEGER (KIND=C_INT)             :: min_digits 
    4961    END SUBROUTINE cxios_get_file_min_digits 
     62     
     63    FUNCTION cxios_is_defined_file_min_digits(file_hdl ) BIND(C) 
     64      USE ISO_C_BINDING 
     65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits 
     66      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     67    END FUNCTION cxios_is_defined_file_min_digits 
    5068     
    5169     
     
    6482    END SUBROUTINE cxios_get_file_name 
    6583     
     84    FUNCTION cxios_is_defined_file_name(file_hdl ) BIND(C) 
     85      USE ISO_C_BINDING 
     86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name 
     87      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     88    END FUNCTION cxios_is_defined_file_name 
     89     
    6690     
    6791    SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C) 
     
    79103    END SUBROUTINE cxios_get_file_name_suffix 
    80104     
     105    FUNCTION cxios_is_defined_file_name_suffix(file_hdl ) BIND(C) 
     106      USE ISO_C_BINDING 
     107      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix 
     108      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     109    END FUNCTION cxios_is_defined_file_name_suffix 
     110     
    81111     
    82112    SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C) 
     
    94124    END SUBROUTINE cxios_get_file_output_freq 
    95125     
     126    FUNCTION cxios_is_defined_file_output_freq(file_hdl ) BIND(C) 
     127      USE ISO_C_BINDING 
     128      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq 
     129      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     130    END FUNCTION cxios_is_defined_file_output_freq 
     131     
    96132     
    97133    SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C) 
     
    106142      INTEGER (KIND=C_INT)             :: output_level 
    107143    END SUBROUTINE cxios_get_file_output_level 
     144     
     145    FUNCTION cxios_is_defined_file_output_level(file_hdl ) BIND(C) 
     146      USE ISO_C_BINDING 
     147      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level 
     148      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     149    END FUNCTION cxios_is_defined_file_output_level 
    108150     
    109151     
     
    122164    END SUBROUTINE cxios_get_file_par_access 
    123165     
     166    FUNCTION cxios_is_defined_file_par_access(file_hdl ) BIND(C) 
     167      USE ISO_C_BINDING 
     168      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access 
     169      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     170    END FUNCTION cxios_is_defined_file_par_access 
     171     
    124172     
    125173    SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C) 
     
    137185    END SUBROUTINE cxios_get_file_split_freq 
    138186     
     187    FUNCTION cxios_is_defined_file_split_freq(file_hdl ) BIND(C) 
     188      USE ISO_C_BINDING 
     189      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq 
     190      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     191    END FUNCTION cxios_is_defined_file_split_freq 
     192     
     193     
     194    SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C) 
     195      USE ISO_C_BINDING 
     196      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     197      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format 
     198      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size 
     199    END SUBROUTINE cxios_set_file_split_freq_format 
     200     
     201    SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C) 
     202      USE ISO_C_BINDING 
     203      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     204      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format 
     205      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size 
     206    END SUBROUTINE cxios_get_file_split_freq_format 
     207     
     208    FUNCTION cxios_is_defined_file_split_freq_format(file_hdl ) BIND(C) 
     209      USE ISO_C_BINDING 
     210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format 
     211      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     212    END FUNCTION cxios_is_defined_file_split_freq_format 
     213     
    139214     
    140215    SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C) 
     
    152227    END SUBROUTINE cxios_get_file_sync_freq 
    153228     
     229    FUNCTION cxios_is_defined_file_sync_freq(file_hdl ) BIND(C) 
     230      USE ISO_C_BINDING 
     231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq 
     232      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     233    END FUNCTION cxios_is_defined_file_sync_freq 
     234     
    154235     
    155236    SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C) 
     
    167248    END SUBROUTINE cxios_get_file_type 
    168249     
     250    FUNCTION cxios_is_defined_file_type(file_hdl ) BIND(C) 
     251      USE ISO_C_BINDING 
     252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type 
     253      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl 
     254    END FUNCTION cxios_is_defined_file_type 
     255     
    169256     
    170257    END INTERFACE 
  • XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90

    r415 r432  
    2323    END SUBROUTINE cxios_get_filegroup_description 
    2424     
     25    FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     29    END FUNCTION cxios_is_defined_filegroup_description 
     30     
    2531     
    2632    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C) 
     
    3541      LOGICAL (KIND=C_BOOL)             :: enabled 
    3642    END SUBROUTINE cxios_get_filegroup_enabled 
     43     
     44    FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl ) BIND(C) 
     45      USE ISO_C_BINDING 
     46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled 
     47      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     48    END FUNCTION cxios_is_defined_filegroup_enabled 
    3749     
    3850     
     
    5163    END SUBROUTINE cxios_get_filegroup_group_ref 
    5264     
     65    FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl ) BIND(C) 
     66      USE ISO_C_BINDING 
     67      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref 
     68      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     69    END FUNCTION cxios_is_defined_filegroup_group_ref 
     70     
    5371     
    5472    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C) 
     
    6381      INTEGER (KIND=C_INT)             :: min_digits 
    6482    END SUBROUTINE cxios_get_filegroup_min_digits 
     83     
     84    FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl ) BIND(C) 
     85      USE ISO_C_BINDING 
     86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits 
     87      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     88    END FUNCTION cxios_is_defined_filegroup_min_digits 
    6589     
    6690     
     
    79103    END SUBROUTINE cxios_get_filegroup_name 
    80104     
     105    FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl ) BIND(C) 
     106      USE ISO_C_BINDING 
     107      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name 
     108      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     109    END FUNCTION cxios_is_defined_filegroup_name 
     110     
    81111     
    82112    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C) 
     
    94124    END SUBROUTINE cxios_get_filegroup_name_suffix 
    95125     
     126    FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl ) BIND(C) 
     127      USE ISO_C_BINDING 
     128      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix 
     129      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     130    END FUNCTION cxios_is_defined_filegroup_name_suffix 
     131     
    96132     
    97133    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C) 
     
    109145    END SUBROUTINE cxios_get_filegroup_output_freq 
    110146     
     147    FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl ) BIND(C) 
     148      USE ISO_C_BINDING 
     149      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq 
     150      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     151    END FUNCTION cxios_is_defined_filegroup_output_freq 
     152     
    111153     
    112154    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C) 
     
    121163      INTEGER (KIND=C_INT)             :: output_level 
    122164    END SUBROUTINE cxios_get_filegroup_output_level 
     165     
     166    FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl ) BIND(C) 
     167      USE ISO_C_BINDING 
     168      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level 
     169      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     170    END FUNCTION cxios_is_defined_filegroup_output_level 
    123171     
    124172     
     
    137185    END SUBROUTINE cxios_get_filegroup_par_access 
    138186     
     187    FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl ) BIND(C) 
     188      USE ISO_C_BINDING 
     189      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access 
     190      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     191    END FUNCTION cxios_is_defined_filegroup_par_access 
     192     
    139193     
    140194    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C) 
     
    152206    END SUBROUTINE cxios_get_filegroup_split_freq 
    153207     
     208    FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl ) BIND(C) 
     209      USE ISO_C_BINDING 
     210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq 
     211      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     212    END FUNCTION cxios_is_defined_filegroup_split_freq 
     213     
     214     
     215    SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 
     216      USE ISO_C_BINDING 
     217      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     218      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format 
     219      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size 
     220    END SUBROUTINE cxios_set_filegroup_split_freq_format 
     221     
     222    SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C) 
     223      USE ISO_C_BINDING 
     224      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     225      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format 
     226      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size 
     227    END SUBROUTINE cxios_get_filegroup_split_freq_format 
     228     
     229    FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl ) BIND(C) 
     230      USE ISO_C_BINDING 
     231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format 
     232      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     233    END FUNCTION cxios_is_defined_filegroup_split_freq_format 
     234     
    154235     
    155236    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C) 
     
    167248    END SUBROUTINE cxios_get_filegroup_sync_freq 
    168249     
     250    FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl ) BIND(C) 
     251      USE ISO_C_BINDING 
     252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq 
     253      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     254    END FUNCTION cxios_is_defined_filegroup_sync_freq 
     255     
    169256     
    170257    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C) 
     
    182269    END SUBROUTINE cxios_get_filegroup_type 
    183270     
     271    FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl ) BIND(C) 
     272      USE ISO_C_BINDING 
     273      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type 
     274      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl 
     275    END FUNCTION cxios_is_defined_filegroup_type 
     276     
    184277     
    185278    END INTERFACE 
  • XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.f90

    r415 r432  
    2323    END SUBROUTINE cxios_get_grid_axis_ref 
    2424     
     25    FUNCTION cxios_is_defined_grid_axis_ref(grid_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_axis_ref 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 
     29    END FUNCTION cxios_is_defined_grid_axis_ref 
     30     
    2531     
    2632    SUBROUTINE cxios_set_grid_description(grid_hdl, description, description_size) BIND(C) 
     
    3844    END SUBROUTINE cxios_get_grid_description 
    3945     
     46    FUNCTION cxios_is_defined_grid_description(grid_hdl ) BIND(C) 
     47      USE ISO_C_BINDING 
     48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_description 
     49      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 
     50    END FUNCTION cxios_is_defined_grid_description 
     51     
    4052     
    4153    SUBROUTINE cxios_set_grid_domain_ref(grid_hdl, domain_ref, domain_ref_size) BIND(C) 
     
    5264      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size 
    5365    END SUBROUTINE cxios_get_grid_domain_ref 
     66     
     67    FUNCTION cxios_is_defined_grid_domain_ref(grid_hdl ) BIND(C) 
     68      USE ISO_C_BINDING 
     69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_domain_ref 
     70      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 
     71    END FUNCTION cxios_is_defined_grid_domain_ref 
    5472     
    5573     
     
    7290    END SUBROUTINE cxios_get_grid_mask 
    7391     
     92    FUNCTION cxios_is_defined_grid_mask(grid_hdl ) BIND(C) 
     93      USE ISO_C_BINDING 
     94      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask 
     95      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 
     96    END FUNCTION cxios_is_defined_grid_mask 
     97     
    7498     
    7599    SUBROUTINE cxios_set_grid_name(grid_hdl, name, name_size) BIND(C) 
     
    87111    END SUBROUTINE cxios_get_grid_name 
    88112     
     113    FUNCTION cxios_is_defined_grid_name(grid_hdl ) BIND(C) 
     114      USE ISO_C_BINDING 
     115      LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_name 
     116      INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 
     117    END FUNCTION cxios_is_defined_grid_name 
     118     
    89119     
    90120    END INTERFACE 
  • XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.f90

    r415 r432  
    2323    END SUBROUTINE cxios_get_gridgroup_axis_ref 
    2424     
     25    FUNCTION cxios_is_defined_gridgroup_axis_ref(gridgroup_hdl ) BIND(C) 
     26      USE ISO_C_BINDING 
     27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_axis_ref 
     28      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 
     29    END FUNCTION cxios_is_defined_gridgroup_axis_ref 
     30     
    2531     
    2632    SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C) 
     
    3743      INTEGER  (kind = C_INT)     , VALUE        :: description_size 
    3844    END SUBROUTINE cxios_get_gridgroup_description 
     45     
     46    FUNCTION cxios_is_defined_gridgroup_description(gridgroup_hdl ) BIND(C) 
     47      USE ISO_C_BINDING 
     48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_description 
     49      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 
     50    END FUNCTION cxios_is_defined_gridgroup_description 
    3951     
    4052     
     
    5365    END SUBROUTINE cxios_get_gridgroup_domain_ref 
    5466     
     67    FUNCTION cxios_is_defined_gridgroup_domain_ref(gridgroup_hdl ) BIND(C) 
     68      USE ISO_C_BINDING 
     69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_domain_ref 
     70      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 
     71    END FUNCTION cxios_is_defined_gridgroup_domain_ref 
     72     
    5573     
    5674    SUBROUTINE cxios_set_gridgroup_group_ref(gridgroup_hdl, group_ref, group_ref_size) BIND(C) 
     
    6785      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size 
    6886    END SUBROUTINE cxios_get_gridgroup_group_ref 
     87     
     88    FUNCTION cxios_is_defined_gridgroup_group_ref(gridgroup_hdl ) BIND(C) 
     89      USE ISO_C_BINDING 
     90      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_group_ref 
     91      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 
     92    END FUNCTION cxios_is_defined_gridgroup_group_ref 
    6993     
    7094     
     
    87111    END SUBROUTINE cxios_get_gridgroup_mask 
    88112     
     113    FUNCTION cxios_is_defined_gridgroup_mask(gridgroup_hdl ) BIND(C) 
     114      USE ISO_C_BINDING 
     115      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask 
     116      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 
     117    END FUNCTION cxios_is_defined_gridgroup_mask 
     118     
    89119     
    90120    SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C) 
     
    102132    END SUBROUTINE cxios_get_gridgroup_name 
    103133     
     134    FUNCTION cxios_is_defined_gridgroup_name(gridgroup_hdl ) BIND(C) 
     135      USE ISO_C_BINDING 
     136      LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_name 
     137      INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 
     138    END FUNCTION cxios_is_defined_gridgroup_name 
     139     
    104140     
    105141    END INTERFACE 
  • XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90

    r415 r432  
    229229  END SUBROUTINE xios(get_axis_attr_hdl_) 
    230230   
     231  SUBROUTINE xios(is_defined_axis_attr)  & 
     232    ( axis_id, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end  & 
     233    , zoom_size ) 
     234     
     235    IMPLICIT NONE 
     236      TYPE(txios(axis))  :: axis_hdl 
     237      CHARACTER(LEN=*), INTENT(IN) ::axis_id 
     238      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
     239      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
     240      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
     241      LOGICAL(KIND=C_BOOL) :: name_tmp 
     242      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
     243      LOGICAL(KIND=C_BOOL) :: positive_tmp 
     244      LOGICAL, OPTIONAL, INTENT(OUT) :: size 
     245      LOGICAL(KIND=C_BOOL) :: size_tmp 
     246      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
     247      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     248      LOGICAL, OPTIONAL, INTENT(OUT) :: unit 
     249      LOGICAL(KIND=C_BOOL) :: unit_tmp 
     250      LOGICAL, OPTIONAL, INTENT(OUT) :: value 
     251      LOGICAL(KIND=C_BOOL) :: value_tmp 
     252      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 
     253      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 
     254      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 
     255      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 
     256      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 
     257      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 
     258       
     259      CALL xios(get_axis_handle)(axis_id,axis_hdl) 
     260      CALL xios(is_defined_axis_attr_hdl_)   & 
     261      ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end  & 
     262      , zoom_size ) 
     263     
     264  END SUBROUTINE xios(is_defined_axis_attr) 
     265   
     266  SUBROUTINE xios(is_defined_axis_attr_hdl)  & 
     267    ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end  & 
     268    , zoom_size ) 
     269     
     270    IMPLICIT NONE 
     271      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 
     272      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
     273      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
     274      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
     275      LOGICAL(KIND=C_BOOL) :: name_tmp 
     276      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
     277      LOGICAL(KIND=C_BOOL) :: positive_tmp 
     278      LOGICAL, OPTIONAL, INTENT(OUT) :: size 
     279      LOGICAL(KIND=C_BOOL) :: size_tmp 
     280      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
     281      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     282      LOGICAL, OPTIONAL, INTENT(OUT) :: unit 
     283      LOGICAL(KIND=C_BOOL) :: unit_tmp 
     284      LOGICAL, OPTIONAL, INTENT(OUT) :: value 
     285      LOGICAL(KIND=C_BOOL) :: value_tmp 
     286      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 
     287      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 
     288      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 
     289      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 
     290      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 
     291      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 
     292       
     293      CALL xios(is_defined_axis_attr_hdl_)  & 
     294      ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end  & 
     295      , zoom_size ) 
     296     
     297  END SUBROUTINE xios(is_defined_axis_attr_hdl) 
     298   
     299  SUBROUTINE xios(is_defined_axis_attr_hdl_)   & 
     300    ( axis_hdl, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_  & 
     301    , zoom_end_, zoom_size_ ) 
     302     
     303    IMPLICIT NONE 
     304      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 
     305      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 
     306      LOGICAL(KIND=C_BOOL) :: long_name__tmp 
     307      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
     308      LOGICAL(KIND=C_BOOL) :: name__tmp 
     309      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 
     310      LOGICAL(KIND=C_BOOL) :: positive__tmp 
     311      LOGICAL, OPTIONAL, INTENT(OUT) :: size_ 
     312      LOGICAL(KIND=C_BOOL) :: size__tmp 
     313      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
     314      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     315      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 
     316      LOGICAL(KIND=C_BOOL) :: unit__tmp 
     317      LOGICAL, OPTIONAL, INTENT(OUT) :: value_ 
     318      LOGICAL(KIND=C_BOOL) :: value__tmp 
     319      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_ 
     320      LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp 
     321      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_ 
     322      LOGICAL(KIND=C_BOOL) :: zoom_end__tmp 
     323      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 
     324      LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 
     325       
     326      IF (PRESENT(long_name_)) THEN 
     327        long_name__tmp=cxios_is_defined_axis_long_name(axis_hdl%daddr) 
     328        long_name_=long_name__tmp 
     329      ENDIF 
     330       
     331      IF (PRESENT(name_)) THEN 
     332        name__tmp=cxios_is_defined_axis_name(axis_hdl%daddr) 
     333        name_=name__tmp 
     334      ENDIF 
     335       
     336      IF (PRESENT(positive_)) THEN 
     337        positive__tmp=cxios_is_defined_axis_positive(axis_hdl%daddr) 
     338        positive_=positive__tmp 
     339      ENDIF 
     340       
     341      IF (PRESENT(size_)) THEN 
     342        size__tmp=cxios_is_defined_axis_size(axis_hdl%daddr) 
     343        size_=size__tmp 
     344      ENDIF 
     345       
     346      IF (PRESENT(standard_name_)) THEN 
     347        standard_name__tmp=cxios_is_defined_axis_standard_name(axis_hdl%daddr) 
     348        standard_name_=standard_name__tmp 
     349      ENDIF 
     350       
     351      IF (PRESENT(unit_)) THEN 
     352        unit__tmp=cxios_is_defined_axis_unit(axis_hdl%daddr) 
     353        unit_=unit__tmp 
     354      ENDIF 
     355       
     356      IF (PRESENT(value_)) THEN 
     357        value__tmp=cxios_is_defined_axis_value(axis_hdl%daddr) 
     358        value_=value__tmp 
     359      ENDIF 
     360       
     361      IF (PRESENT(zoom_begin_)) THEN 
     362        zoom_begin__tmp=cxios_is_defined_axis_zoom_begin(axis_hdl%daddr) 
     363        zoom_begin_=zoom_begin__tmp 
     364      ENDIF 
     365       
     366      IF (PRESENT(zoom_end_)) THEN 
     367        zoom_end__tmp=cxios_is_defined_axis_zoom_end(axis_hdl%daddr) 
     368        zoom_end_=zoom_end__tmp 
     369      ENDIF 
     370       
     371      IF (PRESENT(zoom_size_)) THEN 
     372        zoom_size__tmp=cxios_is_defined_axis_zoom_size(axis_hdl%daddr) 
     373        zoom_size_=zoom_size__tmp 
     374      ENDIF 
     375       
     376       
     377     
     378  END SUBROUTINE xios(is_defined_axis_attr_hdl_) 
     379   
    231380END MODULE iaxis_attr 
  • XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90

    r415 r432  
    243243  END SUBROUTINE xios(get_axisgroup_attr_hdl_) 
    244244   
     245  SUBROUTINE xios(is_defined_axisgroup_attr)  & 
     246    ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  & 
     247    , zoom_end, zoom_size ) 
     248     
     249    IMPLICIT NONE 
     250      TYPE(txios(axisgroup))  :: axisgroup_hdl 
     251      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 
     252      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
     253      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     254      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
     255      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
     256      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
     257      LOGICAL(KIND=C_BOOL) :: name_tmp 
     258      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
     259      LOGICAL(KIND=C_BOOL) :: positive_tmp 
     260      LOGICAL, OPTIONAL, INTENT(OUT) :: size 
     261      LOGICAL(KIND=C_BOOL) :: size_tmp 
     262      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
     263      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     264      LOGICAL, OPTIONAL, INTENT(OUT) :: unit 
     265      LOGICAL(KIND=C_BOOL) :: unit_tmp 
     266      LOGICAL, OPTIONAL, INTENT(OUT) :: value 
     267      LOGICAL(KIND=C_BOOL) :: value_tmp 
     268      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 
     269      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 
     270      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 
     271      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 
     272      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 
     273      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 
     274       
     275      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 
     276      CALL xios(is_defined_axisgroup_attr_hdl_)   & 
     277      ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  & 
     278      , zoom_end, zoom_size ) 
     279     
     280  END SUBROUTINE xios(is_defined_axisgroup_attr) 
     281   
     282  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  & 
     283    ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  & 
     284    , zoom_end, zoom_size ) 
     285     
     286    IMPLICIT NONE 
     287      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 
     288      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
     289      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
     290      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
     291      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
     292      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
     293      LOGICAL(KIND=C_BOOL) :: name_tmp 
     294      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
     295      LOGICAL(KIND=C_BOOL) :: positive_tmp 
     296      LOGICAL, OPTIONAL, INTENT(OUT) :: size 
     297      LOGICAL(KIND=C_BOOL) :: size_tmp 
     298      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
     299      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     300      LOGICAL, OPTIONAL, INTENT(OUT) :: unit 
     301      LOGICAL(KIND=C_BOOL) :: unit_tmp 
     302      LOGICAL, OPTIONAL, INTENT(OUT) :: value 
     303      LOGICAL(KIND=C_BOOL) :: value_tmp 
     304      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin 
     305      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp 
     306      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end 
     307      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp 
     308      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size 
     309      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp 
     310       
     311      CALL xios(is_defined_axisgroup_attr_hdl_)  & 
     312      ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  & 
     313      , zoom_end, zoom_size ) 
     314     
     315  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) 
     316   
     317  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   & 
     318    ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_  & 
     319    , zoom_begin_, zoom_end_, zoom_size_ ) 
     320     
     321    IMPLICIT NONE 
     322      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 
     323      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 
     324      LOGICAL(KIND=C_BOOL) :: group_ref__tmp 
     325      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 
     326      LOGICAL(KIND=C_BOOL) :: long_name__tmp 
     327      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
     328      LOGICAL(KIND=C_BOOL) :: name__tmp 
     329      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 
     330      LOGICAL(KIND=C_BOOL) :: positive__tmp 
     331      LOGICAL, OPTIONAL, INTENT(OUT) :: size_ 
     332      LOGICAL(KIND=C_BOOL) :: size__tmp 
     333      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
     334      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     335      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_ 
     336      LOGICAL(KIND=C_BOOL) :: unit__tmp 
     337      LOGICAL, OPTIONAL, INTENT(OUT) :: value_ 
     338      LOGICAL(KIND=C_BOOL) :: value__tmp 
     339      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_ 
     340      LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp 
     341      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_ 
     342      LOGICAL(KIND=C_BOOL) :: zoom_end__tmp 
     343      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_ 
     344      LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 
     345       
     346      IF (PRESENT(group_ref_)) THEN 
     347        group_ref__tmp=cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr) 
     348        group_ref_=group_ref__tmp 
     349      ENDIF 
     350       
     351      IF (PRESENT(long_name_)) THEN 
     352        long_name__tmp=cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr) 
     353        long_name_=long_name__tmp 
     354      ENDIF 
     355       
     356      IF (PRESENT(name_)) THEN 
     357        name__tmp=cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr) 
     358        name_=name__tmp 
     359      ENDIF 
     360       
     361      IF (PRESENT(positive_)) THEN 
     362        positive__tmp=cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr) 
     363        positive_=positive__tmp 
     364      ENDIF 
     365       
     366      IF (PRESENT(size_)) THEN 
     367        size__tmp=cxios_is_defined_axisgroup_size(axisgroup_hdl%daddr) 
     368        size_=size__tmp 
     369      ENDIF 
     370       
     371      IF (PRESENT(standard_name_)) THEN 
     372        standard_name__tmp=cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr) 
     373        standard_name_=standard_name__tmp 
     374      ENDIF 
     375       
     376      IF (PRESENT(unit_)) THEN 
     377        unit__tmp=cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr) 
     378        unit_=unit__tmp 
     379      ENDIF 
     380       
     381      IF (PRESENT(value_)) THEN 
     382        value__tmp=cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr) 
     383        value_=value__tmp 
     384      ENDIF 
     385       
     386      IF (PRESENT(zoom_begin_)) THEN 
     387        zoom_begin__tmp=cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl%daddr) 
     388        zoom_begin_=zoom_begin__tmp 
     389      ENDIF 
     390       
     391      IF (PRESENT(zoom_end_)) THEN 
     392        zoom_end__tmp=cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl%daddr) 
     393        zoom_end_=zoom_end__tmp 
     394      ENDIF 
     395       
     396      IF (PRESENT(zoom_size_)) THEN 
     397        zoom_size__tmp=cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl%daddr) 
     398        zoom_size_=zoom_size__tmp 
     399      ENDIF 
     400       
     401       
     402     
     403  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) 
     404   
    245405END MODULE iaxisgroup_attr 
  • XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90

    r369 r432  
    149149  END SUBROUTINE xios(get_context_attr_hdl_) 
    150150   
     151  SUBROUTINE xios(is_defined_context_attr)  & 
     152    ( context_id, calendar_type, output_dir, start_date, time_origin, timestep ) 
     153     
     154    IMPLICIT NONE 
     155      TYPE(txios(context))  :: context_hdl 
     156      CHARACTER(LEN=*), INTENT(IN) ::context_id 
     157      LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type 
     158      LOGICAL(KIND=C_BOOL) :: calendar_type_tmp 
     159      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 
     160      LOGICAL(KIND=C_BOOL) :: output_dir_tmp 
     161      LOGICAL, OPTIONAL, INTENT(OUT) :: start_date 
     162      LOGICAL(KIND=C_BOOL) :: start_date_tmp 
     163      LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin 
     164      LOGICAL(KIND=C_BOOL) :: time_origin_tmp 
     165      LOGICAL, OPTIONAL, INTENT(OUT) :: timestep 
     166      LOGICAL(KIND=C_BOOL) :: timestep_tmp 
     167       
     168      CALL xios(get_context_handle)(context_id,context_hdl) 
     169      CALL xios(is_defined_context_attr_hdl_)   & 
     170      ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 
     171     
     172  END SUBROUTINE xios(is_defined_context_attr) 
     173   
     174  SUBROUTINE xios(is_defined_context_attr_hdl)  & 
     175    ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 
     176     
     177    IMPLICIT NONE 
     178      TYPE(txios(context)) , INTENT(IN) :: context_hdl 
     179      LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type 
     180      LOGICAL(KIND=C_BOOL) :: calendar_type_tmp 
     181      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 
     182      LOGICAL(KIND=C_BOOL) :: output_dir_tmp 
     183      LOGICAL, OPTIONAL, INTENT(OUT) :: start_date 
     184      LOGICAL(KIND=C_BOOL) :: start_date_tmp 
     185      LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin 
     186      LOGICAL(KIND=C_BOOL) :: time_origin_tmp 
     187      LOGICAL, OPTIONAL, INTENT(OUT) :: timestep 
     188      LOGICAL(KIND=C_BOOL) :: timestep_tmp 
     189       
     190      CALL xios(is_defined_context_attr_hdl_)  & 
     191      ( context_hdl, calendar_type, output_dir, start_date, time_origin, timestep ) 
     192     
     193  END SUBROUTINE xios(is_defined_context_attr_hdl) 
     194   
     195  SUBROUTINE xios(is_defined_context_attr_hdl_)   & 
     196    ( context_hdl, calendar_type_, output_dir_, start_date_, time_origin_, timestep_ ) 
     197     
     198    IMPLICIT NONE 
     199      TYPE(txios(context)) , INTENT(IN) :: context_hdl 
     200      LOGICAL, OPTIONAL, INTENT(OUT) :: calendar_type_ 
     201      LOGICAL(KIND=C_BOOL) :: calendar_type__tmp 
     202      LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_ 
     203      LOGICAL(KIND=C_BOOL) :: output_dir__tmp 
     204      LOGICAL, OPTIONAL, INTENT(OUT) :: start_date_ 
     205      LOGICAL(KIND=C_BOOL) :: start_date__tmp 
     206      LOGICAL, OPTIONAL, INTENT(OUT) :: time_origin_ 
     207      LOGICAL(KIND=C_BOOL) :: time_origin__tmp 
     208      LOGICAL, OPTIONAL, INTENT(OUT) :: timestep_ 
     209      LOGICAL(KIND=C_BOOL) :: timestep__tmp 
     210       
     211      IF (PRESENT(calendar_type_)) THEN 
     212        calendar_type__tmp=cxios_is_defined_context_calendar_type(context_hdl%daddr) 
     213        calendar_type_=calendar_type__tmp 
     214      ENDIF 
     215       
     216      IF (PRESENT(output_dir_)) THEN 
     217        output_dir__tmp=cxios_is_defined_context_output_dir(context_hdl%daddr) 
     218        output_dir_=output_dir__tmp 
     219      ENDIF 
     220       
     221      IF (PRESENT(start_date_)) THEN 
     222        start_date__tmp=cxios_is_defined_context_start_date(context_hdl%daddr) 
     223        start_date_=start_date__tmp 
     224      ENDIF 
     225       
     226      IF (PRESENT(time_origin_)) THEN 
     227        time_origin__tmp=cxios_is_defined_context_time_origin(context_hdl%daddr) 
     228        time_origin_=time_origin__tmp 
     229      ENDIF 
     230       
     231      IF (PRESENT(timestep_)) THEN 
     232        timestep__tmp=cxios_is_defined_context_timestep(context_hdl%daddr) 
     233        timestep_=timestep__tmp 
     234      ENDIF 
     235       
     236       
     237     
     238  END SUBROUTINE xios(is_defined_context_attr_hdl_) 
     239   
    151240END MODULE icontext_attr 
  • 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 
  • 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