Merge pull request #4 from ebranlard/f/fast-farm-unit

F/fast farm unit
ebranlard · Feb 7, 2019 · 1b94896 · 1b94896
2 parents 483e902 + 6aa6d61
commit 1b94896
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/modules-local/awae/src/AWAE_IO.f90 b/modules-local/awae/src/AWAE_IO.f90
@@ -148,6 +148,7 @@ subroutine ReadLowResWindFile(n, p, Vamb_Low, errStat, errMsg)
    errMsg  = ""
 
    FileName = trim(p%WindFilePath)//trim(PathSep)//"Low"//trim(PathSep)//"Amb.t"//trim(num2lstr(n))//".vtk"
+   Un = 0; ! Initialization different from -1, important to prevent file closing 
    call ReadVTK_SP_info( FileName, descr, dims, origin, gridSpacing, vecLabel, Un, ErrStat, ErrMsg ) 
       if (ErrStat >= AbortErrLev) return
    call ReadVTK_SP_vectors( FileName, Un, dims, Vamb_Low, ErrStat, ErrMsg )
@@ -183,6 +184,7 @@ subroutine ReadHighResWindFile(nt, n, p, Vamb_high, errStat, errMsg)
    errMsg  = ""
 
    FileName = trim(p%WindFilePath)//trim(PathSep)//"HighT"//trim(num2lstr(nt))//trim(PathSep)//"Amb.t"//trim(num2lstr(n))//".vtk"
+   Un = 0; ! Initialization different from -1, important to prevent file closing 
    call ReadVTK_SP_info( FileName, descr, dims, origin, gridSpacing, vecLabel, Un, ErrStat, ErrMsg ) 
       if (ErrStat >= AbortErrLev) return
    call ReadVTK_SP_vectors( FileName, Un, dims, Vamb_high, ErrStat, ErrMsg )