From 607e095a9e2b00b5aea35192a112bc97e425e978 Mon Sep 17 00:00:00 2001 From: Bill Ladwig Date: Thu, 1 Feb 2018 15:21:46 -0700 Subject: [PATCH] Fix missing openmp private variables --- fortran/rip_cape.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/rip_cape.f90 b/fortran/rip_cape.f90 index c92be3f..5e9cdac 100644 --- a/fortran/rip_cape.f90 +++ b/fortran/rip_cape.f90 @@ -708,7 +708,7 @@ SUBROUTINE DCAPECALC2D(prs,tmk,qvp,ght,ter,sfp,cape,cin,& !$OMP PARALLEL DO COLLAPSE(2) PRIVATE(tlcl, ethpari, & !$OMP zlcl, kk, ilcl, klcl, tmklift, tvenv, tvlift, ghtlift, & !$OMP facden, tmkenv, qvpenv, eslift, qvplift, buoy, benamin, & - !$OMP benaccum, zrel, kmax, dz, elfound, & + !$OMP benaccum, zrel, kmax, dz, elfound, gammam, cpm, e, & !$OMP kel, klfc, pavg, p2, p1, totthe, totqvp, totprs, & !$OMP i, j, k, kpar, kpar1, kpar2, qvppari, tmkpari, p, pup, pdn, th, & !$OMP pp1, pp2, ethmax, eth_temp, klev) SCHEDULE(runtime)