diff --git a/Source/dump.f90 b/Source/dump.f90 index c8a8958a168..e8aec957668 100644 --- a/Source/dump.f90 +++ b/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