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 | !================================================================== |
---|
2 | module aerosol_mod |
---|
3 | implicit none |
---|
4 | save |
---|
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 | !================================================================== |
---|
17 | end module aerosol_mod |
---|
18 | !================================================================== |
---|
Note: See
TracBrowser
for help on using the repository browser.