From f21a5a7d07e90364d48c12be18931a46060efa5d Mon Sep 17 00:00:00 2001 From: Helen Kershaw Date: Fri, 5 Jan 2024 16:04:37 -0500 Subject: [PATCH] fix: real(r8) for kind not real(i8) see #615 --- models/lorenz_96_tracer_advection/model_mod.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/models/lorenz_96_tracer_advection/model_mod.f90 b/models/lorenz_96_tracer_advection/model_mod.f90 index 092254e4bf..dbe41240c8 100644 --- a/models/lorenz_96_tracer_advection/model_mod.f90 +++ b/models/lorenz_96_tracer_advection/model_mod.f90 @@ -146,7 +146,7 @@ subroutine adv_1step(x, time) real(r8) :: velocity, target_loc, frac, ratio integer(r8) :: low, hi, up, down, i -real(i8), dimension(grid_size) :: x1, x2, x3, x4, x_new, dx, inter, q_diff, q_new, q +real(r8), dimension(grid_size) :: x1, x2, x3, x4, x_new, dx, inter, q_diff, q_new, q ! Test for tracer with upper bound of 1; Subtract 1 when entering here, then add it back on if(bound_above_is_one) x(grid_size + 1:2*grid_size) = x(grid_size + 1:2*grid_size) - 1.0_r8