Ignore:
Timestamp:
03/27/09 18:02:59 (15 years ago)
Author:
ymipsl
Message:

Mise à jour importante :

  • ajout de la grille type LMDZ
  • ajout des context
  • ajout de namelist pour parametrer l'utilisation du server : avec/sans MPI, en utlisant ou pas OASIS
Location:
XMLIO_SERVER/trunk/src/XMLIO
Files:
3 added
17 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_SERVER/trunk/src/XMLIO/create_template

    r8 r26  
    1 sed "s/#TYPE#/field/g" vector_def.template > vector_field_def.inc 
    2 sed "s/#TYPE#/field/g" vector_contains.template > vector_field_contains.inc 
     1#! /bin/bash 
    32 
    4 sed "s/#TYPE#/field_group/g" vector_def.template > vector_field_group_def.inc 
    5 sed "s/#TYPE#/field_group/g" vector_contains.template > vector_field_group_contains.inc 
     3function template()  
     4{ 
     5  echo ${1} 
     6  sed "s/#TYPE#/${1}/g" vector_def.template > vector_${1}_def.inc 
     7  sed "s/#TYPE#/${1}/g" vector_contains.template > vector_${1}_contains.inc 
     8} 
    69 
    7 sed "s/#TYPE#/axis/g" vector_def.template > vector_axis_def.inc 
    8 sed "s/#TYPE#/axis/g" vector_contains.template > vector_axis_contains.inc 
    910 
    10 sed "s/#TYPE#/axis_group/g" vector_def.template > vector_axis_group_def.inc 
    11 sed "s/#TYPE#/axis_group/g" vector_contains.template > vector_axis_group_contains.inc 
    12  
    13 sed "s/#TYPE#/node/g" vector_def.template > vector_node_def.inc 
    14 sed "s/#TYPE#/node/g" vector_contains.template > vector_node_contains.inc 
    15  
    16 sed "s/#TYPE#/domain/g" vector_def.template > vector_domain_def.inc 
    17 sed "s/#TYPE#/domain/g" vector_contains.template > vector_domain_contains.inc 
    18  
    19 sed "s/#TYPE#/grid/g" vector_def.template > vector_grid_def.inc 
    20 sed "s/#TYPE#/grid/g" vector_contains.template > vector_grid_contains.inc 
    21  
    22 sed "s/#TYPE#/grid_group/g" vector_def.template > vector_grid_group_def.inc 
    23 sed "s/#TYPE#/grid_group/g" vector_contains.template > vector_grid_group_contains.inc 
    24  
    25 sed "s/#TYPE#/file/g" vector_def.template > vector_file_def.inc 
    26 sed "s/#TYPE#/file/g" vector_contains.template > vector_file_contains.inc 
    27  
    28 sed "s/#TYPE#/file_group/g" vector_def.template > vector_file_group_def.inc 
    29 sed "s/#TYPE#/file_group/g" vector_contains.template > vector_file_group_contains.inc 
    30  
    31 sed "s/#TYPE#/file_dep/g" vector_def.template > vector_file_dep_def.inc 
    32 sed "s/#TYPE#/file_dep/g" vector_contains.template > vector_file_dep_contains.inc 
    33  
    34 sed "s/#TYPE#/field_dep/g" vector_def.template > vector_field_dep_def.inc 
    35 sed "s/#TYPE#/field_dep/g" vector_contains.template > vector_field_dep_contains.inc 
    36  
    37 sed "s/#TYPE#/field_out/g" vector_def.template > vector_field_out_def.inc 
    38 sed "s/#TYPE#/field_out/g" vector_contains.template > vector_field_out_contains.inc 
     11template field 
     12template field_group 
     13template axis 
     14template axis_group 
     15template node 
     16template domain 
     17template grid 
     18template grid_group 
     19template file 
     20template file_group 
     21template field_dep 
     22template file_dep 
     23template field_out 
     24template context 

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

    r8 r26  
    3131  INCLUDE 'vector_axis_contains.inc' 
    3232 
     33  SUBROUTINE axis__swap_context(saved_axis_Ids,saved_Ids) 
     34  IMPLICIT NONE 
     35    TYPE(vector_axis),POINTER          :: saved_axis_Ids 
     36    TYPE(sorted_list),POINTER          :: saved_Ids  
     37     
     38    axis_ids=>saved_axis_ids 
     39    ids=>saved_ids 
     40     
     41  END SUBROUTINE axis__swap_context 
     42 
    3343  SUBROUTINE axis__init 
    3444  IMPLICIT NONE 
    35      
    36     ALLOCATE(axis_Ids) 
    37     ALLOCATE(Ids) 
    3845     
    3946    CALL vector_axis__new(axis_Ids) 

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

    r8 r26  
    66CONTAINS 
    77 
     8  SUBROUTINE axis_definition__swap_context(saved_axis_definition)       
     9  IMPLICIT NONE 
     10    TYPE(axis_group),POINTER :: saved_axis_definition 
     11     
     12    axis_definition=>saved_axis_definition 
     13     
     14  END SUBROUTINE axis_definition__swap_context  
     15 
    816  SUBROUTINE axis_definition__Init 
    917  USE mod_axis_group 
    1018  IMPLICIT NONE 
    1119   
    12     ALLOCATE(axis_definition) 
    1320    CALL axis_group__new(axis_definition,"axis_definition") 
    1421     

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

    r17 r26  
    2222  INCLUDE "vector_axis_group_contains.inc" 
    2323 
     24  SUBROUTINE axis_group__swap_context(saved_axis_group_Ids,saved_ids) 
     25  IMPLICIT NONE 
     26  TYPE(vector_axis_group),POINTER       :: saved_axis_group_Ids 
     27  TYPE(sorted_list),POINTER             :: saved_Ids  
     28    
     29   axis_group_ids=>saved_axis_group_ids 
     30   ids=>saved_ids 
     31    
     32  END SUBROUTINE axis_group__swap_context 
     33 
    2434  SUBROUTINE axis_group__init 
    2535  IMPLICIT NONE 
    26      
    27     ALLOCATE(axis_group_Ids) 
    28     ALLOCATE(Ids) 
    2936     
    3037    CALL vector_axis_group__new(axis_group_Ids) 

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

    r17 r26  
    3232INCLUDE 'vector_field_out_def.inc' 
    3333 
    34 TYPE(vector_file_dep),POINTER      :: file_enabled 
    35 TYPE(vector_field_out),POINTER     :: field_enabled  
    36 TYPE(vector_field_dep),POINTER     :: field_id 
     34TYPE(vector_file_dep),POINTER,SAVE      :: file_enabled 
     35TYPE(vector_field_out),POINTER,SAVE     :: field_enabled  
     36TYPE(vector_field_dep),POINTER,SAVE     :: field_id 
    3737 
    3838  
    39 TYPE(sorted_list),POINTER :: sorted_id 
     39TYPE(sorted_list),POINTER,SAVE :: sorted_id 
    4040 
    4141CONTAINS 
    … …  
    4545INCLUDE 'vector_field_out_contains.inc' 
    4646 
     47   
     48  SUBROUTINE dependency__swap_context(saved_file_enabled,saved_field_enabled,save_field_id,saved_sorted_id)   
     49  IMPLICIT NONE 
     50    TYPE(vector_file_dep),POINTER      :: saved_file_enabled 
     51    TYPE(vector_field_out),POINTER     :: saved_field_enabled  
     52    TYPE(vector_field_dep),POINTER     :: save_field_id 
     53    TYPE(sorted_list),POINTER          :: saved_sorted_id   
     54     
     55    file_enabled=>saved_file_enabled    
     56    field_enabled=>saved_field_enabled 
     57    field_id=>save_field_id 
     58    sorted_id=>saved_sorted_id 
     59       
     60  END SUBROUTINE dependency__swap_context 
     61   
    4762  SUBROUTINE set_dependency 
    4863  IMPLICIT NONE 
    … …  
    7691      Pt_fg=>Pt_file_group 
    7792    ELSE 
    78       ALLOCATE(file_enabled) 
    7993      CALL vector_file_dep__new(file_enabled) 
    8094      Pt_fg=>file_definition 
    … …  
    161175  INTEGER                  :: j 
    162176   
    163     ALLOCATE(field_enabled) 
    164177    CALL vector_field_out__new(field_enabled) 
    165178     
    … …  
    189202  INTEGER :: i 
    190203   
    191     ALLOCATE(field_id) 
    192204    CALL vector_field_dep__new(field_id) 
    193  
    194     ALLOCATE(sorted_id) 
    195205    CALL sorted_list__new(sorted_id) 
    196206     

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

    r8 r26  
    123123    ENDIF 
    124124 
     125    pt_domain%nbp=nbp 
    125126    ALLOCATE(pt_domain%i_index(nbp)) 
    126127    ALLOCATE(pt_domain%j_index(nbp)) 
     128    ALLOCATE(pt_domain%mask(nbp)) 
    127129         
    128130    DO i=1,nbp 
    129       Pt_domain%i_index(i)=(index(i)+offset)/pt_domain%nj+1+pt_domain%ibegin-1 
    130       Pt_domain%j_index(i)=MOD(index(i)+offset,pt_domain%nj)+1+pt_domain%jbegin-1 
     131!      Pt_domain%i_index(i)=(index(i)+offset)/pt_domain%ni+1+pt_domain%ibegin-1 
     132!      Pt_domain%j_index(i)=MOD(index(i)+offset,pt_domain%ni)+1+pt_domain%jbegin-1 
     133      Pt_domain%i_index(i)=MOD(index(i)+offset-1,pt_domain%ni)+1 
     134      Pt_domain%j_index(i)=(index(i)+offset-1)/pt_domain%ni+1 
     135       
    131136    ENDDO 
    132137 

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

    r8 r26  
    4747  INCLUDE 'vector_field_def.inc' 
    4848   
    49   TYPE(vector_field),POINTER            :: field_Ids 
    50   TYPE(sorted_list),POINTER,PRIVATE     :: Ids  
     49  TYPE(vector_field),POINTER,SAVE            :: field_Ids 
     50  TYPE(sorted_list),POINTER,SAVE,PRIVATE     :: Ids 
     51   
    5152 
    5253CONTAINS 
    5354  INCLUDE 'vector_field_contains.inc' 
    54    
     55 
     56  SUBROUTINE field__swap_context(saved_field_ids,saved_ids) 
     57  IMPLICIT NONE 
     58    TYPE(vector_field),POINTER :: saved_field_ids 
     59    TYPE(sorted_list),POINTER  :: saved_ids 
     60     
     61    field_Ids=>saved_field_ids 
     62    Ids=>saved_Ids 
     63 
     64  END SUBROUTINE field__swap_context 
     65 
    5566  SUBROUTINE field__init 
    5667  IMPLICIT NONE 
    57      
    58     ALLOCATE(field_Ids) 
    59     ALLOCATE(Ids) 
    6068     
    6169    CALL vector_field__new(field_Ids) 

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

    r8 r26  
    66CONTAINS 
    77 
     8  SUBROUTINE field_definition__swap_context(saved_field_definition) 
     9  IMPLICIT NONE 
     10    TYPE(field_group),POINTER :: saved_field_definition 
     11   
     12    field_definition=>saved_field_definition 
     13 
     14  END SUBROUTINE field_definition__swap_context 
     15 
     16 
    817  SUBROUTINE field_definition__Init 
    9   USE mod_field_group 
    1018  IMPLICIT NONE 
    1119   
    12     ALLOCATE(field_definition) 
    13     CALL field_group__new(field_definition,"field_definition") 
    14      
     20   CALL field_group__new(field_definition,"field_definition") 
     21 
    1522  END SUBROUTINE field_definition__Init 
     23   
    1624         
    1725END MODULE mod_field_definition 

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

    r17 r26  
    1616  INCLUDE "vector_field_group_def.inc"   
    1717 
    18   TYPE(vector_field_group),POINTER      :: field_group_Ids 
    19   TYPE(sorted_list),POINTER,PRIVATE     :: Ids  
     18  TYPE(vector_field_group),SAVE,POINTER      :: field_group_Ids 
     19  TYPE(sorted_list),POINTER,SAVE,PRIVATE     :: Ids  
    2020 
    2121CONTAINS 
    … …  
    2323  INCLUDE "vector_field_group_contains.inc" 
    2424 
     25 
     26  SUBROUTINE field_group__swap_context(saved_field_group_ids, saved_ids) 
     27  IMPLICIT NONE 
     28    TYPE(vector_field_group),POINTER   :: saved_field_group_Ids 
     29    TYPE(sorted_list),POINTER          :: saved_Ids 
     30     
     31    field_group_ids=>saved_field_group_ids  
     32    ids=>saved_ids 
     33     
     34  END SUBROUTINE field_group__swap_context 
     35 
    2536  SUBROUTINE field_group__init 
    2637  IMPLICIT NONE 
    27      
    28     ALLOCATE(field_group_Ids) 
    29     ALLOCATE(Ids) 
    3038     
    3139    CALL vector_field_group__new(field_group_Ids) 

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

    r8 r26  
    3030  INCLUDE 'vector_file_contains.inc' 
    3131 
     32  SUBROUTINE file__swap_context(saved_file_ids,saved_ids) 
     33  IMPLICIT NONE 
     34    TYPE(vector_file),POINTER      :: saved_file_Ids 
     35    TYPE(sorted_list),POINTER      :: saved_Ids 
     36     
     37    file_ids=>saved_file_ids 
     38    ids=>saved_ids  
     39  
     40  END SUBROUTINE file__swap_context 
     41 
     42 
    3243  SUBROUTINE file__init 
    3344  IMPLICIT NONE 
    34      
    35     ALLOCATE(file_Ids) 
    36     ALLOCATE(Ids) 
    3745     
    3846    CALL vector_file__new(file_Ids) 

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

    r8 r26  
    66CONTAINS 
    77 
     8  SUBROUTINE file_definition__swap_context(saved_file_definition) 
     9  IMPLICIT NONE 
     10    TYPE(file_group),POINTER      :: saved_file_definition 
     11      
     12    file_definition=>saved_file_definition 
     13  
     14  END SUBROUTINE file_definition__swap_context 
     15 
    816  SUBROUTINE file_definition__Init 
    917  USE mod_file_group 
    1018  IMPLICIT NONE 
    1119   
    12     ALLOCATE(file_definition) 
    1320    CALL file_group__new(file_definition,"file_definition") 
    1421     

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

    r17 r26  
    1515  INCLUDE "vector_file_group_def.inc"   
    1616 
    17   TYPE(vector_file_group),POINTER       :: file_group_Ids 
    18   TYPE(sorted_list),POINTER,PRIVATE     :: Ids  
     17  TYPE(vector_file_group),POINTER,SAVE       :: file_group_Ids 
     18  TYPE(sorted_list),POINTER,PRIVATE,SAVE     :: Ids  
    1919 
    2020CONTAINS 
    … …  
    2222  INCLUDE "vector_file_group_contains.inc" 
    2323 
     24  SUBROUTINE file_group__swap_context(saved_file_group_ids,saved_ids) 
     25  IMPLICIT NONE 
     26    TYPE(vector_file_group),POINTER      :: saved_file_group_Ids 
     27    TYPE(sorted_list),POINTER            :: saved_Ids 
     28     
     29    file_group_ids=>saved_file_group_ids 
     30    ids=>saved_ids  
     31  
     32  END SUBROUTINE file_group__swap_context 
     33 
    2434  SUBROUTINE file_group__init 
    2535  IMPLICIT NONE 
    26      
    27     ALLOCATE(file_group_Ids) 
    28     ALLOCATE(Ids) 
    2936     
    3037    CALL vector_file_group__new(file_group_Ids) 

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

    r17 r26  
    2929  INCLUDE 'vector_grid_contains.inc' 
    3030 
     31  SUBROUTINE grid__swap_context(saved_grid_Ids,saved_Ids) 
     32  IMPLICIT NONE 
     33    TYPE(vector_grid),POINTER          :: saved_grid_Ids 
     34    TYPE(sorted_list),POINTER          :: saved_Ids  
     35     
     36    grid_ids=>saved_grid_ids 
     37    ids=>saved_ids 
     38  END SUBROUTINE grid__swap_context 
     39   
     40   
    3141  SUBROUTINE grid__init 
    3242  IMPLICIT NONE 
    33      
    34     ALLOCATE(grid_Ids) 
    35     ALLOCATE(Ids) 
    3643     
    3744    CALL vector_grid__new(grid_Ids) 

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

    r8 r26  
    66CONTAINS 
    77 
     8  SUBROUTINE grid_definition__swap_context(saved_grid_definition)       
     9  IMPLICIT NONE 
     10    TYPE(grid_group),POINTER :: saved_grid_definition 
     11     
     12    grid_definition=>saved_grid_definition 
     13     
     14  END SUBROUTINE grid_definition__swap_context  
     15 
    816  SUBROUTINE grid_definition__Init 
    917  USE mod_grid_group 
    1018  IMPLICIT NONE 
    1119   
    12     ALLOCATE(grid_definition) 
    1320    CALL grid_group__new(grid_definition,"grid_definition") 
    1421     
    1522  END SUBROUTINE grid_definition__Init 
    16          
     23  
    1724END MODULE mod_grid_definition 

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

    r17 r26  
    1515  INCLUDE "vector_grid_group_def.inc"   
    1616 
    17   TYPE(vector_grid_group),POINTER       :: grid_group_Ids 
    18   TYPE(sorted_list),POINTER,PRIVATE     :: Ids  
     17  TYPE(vector_grid_group),POINTER,SAVE       :: grid_group_Ids 
     18  TYPE(sorted_list),POINTER,SAVE,PRIVATE     :: Ids  
    1919 
    2020CONTAINS 
    … …  
    2222  INCLUDE "vector_grid_group_contains.inc" 
    2323 
     24  SUBROUTINE grid_group__swap_context(saved_grid_group_Ids,saved_ids) 
     25  IMPLICIT NONE 
     26  TYPE(vector_grid_group),POINTER       :: saved_grid_group_Ids 
     27  TYPE(sorted_list),POINTER             :: saved_Ids  
     28    
     29   grid_group_ids=>saved_grid_group_ids 
     30   ids=>saved_ids 
     31    
     32  END SUBROUTINE grid_group__swap_context 
     33    
    2434  SUBROUTINE grid_group__init 
    2535  IMPLICIT NONE 
    26      
    27     ALLOCATE(grid_group_Ids) 
    28     ALLOCATE(Ids) 
    2936     
    3037    CALL vector_grid_group__new(grid_group_Ids) 

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

    r17 r26  
    2828    CHARACTER(len=100) :: node_name 
    2929      
    30      IF (hasChildNodes(root)) THEN 
     30    IF (hasChildNodes(root)) THEN 
    3131      child_list => getChildnodes(root) 
    3232 
    … …  
    3838           
    3939           CASE ('simulation')  
    40              CALL parsing_definition(child_node) 
     40             CALL parsing_simulation(child_node) 
    4141 
    4242           CASE DEFAULT 
    … …  
    4545               CALL Warning("mod_parse_xml:parsing_root") 
    4646             ENDIF 
     47        END SELECT 
     48      ENDDO 
     49    ENDIF 
     50              
     51  END SUBROUTINE parsing_root 
     52 
     53  SUBROUTINE parsing_simulation(root) 
     54  IMPLICIT NONE 
     55    TYPE(fnode), POINTER :: root 
     56    TYPE(fnode), POINTER :: child_node 
     57    TYPE(fnodeList), POINTER :: child_list 
     58 
     59    INTEGER :: il 
     60    CHARACTER(len=100) :: node_name 
     61      
     62     IF (hasChildNodes(root)) THEN 
     63      child_list => getChildnodes(root) 
     64 
     65      DO il=0,getLength(child_list)-1 
     66        child_node => item(child_list,il) 
     67        node_name=getNodename(child_node) 
     68           
     69        SELECT CASE (TRIM(node_name))  
     70           
     71           CASE ('context')  
     72             CALL parsing_context(child_node) 
     73 
     74           CASE DEFAULT 
     75             IF (is_bad_node(node_name)) THEN 
     76               WRITE(message,*) 'Unknown node <<',TRIM(node_name),'>> while parsing simulation' 
     77               CALL Warning("mod_parse_xml:parsing_simulationt") 
     78             ENDIF 
    4779         END SELECT 
    4880        
    … …  
    5082    ENDIF 
    5183              
    52   END SUBROUTINE parsing_root 
    53  
    54  
    55   SUBROUTINE parsing_definition(root) 
     84  END SUBROUTINE parsing_simulation 
     85 
     86  SUBROUTINE parsing_context(node) 
     87  USE mod_context 
    5688  USE mod_axis_definition 
    5789  USE mod_grid_definition 
    5890  USE mod_field_definition 
    5991  USE mod_file_definition 
    60    
    61   IMPLICIT NONE 
    62     TYPE(fnode), POINTER :: root 
    63     TYPE(fnode), POINTER :: child_node 
     92  IMPLICIT NONE   
     93    TYPE(fnode), POINTER         :: node 
     94     
     95    TYPE(fnode), POINTER     :: child_node 
    6496    TYPE(fnodeList), POINTER :: child_list 
    65  
    66     INTEGER :: il 
    67     CHARACTER(len=100) :: node_name 
    68  
    69     IF (hasChildNodes(root)) THEN 
    70       child_list => getChildnodes(root) 
     97    TYPE(axis),POINTER       :: attribute 
     98    LOGICAL                  :: is_root 
     99    INTEGER :: il 
     100    CHARACTER(len=100) :: node_name 
     101    CHARACTER(len=100) :: value 
     102     
     103    IF (is_attribute_exist(node,"id")) THEN 
     104      value=getAttribute(node,"id") 
     105      CALL context__create(TRIM(value))   
     106      CALL context__swap(TRIM(value)) 
     107    ENDIF 
     108     
     109    IF (hasChildNodes(node)) THEN 
     110      child_list => getChildnodes(node) 
     111 
    71112      DO il=0,getLength(child_list)-1 
    72113        child_node => item(child_list,il) 
    73114        node_name=getNodename(child_node) 
    74            
     115         
    75116        SELECT CASE (TRIM(node_name))  
    76117           
    … …  
    89130           CASE DEFAULT 
    90131             IF (is_bad_node(node_name)) THEN 
    91                WRITE(message,*) 'Unknown node <<',TRIM(node_name),'>> while parsing definition' 
    92                CALL Warning("mod_parse_xml:parsing_definition") 
     132               WRITE(message,*) 'Unknown node <<',TRIM(node_name),'>> while parsing context' 
     133               CALL Warning("mod_parse_xml:parsing_context") 
    93134             ENDIF    
    94          END SELECT 
    95         
    96        ENDDO 
    97     ENDIF 
    98      
    99   END SUBROUTINE parsing_definition 
    100   
    101  
    102  
    103  
    104  
    105    
     135        END SELECT 
     136      ENDDO 
     137 
     138    ENDIF 
     139 
     140  END SUBROUTINE parsing_context 
     141 
     142 
    106143  RECURSIVE SUBROUTINE parsing_axis_group(node,parent,root) 
    107144  USE mod_axis_definition 
    … …  
    493530 
    494531  END SUBROUTINE parsing_field_attribute  
    495    
    496    
    497    
    498532 
    499533 

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

    r8 r26  
    1616  USE string_function 
    1717  USE error_msg 
     18  USE mod_context 
    1819   
    1920CONTAINS 
    … …  
    2425    CHARACTER(LEN=*),INTENT(IN) :: xml_file 
    2526     
    26     CALL field__init 
    27     CALL field_group__Init 
    28     CALL field_definition__Init 
    29  
    30     CALL axis__init 
    31     CALL axis_group__Init 
    32     CALL axis_definition__Init 
    33  
    34     CALL grid__init 
    35     CALL grid_group__Init 
    36     CALL grid_definition__Init 
    37  
    38     CALL file__init 
    39     CALL file_group__Init 
    40     CALL file_definition__Init 
    41      
     27    CALL context__init 
    4228    CALL parsing_xml_file(xml_file) 
    4329     
    4430  END SUBROUTINE xmlio__init 
     31   
    4532   
    4633  SUBROUTINE xmlio__close_definition 
Note: See TracChangeset for help on using the changeset viewer.