LOGICAL PTRACERS_useKPP(PTRACERS_num)
& PTRACERS_useKPP,
CALL WRITE_0D_L( PTRACERS_useKPP(iTracer), INDEX_NONE,
IF ( PTRACERS_useKPP(iTracer) .AND. .NOT.useKPP ) THEN
I PTRACERS_useGMRedi(iTracer), PTRACERS_useKPP(iTracer),
I PTRACERS_useKPP(iTracer),
PTRACERS_useKPP(iTracer) =useKPP