From bce9670b939e164b5edd0dc4e84681747751ce21 Mon Sep 17 00:00:00 2001 From: Alex Richert Date: Tue, 5 Mar 2024 13:26:03 -0800 Subject: [PATCH] reformat after omp logic update --- src/budget_interp_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/budget_interp_mod.F90 b/src/budget_interp_mod.F90 index 0aab166e..b74df8c5 100644 --- a/src/budget_interp_mod.F90 +++ b/src/budget_interp_mod.F90 @@ -574,7 +574,7 @@ subroutine interpolate_budget_vector(ipopt, grid_in, grid_out, & call gdswzd(grid_in, -1, no, fill, xptb, yptb, rlob, rlab, nv) end if if (iret .eq. 0 .and. nv .eq. 0 .and. lb .eq. 0) iret = 2 - !$omp parallel do private(n, xi, yi, i1, i2, wi1, wi2, j1, j2, wj1, wj2, cm11, cm21, cm12, cm22, sm11, sm21, sm12, sm22) & + !$omp parallel do private(n, xi, yi, i1, i2, wi1, wi2, j1, j2, wj1, wj2, cm11, cm21, cm12, cm22, sm11, sm21, sm12, sm22) & !$omp schedule(static) do n = 1, no xi = xptb(n)