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

Last change on this file since 227 was 227, checked in by milmd, 10 years ago

Last LMDZ version (1315) with OpenMP directives and other stuff
File size: 1.0 KB
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, read by master
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!!$OMP THREADPRIVATE(ngasmx,vgas,gnom,gfrac,&
34!       !$OMP igas_H2,igas_He,igas_H2O,igas_CO2,igas_CO,igas_N2,&
35!       !$OMP igas_O2,igas_SO2,igas_H2S,igas_CH4,igas_NH3,igas_C2H2,igas_C2H6)
36
37      end module gases_h
Note: See TracBrowser for help on using the repository browser.