Merge pull request #15072 from mcgratta/master

FDS Source: Remove unused pointer

Author: mcgratta

Source/wall.f90

@@ -10,7 +10,7 @@ MODULE WALL_ROUTINES
 PRIVATE
 
 REAL(EB), POINTER, DIMENSION(:,:) :: PBAR_P
-REAL(EB), POINTER, DIMENSION(:,:,:) :: RHOP,HP,UU,VV,WW
+REAL(EB), POINTER, DIMENSION(:,:,:) :: RHOP,UU,VV,WW
 REAL(EB), POINTER, DIMENSION(:,:,:,:) :: ZZP
 
 PUBLIC WALL_BC,TGA_ANALYSIS,HT3D_TEMPERATURE_EXCHANGE
@@ -57,15 +57,13 @@ SUBROUTINE WALL_BC(T,DT,NM)
    RHOP => RHOS
    ZZP  => ZZS
    PBAR_P => PBAR_S
-   HP     => HS
 ELSE
    UU => U
    VV => V
    WW => W
    RHOP => RHO
    ZZP  => ZZ
    PBAR_P => PBAR
-   HP     => H
 ENDIF
 
 ! For thermally-thick boundary conditions, set the flag, CALL_HT_1D, to call the subroutine SOLID_HEAT_TRANSFER.