source: trunk/LMDZ.GENERIC/libf/phystd/aerosol_mod.F90 @ 848

Last change on this file since 848 was 747, checked in by aslmd, 12 years ago

GENERIC: improved iniaerosol and aerosol_mod. solved bugs for ifort+parallel while keeping things OK in seq runs.

File size: 696 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!==================================================================
17end module aerosol_mod
18!==================================================================
Note: See TracBrowser for help on using the repository browser.