Changeset 29 for XMLIO_SERVER/trunk/src/XMLIO/mod_axis.f90

Timestamp:

04/15/09 17:34:38 (15 years ago)

Author:

ymipsl

Message:

New Features :

• Les zoom sont maintenant utilisables.
• Lorsqu'un serveur ne sort pas de données dans un fichier, le fichier n'est pas crée.
• Lorsqu'un serveur est le seul a sortir un fichier, l'indexation par numero de process est supprimé.
• Les axes verticaux ont maintenant un attribut << positive [TRUE/FALSE]>>

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_axis.f90 (modified) (8 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_axis.f90

@@ -18 +18 @@
     CHARACTER(len=str_len)      :: unit
     LOGICAL                     :: has_unit
+    LOGICAL                     :: positive
+    LOGICAL                     :: has_positive
     REAL, DIMENSION(:), POINTER :: values
     LOGICAL                     :: has_values
@@ -74 +76 @@
    INTEGER                       :: Pos
    
-   pt_axis%has_id         = .FALSE.
+   pt_axis%has_id          = .FALSE.
    pt_axis%has_name        = .FALSE.
    pt_axis%has_size        = .FALSE.
@@ -80 +82 @@
    pt_axis%has_unit        = .FALSE.
    pt_axis%has_values      = .FALSE.
-   
+   pt_axis%has_positive    = .FALSE. 
+     
    IF (PRESENT(Id)) THEN
      Pt_axis%id=TRIM(ADJUSTL(Id))
@@ -90 +93 @@
  END SUBROUTINE axis__new
 
-  SUBROUTINE axis__set(pt_axis, name, description, unit, a_size, values)
+  SUBROUTINE axis__set(pt_axis, name, description, unit, a_size, values, positive)
   IMPLICIT NONE
     TYPE(axis), POINTER         :: pt_axis
@@ -98 +101 @@
     INTEGER           ,OPTIONAL :: a_size
     REAL, DIMENSION(:),OPTIONAL :: values
+    LOGICAL           ,OPTIONAL :: positive
 
     IF (PRESENT(name)) THEN
@@ -126 +130 @@
     ENDIF
 
+    IF (PRESENT(positive)) then
+        pt_axis%positive=positive
+        pt_axis%has_positive = .TRUE.
+    ENDIF
+
   END SUBROUTINE axis__set
 
@@ -167 +176 @@
     ELSE
       PRINT *,"values undefined"
+    ENDIF
+
+    IF (pt_axis%has_positive) THEN
+      PRINT *,"positive = ",pt_axis%positive
+    ELSE
+      PRINT *,"positive undefined"
     ENDIF
 
@@ -224 +239 @@
     ELSE
         pt_axis_out%has_values=.FALSE.
+    ENDIF
+
+    IF (pt_axis_in%has_positive) THEN
+        pt_axis_out%positive=pt_axis_in%positive
+        pt_axis_out%has_positive=.TRUE.
+    ELSE IF ( pt_axis_default%has_positive ) THEN
+        pt_axis_out%positive=pt_axis_default%positive
+        pt_axis_out%has_positive=.TRUE.
+    ELSE
+        pt_axis_out%has_positive=.FALSE.
     ENDIF