diff --git a/src/advance_field.F90 b/src/advance_field.F90
index 0780a9315f55fb54378168ae60f673ab9fa762b7..709686d01648e355e7cd85b5f38fb74a3cd2da3b 100644
--- a/src/advance_field.F90
+++ b/src/advance_field.F90
@@ -42,8 +42,8 @@ CONTAINS
       END DO
     CASE DEFAULT
       DO ikz=ikzs,ikze  
-        f(ikr,ikz,updatetlevel) = f(ikr,ikz,1);
         DO ikr=ikrs,ikre
+          f(ikr,ikz,updatetlevel) = f(ikr,ikz,1);
           DO istage=1,updatetlevel-1
             f(ikr,ikz,updatetlevel) = f(ikr,ikz,updatetlevel) + &
                                   dt*A_E(updatetlevel,istage)*f_rhs(ikr,ikz,istage)