Changeset 547 for XIOS/branchs


Ignore:
Timestamp:
01/20/15 09:35:32 (6 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:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/branchs/xios-1.0/src/test/test_complete.f90

    r529 r547  
    2929  INTEGER :: ni,ibegin,iend,nj,jbegin,jend 
    3030  INTEGER :: i,j,l,ts,n, nb_pt 
    31   INTEGER :: iret 
    3231 
    3332!!! MPI Initialization 
     
    201200  CALL xios_add_child(field_hdl,var_hdl,"my_local_attribute") 
    202201  CALL xios_set_attr(var_hdl,type="string") 
    203   iret=xios_setVar("my_local_attribute","attribute_local") 
     202  ok=xios_setVar("my_local_attribute","attribute_local") 
    204203 
    205204!!! Add a variable as file global attribute 
     
    207206  CALL xios_add_child(file_hdl,var_hdl,"my_global_attribute") 
    208207  CALL xios_set_attr(var_hdl,type="string") 
    209   iret=xios_setVar("my_global_attribute","attribute_global") 
     208  ok=xios_setVar("my_global_attribute","attribute_global") 
    210209 
    211210!!! Modify a variable used as attribute (defined in xml file) 
    212211 
    213   iret=xios_setVar("my_global_attribute_xml","6h_file") 
     212  ok=xios_setVar("my_global_attribute_xml","6h_file") 
    214213 
    215214!!! Get the value of a variable (defined in xml file) 
    216215   
    217   iret=xios_getVar("my_attribute1",str_temp) 
     216  ok=xios_getVar("my_attribute1",str_temp) 
    218217  PRINT *, "my_attribute1 is :",TRIM(str_temp) 
    219218       
Note: See TracChangeset for help on using the changeset viewer.