Changeset 547 for XIOS/branchs

Timestamp:

01/20/15 09:35:32 (9 years ago)

Author:

rlacroix

Message:

Fix test_complete.f90 not to use INTEGER variable instead of LOGICAL variable.

Depending on the compiler this could cause an error during compilation.

Reported by Mike Rezny.

File:

• XIOS/branchs/xios-1.0/src/test/test_complete.f90 (modified) (3 diffs)

XIOS/branchs/xios-1.0/src/test/test_complete.f90

@@ -29 +29 @@
   INTEGER :: ni,ibegin,iend,nj,jbegin,jend
   INTEGER :: i,j,l,ts,n, nb_pt
-  INTEGER :: iret
 
 !!! MPI Initialization
@@ -201 +200 @@
   CALL xios_add_child(field_hdl,var_hdl,"my_local_attribute")
   CALL xios_set_attr(var_hdl,type="string")
-  iret=xios_setVar("my_local_attribute","attribute_local")
+  ok=xios_setVar("my_local_attribute","attribute_local")
 
 !!! Add a variable as file global attribute
@@ -207 +206 @@
   CALL xios_add_child(file_hdl,var_hdl,"my_global_attribute")
   CALL xios_set_attr(var_hdl,type="string")
-  iret=xios_setVar("my_global_attribute","attribute_global")
+  ok=xios_setVar("my_global_attribute","attribute_global")
 
 !!! Modify a variable used as attribute (defined in xml file)
 
-  iret=xios_setVar("my_global_attribute_xml","6h_file")
+  ok=xios_setVar("my_global_attribute_xml","6h_file")
 
 !!! Get the value of a variable (defined in xml file)
   
-  iret=xios_getVar("my_attribute1",str_temp)
+  ok=xios_getVar("my_attribute1",str_temp)
   PRINT *, "my_attribute1 is :",TRIM(str_temp)