From 1aaf979f5efbffa75b65450439a442b059f60113 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Wed, 29 Mar 2023 10:46:31 +0200
Subject: [PATCH] typoooo
---
src/calculus_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/calculus_mod.F90 b/src/calculus_mod.F90
index 1e186bcb..29c08f7a 100644
--- a/src/calculus_mod.F90
+++ b/src/calculus_mod.F90
@@ -180,7 +180,7 @@ SUBROUTINE interp_z(target,local_nz,ngz,f_in,f_out)
CASE(2) ! output on odd grid
CALL interp_e2o_z(local_nz,ngz,f_in,f_out)
CASE DEFAULT ! No staggered grid -> usual centered finite differences
- f_out = f_in(1+ngz/2:local_nz+ngz/2)
+ f_out = f_in((1+ngz/2):(local_nz+ngz/2))
END SELECT
CONTAINS
SUBROUTINE interp_o2e_z(local_nz, ngz,fo,fe)
--
GitLab