Skip to content

OLAF: VTK outputs at non-equidistant grid points (nGridOut) #3414

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
RBergua wants to merge 13 commits into
base: rc-5.0.1
Choose a base branch
from
Open

OLAF: VTK outputs at non-equidistant grid points (nGridOut) #3414

Show file tree
Hide file tree
Changes from 12 commits
Commits
Show all changes
13 commits
Select commit Hold shift + click to select a range
02d9321
AeroDyn/OLAF Registry: add xPts/yPts/zPts and list-file fields to Gri…
RBergua Jul 31, 2026
1463748
AeroDyn/OLAF: parse a number or quoted filename in ReadGridOut
RBergua Jul 31, 2026
1ae7890
AeroDyn/OLAF: call ResolveGridAxis in FVW_ReadInputFile and require G…
RBergua Jul 31, 2026
aa525a0
AeroDyn/OLAF: New ResolveGridAxis for list-based or range
RBergua Jul 31, 2026
11a7162
AeroDyn/OLAF: export grid velocity as RectilinearGrid (list-based) or…
RBergua Jul 31, 2026
231c6ea
FVW_IO.f90: trim trailing whitespace
RBergua Jul 31, 2026
b204b29
AeroDyn/OLAF: use resolved xPts/yPts/zPts in SetRequestedWindPoints
RBergua Jul 31, 2026
ea53472
AeroDyn/OLAF: use resolved xPts/yPts/zPts in InducedVelocitiesAll_OnGrid
RBergua Jul 31, 2026
edb2fc0
FVW_Subs.f90: trim trailing whitespace
RBergua Jul 31, 2026
fdab91b
FVW_Types.f90: updated FVW registry outputs
RBergua Jul 31, 2026
242241e
AeroDyn/OLAF: fix ResolveGridAxis call (5 arguments)
RBergua Jul 31, 2026
7244c06
AeroDyn/OLAF docs: document non-equidistant grid output (list-file)
RBergua Jul 31, 2026
4fcd5a1
AeroDyn/OLAF: make error reporting explicit in ResolveGridAxis and gu…
RBergua Aug 1, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
53 changes: 53 additions & 0 deletions docs/source/user/aerodyn-olaf/InputFiles.rst
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -312,6 +312,59 @@ of a box of shape 5x20x30 and dimension 1200x300x295. The grid contains both th
The two other grids are vertical and horizontal planes containing only the velocity.


Non-equidistant grid points
~~~~~~~~~~~~~~~~~~~~~~~~~~~

By default, grid points along each axis (X, Y, Z) are equidistant, defined by
the ``Start``, ``End``, and ``n`` columns of the grid output table.

Alternatively, a ``Start`` cell can be given as a quoted filename instead of a
number. In that case, the corresponding axis uses an explicit, user-defined
list of coordinates read from that file, and the ``End``/``n`` columns for
that axis are ignored.

This choice is made independently for each axis, so a single grid can mix
equidistant and list-defined axes (e.g., equidistant in X and Z, list-defined
in Y), and a filename can be given for ``XStart``, ``YStart``, ``ZStart``, or
any combination of the three.

The referenced file must:

- contain exactly one coordinate value per line,
- list values in strictly ascending order (no duplicates),
- contain no comments or blank lines,
- be located in the same directory as the main OLAF input file.

Example, requesting a non-equidistant Y-axis::

GridName GridType TStart TEnd DTOut XStart XEnd nX YStart YEnd nY ZStart ZEnd nZ
(-) (-) (s) (s) (s) (m) (m) (-) (m) (m) (-) (m) (m) (-)
"Yline" 1 default default default 90 90 1 "Ypoints.dat" - - 100 100 1

with ``Ypoints.dat`` (located next to the OLAF input file) containing::

-125
-100
-75
-50
-37.5
-25
-12.5
0
12.5
25
37.5
50
75
100
125

.. note::
Vorticity output (``GridType=2``) requires equidistant spacing
and is not available for a grid that uses a list-defined axis.
Use ``GridType=1`` (velocity only) for such grids.


Advanced Options
~~~~~~~~~~~~~~~~

