Merge pull request #15577 from rmcdermo/master

FDS Source: fix format for large tga files

Author: rmcdermo

Source/wall.f90

@@ -3780,7 +3780,8 @@ SUBROUTINE TGA_ANALYSIS(NM)
 REAL(EB), ALLOCATABLE, DIMENSION(:) :: SURF_DEN
 INTEGER, INTENT(IN) :: NM
 INTEGER :: N_TGA,I,IW,IP,N,NR,ITMP
-CHARACTER(80) :: MESSAGE,TCFORM
+CHARACTER(80) :: MESSAGE
+CHARACTER(256) :: TCFORM
 LOGICAL :: EX
 TYPE(SURFACE_TYPE), POINTER :: SF
 TYPE(WALL_TYPE), POINTER :: WC
@@ -3836,7 +3837,7 @@ SUBROUTINE TGA_ANALYSIS(NM)
 ! Open CHID_tga.csv for the output
 
 OPEN (LU_TGA,FILE=FN_TGA,FORM='FORMATTED',STATUS='REPLACE')
-WRITE(TCFORM,'(A,I3.3,A,I3.3,A)') "(A,",SF%N_MATL+1,"(A,',')",SF%N_MATL+1,"(A,','),A)"
+WRITE(TCFORM,'(A,I3.3,A,I3.3,A)') "(A,",SF%N_MATL+1,"(A,','),",SF%N_MATL+1,"(A,','),A)"
 WRITE(LU_TGA,TCFORM) 's,C,C,',('g/g',N=1,SF%N_MATL+1),('1/s',N=1,SF%N_MATL+1),'W/g,W/g,W/g'
 WRITE(LU_TGA,TCFORM) 'Time,Temp,T_surf,','Total Mass',(TRIM(MATERIAL(ONE_D%MATL_INDEX(N))%ID)//' Mass',N=1,SF%N_MATL),&
                      'Total MLR',(TRIM(MATERIAL(ONE_D%MATL_INDEX(N))%ID)//' MLR',N=1,SF%N_MATL),'MCC,DSC,STA'
@@ -3846,6 +3847,7 @@ SUBROUTINE TGA_ANALYSIS(NM)
 B1%HEAT_TRANS_COEF = SF%H_FIXED
 SURF_DEN_0 = SF%SURFACE_DENSITY
 WRITE(TCFORM,'(A,I3.3,5A)') "(",2*SF%N_MATL+7,"(",TRIM(FMT_R),",','),",TRIM(FMT_R),")"
+
 TMP_DUMP = TMPA + TGA_DUMP
 T_TGA = 0._EB
 

Verification/WUI/Morvan_TGA.fds

@@ -1,6 +1,6 @@
 &HEAD CHID='Morvan_TGA', TITLE='TGA analysis of Morvan 2004 data' /
 
-&MESH IJK=5,5,5, XB=-1.2,3.6,-1.2,1.2,0.0,9.6
+&MESH IJK=5,5,5, XB=-1.2,3.6,-1.2,1.2,0.0,9.6 /
 
 &TIME T_END=1. /
 

Verification/WUI/Morvan_TGA_2.fds

@@ -1,6 +1,6 @@
 &HEAD CHID='Morvan_TGA_2', TITLE='Same as Morvan_TGA, except directly specifying A and E' /
 
-&MESH IJK=5,5,5, XB=-1.2,3.6,-1.2,1.2,0.0,9.6
+&MESH IJK=5,5,5, XB=-1.2,3.6,-1.2,1.2,0.0,9.6 /
 
 &TIME T_END=1. /