source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/aerosol_mod.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: 766 bytes
Line 
1!==================================================================
2module aerosol_mod
3implicit none
4save
5!==================================================================
6
7!  aerosol indexes: these are initialized to be 0 if the
8!                 corresponding aerosol was not activated in callphys.def
9!                 -- otherwise a value is given in iniaerosol
10      integer :: iaero_co2 = 0 
11      integer :: iaero_h2o = 0
12      integer :: iaero_dust = 0
13      integer :: iaero_h2so4 = 0
14      logical :: noaero = .false.
15
16! two-layer simple aerosol model
17      integer :: iaero_back2lay = 0
18     
19!==================================================================
20end module aerosol_mod
21!==================================================================
Note: See TracBrowser for help on using the repository browser.