Expand Down
192 changes: 153 additions & 39 deletions modules/aerodyn/src/FVW_IO.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -18,15 +18,15 @@ SUBROUTINE FVW_ReadInputFile( FileName, p, m, Inp, ErrStat, ErrMsg )
character(*), intent( out) :: ErrMsg !< Error message if ErrStat /= ErrID_None
! Local variables
character(1024) :: PriPath ! the path to the primary input file
character(1024) :: sDummy, sLine ! string to temporarially hold value of read line
character(1024) :: sDummy, sLine ! string to temporarially hold value of read line
integer(IntKi) :: UnIn, i
integer(IntKi) :: ErrStat2
character(ErrMsgLen) :: ErrMsg2
ErrStat = ErrID_None
ErrMsg = ""
Inp%SrcPnlFile = '' ! TODO registry init for empty strings
! Open file
CALL GetNewUnit( UnIn )
CALL GetNewUnit( UnIn )
CALL OpenFInpfile(UnIn, TRIM(FileName), ErrStat2, ErrMsg2)
if (Check( ErrStat2 /= ErrID_None , 'Could not open input file')) return
CALL GetPath( FileName, PriPath ) ! Input files will be relative to the path where the primary input file is located.
Expand Down Expand Up @@ -100,20 +100,35 @@ SUBROUTINE FVW_ReadInputFile( FileName, p, m, Inp, ErrStat, ErrMsg )
allocate(m%GridOutputs(p%nGridOut), stat=ErrStat2);
CALL ReadCom (UnIn,FileName, 'GridOutHeaders', ErrStat2,ErrMsg2); if(Failed()) return
CALL ReadCom (UnIn,FileName, 'GridOutUnits', ErrStat2,ErrMsg2); if(Failed()) return
do i =1, p%nGridOut
do i =1, p%nGridOut
ErrMsg2='Error reading OLAF grid outputs line '//trim(num2lstr(i))
read(UnIn, fmt='(A)', iostat=ErrStat2) sLine ; if(Failed()) return
call ReadGridOut(sLine, m%GridOutputs(i)); if(Failed()) return
! Resolve each axis to an explicit coordinate array (regardless of whether it is a list file or a range)
call ResolveGridAxis(m%GridOutputs(i)%xStart, m%GridOutputs(i)%xEnd, m%GridOutputs(i)%nx, &
m%GridOutputs(i)%xListFile, m%GridOutputs(i)%xPts); if(Failed()) return
call ResolveGridAxis(m%GridOutputs(i)%yStart, m%GridOutputs(i)%yEnd, m%GridOutputs(i)%ny, &
m%GridOutputs(i)%yListFile, m%GridOutputs(i)%yPts); if(Failed()) return
call ResolveGridAxis(m%GridOutputs(i)%zStart, m%GridOutputs(i)%zEnd, m%GridOutputs(i)%nz, &
m%GridOutputs(i)%zListFile, m%GridOutputs(i)%zPts); if(Failed()) return
! Error checking
if (Check(m%GridOutputs(i)%nx<1, 'Grid output nx needs to be >=1')) return
if (Check(m%GridOutputs(i)%ny<1, 'Grid output ny needs to be >=1')) return
if (Check(m%GridOutputs(i)%nz<1, 'Grid output nz needs to be >=1')) return
! Vorticity requires equidistant spacing. GridType must be 1 when using list files.
if (m%GridOutputs(i)%type==idGridVelVorticity) then
if (Check( len_trim(m%GridOutputs(i)%xListFile)>0 .or. &
len_trim(m%GridOutputs(i)%yListFile)>0 .or. &
len_trim(m%GridOutputs(i)%zListFile)>0, &
'Grid "'//trim(m%GridOutputs(i)%name)//'": vorticity requires equidistant spacing. GridType must be 1 when using list files.')) return
endif
enddo
endif

! --- Advanced Options
! NOTE: no error handling since this is for debug
! Default options are typically "true"
CALL ReadCom(UnIn,FileName, '=== Separator' ,ErrStat2,ErrMsg2);
CALL ReadCom(UnIn,FileName, '=== Separator' ,ErrStat2,ErrMsg2);
CALL ReadCom(UnIn,FileName, '--- Advanced options header' ,ErrStat2,ErrMsg2);
if(ErrStat2==ErrID_None) then
call WrScr(' - Reading advanced options for OLAF:')
Expand Down Expand Up @@ -203,7 +218,7 @@ SUBROUTINE FVW_ReadInputFile( FileName, p, m, Inp, ErrStat, ErrMsg )
if (Check(Inp%WingRegParam<0 , 'Wing regularization parameter (WakeRegParam) should be positive')) return
if (Check(Inp%CoreSpreadEddyVisc<0 , 'Core spreading eddy viscosity (CoreSpreadEddyVisc) should be positive')) return

! Removing the shed vorticity is a dangerous option if this is done too close to the blades.
! Removing the shed vorticity is a dangerous option if this is done too close to the blades.
! To be safe, we will no matter what ensure that the last segments of NW are 0 if FWShedVorticity is False (see PackPanelsToSegments)
! Still we force the user to be responsible.
if (Check((.not.(Inp%FWShedVorticity)) .and. Inp%nNWPanels<30, '`FWShedVorticity` should be true if `nNWPanels`<30. Alternatively, use a larger number of NWPanels ')) return
Expand All @@ -216,7 +231,7 @@ SUBROUTINE FVW_ReadInputFile( FileName, p, m, Inp, ErrStat, ErrMsg )

CONTAINS
logical function Failed()
call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, 'FVW_ReadInputFile')
call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, 'FVW_ReadInputFile')
Failed = ErrStat >= AbortErrLev
if (Failed) call CleanUp()
end function Failed
Expand Down Expand Up @@ -289,7 +304,7 @@ subroutine ReadGridOut(sLine, GridOut)
ErrStat2=ErrID_Fatal
ErrMsg2='Error reading OLAF grid outputs line: '//trim(sLine)
! Name
GridOut%name =StrArray(1)
GridOut%name =StrArray(1)
! Type
if (.not. is_integer(StrArray(2), GridOut%type ) ) then
ErrMsg2=trim(ErrMsg2)//NewLine//'GridType needs to be an integer.'
Expand All @@ -300,7 +315,7 @@ subroutine ReadGridOut(sLine, GridOut)
if ( index(StrArray(3), "DEFAULT" ) == 1 ) then
GridOut%tStart = 0.0_ReKi
else
if (.not. is_numeric(StrArray(3), GridOut%tStart) ) then
if (.not. is_numeric(StrArray(3), GridOut%tStart) ) then
ErrMsg2=trim(ErrMsg2)//NewLine//'TStart needs to be numeric or "default".'
return
endif
Expand All @@ -327,24 +342,112 @@ subroutine ReadGridOut(sLine, GridOut)
return
endif
endif
! x,y,z
! x
ErrMsg2='Error reading OLAF "x" inputs for grid outputs line: '//trim(sLine)
if (.not. is_numeric(StrArray( 6), GridOut%xStart) ) return
if (.not. is_numeric(StrArray( 7), GridOut%xEnd ) ) return
if (.not. is_integer(StrArray( 8), GridOut%nx ) ) return
GridOut%xListFile = ''
if ( is_numeric(StrArray(6), GridOut%xStart) ) then
if (.not. is_numeric(StrArray(7), GridOut%xEnd) ) return
if (.not. is_integer(StrArray(8), GridOut%nx ) ) return
else
GridOut%xListFile = StrArray(6)
GridOut%xStart = 0.0_ReKi
GridOut%xEnd = 0.0_ReKi
GridOut%nx = -1
endif
! y
ErrMsg2='Error reading OLAF "y" inputs for grid outputs line: '//trim(sLine)
if (.not. is_numeric(StrArray( 9), GridOut%yStart) ) return
if (.not. is_numeric(StrArray(10), GridOut%yEnd ) ) return
if (.not. is_integer(StrArray(11), GridOut%ny ) ) return
GridOut%yListFile = ''
if ( is_numeric(StrArray(9), GridOut%yStart) ) then
if (.not. is_numeric(StrArray(10), GridOut%yEnd) ) return
if (.not. is_integer(StrArray(11), GridOut%ny ) ) return
else
GridOut%yListFile = StrArray(9)
GridOut%yStart = 0.0_ReKi
GridOut%yEnd = 0.0_ReKi
GridOut%ny = -1
endif
! z
ErrMsg2='Error reading OLAF "z" inputs for grid outputs line: '//trim(sLine)
if (.not. is_numeric(StrArray(12), GridOut%zStart) ) return
if (.not. is_numeric(StrArray(13), GridOut%zEnd ) ) return
if (.not. is_integer(StrArray(14), GridOut%nz ) ) return
GridOut%zListFile = ''
if ( is_numeric(StrArray(12), GridOut%zStart) ) then
if (.not. is_numeric(StrArray(13), GridOut%zEnd) ) return
if (.not. is_integer(StrArray(14), GridOut%nz ) ) return
else
GridOut%zListFile = StrArray(12)
GridOut%zStart = 0.0_ReKi
GridOut%zEnd = 0.0_ReKi
GridOut%nz = -1
endif
! Success
ErrStat2=ErrID_None
ErrMsg2=''
end subroutine ReadGridOut

