From cc60ce6cec415867fcf05fdf441eaeaa66f00f61 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Fri, 16 Jun 2023 11:23:56 +0200
Subject: [PATCH] Undetected parenthesis error..
---
src/restarts_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/restarts_mod.F90 b/src/restarts_mod.F90
index 17708cfa..21959575 100644
--- a/src/restarts_mod.F90
+++ b/src/restarts_mod.F90
@@ -188,7 +188,7 @@ CONTAINS
z_cp_stretched(Nz_cp+1) = z_cp_stretched(1)
z_idx_mapping (Nz_new+1) = z_idx_mapping (1)
! Check that the start and the end of the grids are the same
- IF(.NOT.(abs(z_cp_stretched(1)-zarray_new(1) .LT. 1e-3).AND.(abs(z_cp_stretched(Nz_cp)-zarray_new(Nz_new)).LT.1e-3))) &
+ IF(.NOT.(abs(z_cp_stretched(1)-zarray_new(1)) .LT. 1e-3).AND.(abs(z_cp_stretched(Nz_cp)-zarray_new(Nz_new)).LT.1e-3)) &
ERROR STOP "Failed to stretch the cp grid"
END SUBROUTINE z_grid_mapping
END MODULE restarts
--
GitLab