LOGICAL useKPPinAdMode, useKPPinFwdMode
& useKPPinAdMode, useKPPinFwdMode,
useKPP = useKPPinAdMode
useKPPinAdMode = useKPPinAdMode .AND. useKPP
CALL WRITE_0D_L( useKPPinAdMode, INDEX_NONE,
& useKPPinAdMode, useGGL90inAdMode,
useKPPinAdMode = .TRUE.