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
File:
1 edited

Legend:

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