From 49ed19006b3c8c21b6bc4ff23b1d9496b0006b1c Mon Sep 17 00:00:00 2001 From: Helen Kershaw Date: Fri, 5 Jan 2024 11:22:28 -0700 Subject: [PATCH] fix: real(r8) for kind 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 fac7d63552..9782ea8663 100644 --- a/models/lorenz_96_tracer_advection/model_mod.f90 +++ b/models/lorenz_96_tracer_advection/model_mod.f90 @@ -133,7 +133,7 @@ subroutine adv_1step(x, time) real(r8) :: velocity, target_loc, frac, ratio integer(r8) :: low, hi, up, down, i, f -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 q = x(grid_size + 1 :2*grid_size) ! QTY_TRACER_CONCENTRATION ! Doing an upstream semi-lagrangian advection for q for each grid point