Skip to content

Commit

Permalink
Corrected an OMP directive
Browse files Browse the repository at this point in the history
  Added GV to the shared declaration in an openMP directive.  All answers are
bitwise identical.
  • Loading branch information
Hallberg-NOAA committed Jan 5, 2021
1 parent 5c9b5fa commit 0697604
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/parameterizations/vertical/MOM_CVMix_KPP.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1392,7 +1392,7 @@ subroutine KPP_NonLocalTransport_temp(CS, G, GV, h, nonLocalTrans, surfFlux, &
type(ocean_grid_type), intent(in) :: G !< Ocean grid
type(verticalGrid_type), intent(in) :: GV !< Ocean vertical grid
real, dimension(SZI_(G),SZJ_(G),SZK_(GV)), intent(in) :: h !< Layer/level thickness [H ~> m or kg m-2]
real, dimension(SZI_(G),SZJ_(G),SZK_(GV)+1), intent(in) :: nonLocalTrans !< Non-local transport [nondim]
real, dimension(SZI_(G),SZJ_(G),SZK_(GV)+1), intent(in) :: nonLocalTrans !< Non-local transport [nondim]
real, dimension(SZI_(G),SZJ_(G)), intent(in) :: surfFlux !< Surface flux of scalar
!! [conc H s-1 ~> conc m s-1 or conc kg m-2 s-1]
real, intent(in) :: dt !< Time-step [s]
Expand All @@ -1416,7 +1416,7 @@ subroutine KPP_NonLocalTransport_temp(CS, G, GV, h, nonLocalTrans, surfFlux, &

! Update tracer due to non-local redistribution of surface flux
if (CS%applyNonLocalTrans) then
!$OMP parallel do default(none) shared(dt, scalar, dtracer, G)
!$OMP parallel do default(none) shared(dt, scalar, dtracer, G, GV)
do k = 1, GV%ke
do j = G%jsc, G%jec
do i = G%isc, G%iec
Expand Down

0 comments on commit 0697604

Please sign in to comment.