Corrected declaration of variable in OMP region

Moved climate_nudging from private to shared declaration.
NOAA-GFDL · Aug 27, 2020 · db7b60f · db7b60f
1 parent cce65ac
commit db7b60f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tools/fv_nudge.F90 b/tools/fv_nudge.F90
@@ -612,8 +612,8 @@ subroutine fv_nwp_nudge ( Time, dt, npx, npy, npz, ps_dt, u_dt, v_dt, t_dt, q_dt
   if ( nudge_hght .and. kht<npz ) then     ! averaged (in log-p) temperature
        rdt = factor_nwp*1. / (tau_hght/factor + dt)
 !$OMP parallel do default(none) shared(is,ie,js,je,npz,ak,h2,delp,kht,t_obs,q_obs,pt,zvir, &
-!$OMP                                  q,rdt,ps_fac,mask,t_dt) &
-!$OMP                          private(pe2, peln,climate_nudging )
+!$OMP                                  q,rdt,ps_fac,mask,t_dt, climate_nudging) &
+!$OMP                          private(pe2, peln )
        do j=js,je
            do i=is,ie
               pe2(i,1) = ak(1)