Remove extra GetNewUnit calls from VTK.f90

andrew-platt · Dec 5, 2024 · 8b72ddc · 8b72ddc
1 parent 8167a45
commit 8b72ddc
Showing 1 changed file with 2 additions and 7 deletions.
diff --git a/modules/nwtc-library/src/VTK.f90 b/modules/nwtc-library/src/VTK.f90
@@ -94,7 +94,7 @@ SUBROUTINE WrVTK_header( FileName, NumberOfPoints, NumberOfLines, NumberOfPolys,
       INTEGER(IntKi)  , INTENT(  OUT)        :: ErrStat              !< error level/status of OpenFOutFile operation
       CHARACTER(*)    , INTENT(  OUT)        :: ErrMsg               !< message when error occurs
 
-      CALL GetNewUnit( Un, ErrStat, ErrMsg )      
+      Un = -1
       CALL OpenFOutFile ( Un, TRIM(FileName), ErrStat, ErrMsg )
          if (ErrStat >= AbortErrLev) return
 
@@ -158,10 +158,7 @@ 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 )
@@ -360,10 +357,8 @@ 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 )      
+      Un = -1
       CALL OpenFOutFile ( Un, TRIM(FileName), ErrStat, ErrMsg )
-      !$OMP end critical
          if (ErrStat >= AbortErrLev) return
 
       WRITE(Un,'(A)')  '# vtk DataFile Version 3.0'