source: ether_ndacc/trunk/dev_ndacc/livraison/src/keckhut/struct_ames_mod.f90 @ 84

Last change on this file since 84 was 84, checked in by cbipsl, 14 years ago

import ether_ndacc
  • Property svn:executable set to *
File size: 298 bytes
Line 
1MODULE struct_ames_mod 
2
3IMPLICIT NONE
4
5CONTAINS
6USE head_ames_mod
7USE grid_ames_mod
8
9
10type STRUCT_AMES
11        CHARACTER(LEN=12)                               :: chaine 
12        type(grid_ames),DIMENSION(:),pointer        :: grids_ames=>null()       
13        type(head_ames)                             :: head             
14
15end type STRUCT_AMES
16
17END MODULE struct_ames_mod 
Note: See TracBrowser for help on using the repository browser.