FDS Source: Remove debug printout

firemodels · Aug 27, 2024 · 5b030e0 · 5b030e0
1 parent 0b0636c
commit 5b030e0
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/Source/dump.f90 b/Source/dump.f90
@@ -8451,7 +8451,7 @@ REAL(EB) FUNCTION SOLID_PHASE_OUTPUT(INDX,Y_INDEX,Z_INDEX,PART_INDEX,OPT_WALL_IN
       I_DEPTH = OPT_NODE_INDEX
    ELSE
       I_DEPTH = DV%I_DEPTH
-      IF (ANY(ONE_D%MATL_INDEX(1:ONE_D%N_MATL)/=PYROLYSIS_NONE)) THEN
+      IF (SF%PYROLYSIS_MODEL==PYROLYSIS_PREDICTED) THEN
          IF (DV%DEPTH > TWO_EPSILON_EB) THEN
             DEPTH = DV%DEPTH
          ELSE

diff --git a/Source/init.f90 b/Source/init.f90
@@ -3897,7 +3897,6 @@ SUBROUTINE FIND_WALL_BACK_INDEX(NM,IW)
             ENDDO
          ENDDO
       ENDIF
-!if (bc%iig==3.and.bc%jjg==3.and.bc%kkg==5.and.bc%ior==3) write(0,*) KK,OBST_INDEX,MATL_INDEX_OBST(1:N_MATL_OBST)
 
    ENDIF
 
@@ -4068,7 +4067,6 @@ SUBROUTINE FIND_WALL_BACK_INDEX(NM,IW)
       ONE_D%MATL_INDEX(NN) = MATL_INDEX(NN)
       DO NL=1,ONE_D%N_LAYERS
          ONE_D%MATL_COMP(NN)%MASS_FRACTION(NL) = MATL_MASS_FRACTION(NL,NN)
-if (bc%iig==3.and.bc%jjg==3.and.bc%kkg==5.and.bc%ior==3) write(0,*) NN,NL,TRIM(MATERIAL(ONE_D%MATL_INDEX(NN))%ID),MATL_MASS_FRACTION(NL,NN)
       ENDDO
    ENDDO
    DEALLOCATE(ONE_D%HEAT_SOURCE)       ; ALLOCATE(ONE_D%HEAT_SOURCE(ONE_D%N_LAYERS))       ; ONE_D%HEAT_SOURCE = 0._EB