Ignore:
Timestamp:
03/27/09 18:02:59 (13 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
File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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) 
Note: See TracChangeset for help on using the changeset viewer.