Changeset 40 for XMLIO_SERVER/trunk/src/XMLIO/mod_grid.f90

Timestamp:

09/17/09 10:02:37 (15 years ago)

Author:

ymipsl

Message:

• Les attributs XML peuvent désormais être passer dynamiquement à travers l'interface du server IO.
• ajout d'un attribut name_suffix pour les fichiers

YM

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_grid.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/XMLIO/mod_grid.f90

@@ -120 +120 @@
   END SUBROUTINE grid__set
 
+
+  SUBROUTINE grid__set_attribut(id,attrib)
+  USE mod_attribut
+  USE mod_grid_attribut
+  USE error_msg
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN) :: id
+    TYPE(attribut),INTENT(IN) :: attrib
+
+    TYPE(grid),POINTER              :: Pt_grid
+    INTEGER                         :: Pos
+    LOGICAL                         :: success
+    
+    CALL sorted_list__find(Ids,hash(Id),Pos,success)
+    IF (success) THEN
+      Pt_grid=>grid_ids%at(Pos)%Pt
+    ELSE
+      WRITE(message,*) 'grid id :',id,'is undefined'
+      CALL error('mod_grid::grid__set_attribut')
+    ENDIF  
+    
+    SELECT CASE(attrib%name)
+      CASE (grid__name)
+        IF (attrib%type==string0) CALL  grid__set(pt_grid,name=attrib%string0_ptr) ; RETURN
+      CASE (grid__description)
+        IF (attrib%type==string0) CALL  grid__set(pt_grid,description=attrib%string0_ptr) ; RETURN
+     END SELECT
+
+     WRITE(message,*) 'grid id ',id,' : Attribute type is incompatible with the provided value'
+     CALL error('mod_grid::grid__set_attribut')
+    
+  END SUBROUTINE grid__set_attribut
+  
   SUBROUTINE grid__set_dimension(pt_grid, ni, nj)
   IMPLICIT NONE