Merge pull request #13897 from mcgratta/master

FDS Source: Allow 3 digits in exponent field of printout

Author: mcgratta

Source/dump.f90

@@ -862,8 +862,9 @@ SUBROUTINE INITIALIZE_GLOBAL_DUMPS(T,DT)
    WRITE(FN,'(A,A,A,A)') TRIM(CHID),'_',TRIM(LPC%ID),'_cdf.csv'
    OPEN (LU,FILE=FN,FORM='FORMATTED',STATUS='REPLACE')
    WRITE(LU,'(A)') 'd (mu-m),CNF,CVF'
+   WRITE(TCFORM,'(A,I0,5A)') "(",2,"(",FMT_R,",','),",FMT_R,")"
    DO J=0,NDC
-      WRITE(LU,'(E16.9,A,E16.9,A,E16.9)') 2.E6_EB*LPC%R_CNF(J),',',LPC%CNF(J),',',LPC%CVF(J)
+      WRITE(LU,TCFORM) 2.E6_EB*LPC%R_CNF(J),LPC%CNF(J),LPC%CVF(J)
    ENDDO
    CLOSE(LU)
 ENDDO PART_DIST_LOOP