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

Timestamp:

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

Author:

hozdoba

Message:

 

File:

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

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

@@ -412 +412 @@
       CALL xios_domaingroup_handle_create(ret%daddr, idt, len(idt))            
    END SUBROUTINE domaingroup_handle_create
+
+   LOGICAL FUNCTION domain_valid_id(idt)
+      IMPLICIT NONE
+      CHARACTER(len  = *)    , INTENT(IN) :: idt
+      LOGICAL  (kind = 1)                 :: val
+      CALL xios_domain_valid_id(val, idt, len(idt));
+      domain_valid_id = val
+   END FUNCTION  domain_valid_id
+
+   LOGICAL FUNCTION domaingroup_valid_id(idt)
+      IMPLICIT NONE
+      CHARACTER(len  = *)    , INTENT(IN) :: idt
+      LOGICAL  (kind = 1)                 :: val
+      CALL xios_domaingroup_valid_id(val, idt, len(idt));
+      domaingroup_valid_id = val
+   END FUNCTION  domaingroup_valid_id
    
 END MODULE IDOMAIN