IfW driver: remove inputs not programmed yet

Author: andrew-platt

modules/inflowwind/src/InflowWind_Driver.f90

@@ -475,20 +475,21 @@ PROGRAM InflowWind_Driver
    END IF
 
 
-   IF (Settings%NOutWindXZ>0) THEN
-      do i=1,Settings%NOutWindXZ
+!FIXME: future developent
+!   IF (Settings%NOutWindXZ>0) THEN
+!      do i=1,Settings%NOutWindXZ
 !         CALL IfW_WriteXZslice( InflowWind_p%FlowField, InflowWind_InitInp%RootName, VTKsliceDir, Settings%OutWindY(i), ErrStat, ErrMsg )
 !         call CheckCallErr('IfW_WriteXZslice'//trim(Num2LStr(i)))
-      enddo
-   END IF
+!      enddo
+!   END IF
 
 
-   IF (Settings%NOutWindYZ>0) THEN
-      do i=1,Settings%NOutWindYZ
+!   IF (Settings%NOutWindYZ>0) THEN
+!      do i=1,Settings%NOutWindYZ
 !         CALL IfW_WriteYZslice( InflowWind_p%FlowField, InflowWind_InitInp%RootName, VTKsliceDir, Settings%OutWindX(i), ErrStat, ErrMsg )
 !         call CheckCallErr('IfW_WriteYZslice'//trim(Num2LStr(i)))
-      enddo
-   END IF
+!      enddo
+!   END IF
 
 
    !--------------------------------------------------------------------------------------------------------------------------------

modules/inflowwind/src/InflowWind_Driver_Subs.f90

@@ -1042,23 +1042,24 @@ SUBROUTINE ReadDvrIptFile( DvrFileName, DvrFlags, DvrSettings, ProgInfo, ErrStat
       CALL ReadCom( UnIn, FileName,' Skipping OutWindZ', ErrStatTmp,ErrMsgTmp,UnEchoLocal);  if (Failed())  return
    endif
 
-   ! NOutWindXZ    -- Number of XZ planes for output <RootName>.XZ<loc>.t<n>.vtk (-) [0 to 9]
-   CALL ReadVar( UnIn, FileName,DvrSettings%NOutWindXZ,  'NOutWindXZ','Number of VTK slices in XZ?',       ErrStatTmp,ErrMsgTmp, UnEchoLocal );   if (Failed())  return
-   if (DvrSettings%NOutWindXZ > 0_IntKi) then
-      CALL AllocAry( DvrSettings%OutWindY, DvrSettings%NOutWindXZ, "Y coordinates of XZ planes for output",ErrStatTmp,ErrMsgTmp );                if (Failed())  return
-      CALL ReadAry( UnIn, FileName,DvrSettings%OutWindY,DvrSettings%NOutWindXZ,'OutWindY','Y coordinates' ,ErrStatTmp,ErrMsgTmp, UnEchoLocal );   if (Failed())  return
-   else
-      CALL ReadCom( UnIn, FileName,' Skipping OutWindY', ErrStatTmp,ErrMsgTmp,UnEchoLocal);  if (Failed())  return
-   endif
-
-   ! NOutWindYZ    -- Number of YZ planes for output <RootName>.YZ<loc>.t<n>.vtk (-) [0 to 9]
-   CALL ReadVar( UnIn, FileName,DvrSettings%NOutWindYZ,  'NOutWindYZ','Number of VTK slices in YZ?',        ErrStatTmp,ErrMsgTmp, UnEchoLocal );   if (Failed())  return
-   if (DvrSettings%NOutWindYZ > 0_IntKi) then
-      CALL AllocAry( DvrSettings%OutWindX, DvrSettings%NOutWindYZ, "X coordinates of YZ planes for output", ErrStatTmp,ErrMsgTmp );                if (Failed())  return
-      CALL ReadAry( UnIn, FileName,DvrSettings%OutWindX,DvrSettings%NOutWindYZ,'OutWindX','X coordinates',  ErrStatTmp,ErrMsgTmp, UnEchoLocal );   if (Failed())  return
-   else
-      CALL ReadCom( UnIn, FileName,' Skipping OutWindX', ErrStatTmp,ErrMsgTmp,UnEchoLocal);  if (Failed())  return
-   endif
+!FIXME: future development
+!   ! NOutWindXZ    -- Number of XZ planes for output <RootName>.XZ<loc>.t<n>.vtk (-) [0 to 9]
+!   CALL ReadVar( UnIn, FileName,DvrSettings%NOutWindXZ,  'NOutWindXZ','Number of VTK slices in XZ?',       ErrStatTmp,ErrMsgTmp, UnEchoLocal );   if (Failed())  return
+!   if (DvrSettings%NOutWindXZ > 0_IntKi) then
+!      CALL AllocAry( DvrSettings%OutWindY, DvrSettings%NOutWindXZ, "Y coordinates of XZ planes for output",ErrStatTmp,ErrMsgTmp );                if (Failed())  return
+!      CALL ReadAry( UnIn, FileName,DvrSettings%OutWindY,DvrSettings%NOutWindXZ,'OutWindY','Y coordinates' ,ErrStatTmp,ErrMsgTmp, UnEchoLocal );   if (Failed())  return
+!   else
+!      CALL ReadCom( UnIn, FileName,' Skipping OutWindY', ErrStatTmp,ErrMsgTmp,UnEchoLocal);  if (Failed())  return
+!   endif
+!
+!   ! NOutWindYZ    -- Number of YZ planes for output <RootName>.YZ<loc>.t<n>.vtk (-) [0 to 9]
+!   CALL ReadVar( UnIn, FileName,DvrSettings%NOutWindYZ,  'NOutWindYZ','Number of VTK slices in YZ?',        ErrStatTmp,ErrMsgTmp, UnEchoLocal );   if (Failed())  return
+!   if (DvrSettings%NOutWindYZ > 0_IntKi) then
+!      CALL AllocAry( DvrSettings%OutWindX, DvrSettings%NOutWindYZ, "X coordinates of YZ planes for output", ErrStatTmp,ErrMsgTmp );                if (Failed())  return
+!      CALL ReadAry( UnIn, FileName,DvrSettings%OutWindX,DvrSettings%NOutWindYZ,'OutWindX','X coordinates',  ErrStatTmp,ErrMsgTmp, UnEchoLocal );   if (Failed())  return
+!   else
+!      CALL ReadCom( UnIn, FileName,' Skipping OutWindX', ErrStatTmp,ErrMsgTmp,UnEchoLocal);  if (Failed())  return
+!   endif
 
 
       ! Close the echo and input file