Add config option to clear adjoints as parts of tape resets.

Author: jblueh

include/opdi/config.hpp

@@ -88,6 +88,10 @@ static_assert(OPDI_OMPT_BACKEND_BARRIER_IMPLEMENTATION_BEHAVIOUR <= 2);
 static_assert(0 < OPDI_DEFAULT_ADJOINT_ACCESS_MODE);
 static_assert(OPDI_DEFAULT_ADJOINT_ACCESS_MODE <= 2);
 
+#ifndef OPDI_OMP_LOGIC_CLEAR_ADJOINTS
+  #define OPDI_OMP_LOGIC_CLEAR_ADJOINTS 0
+#endif
+
 /* sync region behaviour */
 
 #ifndef OPDI_SYNC_REGION_BARRIER_BEHAVIOUR

include/opdi/logic/omp/parallelOmpLogic.cpp

@@ -123,7 +123,7 @@ void opdi::ParallelOmpLogic::deleteFunc(void* parallelDataPtr) {
     void* oldTape = tool->getThreadLocalTape();
     tool->setThreadLocalTape(implicitTaskData->newTape);
 
-    tool->reset(implicitTaskData->newTape, implicitTaskData->positions[0], false);
+    tool->reset(implicitTaskData->newTape, implicitTaskData->positions[0], OPDI_OMP_LOGIC_CLEAR_ADJOINTS);
 
     tool->setThreadLocalTape(oldTape);