Merge pull request #2340 from andrew-platt/b/OpenMP_FF_vtk_read_Opt2

Add !$ OMP critical around file opening for VTK
OpenFAST · Jul 19, 2024 · 44ff26d · 44ff26d
2 parents 75f1e32 + 0e7774a
commit 44ff26d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/modules/nwtc-library/src/VTK.f90 b/modules/nwtc-library/src/VTK.f90
@@ -158,8 +158,10 @@ SUBROUTINE ReadVTK_SP_info( FileName, descr, dims, origin, gridSpacing, vecLabel
          closeOnReturn = .FALSE.
       END IF
 
+      !$OMP critical
       CALL GetNewUnit( Un, ErrStat, ErrMsg )      
       CALL OpenFInpFile ( Un, TRIM(FileName), ErrStat, ErrMsg )
+      !$OMP end critical
          if (ErrStat >= AbortErrLev) return
 
        CALL ReadCom( Un, FileName, 'File header: Module Version (line 1)', ErrStat2, ErrMsg2, 0 )
@@ -358,8 +360,10 @@ SUBROUTINE WrVTK_SP_header( FileName, descr, Un, ErrStat, ErrMsg )
       INTEGER(IntKi)  , INTENT(  OUT)        :: ErrStat              !< error level/status of OpenFOutFile operation
       CHARACTER(*)    , INTENT(  OUT)        :: ErrMsg               !< message when error occurs
 
+      !$OMP critical
       CALL GetNewUnit( Un, ErrStat, ErrMsg )      
       CALL OpenFOutFile ( Un, TRIM(FileName), ErrStat, ErrMsg )
+      !$OMP end critical
          if (ErrStat >= AbortErrLev) return
 
       WRITE(Un,'(A)')  '# vtk DataFile Version 3.0'