Changeset 28


Ignore:
Timestamp:
04/08/09 16:05:18 (16 years ago)
Author:
ymipsl
Message:

Feature : ajout des paramÚtres temporels dans les contexts

Location:
XMLIO_SERVER/trunk/src
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

    r17 r28  
    11MODULE mod_interface_ioipsl 
    22 
    3   INTEGER,SAVE,PRIVATE  :: ini_timestep 
    4   REAL,SAVE,PRIVATE     :: zjulian 
    5   REAL,SAVE,PRIVATE     :: timestep  
    6   INTEGER,SAVE,PRIVATE  :: timestep_nb 
     3  
     4  INTEGER,PARAMETER     :: id_file=1 
     5 
     6 
     7CONTAINS 
     8 
     9  SUBROUTINE init_interface_ioipsl 
     10  USE xmlio 
     11  IMPLICIT NONE 
    712   
    8   INTEGER,PARAMETER     :: id_file=1 
    9  
    10  
    11 CONTAINS 
    12  
    13   SUBROUTINE init_interface_ioipsl 
    14   USE xmlio 
    15   IMPLICIT NONE 
    16    
    1713     
    1814  END SUBROUTINE init_interface_ioipsl 
    … …  
    2016 
    2117  SUBROUTINE set_time_parameters(ini_timestep0,zjulian0,timestep0) 
     18  USE xmlio 
    2219  IMPLICIT NONE 
    2320    INTEGER :: ini_timestep0 
    2421    REAL :: zjulian0, timestep0 
    2522 
    26     timestep=timestep0 
    27     ini_timestep=ini_timestep0 
    28     zjulian=zjulian0 
     23    timestep_value=timestep0 
     24    initial_timestep=ini_timestep0 
     25    initial_date=zjulian0 
    2926 
    3027  END SUBROUTINE set_time_parameters 
    … …  
    6663      CALL set_ioipsl_domain_id(pt_grid,nb_server,server_rank,ioipsl_domain_id) 
    6764      CALL histbeg(TRIM(pt_file%name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat,  & 
    68                     1, pt_domain%ni, 1, pt_domain%nj,ini_timestep, zjulian, timestep,           & 
     65                    1, pt_domain%ni, 1, pt_domain%nj,initial_timestep, initial_date, timestep_value,  & 
    6966                   ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id)                                               
    7067       
    … …  
    132129         pt_field=>pt_field_base%field_out%at(i)%pt%field 
    133130         ioipsl_file_id=pt_field%internal(id_file) 
    134          CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_nb, var, size(var), nindex) 
     131         CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_number, var, size(var), nindex) 
    135132       ENDDO 
    136133     ENDIF 
    … …  
    162159         pt_field=>pt_field_base%field_out%at(i)%pt%field 
    163160         ioipsl_file_id=pt_field%internal(id_file) 
    164          CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_nb, var, size(var), nindex) 
     161         CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_number, var, size(var), nindex) 
    165162       ENDDO 
    166163     ENDIF 
    … …  
    169166 
    170167  SUBROUTINE set_timestep(timestep_nb0) 
     168  USE xmlio 
    171169  IMPLICIT NONE 
    172170    INTEGER,INTENT(IN) :: timestep_nb0 
    173171      
    174     timestep_nb=timestep_nb0 
     172    timestep_number=timestep_nb0 
    175173 
    176174  END SUBROUTINE set_timestep 

  • XMLIO_SERVER/trunk/src/XMLIO/mod_context.f90

    r26 r28  
    1515  USE mod_axis_definition 
    1616  USE mod_dependency 
     17  USE mod_time_parameters 
    1718 
    1819 
    … …  
    4849    TYPE(vector_field_out),POINTER    :: dependency__field_enabled  
    4950    TYPE(vector_field_dep),POINTER    :: dependency__field_id 
    50     TYPE(sorted_list),POINTER         :: dependency__sorted_id   
    51    
     51    TYPE(sorted_list),POINTER         :: dependency__sorted_id  
     52    INTEGER,POINTER                   :: time_param__initial_timestep 
     53    REAL,POINTER                      :: time_param__initial_date 
     54    REAL,POINTER                      :: time_param__timestep_value  
     55    INTEGER,POINTER                   :: time_param__timestep_number 
     56 
    5257  END TYPE context 
    5358   
    … …  
    132137        ALLOCATE(pt_context%dependency__field_id) 
    133138        ALLOCATE(pt_context%dependency__sorted_id)   
     139        ALLOCATE(pt_context%time_param__initial_timestep) 
     140        ALLOCATE(pt_context%time_param__initial_date) 
     141        ALLOCATE(pt_context%time_param__timestep_value)  
     142        ALLOCATE(pt_context%time_param__timestep_number) 
    134143 
    135144        CALL context__swap(pt_context) 
    … …  
    207216      CALL axis_definition__swap_context(pt_context%axis_definition__axis_definition) 
    208217      CALL dependency__swap_context(pt_context%dependency__file_enabled,pt_context%dependency__field_enabled,  & 
    209                                     pt_context%dependency__field_id,pt_context%dependency__sorted_id)   
     218                                    pt_context%dependency__field_id,pt_context%dependency__sorted_id) 
     219      CALL time_parameters__swap_context(pt_context%time_param__initial_timestep,pt_context%time_param__initial_date,  & 
     220                                         pt_context%time_param__timestep_value,pt_context%time_param__timestep_number) 
     221                                     
    210222    END SUBROUTINE context__swap_pt 
    211223 

  • XMLIO_SERVER/trunk/src/XMLIO/xmlio.f90

    r26 r28  
    1717  USE error_msg 
    1818  USE mod_context 
     19  USE mod_time_parameters 
    1920   
    2021CONTAINS 
Note: See TracChangeset for help on using the changeset viewer.