diff --git a/src/restarts_mod.F90 b/src/restarts_mod.F90 index 17708cfafbe56fa05d95031f24cd90d8efbbafae..21959575cf93a976bd199b9b8b5e5b56016fe48e 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