Commits

Anonymous committed d615169

PF: Minor fixes.

  • Participants
  • Parent commits 7a0baf3

Comments (0)

Files changed (1)

File src/pf_parallel.f90

 
 
     if (pf%comm%nproc > 1) then
+       G => pf%levels(1)
        if (pf%Pipeline_G .and. (G%nsweeps > 1)) then
           !  This is the weird choice.  We burn in without communication, then do extra sweeps
           G => pf%levels(1)
     type(pf_pfasst_t), intent(inout) :: pf
     real(pfdp),        intent(inout) :: residual, energy
 
-    real(pfdp) :: residual1, energy1
+    real(pfdp) :: residual1
 
     residual1 = pf%levels(pf%nlevels)%residual
     if (pf%state%status == PF_STATUS_ITERATING .and. residual > 0.0d0) then