Changeset 537 for XIOS/trunk/src/test


Ignore:
Timestamp:
12/11/14 14:32:37 (9 years ago)
Author:
rlacroix
Message:

Add a new attribute type for durations and use it for the context's timestep.

Note that the "xios_time" type and the "xios_set_timestep" procedure have been removed from the Fortran interface. Instead, the "xios_duration" type and the "xios_get_context_attr"/"xios_set_context_attr" procedures should now be used to get/set the timestep.

Location:
XIOS/trunk/src/test
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/test/test_client.f90

    r501 r537  
    1111  CHARACTER(len=*),PARAMETER :: id="client" 
    1212  INTEGER :: comm 
    13   TYPE(xios_time)      :: dtime 
     13  TYPE(xios_duration) :: dtime 
    1414  TYPE(xios_context) :: ctx_hdl 
    1515  INTEGER,PARAMETER :: ni_glo=100 
    … …  
    8888  
    8989    dtime%second=3600 
    90     CALL xios_set_timestep(dtime)  
     90    CALL xios_set_context_attr("test", timestep=dtime) 
    9191     
    9292    ni=0 ; lonvalue(:)=0 

  • XIOS/trunk/src/test/test_complete.f90

    r532 r537  
    1212  INTEGER :: comm 
    1313  TYPE(xios_date)      :: start_date, time_origin 
    14   TYPE(xios_time)      :: dtime 
     14  TYPE(xios_duration)  :: dtime 
    1515  TYPE(xios_context) :: ctx_hdl 
    1616  INTEGER,PARAMETER :: ni_glo=100 
    … …  
    122122 
    123123  dtime%second=3600 
    124   CALL xios_set_timestep(dtime)  
     124  CALL xios_set_context_attr("atmosphere", timestep=dtime) 
    125125     
    126126!!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalité) 
    … …  
    204204 
    205205  dtime%second=1800 
    206   CALL xios_set_timestep(dtime)  
     206  CALL xios_set_context_attr("surface", timestep=dtime) 
    207207     
    208208!!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalité) 

  • XIOS/trunk/src/test/test_cs.f90

    r501 r537  
    3030  INTEGER :: size 
    3131  INTEGER :: comm 
    32   TYPE(xios_time)      :: dtime 
     32  TYPE(xios_duration) :: dtime 
    3333  TYPE(xios_context) :: ctx_hdl 
    3434  INTEGER,PARAMETER :: ni_glo=100  
    … …  
    126126  
    127127    dtime%second=3600 
    128     CALL xios_set_timestep(dtime)  
     128    CALL xios_set_context_attr("test", timestep=dtime) 
    129129     
    130130!    ni=0 ; lonvalue(:)=0 

  • XIOS/trunk/src/test/test_unstruct_complete.f90

    r501 r537  
    1111  CHARACTER(len=*),PARAMETER :: id="client" 
    1212  INTEGER :: comm 
    13   TYPE(xios_time)      :: dtime 
     13  TYPE(xios_duration) :: dtime 
    1414  TYPE(xios_context) :: ctx_hdl 
    1515  INTEGER, PARAMETER :: nlon=60  
    … …  
    209209  
    210210  dtime%second=3600 
    211   CALL xios_set_timestep(dtime)  
     211  CALL xios_set_context_attr("surface", timestep=dtime) 
    212212  CALL xios_close_context_definition() 
    213213     

  • XIOS/trunk/src/test/test_xios_interface.f90

    r532 r537  
    1313  INTEGER :: comm 
    1414  TYPE(xios_date)      :: start_date, time_origin 
    15   TYPE(xios_time)      :: dtime 
     15  TYPE(xios_duration)  :: dtime 
    1616  TYPE(xios_context) :: ctx_hdl 
    1717  INTEGER,PARAMETER :: ni_glo=10 
    … …  
    131131 
    132132  dtime%second=3600 
    133   CALL xios_set_timestep(dtime) 
     133  CALL xios_set_context_attr("atmosphere", timestep=dtime) 
    134134 
    135135!!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalité) 
    … …  
    213213 
    214214  dtime%second=1800 
    215   CALL xios_set_timestep(dtime) 
     215  CALL xios_set_context_attr("surface", timestep=dtime) 
    216216 
    217217!!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalité) 
Note: See TracChangeset for help on using the changeset viewer.