! Resolve one grid axis to an explicit, strictly increasing coordinate array,
! either read from ListFile (if given) or built from an equidistant Start/End/n range.
subroutine ResolveGridAxis(AStart, AEnd, n, ListFile, Pts)
real(ReKi), intent(in) :: AStart, AEnd
integer(IntKi), intent(inout) :: n
character(*), intent(in) :: ListFile
real(ReKi), allocatable, intent(out) :: Pts(:)
character(1024) :: FullFile
integer(IntKi) :: UnList, j, IOS
real(ReKi) :: val

if (len_trim(ListFile) == 0) then
! Equidistant points, expressed as an explicit array
allocate(Pts(max(n,1)))
do j = 1, n
Pts(j) = AStart + (AEnd - AStart) * real(j-1,ReKi) / real(max(n-1,1),ReKi)
enddo
ErrStat2 = ErrID_None; ErrMsg2 = ''
return
endif
Comment on lines +405 to +422

@andrew-platt andrew-platt Aug 1, 2026

Copy link
Copy Markdown
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This is a bit safer.


! Explicit list from file
FullFile = ListFile
if (PathIsRelative(FullFile)) FullFile = trim(PriPath)//trim(FullFile)
call GetNewUnit(UnList)
call OpenFInpFile(UnList, trim(FullFile), ErrStat2, ErrMsg2)
if (ErrStat2 /= ErrID_None) return

