From 6db42afdec770b7d5e4a32444dc86d77d3214fc3 Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Wed, 5 Jul 2017 16:00:55 -0400 Subject: [PATCH] Fix openMP directive in MOM_forcing_type.F90 - A new local variable was missing from the openmp directives. --- src/core/MOM_forcing_type.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core/MOM_forcing_type.F90 b/src/core/MOM_forcing_type.F90 index 7a6a2d4069..ef453cc2b2 100644 --- a/src/core/MOM_forcing_type.F90 +++ b/src/core/MOM_forcing_type.F90 @@ -799,7 +799,7 @@ subroutine calculateBuoyancyFlux2d(G, GV, fluxes, optics, h, Temp, Salt, tv, & netT(G%isc:G%iec) = 0. ; netS(G%isc:G%iec) = 0. !$OMP parallel do default(none) shared(G,GV,fluxes,optics,h,Temp,Salt,tv,buoyancyFlux,& -!$OMP netHeatMinusSW,netSalt) & +!$OMP netHeatMinusSW,netSalt,skip_diags) & !$OMP firstprivate(netT,netS) do j = G%jsc, G%jec call calculateBuoyancyFlux1d(G, GV, fluxes, optics, h, Temp, Salt, tv, j, buoyancyFlux(:,j,:), &