fix: real(r8) for kind not real(i8) see #615

NCAR · Jan 5, 2024 · f21a5a7 · f21a5a7
1 parent a62c049
commit f21a5a7
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
@@ -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