Skip to content

Commit

Permalink
Missing $OMP private variables
Browse files Browse the repository at this point in the history
- This one prevents only PGI to compile with -openmp
  • Loading branch information
nikizadehgfdl committed Dec 1, 2014
1 parent 6b615f0 commit fc368fa
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/core/MOM_PressureForce_analytic_FV.F90
Original file line number Diff line number Diff line change
Expand Up @@ -690,7 +690,7 @@ subroutine PressureForce_AFV_Bouss(h, tv, PFu, PFv, G, CS, ALE_CSp, p_atm, pbce,
!$OMP private(is_bk,ie_bk,js_bk,je_bk,Isq_bk,Ieq_bk,Jsq_bk, &
!$OMP Jeq_bk,ioff_bk,joff_bk,isd,ied,jsd,jed,pa_bk, &
!$OMP intx_pa_bk,inty_pa_bk,dpa_bk,intz_dpa_bk, &
!$OMP intx_dpa_bk,inty_dpa_bk,dz_bk)
!$OMP intx_dpa_bk,inty_dpa_bk,dz_bk,i,j)
do n = 1, G%nblocks
is_bk=G%Block(n)%isc ; ie_bk=G%Block(n)%iec
js_bk=G%Block(n)%jsc ; je_bk=G%Block(n)%jec
Expand Down

0 comments on commit fc368fa

Please sign in to comment.