From 2246519cf785ef0721025ff90164e17a169607a1 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 22 Jun 2020 14:51:43 +0200
Subject: [PATCH] typo
---
src/advance_field.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/advance_field.F90 b/src/advance_field.F90
index 0780a931..709686d0 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)
--
GitLab