Ignore:
Timestamp:
02/14/12 13:52:39 (10 years ago)
Author:
ymipsl
Message:

Add xios_field_is_active functionnality

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/fortran/ifield.F90

    r286 r310  
    3131   END INTERFACE   
    3232   !---------------------------------------------------------------------------- 
     33    
    3334    
    3435   CONTAINS ! Fonctions disponibles pour les utilisateurs. 
     
    318319   END FUNCTION  xios(is_valid_fieldgroup) 
    319320    
    320     
     321  LOGICAL FUNCTION xios(field_is_active_id(field_id)) 
     322      IMPLICIT NONE 
     323      CHARACTER(len  = *)    , INTENT(IN) :: field_id 
     324      LOGICAL  (kind = 1)                 :: val 
     325      TYPE(txios(field))                 :: field_hdl 
     326       
     327      CALL xios(get_field_handle)(field_id,field_hdl) 
     328      xios(field_is_active_id)=xios(field_is_active_hdl(field_hdl)) 
     329 
     330   END FUNCTION  xios(field_is_active_id) 
     331    
     332    
     333   LOGICAL FUNCTION xios(field_is_active_hdl(field_hdl)) 
     334      IMPLICIT NONE 
     335      TYPE(txios(field)),INTENT(IN)       :: field_hdl 
     336      LOGICAL  (kind = 1)                 :: ret 
     337       
     338      CALL cxios_field_is_active(field_hdl%daddr, ret); 
     339      xios(field_is_active_hdl) = ret 
     340       
     341   END FUNCTION  xios(field_is_active_hdl)  
    321342  
    322343    
     
    544565      field_valid_id = val 
    545566   END FUNCTION  field_valid_id 
     567  
    546568 
    547569   LOGICAL FUNCTION fieldgroup_valid_id(idt) 
Note: See TracChangeset for help on using the changeset viewer.