Merge pull request firemodels#11943 from marcosvanella/master

FDS Source : Add N_VERTS, N_FACES output when GET_CUTCELLS_VERBOSE.
mcgratta · Jun 29, 2023 · f3edd74 · f3edd74
2 parents 8b6fb17 + 279c06f
commit f3edd74
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Source/geom.f90 b/Source/geom.f90
@@ -13010,7 +13010,8 @@ SUBROUTINE CC_INIT_GEOM
 
    IF(MY_RANK==0 .AND. GET_CUTCELLS_VERBOSE) THEN
       IF (IG==N_GEOMETRY) THEN
-         WRITE(LU_ERR,'(I4.4,A)',advance="no") IG,'.. done.'
+         WRITE(LU_ERR,'(I4.4,A,I9.9,A,I9.9,A)',advance="no") IG,', VERTS=',GEOMETRY(IG)%N_VERTS,&
+                                                                ', FACES=',GEOMETRY(IG)%N_FACES,'.. done.'
          CALL CPU_TIME(CPUTIME)
          WRITE(LU_ERR  ,'(A,F8.3,A)') ' Time taken : ',CPUTIME-CPUTIME_START,' sec.'
       ELSE