! Count valid lines
n = 0
do
read(UnList, *, iostat=IOS) val
if (IOS /= 0) exit
n = n + 1
enddo
if (n < 1) then
ErrStat2 = ErrID_Fatal
ErrMsg2 = 'Grid point list file "'//trim(FullFile)//'" contains no valid values.'
close(UnList)
return
endif

! Read values
rewind(UnList)
allocate(Pts(n))

@andrew-platt andrew-platt Aug 1, 2026

Copy link
Copy Markdown
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

see above for capturing allocation errors.

do j = 1, n
read(UnList, *) Pts(j)
enddo
close(UnList)

! Validate strictly increasing, no duplicates
do j = 2, n
if (Pts(j) <= Pts(j-1)) then
ErrStat2 = ErrID_Fatal
ErrMsg2 = 'Grid point list file "'//trim(FullFile)//'" must be strictly increasing (no duplicates); '// &
'value at line '//trim(Num2LStr(j))//' ('//trim(Num2LStr(Pts(j)))//') is not greater than '// &
'the previous value ('//trim(Num2LStr(Pts(j-1)))//').'
return
endif
enddo

ErrStat2 = ErrID_None

@andrew-platt andrew-platt Aug 1, 2026 •
edited
Loading

Copy link
Copy Markdown
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

We usually put the errstat setting at the beginning of the routine instead of end. This is ok as long as there is no way it could end prematurely.

