Debug Residual Memory

Author: Himpu Marbona

Solver/src/libs/monitors/ResidualsMonitor.f90

@@ -332,8 +332,10 @@ elemental subroutine Residuals_Assign(to, from)
          to % CPUtime = from % CPUtime
 
 		 safedeallocate (to % totMemory)
-         allocate ( to % totMemory( size(from % totMemory) ) )
-         to % totMemory = from % totMemory
+		 if (allocated(from % totMemory)) then
+			allocate ( to % totMemory( size(from % totMemory) ) )
+			to % totMemory = from % totMemory
+	     end if 
 
          to % fileName = from % fileName