fix: real(r8) for kind

see #615
NCAR · Jan 5, 2024 · 49ed190 · 49ed190
1 parent 99ebec5
commit 49ed190
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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