Remove redundant OMP call (NorESMhub#422)

matsbn · Nov 26, 2024 · db95cf3 · db95cf3
1 parent 884fe3c
commit db95cf3
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/drivers/nuopc/ocn_comp_nuopc.F90 b/drivers/nuopc/ocn_comp_nuopc.F90
@@ -414,7 +414,6 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
          if (ChkErr(rc, __LINE__, u_FILE_u)) return
          read(cvalue,*) nthrds
       endif
-      !$    call omp_set_num_threads(nthrds)
 
       ! Reset shr logging to components log file.
       call set_component_logging(gcomp, localPet==0, lp, shrlogunit, rc)