diff --git a/config/ifort.cfg b/config/ifort.cfg index 714c4b10..9d8302b8 100644 --- a/config/ifort.cfg +++ b/config/ifort.cfg @@ -9,7 +9,7 @@ FC : ifort -fpic LAPACK_LIB : -mkl=parallel -lirc -lsvml -limf -lipps IRPF90 : irpf90 -IRPF90_FLAGS : --ninja --align=32 -DINTEL +IRPF90_FLAGS : --ninja --align=32 -DINTEL -DINTEL_CHECK_OMP # Global options ################ diff --git a/src/utils/intel_check_omp.irp.f b/src/utils/intel_check_omp.irp.f new file mode 100644 index 00000000..6933377c --- /dev/null +++ b/src/utils/intel_check_omp.irp.f @@ -0,0 +1,16 @@ +subroutine intel_check_omp() + +! Doc : idk + + implicit none + + IRP_IF INTEL_CHECK_OMP + call omp_set_max_active_levels(5) + print*,'INTEL_CHECK_OMP: true' + IRP_ELSE + call omp_set_nested(.True.) + !call omp_set_nested(.False.) + print*,'INTEL_CHECK_OMP: false' + IRP_ENDIF + +end