Skip to content

Commit

Permalink
Merge branch 'xylar/ocn/fix-topographic-wave-drag-openacc' (PR #6471)
Browse files Browse the repository at this point in the history
Fix OpenACC deletes for topographic wave drag

Partially addresses #6470

The errors were introduced in #6310, when variables were introduced and
renamed, including in the OpenACC create directives but corresponding
changes were incomplete for the OpenACC directives for deleting them.

[BFB]
  • Loading branch information
jonbob committed Jun 27, 2024
2 parents 7be5f66 + 46496d6 commit f87bb7e
Showing 1 changed file with 7 additions and 1 deletion.
Original file line number Diff line number Diff line change
Expand Up @@ -1009,7 +1009,13 @@ subroutine ocn_diagnostics_variables_destroy(err) !{{{
!$acc velocityTidalRMS)
end if
if (config_use_topographic_wave_drag) then
!$acc exit data delete(topographic_wave_drag)
!$acc exit data delete(topo_rinv)
!$acc exit data delete(topo_buoyancy_N1V)
!$acc exit data delete(topo_buoyancy_N1B)
!$acc exit data delete(bathy_stddev)
!$acc exit data delete(bed_slope_edges)
!$acc exit data delete(lonGradEdge)
!$acc exit data delete(latGradEdge)
!$acc exit data delete(temp_twd)
!$acc exit data delete(normalCoeffTWD)
!$acc exit data delete(tangentialCoeffTWD)
Expand Down

0 comments on commit f87bb7e

Please sign in to comment.