Skip to content

Commit

Permalink
reformat after omp logic update
Browse files Browse the repository at this point in the history
  • Loading branch information
AlexanderRichert-NOAA committed Mar 5, 2024
1 parent 8d409fa commit bce9670
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/budget_interp_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down

0 comments on commit bce9670

Please sign in to comment.