Skip to content

Commit 59534a5

Browse files
committed
FDS Source: Fix type definition
1 parent b79c357 commit 59534a5

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Source/hvac.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -56,7 +56,7 @@ MODULE HVAC_ROUTINES
5656
REAL(EB), POINTER, DIMENSION(:) :: NODE_TMP !< Area-weighted temperature of each NODE
5757
REAL(EB), POINTER, DIMENSION(:,:) :: NODE_ZZ !< Area-weighted tracked species mass fractions of each NODE
5858

59-
REAL(EB), PUBLIC, ALLOCATABLE, DIMENSION(:) :: NODE_ZONE !< Array of NODEs belonging to each ZONE
59+
INTEGER, PUBLIC, ALLOCATABLE, DIMENSION(:) :: NODE_ZONE !< Array of NODEs belonging to each ZONE
6060

6161
REAL(EB),PUBLIC, ALLOCATABLE, DIMENSION(:,:):: NODE_ZZ_EX !<Area weighted tracked species mass fractions of each NODE per MESH
6262
!< Contains sum of area weighted tracked species mass fractions over all MPI processes for all VENTs assigned to each NODE

0 commit comments

Comments
 (0)