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

Timestamp:

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

Author:

hozdoba

Message:

 

File:

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

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

@@ -109 +109 @@
       CALL xios_gridgroup_handle_create(ret%daddr, idt, len(idt))            
    END SUBROUTINE gridgroup_handle_create
+
+   LOGICAL FUNCTION grid_valid_id(idt)
+      IMPLICIT NONE
+      CHARACTER(len  = *)    , INTENT(IN) :: idt
+      LOGICAL  (kind = 1)                 :: val
+      CALL xios_grid_valid_id(val, idt, len(idt));
+      grid_valid_id = val
+   END FUNCTION  grid_valid_id
+
+   LOGICAL FUNCTION gridgroup_valid_id(idt)
+      IMPLICIT NONE
+      CHARACTER(len  = *)    , INTENT(IN) :: idt
+      LOGICAL  (kind = 1)                 :: val
+      CALL xios_gridgroup_valid_id(val, idt, len(idt));
+      gridgroup_valid_id = val
+   END FUNCTION  gridgroup_valid_id
    
 END MODULE IGRID