LOGICAL PTRACERS_useDWNSLP(PTRACERS_num)
& PTRACERS_useDWNSLP,
CALL WRITE_0D_L( PTRACERS_useDWNSLP(iTracer), INDEX_NONE,
IF ( PTRACERS_useDWNSLP(iTracer) .AND. .NOT.useDOWN_SLOPE ) THEN
IF ( PTRACERS_useDWNSLP(iTracer) ) THEN
PTRACERS_useDWNSLP(iTracer)=useDOWN_SLOPE