TurbSim: move a deallocate outside the OMP loop

This may break on some compilers since it is a private internal var to the OMP loop that I now deallocate outside instead of inside the loop.  Not sure how that's going to work out

Author: andrew-platt

modules/turbsim/src/TSsubs.f90

@@ -205,14 +205,15 @@ SUBROUTINE CalcFourierCoeffs_IEC( p, U, PhaseAngles, S, V, TRH_in, ErrStat, ErrM
             CALL H2Coeffs( IVec, IFreq, TRH, PhaseAngles, V, p%grid%NPoints )
          endif
 
-#ifdef _OPENMP
-         if (allocated(TRH_lcl)) deallocate(TRH_lcl)
-#endif
-
-
       END DO !IFreq
       !$OMP END PARALLEL DO
 
+#ifdef _OPENMP
+      ! This might be playing with fire to move this outside the OMP parallel.  Not sure if all compilers will
+      ! like it since this is supposed to be a private var in the OMP loop only
+      if (allocated(TRH_lcl)) deallocate(TRH_lcl)
+#endif
+
       if (OMPerr) then
          call Cleanup()
          return