FF: using Full velocity field for VDis outputs

andrew-platt · Aug 22, 2023 · 91b5200 · 91b5200
1 parent b7c3e1e
commit 91b5200
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/glue-codes/fast-farm/src/FAST_Farm_Subs.f90 b/glue-codes/fast-farm/src/FAST_Farm_Subs.f90
@@ -1645,7 +1645,7 @@ subroutine Farm_WriteOutput(n, t, farm, ErrStat, ErrMsg)
          farm%m%AllOuts(WVAmbZ(iVelPt)) = vel(3)
 
             ! Disturbed wind velocity (including wakes) for point, pt,  in global coordinates (from the low-resolution domain), m/s
-         call TrilinearInterpRegGrid(farm%AWAE%m%Vdist_low, pt, (/farm%p%nX_low,farm%p%nY_low,farm%p%nZ_low/), vel)
+         call TrilinearInterpRegGrid(farm%AWAE%m%Vdist_low_full, pt, (/farm%p%nX_low,farm%p%nY_low,farm%p%nZ_low/), vel)
          farm%m%AllOuts(WVDisX(iVelPt)) = vel(1)
          farm%m%AllOuts(WVDisY(iVelPt)) = vel(2)
          farm%m%AllOuts(WVDisZ(iVelPt)) = vel(3)