remove debugging output

sandialabs · Aug 13, 2019 · 883de41 · 883de41
1 parent 88ea8d7
commit 883de41
Show file tree

Hide file tree

Showing 5 changed files with 1 addition and 1 deletion.
diff --git a/bin/snl-swan-unix-omp-ifort.exe b/bin/snl-swan-unix-omp-ifort.exe
diff --git a/bin/snl-swan-unix-ser-ifort.exe b/bin/snl-swan-unix-ser-ifort.exe
diff --git a/bin/snl-swan-win-omp-ifort.exe b/bin/snl-swan-win-omp-ifort.exe
diff --git a/bin/snl-swan-win-ser-ifort.exe b/bin/snl-swan-win-ser-ifort.exe
diff --git a/src/swanser.ftn b/src/swanser.ftn
@@ -3866,7 +3866,7 @@
                 endif
               ENDDO
             ENDDO
-            WRITE (PRINTF,*) X1,Y1,OBREDF(1,1:MSC,1)  ! Writes transmission coefficient (Kt) to main output file
+            !WRITE (PRINTF,*) X1,Y1,OBREDF(1,1:MSC,1)  ! Writes transmission coefficient (Kt) to main output file
           elseif (iobcase.eq.5) then   ! Power matrix lookup table
             !call P_Matrix(TP,HSIN,RCW)  ! Call power matrix subroutine for RCW values
             !incident=0.42*HSIN*HSIN*TP ! debugging print statments for relevant variables