From 930c4da78765a5cef68139c53b08553ee5809e4f Mon Sep 17 00:00:00 2001 From: Nicolas Gallego-Ortiz Date: Mon, 26 Feb 2024 16:11:37 +0100 Subject: [PATCH] Update tsunami.f90 --- src/ch02/tsunami.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/ch02/tsunami.f90 b/src/ch02/tsunami.f90 index 618edfa..979f592 100644 --- a/src/ch02/tsunami.f90 +++ b/src/ch02/tsunami.f90 @@ -24,6 +24,7 @@ program tsunami ! check input parameter values if (grid_size <= 0) stop 'grid_size must be > 0' + if (num_time_steps <= 0) stop 'num_time_steps must be > 0' if (dt <= 0) stop 'time step dt must be > 0' if (dx <= 0) stop 'grid spacing dx must be > 0' if (c <= 0) stop 'background flow speed c must be > 0'