Changeset 285 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran/ifield.f90

Timestamp:

09/26/11 14:19:55 (13 years ago)

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src/xmlio/fortran/ifield.f90 (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/xmlio/fortran/ifield.f90

@@ -229 +229 @@
       CALL xios_fieldgroup_handle_create(ret%daddr, idt, len(idt))            
    END SUBROUTINE fieldgroup_handle_create
-   
+
+   LOGICAL FUNCTION field_valid_id(idt)
+      IMPLICIT NONE
+      CHARACTER(len  = *)    , INTENT(IN) :: idt
+      LOGICAL  (kind = 1)                 :: val
+      CALL xios_field_valid_id(val, idt, len(idt));
+      field_valid_id = val
+   END FUNCTION  field_valid_id
+
+   LOGICAL FUNCTION fieldgroup_valid_id(idt)
+      IMPLICIT NONE
+      CHARACTER(len  = *)    , INTENT(IN) :: idt
+      LOGICAL  (kind = 1)                 :: val
+      CALL xios_fieldgroup_valid_id(val, idt, len(idt));
+      fieldgroup_valid_id = val
+   END FUNCTION  fieldgroup_valid_id
+
 END MODULE IFIELD