@RBergua RBergua Aug 1, 2026 •
edited
Loading

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I have added the ErrStat at the beginning and I have made the error reporting explicit in ResolveGridAxis.

ErrMsg2 = ''
end subroutine ResolveGridAxis

END SUBROUTINE FVW_ReadInputFile


Expand Down Expand Up @@ -387,7 +490,7 @@ subroutine WrVTK_FVW(p, x, z, m, FileRootName, VTKcount, Twidth, bladeFrame, Hub
Call ProgAbort('Programming error in WrVTK_FVW call: Cannot use the WrVTK_FVW with bladeFrame==TRUE without the optional arguments of HubOrientation and HubPosition')
endif
endif

if (DEV_VERSION) then
print*,'------------------------------------------------------------------------------'
print'(A,L1,A,I0,A,I0,A,I0)','VTK Output - First call ',m%FirstCall, ' nNW:',m%nNW,' nFW:',m%nFW,' i:',VTKCount
Expand All @@ -399,7 +502,7 @@ subroutine WrVTK_FVW(p, x, z, m, FileRootName, VTKcount, Twidth, bladeFrame, Hub
write(Tstr, '(i' // trim(Num2LStr(Twidth)) //'.'// trim(Num2LStr(Twidth)) // ')') VTKcount

! --------------------------------------------------------------------------------}
! --- Blade
! --- Blade
! --------------------------------------------------------------------------------{
! --- Blade Quarter chord points (AC)
do iW=1,p%VTKBlades
Expand Down Expand Up @@ -427,7 +530,7 @@ subroutine WrVTK_FVW(p, x, z, m, FileRootName, VTKcount, Twidth, bladeFrame, Hub
! call WrVTK_Lattice(FileName, mvtk, m%W(iW)%r_LL(1:3,:,:), m%W(iW)%Gamma_LL(:), bladeFrame=bladeFrame)
! enddo
! --------------------------------------------------------------------------------}
! --- Near wake
! --- Near wake
! --------------------------------------------------------------------------------{
! --- Near wake panels
do iW=1,p%VTKBlades
Expand All @@ -445,7 +548,7 @@ subroutine WrVTK_FVW(p, x, z, m, FileRootName, VTKcount, Twidth, bladeFrame, Hub
endif
enddo
! --------------------------------------------------------------------------------}
! --- Far wake
! --- Far wake
! --------------------------------------------------------------------------------{
! --- Far wake panels
do iW=1,p%VTKBlades
Expand All @@ -469,7 +572,7 @@ subroutine WrVTK_FVW(p, x, z, m, FileRootName, VTKcount, Twidth, bladeFrame, Hub
endif
if (nSeg>0) then
Filename = TRIM(FileRootName)//'.AllSeg.'//Tstr//'.vtk'
CALL WrVTK_Segments(Filename, mvtk, m%Sgmt%Points(:,1:nSegP), m%Sgmt%Connct(:,1:nSeg), m%Sgmt%Gamma(1:nSeg), m%Sgmt%Epsilon(1:nSeg), bladeFrame)
CALL WrVTK_Segments(Filename, mvtk, m%Sgmt%Points(:,1:nSegP), m%Sgmt%Connct(:,1:nSeg), m%Sgmt%Gamma(1:nSeg), m%Sgmt%Epsilon(1:nSeg), bladeFrame)
endif

if (p%SrcPnl%n>0) then
Expand Down Expand Up @@ -497,6 +600,7 @@ subroutine WrVTK_FVW_Grid(p, m, iGrid, FileRootName, VTKcount, Twidth, HubOrient
character(255) :: Label
character(Twidth) :: Tstr ! string for current VTK write-out step (padded with zeros)
real(ReKi), dimension(3) :: dx
logical :: bListBased
type(GridOutType), pointer :: g
type(VTK_Misc) :: mvtk

Expand All @@ -510,19 +614,29 @@ subroutine WrVTK_FVW_Grid(p, m, iGrid, FileRootName, VTKcount, Twidth, HubOrient
g => m%GridOutputs(iGrid)
Label=trim(g%name)
Filename = TRIM(FileRootName)//'.'//trim(Label)//'.'//Tstr//'.vtk'
bListBased = len_trim(g%xListFile)>0 .or. len_trim(g%yListFile)>0 .or. len_trim(g%zListFile)>0
if ( vtk_new_ascii_file(trim(filename),Label,mvtk) ) then
dx(1) = (g%xEnd- g%xStart)/max(g%nx-1,1)
dx(2) = (g%yEnd- g%yStart)/max(g%ny-1,1)
dx(3) = (g%zEnd- g%zStart)/max(g%nz-1,1)
call vtk_dataset_structured_points((/g%xStart, g%yStart, g%zStart/),dx,(/g%nx,g%ny,g%nz/),mvtk)
call vtk_point_data_init(mvtk)
call vtk_point_data_vector(g%uGrid(1:3,:,:,:),'Velocity',mvtk)
! Compute vorticity on the fly
if (g%type==idGridVelVorticity) then
call curl_regular_grid(g%uGrid, g%omgrid, 1,1,1, g%nx,g%ny,g%nz, dx(1),dx(2),dx(3))
call vtk_point_data_vector(g%omGrid(1:3,:,:,:),'Vorticity',mvtk)
if (bListBased) then
! List-based grid
! At least one axis is non-equidistant: RectilinearGrid (explicit coordinates)
! NOTE: vorticity is blocked for this case at read time. GridType = 1 (velocity only).
call vtk_dataset_rectilinear(g%xPts, g%yPts, g%zPts, mvtk)
call vtk_point_data_init(mvtk)
call vtk_point_data_vector(g%uGrid(1:3,:,:,:),'Velocity',mvtk)
else
! Equidistant grid: StructuredPoints (implicit coordinates)
dx(1) = (g%xEnd- g%xStart)/max(g%nx-1,1)
dx(2) = (g%yEnd- g%yStart)/max(g%ny-1,1)
dx(3) = (g%zEnd- g%zStart)/max(g%nz-1,1)
call vtk_dataset_structured_points((/g%xStart, g%yStart, g%zStart/),dx,(/g%nx,g%ny,g%nz/),mvtk)
call vtk_point_data_init(mvtk)
call vtk_point_data_vector(g%uGrid(1:3,:,:,:),'Velocity',mvtk)
! Compute vorticity on the fly
if (g%type==idGridVelVorticity) then
call curl_regular_grid(g%uGrid, g%omgrid, 1,1,1, g%nx,g%ny,g%nz, dx(1),dx(2),dx(3))
call vtk_point_data_vector(g%omGrid(1:3,:,:,:),'Vorticity',mvtk)
endif
endif
!
call vtk_close_file(mvtk)
endif

Expand Down Expand Up @@ -569,14 +683,14 @@ subroutine WrVTK_Panels(filename, mvtk, p, m, z)
endsubroutine WrVTK_Panels


subroutine WrVTK_Segments(filename, mvtk, SegPoints, SegConnct, SegGamma, SegEpsilon, bladeFrame)
subroutine WrVTK_Segments(filename, mvtk, SegPoints, SegConnct, SegGamma, SegEpsilon, bladeFrame)
use VTK
character(len=*),intent(in) :: filename
type(VTK_Misc), intent(inout) :: mvtk !< miscvars for VTK output
real(ReKi), dimension(:,:), intent(in) :: SegPoints !<
integer(IntKi), dimension(:,:), intent(in) :: SegConnct !<
real(ReKi), dimension(:) , intent(in) :: SegGamma !<
real(ReKi), dimension(:) , intent(in) :: SegEpsilon !<
real(ReKi), dimension(:,:), intent(in) :: SegPoints !<
integer(IntKi), dimension(:,:), intent(in) :: SegConnct !<
real(ReKi), dimension(:) , intent(in) :: SegGamma !<
real(ReKi), dimension(:) , intent(in) :: SegEpsilon !<
logical, intent(in ) :: bladeFrame !< Output in blade coordinate frame
if ( vtk_new_ascii_file(filename,'Sgmt',mvtk) ) then
call vtk_dataset_polydata(SegPoints(1:3,:),mvtk,bladeFrame)
Expand Down
Loading
Loading