Merge pull request #15101 from mcgratta/master

FDS Source: Do not apply CPUA to particles

Author: mcgratta

Source/dump.f90

@@ -9067,7 +9067,7 @@ REAL(EB) FUNCTION SOLID_PHASE_OUTPUT(INDX,Y_INDEX,Z_INDEX,PART_INDEX,OPT_WALL_IN
 
    CASE(30:32) ! MPUA, CPUA, AMPUA
       LPC => LAGRANGIAN_PARTICLE_CLASS(PART_INDEX)
-      IF (ASSOCIATED(B2)) THEN
+      IF (.NOT.PRESENT(OPT_LP_INDEX) .AND. ASSOCIATED(B2)) THEN
          SELECT CASE(INDX)
             CASE(30) ; SOLID_PHASE_OUTPUT = B2%LP_MPUA(LPC%ARRAY_INDEX)
             CASE(31) ; SOLID_PHASE_OUTPUT = B2%LP_CPUA(LPC%ARRAY_INDEX)*0.001_EB