diff --git a/src/modules/solver/moduleSolver.f90 b/src/modules/solver/moduleSolver.f90 index 02932c9..af0a177 100644 --- a/src/modules/solver/moduleSolver.f90 +++ b/src/modules/solver/moduleSolver.f90 @@ -204,7 +204,10 @@ MODULE moduleSolver DO n = 1, partList%amount partNext => partCurr%next partArray(nStart + n) = partCurr%part - CALL doProbes(partArray(nStart+n)) + IF (nProbes > 0) THEN + CALL doProbes(partArray(nStart+n)) + + END IF DEALLOCATE(partCurr) partCurr => partNext @@ -270,7 +273,10 @@ MODULE moduleSolver IF (partInj(n)%n_in) THEN nn = nn + 1 partOld(nn) = partInj(n) - CALL doProbes(partOld(nn)) + IF (nProbes > 0) THEN + CALL doProbes(partOld(nn)) + + END IF END IF @@ -283,7 +289,10 @@ MODULE moduleSolver IF (partTemp(n)%n_in) THEN nn = nn + 1 partOld(nn) = partTemp(n) - CALL doProbes(partOld(nn)) + IF (nProbes > 0) THEN + CALL doProbes(partOld(nn)) + + END IF END IF