Changeset 464 for XIOS/trunk/src/interface/fortran_attr/field_interface_attr.f90

Timestamp:

01/21/14 15:28:59 (10 years ago)

Author:

ymipsl

Message:

Enhancement : Add scale_factor and add_offset attribute to field output
Operation (field-add_offset)/scale_factor would be computed before output write.
If field attribute prec=2 the field would be rounded to nearest integer value and output as short int (2 bytes).

YM

File:

• XIOS/trunk/src/interface/fortran_attr/field_interface_attr.f90 (modified) (2 diffs)

XIOS/trunk/src/interface/fortran_attr/field_interface_attr.f90

@@ -9 +9 @@
     
     
+    SUBROUTINE cxios_set_field_add_offset(field_hdl, add_offset) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      REAL (KIND=C_DOUBLE)      , VALUE :: add_offset
+    END SUBROUTINE cxios_set_field_add_offset
+    
+    SUBROUTINE cxios_get_field_add_offset(field_hdl, add_offset) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      REAL (KIND=C_DOUBLE)             :: add_offset
+    END SUBROUTINE cxios_get_field_add_offset
+    
+    FUNCTION cxios_is_defined_field_add_offset(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_add_offset
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_add_offset
+    
+    
     SUBROUTINE cxios_set_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
       USE ISO_C_BINDING
@@ -274 +293 @@
     
     
+    SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
+    END SUBROUTINE cxios_set_field_scale_factor
+    
+    SUBROUTINE cxios_get_field_scale_factor(field_hdl, scale_factor) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      REAL (KIND=C_DOUBLE)             :: scale_factor
+    END SUBROUTINE cxios_get_field_scale_factor
+    
+    FUNCTION cxios_is_defined_field_scale_factor(field_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scale_factor
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_scale_factor
+    
+    
     SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
       USE ISO_C_BINDING