source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/gases_h.F90 @ 224

Last change on this file since 224 was 222, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
File size: 874 bytes
Line 
1      module gases_h
2
3      implicit none
4
5!======================================================================C
6!
7!     gases_h   
8!
9!     A F90-allocatable version for gases.h -- AS 12/2011
10!
11!======================================================================C
12
13      ! Set and allocated in su_gases.F90
14      integer :: ngasmx
15      integer :: vgas
16      character*20,allocatable,DIMENSION(:) :: gnom ! name of the gas
17      real,allocatable,DIMENSION(:) :: gfrac
18
19      ! in analogy with tracer.h ...
20      integer :: igas_H2
21      integer :: igas_He
22      integer :: igas_H2O
23      integer :: igas_CO2
24      integer :: igas_CO
25      integer :: igas_N2
26      integer :: igas_O2
27      integer :: igas_SO2
28      integer :: igas_H2S
29      integer :: igas_CH4
30      integer :: igas_NH3
31      integer :: igas_C2H2
32      integer :: igas_C2H6
33
34      end module gases_h
Note: See TracBrowser for help on using the repository browser.