From 91b52007f99faf0d0a1c5f30f93f38a6e9158ef9 Mon Sep 17 00:00:00 2001 From: Emmanuel Branlard Date: Mon, 21 Aug 2023 20:37:00 -0600 Subject: [PATCH] FF: using Full velocity field for VDis outputs --- glue-codes/fast-farm/src/FAST_Farm_Subs.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/glue-codes/fast-farm/src/FAST_Farm_Subs.f90 b/glue-codes/fast-farm/src/FAST_Farm_Subs.f90 index f3f34ed6bc..1427c562eb 100644 --- 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)