From c3ea2308c07ef048ae74bcd17e7c0a630acc4c1f Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Thu, 13 Oct 2022 15:17:13 +0200
Subject: [PATCH] small typo
---
src/grid_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/grid_mod.F90 b/src/grid_mod.F90
index c362ac29..719effe7 100644
--- a/src/grid_mod.F90
+++ b/src/grid_mod.F90
@@ -525,7 +525,7 @@ CONTAINS
! Ghosts boundaries (depend on the order of z operators)
IF(Nz .EQ. 1) THEN
izgs = izs; izge = ize;
- zarray(izs) = 0; zarray_full(izs) = 0;
+ zarray(izs,:) = 0; zarray_full(izs) = 0;
ELSEIF(Nz .GE. 4) THEN
izgs = izs - 2; izge = ize + 2;
ELSE
--
GitLab