Merge pull request #14398 from mcgratta/master

FDS Source: Issue #14387. Fix OpenMP race condition

Author: mcgratta

Source/func.f90

@@ -1842,9 +1842,9 @@ REAL(EB) FUNCTION GET_PARTICLE_ENTHALPY(I_LPC,TMP_S)
 REAL(EB) :: RHO,RHO_H,VOL,DTMP,H_S,THICKNESS
 INTEGER :: I,N,ITMP,I_GRAD
 INTEGER, INTENT(IN) :: I_LPC
-TYPE(LAGRANGIAN_PARTICLE_CLASS_TYPE), POINTER :: LPC=>NULL()
-TYPE(SURFACE_TYPE), POINTER :: SF=>NULL()
-TYPE(MATERIAL_TYPE), POINTER :: ML=>NULL()
+TYPE(LAGRANGIAN_PARTICLE_CLASS_TYPE), POINTER :: LPC
+TYPE(SURFACE_TYPE), POINTER :: SF
+TYPE(MATERIAL_TYPE), POINTER :: ML
 
 LPC=>LAGRANGIAN_PARTICLE_CLASS(I_LPC)