FDS Source: remove debug

Author: drjfloyd

Source/read.f90

@@ -4667,7 +4667,7 @@ SUBROUTINE READ_REAC
 ALLOCATE(REACTION(N_REACTIONS+N_REVERSE),STAT=IZERO)
 ALLOCATE(SIMPLE_FUEL_DEFINED(N_REACTIONS),STAT=IZERO)
 SIMPLE_FUEL_DEFINED = .FALSE.
-WRITE(LU_ERR,*) 'RNA:',REACTION(1)%AIT_EXCLUSION_ZONE(1)%AIT
+
 ! Read and store the reaction parameters
 N_REVERSE = 0
 REAC_READ_LOOP: DO NR=1,N_REACTIONS
@@ -4790,7 +4790,7 @@ SUBROUTINE READ_REAC
          RN%AIT_EXCLUSION_ZONE(IZ)%CTRL_ID = AIT_EXCLUSION_ZONE_CTRL_ID(IZ)
       ENDIF
    ENDDO
-WRITE(LU_ERR,*) 'RNB:',REACTION(1)%AIT_EXCLUSION_ZONE(1)%AIT,AIT_EXCLUSION_ZONE_TEMPERATURE(1)
+
    RN%E                         = E*1000._EB
    RN%E_IN                      = E
    RN%EQUATION                  = EQUATION
@@ -5035,7 +5035,6 @@ SUBROUTINE READ_REAC
       CALL SHUTDOWN(MESSAGE) ; RETURN
    ENDIF
 ENDDO
-WRITE(LU_ERR,*) 'RNC:',REACTION(1)%AIT_EXCLUSION_ZONE(1)%AIT
 
 DEALLOCATE (REAC_FUEL_2)
 
@@ -15231,7 +15230,6 @@ SUBROUTINE PROC_DEVC
                             2._EB*PY%DENSITY*PY%SPECIFIC_HEAT(293)*PY%DIAMETER
                      PY%DIAMETER = PY%DIAMETER - F/DFDD
                      TOL = ABS(F/DFDD)
-                     WRITE(*,*)'C',TRIM(PY%ID),PY%DIAMETER
                   ENDDO
                ENDIF
             ENDIF