!================================================================== module aerosol_mod implicit none save !================================================================== ! aerosol indexes: these are initialized to be 0 if the ! corresponding aerosol was not activated in callphys.def ! -- otherwise a value is given in iniaerosol logical :: noaero = .false. ! two-layer simple aerosol model integer :: iaero_back2lay = 0 !$OMP THREADPRIVATE(noaero,iaero_back2lay) !================================================================== end module aerosol_mod !==================================================================