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