source: XMLIO_SERVER/trunk/src/XMLIO/mod_axis_definition.f90 @ 26

Last change on this file since 26 was 26, checked in by ymipsl, 15 years ago

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 size: 578 bytes
Line 
1MODULE mod_axis_definition
2  USE mod_axis_group
3 
4  TYPE(axis_group),SAVE,POINTER :: axis_definition
5 
6CONTAINS
7
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
16  SUBROUTINE axis_definition__Init
17  USE mod_axis_group
18  IMPLICIT NONE
19 
20    CALL axis_group__new(axis_definition,"axis_definition")
21   
22  END SUBROUTINE axis_definition__Init
23       
24END MODULE mod_axis_definition
Note: See TracBrowser for help on using the repository browser.