From 572ba38067782f08d3fb87e4c222213c52b19110 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Thu, 10 Nov 2022 16:40:36 +0100
Subject: [PATCH] put a security stop when asking parallel z for Nz = 1
---
src/grid_mod.F90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/grid_mod.F90 b/src/grid_mod.F90
index 1e98b6c1..06e47107 100644
--- a/src/grid_mod.F90
+++ b/src/grid_mod.F90
@@ -517,6 +517,7 @@ CONTAINS
IF(zarray_full(iz) .LT. zmin) zmin = zarray_full(iz)
END DO
!! Parallel data distribution
+ IF( num_procs_z .GT. 1) stop '>>STOPPED<< Cannot have multiple core in z-direction (Nz = 1)'
! Local data distribution
CALL decomp1D(total_nz, num_procs_z, rank_z, izs, ize)
local_nz = ize - izs + 1
--
GitLab