_RL SmolarkiewiczMaxFrac
COMMON /GAD_SMOL/ SmolarkiewiczMaxFrac
& outFlux.GT.SmolarkiewiczMaxFrac*trac) THEN
fac = MAX(0. _d 0,SmolarkiewiczMaxFrac*trac/outFlux)
SmolarkiewiczMaxFrac = 1. _d 0
CALL WRITE_0D_RL( SmolarkiewiczMaxFrac, INDEX_NONE,