# Compile-time issue on openacc branch with NVHPC 23.11
## Compiler reports ("dependence prevents parallelization")
### Subroutine ice_dyn_adv_pra
- Line icedyn_adv_pra.f90:343 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/icedyn_adv_pra.f90):
```
343, Loop is parallelizable
Loop carried dependence of pe_i$r prevents parallelization
Loop carried backward dependence of pe_i$r prevents vectorization
Loop is parallelizable
Loop carried dependence of pe_s$r prevents parallelization
Loop carried backward dependence of pe_s$r prevents vectorization
Loop is parallelizable
```
```
...
343 zdiag_adv_heat(ji,jj) = - SUM(SUM( pe_i(ji,jj,1:nlay_i,:) , dim=2 ), dim=1 ) &
344 & - SUM(SUM( pe_s(ji,jj,1:nlay_s,:) , dim=2 ), dim=1 )
345
346 ! record at_i before advection (for open water)
347 zati1(ji,jj) = SUM( pa_i(ji,jj,:), dim=1 )
348 END DO
349 END DO
350 !$acc end parallel loop
```
- Line icedyn_adv_pra.f90:528 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/icedyn_adv_pra.f90):
```
528, Loop is parallelizable
Loop carried reuse of pa_i$r22 prevents parallelization
Loop is parallelizable
```
```
525 !$acc parallel loop
526 !! !$omp do
527 DO jj = 1, jpj
528 zati2(:,jj) = SUM( pa_i(:,jj,:), dim=2 )
529 END DO
530 !! !$omp end do
531 !$acc end parallel loop
```
- Line icedyn_adv_pra.f90:572 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/icedyn_adv_pra.f90):
```
572, Loop is parallelizable
Loop carried dependence of pe_i$r28 prevents parallelization
Loop carried backward dependence of pe_i$r28 prevents vectorization
Loop is parallelizable
Loop carried dependence of pe_s$r30 prevents parallelization
Loop carried backward dependence of pe_s$r30 prevents vectorization
Loop is parallelizable
```
```
...
572 diag_adv_heat(ji,jj) = diag_adv_heat(ji,jj) + ( - SUM(SUM( pe_i(ji,jj,1:nlay_i,:) , dim=2 ), dim=1 ) &
573 & - SUM(SUM( pe_s(ji,jj,1:nlay_s,:) , dim=2 ), dim=1 ) &
574 & - zdiag_adv_heat(ji,jj) ) * z1_dt
575 END DO
576 END DO
577 !! !$omp end do
578 !! !$omp end parallel
579 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_2d_gpu_dp
- Line lbcnfd.f90:8835 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
8835, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(psgn,nlcj)
```
```
8834 !$acc parallel loop gang vector
8835 DO jl = 1, ipl; DO jk = 1, ipk
8836 ptab(1,nlcj) = psgn * ptab(3,nlcj-2)
8837 END DO; END DO
8838 !$acc end parallel loop
```
- Line lbcnfd.f90:8851 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
8851, Loop carried dependence of ptab prevents parallelization
Loop carried dependence of ptab prevents vectorization
Loop carried backward dependence of ptab prevents vectorization
Complex loop carried dependence of ptab prevents parallelization
8852, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijta,ijt,nlcj,psgn,nimpp)
```
```
8850 !$acc parallel loop gang vector
8851 DO jl = 1, ipl; DO jk = 1, ipk
8852 DO ji = startloop, nlci
8853 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
8854 jia = ji + nimpp - 1
8855 ijta = jpiglo - jia + 2
8856 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
8857 ptab(ji,nlcj-1) = psgn * ptab(ijta-nimpp+1,nlcj-1)
8858 ELSE
8859 ptab(ji,nlcj-1) = psgn * ptab2(ijt,ijpjp1,jk,jl)
8860 ENDIF
8861 END DO
8862 END DO; END DO
8863 !$acc end parallel loop
```
- Line lbcnfd.f90:8907 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
8907, Loop carried dependence of ptab prevents parallelization
Loop carried dependence of ptab prevents vectorization
Loop carried backward dependence of ptab prevents vectorization
Complex loop carried dependence of ptab prevents parallelization
8908, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijua,iju,psgn,nlcj,nimpp)
```
```
8906 !$acc parallel loop gang vector
8907 DO jl = 1, ipl; DO jk = 1, ipk
8908 DO ji = startloop, endloop
8909 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
8910 jia = ji + nimpp - 1
8911 ijua = jpiglo - jia + 1
8912 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
8913 ptab(ji,nlcj-1) = psgn * ptab(ijua-nimpp+1,nlcj-1)
8914 ELSE
8915 ptab(ji,nlcj-1) = psgn * ptab2(iju,ijpjp1,jk,jl)
8916 ENDIF
8917 END DO
8918 END DO; END DO
8919 !$acc end parallel loop
```
- Line lbcnfd.f90:9020 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9020, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(psgn,nlcj,nlci)
```
```
9019 !$acc parallel loop gang vector
9020 DO jl = 1, ipl; DO jk = 1, ipk
9021 ptab(nlci,nlcj) = psgn * ptab(nlci-2,nlcj-1)
9022 END DO; END DO
9023 !$acc end parallel loop
```
- Line lbcnfd.f90:9072 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9072, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(psgn,nlcj,nlci)
```
```
9071 !$acc parallel loop gang vector
9072 DO jl = 1, ipl; DO jk = 1, ipk
9073 ptab(nlci,nlcj) = psgn * ptab(nlci-2,nlcj-2)
9074 END DO; END DO
9075 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_2d_gpu_sp
- Line lbcnfd.f90:3485 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
3485, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(psgn,nlcj)
```
```
3484 !$acc parallel loop gang vector
3485 DO jl = 1, ipl; DO jk = 1, ipk
3486 ptab(1,nlcj) = psgn * ptab(3,nlcj-2)
3487 END DO; END DO
3488 !$acc end parallel loop
```
- Line lbcnfd.f90:3501 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
3501, Loop carried dependence of ptab prevents parallelization
Loop carried dependence of ptab prevents vectorization
Loop carried backward dependence of ptab prevents vectorization
Complex loop carried dependence of ptab prevents parallelization
3502, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijta,ijt,nlcj,psgn,nimpp)
```
```
3500 !$acc parallel loop gang vector
3501 DO jl = 1, ipl; DO jk = 1, ipk
3502 DO ji = startloop, nlci
3503 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
3504 jia = ji + nimpp - 1
3505 ijta = jpiglo - jia + 2
3506 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
3507 ptab(ji,nlcj-1) = psgn * ptab(ijta-nimpp+1,nlcj-1)
3508 ELSE
3509 ptab(ji,nlcj-1) = psgn * ptab2(ijt,ijpjp1,jk,jl)
3510 ENDIF
3511 END DO
3512 END DO; END DO
3513 !$acc end parallel loop
```
- Line lbcnfd.f90:3557 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
3557, Loop carried dependence of ptab prevents parallelization
Loop carried dependence of ptab prevents vectorization
Loop carried backward dependence of ptab prevents vectorization
Complex loop carried dependence of ptab prevents parallelization
3558, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijua,iju,psgn,nlcj,nimpp)
```
```
3556 !$acc parallel loop gang vector
3557 DO jl = 1, ipl; DO jk = 1, ipk
3558 DO ji = startloop, endloop
3559 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
3560 jia = ji + nimpp - 1
3561 ijua = jpiglo - jia + 1
3562 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
3563 ptab(ji,nlcj-1) = psgn * ptab(ijua-nimpp+1,nlcj-1)
3564 ELSE
3565 ptab(ji,nlcj-1) = psgn * ptab2(iju,ijpjp1,jk,jl)
3566 ENDIF
3567 END DO
3568 END DO; END DO
3569 !$acc end parallel loop
```
- Line lbcnfd.f90:3670 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
3670, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(psgn,nlcj,nlci)
```
```
3669 !$acc parallel loop gang vector
3670 DO jl = 1, ipl; DO jk = 1, ipk
3671 ptab(nlci,nlcj) = psgn * ptab(nlci-2,nlcj-1)
3672 END DO; END DO
3673 !$acc end parallel loop
```
- Line lbcnfd.f90:3722 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
3722, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(psgn,nlcj,nlci)
```
```
3721 !$acc parallel loop gang vector
3722 DO jl = 1, ipl; DO jk = 1, ipk
3723 ptab(nlci,nlcj) = psgn * ptab(nlci-2,nlcj-2)
3724 END DO; END DO
3725 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_2d_ptr_gpu_dp
- Line lbcnfd.f90:9175 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9175, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Generating implicit firstprivate(nlcj,jf)
```
```
9174 !$acc parallel loop gang vector
9175 DO jl = 1, ipl; DO jk = 1, ipk
9176 ptab(jf)%pt2d(1,nlcj) = psgn(jf) * ptab(jf)%pt2d(3,nlcj-2)
9177 END DO; END DO
9178 !$acc end parallel loop
```
- Line lbcnfd.f90:9191 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9191, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried dependence of ptab%pt2d$p prevents vectorization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p,ptab2%pt4d$p prevents parallelization
9192, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,ijt,ijta,nimpp,nlcj)
```
```
9190 !$acc parallel loop gang vector
9191 DO jl = 1, ipl; DO jk = 1, ipk
9192 DO ji = startloop, nlci
9193 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
9194 jia = ji + nimpp - 1
9195 ijta = jpiglo - jia + 2
9196 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
9197 ptab(jf)%pt2d(ji,nlcj-1) = psgn(jf) * ptab(jf)%pt2d(ijta-nimpp+1,nlcj-1)
9198 ELSE
9199 ptab(jf)%pt2d(ji,nlcj-1) = psgn(jf) * ptab2(jf)%pt4d(ijt,ijpjp1,jk,jl)
9200 ENDIF
9201 END DO
9202 END DO; END DO
9203 !$acc end parallel loop
```
- Line lbcnfd.f90:9247 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9247, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried dependence of ptab%pt2d$p prevents vectorization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p,ptab2%pt4d$p prevents parallelization
9248, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,iju,ijua,nlcj,nimpp)
```
```
9246 !$acc parallel loop gang vector
9247 DO jl = 1, ipl; DO jk = 1, ipk
9248 DO ji = startloop, endloop
9249 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
9250 jia = ji + nimpp - 1
9251 ijua = jpiglo - jia + 1
9252 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
9253 ptab(jf)%pt2d(ji,nlcj-1) = psgn(jf) * ptab(jf)%pt2d(ijua-nimpp+1,nlcj-1)
9254 ELSE
9255 ptab(jf)%pt2d(ji,nlcj-1) = psgn(jf) * ptab2(jf)%pt4d(iju,ijpjp1,jk,jl)
9256 ENDIF
9257 END DO
9258 END DO; END DO
9259 !$acc end parallel loop
```
- Line lbcnfd.f90:9360 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9360, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Generating implicit firstprivate(nlcj,nlci,jf)
```
```
9359 !$acc parallel loop gang vector
9360 DO jl = 1, ipl; DO jk = 1, ipk
9361 ptab(jf)%pt2d(nlci,nlcj) = psgn(jf) * ptab(jf)%pt2d(nlci-2,nlcj-1)
9362 END DO; END DO
9363 !$acc end parallel loop
```
- Line lbcnfd.f90:9412 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9412, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Generating implicit firstprivate(nlcj,nlci,jf)
```
```
9411 !$acc parallel loop gang vector
9412 DO jl = 1, ipl; DO jk = 1, ipk
9413 ptab(jf)%pt2d(nlci,nlcj) = psgn(jf) * ptab(jf)%pt2d(nlci-2,nlcj-2)
9414 END DO; END DO
9415 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_2d_ptr_gpu_sp
- Line lbcnfd.f90:3825 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
3825, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Generating implicit firstprivate(nlcj,jf)
```
```
3824 !$acc parallel loop gang vector
3825 DO jl = 1, ipl; DO jk = 1, ipk
3826 ptab(jf)%pt2d(1,nlcj) = psgn(jf) * ptab(jf)%pt2d(3,nlcj-2)
3827 END DO; END DO
3828 !$acc end parallel loop
```
- Line lbcnfd.f90:3841 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
3841, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried dependence of ptab%pt2d$p prevents vectorization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p,ptab2%pt4d$p prevents parallelization
3842, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,ijt,ijta,nimpp,nlcj)
```
```
3840 !$acc parallel loop gang vector
3841 DO jl = 1, ipl; DO jk = 1, ipk
3842 DO ji = startloop, nlci
3843 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
3844 jia = ji + nimpp - 1
3845 ijta = jpiglo - jia + 2
3846 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
3847 ptab(jf)%pt2d(ji,nlcj-1) = psgn(jf) * ptab(jf)%pt2d(ijta-nimpp+1,nlcj-1)
3848 ELSE
3849 ptab(jf)%pt2d(ji,nlcj-1) = psgn(jf) * ptab2(jf)%pt4d(ijt,ijpjp1,jk,jl)
3850 ENDIF
3851 END DO
3852 END DO; END DO
3853 !$acc end parallel loop
```
- Line lbcnfd.f90:3897 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
3897, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried dependence of ptab%pt2d$p prevents vectorization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p,ptab2%pt4d$p prevents parallelization
3898, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,iju,ijua,nlcj,nimpp)
```
```
3896 !$acc parallel loop gang vector
3897 DO jl = 1, ipl; DO jk = 1, ipk
3898 DO ji = startloop, endloop
3899 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
3900 jia = ji + nimpp - 1
3901 ijua = jpiglo - jia + 1
3902 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
3903 ptab(jf)%pt2d(ji,nlcj-1) = psgn(jf) * ptab(jf)%pt2d(ijua-nimpp+1,nlcj-1)
3904 ELSE
3905 ptab(jf)%pt2d(ji,nlcj-1) = psgn(jf) * ptab2(jf)%pt4d(iju,ijpjp1,jk,jl)
3906 ENDIF
3907 END DO
3908 END DO; END DO
3909 !$acc end parallel loop
```
- Line lbcnfd.f90:4010 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
4010, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Generating implicit firstprivate(nlcj,nlci,jf)
```
```
4009 !$acc parallel loop gang vector
4010 DO jl = 1, ipl; DO jk = 1, ipk
4011 ptab(jf)%pt2d(nlci,nlcj) = psgn(jf) * ptab(jf)%pt2d(nlci-2,nlcj-1)
4012 END DO; END DO
4013 !$acc end parallel loop
```
- Line lbcnfd.f90:4062 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
4062, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Generating implicit firstprivate(nlcj,nlci,jf)
```
```
4061 !$acc parallel loop gang vector
4062 DO jl = 1, ipl; DO jk = 1, ipk
4063 ptab(jf)%pt2d(nlci,nlcj) = psgn(jf) * ptab(jf)%pt2d(nlci-2,nlcj-2)
4064 END DO; END DO
4065 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_3d_gpu_dp
- Line lbcnfd.f90:9536 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9536, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijta,ijt,psgn,nlcj,nimpp)
```
```
9534 !$acc parallel loop gang vector
9535 DO jl = 1, ipl; DO jk = 1, ipk
9536 DO ji = startloop, nlci
9537 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
9538 jia = ji + nimpp - 1
9539 ijta = jpiglo - jia + 2
9540 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
9541 ptab(ji,nlcj-1,jk) = psgn * ptab(ijta-nimpp+1,nlcj-1,jk)
9542 ELSE
9543 ptab(ji,nlcj-1,jk) = psgn * ptab2(ijt,ijpjp1,jk,jl)
9544 ENDIF
9545 END DO
9546 END DO; END DO
9547 !$acc end parallel loop
```
- Line lbcnfd.f90:9592 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9592, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijua,iju,psgn,nlcj,nimpp)
```
```
9590 !$acc parallel loop gang vector
9591 DO jl = 1, ipl; DO jk = 1, ipk
9592 DO ji = startloop, endloop
9593 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
9594 jia = ji + nimpp - 1
9595 ijua = jpiglo - jia + 1
9596 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
9597 ptab(ji,nlcj-1,jk) = psgn * ptab(ijua-nimpp+1,nlcj-1,jk)
9598 ELSE
9599 ptab(ji,nlcj-1,jk) = psgn * ptab2(iju,ijpjp1,jk,jl)
9600 ENDIF
9601 END DO
9602 END DO; END DO
9603 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_3d_gpu_sp
- Line lbcnfd.f90:4186 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
4186, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijta,ijt,psgn,nlcj,nimpp)
```
```
4184 !$acc parallel loop gang vector
4185 DO jl = 1, ipl; DO jk = 1, ipk
4186 DO ji = startloop, nlci
4187 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
4188 jia = ji + nimpp - 1
4189 ijta = jpiglo - jia + 2
4190 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
4191 ptab(ji,nlcj-1,jk) = psgn * ptab(ijta-nimpp+1,nlcj-1,jk)
4192 ELSE
4193 ptab(ji,nlcj-1,jk) = psgn * ptab2(ijt,ijpjp1,jk,jl)
4194 ENDIF
4195 END DO
4196 END DO; END DO
4197 !$acc end parallel loop
```
- Line lbcnfd.f90:4242 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
4242, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijua,iju,psgn,nlcj,nimpp)
```
```
4240 !$acc parallel loop gang vector
4241 DO jl = 1, ipl; DO jk = 1, ipk
4242 DO ji = startloop, endloop
4243 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
4244 jia = ji + nimpp - 1
4245 ijua = jpiglo - jia + 1
4246 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
4247 ptab(ji,nlcj-1,jk) = psgn * ptab(ijua-nimpp+1,nlcj-1,jk)
4248 ELSE
4249 ptab(ji,nlcj-1,jk) = psgn * ptab2(iju,ijpjp1,jk,jl)
4250 ENDIF
4251 END DO
4252 END DO; END DO
4253 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_3d_ptr_gpu_dp
- Line lbcnfd.f90:9875 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9875, Complex loop carried dependence of ptab%pt3d$p,ptab2%pt4d$p prevents parallelization
9876, Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
Complex loop carried dependence of ptab%pt3d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,ijt,ijta,nimpp,nlcj)
```
```
9874 !$acc parallel loop gang vector
9875 DO jl = 1, ipl; DO jk = 1, ipk
9876 DO ji = startloop, nlci
9877 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
9878 jia = ji + nimpp - 1
9879 ijta = jpiglo - jia + 2
9880 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
9881 ptab(jf)%pt3d(ji,nlcj-1,jk) = psgn(jf) * ptab(jf)%pt3d(ijta-nimpp+1,nlcj-1,jk)
9882 ELSE
9883 ptab(jf)%pt3d(ji,nlcj-1,jk) = psgn(jf) * ptab2(jf)%pt4d(ijt,ijpjp1,jk,jl)
9884 ENDIF
9885 END DO
9886 END DO; END DO
9887 !$acc end parallel loop
```
- Line lbcnfd.f90:9931 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
9931, Complex loop carried dependence of ptab%pt3d$p,ptab2%pt4d$p prevents parallelization
9932, Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
Complex loop carried dependence of ptab%pt3d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,iju,ijua,nlcj,nimpp)
```
```
9930 !$acc parallel loop gang vector
9931 DO jl = 1, ipl; DO jk = 1, ipk
9932 DO ji = startloop, endloop
9933 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
9934 jia = ji + nimpp - 1
9935 ijua = jpiglo - jia + 1
9936 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
9937 ptab(jf)%pt3d(ji,nlcj-1,jk) = psgn(jf) * ptab(jf)%pt3d(ijua-nimpp+1,nlcj-1,jk)
9938 ELSE
9939 ptab(jf)%pt3d(ji,nlcj-1,jk) = psgn(jf) * ptab2(jf)%pt4d(iju,ijpjp1,jk,jl)
9940 ENDIF
9941 END DO
9942 END DO; END DO
9943 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_3d_ptr_gpu_sp
- Line lbcnfd.f90:4525 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
4525, Complex loop carried dependence of ptab%pt3d$p,ptab2%pt4d$p prevents parallelization
4526, Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
Complex loop carried dependence of ptab%pt3d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,ijt,ijta,nimpp,nlcj)
```
```
4524 !$acc parallel loop gang vector
4525 DO jl = 1, ipl; DO jk = 1, ipk
4526 DO ji = startloop, nlci
4527 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
4528 jia = ji + nimpp - 1
4529 ijta = jpiglo - jia + 2
4530 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
4531 ptab(jf)%pt3d(ji,nlcj-1,jk) = psgn(jf) * ptab(jf)%pt3d(ijta-nimpp+1,nlcj-1,jk)
4532 ELSE
4533 ptab(jf)%pt3d(ji,nlcj-1,jk) = psgn(jf) * ptab2(jf)%pt4d(ijt,ijpjp1,jk,jl)
4534 ENDIF
4535 END DO
4536 END DO; END DO
4537 !$acc end parallel loop
```
- Line lbcnfd.f90:4581 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
4581, Complex loop carried dependence of ptab%pt3d$p,ptab2%pt4d$p prevents parallelization
4582, Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
Complex loop carried dependence of ptab%pt3d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,iju,ijua,nlcj,nimpp)
```
```
4580 !$acc parallel loop gang vector
4581 DO jl = 1, ipl; DO jk = 1, ipk
4582 DO ji = startloop, endloop
4583 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
4584 jia = ji + nimpp - 1
4585 ijua = jpiglo - jia + 1
4586 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
4587 ptab(jf)%pt3d(ji,nlcj-1,jk) = psgn(jf) * ptab(jf)%pt3d(ijua-nimpp+1,nlcj-1,jk)
4588 ELSE
4589 ptab(jf)%pt3d(ji,nlcj-1,jk) = psgn(jf) * ptab2(jf)%pt4d(iju,ijpjp1,jk,jl)
4590 ENDIF
4591 END DO
4592 END DO; END DO
4593 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_4d_gpu_dp
- Line lbcnfd.f90:10220 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
10220, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijta,ijt,psgn,nlcj,nimpp)
```
```
10218 !$acc parallel loop gang vector
10219 DO jl = 1, ipl; DO jk = 1, ipk
10220 DO ji = startloop, nlci
10221 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
10222 jia = ji + nimpp - 1
10223 ijta = jpiglo - jia + 2
10224 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
10225 ptab(ji,nlcj-1,jk,jl) = psgn * ptab(ijta-nimpp+1,nlcj-1,jk,jl)
10226 ELSE
10227 ptab(ji,nlcj-1,jk,jl) = psgn * ptab2(ijt,ijpjp1,jk,jl)
10228 ENDIF
10229 END DO
10230 END DO; END DO
10231 !$acc end parallel loop
```
- Line lbcnfd.f90:10276 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
10276, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijua,iju,psgn,nlcj,nimpp)
```
```
10274 !$acc parallel loop gang vector
10275 DO jl = 1, ipl; DO jk = 1, ipk
10276 DO ji = startloop, endloop
10277 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
10278 jia = ji + nimpp - 1
10279 ijua = jpiglo - jia + 1
10280 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
10281 ptab(ji,nlcj-1,jk,jl) = psgn * ptab(ijua-nimpp+1,nlcj-1,jk,jl)
10282 ELSE
10283 ptab(ji,nlcj-1,jk,jl) = psgn * ptab2(iju,ijpjp1,jk,jl)
10284 ENDIF
10285 END DO
10286 END DO; END DO
10287 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_4d_gpu_sp
- Line lbcnfd.f90:4870 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
4870, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijta,ijt,psgn,nlcj,nimpp)
```
```
4868 !$acc parallel loop gang vector
4869 DO jl = 1, ipl; DO jk = 1, ipk
4870 DO ji = startloop, nlci
4871 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
4872 jia = ji + nimpp - 1
4873 ijta = jpiglo - jia + 2
4874 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
4875 ptab(ji,nlcj-1,jk,jl) = psgn * ptab(ijta-nimpp+1,nlcj-1,jk,jl)
4876 ELSE
4877 ptab(ji,nlcj-1,jk,jl) = psgn * ptab2(ijt,ijpjp1,jk,jl)
4878 ENDIF
4879 END DO
4880 END DO; END DO
4881 !$acc end parallel loop
```
- Line lbcnfd.f90:4926 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
4926, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Generating implicit firstprivate(jia,jpnj,jpiglo,ijua,iju,psgn,nlcj,nimpp)
```
```
4924 !$acc parallel loop gang vector
4925 DO jl = 1, ipl; DO jk = 1, ipk
4926 DO ji = startloop, endloop
4927 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
4928 jia = ji + nimpp - 1
4929 ijua = jpiglo - jia + 1
4930 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
4931 ptab(ji,nlcj-1,jk,jl) = psgn * ptab(ijua-nimpp+1,nlcj-1,jk,jl)
4932 ELSE
4933 ptab(ji,nlcj-1,jk,jl) = psgn * ptab2(iju,ijpjp1,jk,jl)
4934 ENDIF
4935 END DO
4936 END DO; END DO
4937 !$acc end parallel loop
```
### Subroutine lbc_nfd_nogather_4d_ptr_gpu_sp
- Line lbcnfd.f90:5209 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
5209, Complex loop carried dependence of ptab%pt4d$p,ptab2%pt4d$p prevents parallelization
5210, Loop carried dependence of ptab%pt4d$p prevents parallelization
Loop carried backward dependence of ptab%pt4d$p prevents vectorization
Complex loop carried dependence of ptab%pt4d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,ijt,ijta,nimpp,nlcj)
```
```
5208 !$acc parallel loop gang vector
5209 DO jl = 1, ipl; DO jk = 1, ipk
5210 DO ji = startloop, nlci
5211 ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
5212 jia = ji + nimpp - 1
5213 ijta = jpiglo - jia + 2
5214 IF( ijta >= startloop+nimpp-1 .AND. ijta < jia ) THEN
5215 ptab(jf)%pt4d(ji,nlcj-1,jk,jl) = psgn(jf) * ptab(jf)%pt4d(ijta-nimpp+1,nlcj-1,jk,jl)
5216 ELSE
5217 ptab(jf)%pt4d(ji,nlcj-1,jk,jl) = psgn(jf) * ptab2(jf)%pt4d(ijt,ijpjp1,jk,jl)
5218 ENDIF
5219 END DO
5220 END DO; END DO
5221 !$acc end parallel loop
```
- Line lbcnfd.f90:5265 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbcnfd.f90):
```
5265, Complex loop carried dependence of ptab%pt4d$p,ptab2%pt4d$p prevents parallelization
5266, Loop carried dependence of ptab%pt4d$p prevents parallelization
Loop carried backward dependence of ptab%pt4d$p prevents vectorization
Complex loop carried dependence of ptab%pt4d$p,ptab2%pt4d$p prevents parallelization
Generating implicit firstprivate(jia,jpnj,jpiglo,jf,iju,ijua,nlcj,nimpp)
```
```
5264 !$acc parallel loop gang vector
5265 DO jl = 1, ipl; DO jk = 1, ipk
5266 DO ji = startloop, endloop
5267 iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
5268 jia = ji + nimpp - 1
5269 ijua = jpiglo - jia + 1
5270 IF( ijua >= startloop+nimpp-1 .AND. ijua < jia ) THEN
5271 ptab(jf)%pt4d(ji,nlcj-1,jk,jl) = psgn(jf) * ptab(jf)%pt4d(ijua-nimpp+1,nlcj-1,jk,jl)
5272 ELSE
5273 ptab(jf)%pt4d(ji,nlcj-1,jk,jl) = psgn(jf) * ptab2(jf)%pt4d(iju,ijpjp1,jk,jl)
5274 ENDIF
5275 END DO
5276 END DO; END DO
5277 !$acc end parallel loop
```
### Subroutine mpp_lnk_2d_gpu_dp
- Line lbclnk.f90:12906 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
12906, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Complex loop carried dependence of ptab prevents parallelization
Loop is parallelizable
Loop carried backward dependence of ptab prevents vectorization
```
```
12903 !$acc parallel loop gang vector
12904 DO jf = 1, ipf ! number of arrays to be treated
12905 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
12906 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
12907 ptab(ji,jj) = ptab(ihl+1,jj)
12908 END DO ; END DO ; END DO ; END DO
12909 ENDIF
12910 END DO
12911 !$acc end parallel loop
```
- Line lbclnk.f90:13075 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
13075, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Complex loop carried dependence of ptab prevents parallelization
Loop is parallelizable
```
```
13072 !$acc parallel loop gang vector
13073 DO jf = 1, ipf ! number of arrays to be treated
13074 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
13075 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
13076 ptab(ji,jj) = ptab(ji,ihl+1)
13077 END DO ; END DO ; END DO ; END DO
13078 ENDIF
13079 END DO
13080 !$acc end parallel loop
```
### Subroutine mpp_lnk_2d_gpu_sp
- Line lbclnk.f90:10025 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
10025, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Complex loop carried dependence of ptab prevents parallelization
Loop is parallelizable
Loop carried backward dependence of ptab prevents vectorization
```
```
10022 !$acc parallel loop gang vector
10023 DO jf = 1, ipf ! number of arrays to be treated
10024 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
10025 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
10026 ptab(ji,jj) = ptab(ihl+1,jj)
10027 END DO ; END DO ; END DO ; END DO
10028 ENDIF
10029 END DO
10030 !$acc end parallel loop
```
- Line lbclnk.f90:10194 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
10194, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Complex loop carried dependence of ptab prevents parallelization
Loop is parallelizable
```
```
10191 !$acc parallel loop gang vector
10192 DO jf = 1, ipf ! number of arrays to be treated
10193 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
10194 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
10195 ptab(ji,jj) = ptab(ji,ihl+1)
10196 END DO ; END DO ; END DO ; END DO
10197 ENDIF
10198 END DO
10199 !$acc end parallel loop
```
### Subroutine mpp_lnk_2d_ptr_gpu_dp
- Line lbclnk.f90:13385 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
13385, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p prevents parallelization
Loop is parallelizable
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
```
```
13382 !$acc parallel loop gang vector
13383 DO jf = 1, ipf ! number of arrays to be treated
13384 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
13385 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
13386 ptab(jf)%pt2d(ji,jj) = ptab(jf)%pt2d(ihl+1,jj)
13387 END DO ; END DO ; END DO ; END DO
13388 ENDIF
13389 END DO
13390 !$acc end parallel loop
```
- Line lbclnk.f90:13554 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
13554, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p prevents parallelization
Loop is parallelizable
```
```
13551 !$acc parallel loop gang vector
13552 DO jf = 1, ipf ! number of arrays to be treated
13553 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
13554 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
13555 ptab(jf)%pt2d(ji,jj) = ptab(jf)%pt2d(ji,ihl+1)
13556 END DO ; END DO ; END DO ; END DO
13557 ENDIF
13558 END DO
13559 !$acc end parallel loop
```
### Subroutine mpp_lnk_2d_ptr_gpu_sp
- Line lbclnk.f90:10504 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
10504, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p prevents parallelization
Loop is parallelizable
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
```
```
10501 !$acc parallel loop gang vector
10502 DO jf = 1, ipf ! number of arrays to be treated
10503 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
10504 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
10505 ptab(jf)%pt2d(ji,jj) = ptab(jf)%pt2d(ihl+1,jj)
10506 END DO ; END DO ; END DO ; END DO
10507 ENDIF
10508 END DO
10509 !$acc end parallel loop
```
- Line lbclnk.f90:10673 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
10673, Loop carried dependence of ptab%pt2d$p prevents parallelization
Loop carried backward dependence of ptab%pt2d$p prevents vectorization
Complex loop carried dependence of ptab%pt2d$p prevents parallelization
Loop is parallelizable
```
```
10670 !$acc parallel loop gang vector
10671 DO jf = 1, ipf ! number of arrays to be treated
10672 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
10673 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
10674 ptab(jf)%pt2d(ji,jj) = ptab(jf)%pt2d(ji,ihl+1)
10675 END DO ; END DO ; END DO ; END DO
10676 ENDIF
10677 END DO
10678 !$acc end parallel loop
```
### Subroutine mpp_lnk_3d_gpu_dp
- Line lbclnk.f90:13866 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
13866, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Loop is parallelizable
Loop carried backward dependence of ptab prevents vectorization
```
```
13863 !$acc parallel loop gang vector
13864 DO jf = 1, ipf ! number of arrays to be treated
13865 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
13866 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
13867 ptab(ji,jj,jk) = ptab(ihl+1,jj,jk)
13868 END DO ; END DO ; END DO ; END DO
13869 ENDIF
13870 END DO
13871 !$acc end parallel loop
```
- Line lbclnk.f90:14035 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
14035, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Loop is parallelizable
Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Loop is parallelizable
```
```
14032 !$acc parallel loop gang vector
14033 DO jf = 1, ipf ! number of arrays to be treated
14034 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
14035 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
14036 ptab(ji,jj,jk) = ptab(ji,ihl+1,jk)
14037 END DO ; END DO ; END DO ; END DO
14038 ENDIF
14039 END DO
14040 !$acc end parallel loop
```
### Subroutine mpp_lnk_3d_gpu_sp
- Line lbclnk.f90:10985 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
10985, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Loop is parallelizable
Loop carried backward dependence of ptab prevents vectorization
```
```
10982 !$acc parallel loop gang vector
10983 DO jf = 1, ipf ! number of arrays to be treated
10984 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
10985 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
10986 ptab(ji,jj,jk) = ptab(ihl+1,jj,jk)
10987 END DO ; END DO ; END DO ; END DO
10988 ENDIF
10989 END DO
10990 !$acc end parallel loop
```
- Line lbclnk.f90:11154 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
11154, Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Loop is parallelizable
Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Loop is parallelizable
```
```
11151 !$acc parallel loop gang vector
11152 DO jf = 1, ipf ! number of arrays to be treated
11153 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
11154 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
11155 ptab(ji,jj,jk) = ptab(ji,ihl+1,jk)
11156 END DO ; END DO ; END DO ; END DO
11157 ENDIF
11158 END DO
11159 !$acc end parallel loop
```
### Subroutine mpp_lnk_3d_ptr_gpu_dp
- Line lbclnk.f90:14345 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
14345, Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
Loop is parallelizable
Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
```
```
14342 !$acc parallel loop gang vector
14343 DO jf = 1, ipf ! number of arrays to be treated
14344 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
14345 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
14346 ptab(jf)%pt3d(ji,jj,jk) = ptab(jf)%pt3d(ihl+1,jj,jk)
14347 END DO ; END DO ; END DO ; END DO
14348 ENDIF
14349 END DO
14350 !$acc end parallel loop
```
- Line lbclnk.f90:14514 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
14514, Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
Loop is parallelizable
Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop is parallelizable
```
```
14511 !$acc parallel loop gang vector
14512 DO jf = 1, ipf ! number of arrays to be treated
14513 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
14514 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
14515 ptab(jf)%pt3d(ji,jj,jk) = ptab(jf)%pt3d(ji,ihl+1,jk)
14516 END DO ; END DO ; END DO ; END DO
14517 ENDIF
14518 END DO
14519 !$acc end parallel loop
```
### Subroutine mpp_lnk_3d_ptr_gpu_sp
- Line lbclnk.f90:11464 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
11464, Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
Loop is parallelizable
Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
```
```
11461 !$acc parallel loop gang vector
11462 DO jf = 1, ipf ! number of arrays to be treated
11463 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
11464 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
11465 ptab(jf)%pt3d(ji,jj,jk) = ptab(jf)%pt3d(ihl+1,jj,jk)
11466 END DO ; END DO ; END DO ; END DO
11467 ENDIF
11468 END DO
11469 !$acc end parallel loop
```
- Line lbclnk.f90:11633 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
11633, Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop carried backward dependence of ptab%pt3d$p prevents vectorization
Loop is parallelizable
Loop carried dependence of ptab%pt3d$p prevents parallelization
Loop is parallelizable
```
```
11630 !$acc parallel loop gang vector
11631 DO jf = 1, ipf ! number of arrays to be treated
11632 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
11633 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
11634 ptab(jf)%pt3d(ji,jj,jk) = ptab(jf)%pt3d(ji,ihl+1,jk)
11635 END DO ; END DO ; END DO ; END DO
11636 ENDIF
11637 END DO
11638 !$acc end parallel loop
```
### Subroutine mpp_lnk_4d_gpu_dp
- Line lbclnk.f90:14826 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
14826, Loop is parallelizable
Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
```
```
14823 !$acc parallel loop gang vector
14824 DO jf = 1, ipf ! number of arrays to be treated
14825 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
14826 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
14827 ptab(ji,jj,jk,jl) = ptab(ihl+1,jj,jk,jl)
14828 END DO ; END DO ; END DO ; END DO
14829 ENDIF
14830 END DO
14831 !$acc end parallel loop
```
- Line lbclnk.f90:14995 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
14995, Loop is parallelizable
Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Loop is parallelizable
```
```
14992 !$acc parallel loop gang vector
14993 DO jf = 1, ipf ! number of arrays to be treated
14994 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
14995 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
14996 ptab(ji,jj,jk,jl) = ptab(ji,ihl+1,jk,jl)
14997 END DO ; END DO ; END DO ; END DO
14998 ENDIF
14999 END DO
15000 !$acc end parallel loop
```
### Subroutine mpp_lnk_4d_gpu_sp
- Line lbclnk.f90:11945 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
11945, Loop is parallelizable
Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
```
```
11942 !$acc parallel loop gang vector
11943 DO jf = 1, ipf ! number of arrays to be treated
11944 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
11945 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
11946 ptab(ji,jj,jk,jl) = ptab(ihl+1,jj,jk,jl)
11947 END DO ; END DO ; END DO ; END DO
11948 ENDIF
11949 END DO
11950 !$acc end parallel loop
```
- Line lbclnk.f90:12114 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
12114, Loop is parallelizable
Loop carried dependence of ptab prevents parallelization
Loop carried backward dependence of ptab prevents vectorization
Loop is parallelizable
```
```
12111 !$acc parallel loop gang vector
12112 DO jf = 1, ipf ! number of arrays to be treated
12113 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
12114 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
12115 ptab(ji,jj,jk,jl) = ptab(ji,ihl+1,jk,jl)
12116 END DO ; END DO ; END DO ; END DO
12117 ENDIF
12118 END DO
12119 !$acc end parallel loop
```
### Subroutine mpp_lnk_4d_ptr_gpu_dp
- Line lbclnk.f90:15305 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
15305, Loop is parallelizable
Loop carried dependence of ptab%pt4d$p prevents parallelization
Loop carried backward dependence of ptab%pt4d$p prevents vectorization
```
```
15302 !$acc parallel loop gang vector
15303 DO jf = 1, ipf ! number of arrays to be treated
15304 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
15305 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
15306 ptab(jf)%pt4d(ji,jj,jk,jl) = ptab(jf)%pt4d(ihl+1,jj,jk,jl)
15307 END DO ; END DO ; END DO ; END DO
15308 ENDIF
15309 END DO
15310 !$acc end parallel loop
```
- Line lbclnk.f90:15474 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
15474, Loop is parallelizable
Loop carried dependence of ptab%pt4d$p prevents parallelization
Loop carried backward dependence of ptab%pt4d$p prevents vectorization
Loop is parallelizable
```
```
15471 !$acc parallel loop gang vector
15472 DO jf = 1, ipf ! number of arrays to be treated
15473 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
15474 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
15475 ptab(jf)%pt4d(ji,jj,jk,jl) = ptab(jf)%pt4d(ji,ihl+1,jk,jl)
15476 END DO ; END DO ; END DO ; END DO
15477 ENDIF
15478 END DO
15479 !$acc end parallel loop
```
### Subroutine mpp_lnk_4d_ptr_gpu_sp
- Line lbclnk.f90:12424 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
12424, Loop is parallelizable
Loop carried dependence of ptab%pt4d$p prevents parallelization
Loop carried backward dependence of ptab%pt4d$p prevents vectorization
```
```
12421 !$acc parallel loop gang vector
12422 DO jf = 1, ipf ! number of arrays to be treated
12423 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
12424 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, jpj ; DO ji = 1, ihl
12425 ptab(jf)%pt4d(ji,jj,jk,jl) = ptab(jf)%pt4d(ihl+1,jj,jk,jl)
12426 END DO ; END DO ; END DO ; END DO
12427 ENDIF
12428 END DO
12429 !$acc end parallel loop
```
- Line lbclnk.f90:12593 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
12593, Loop is parallelizable
Loop carried dependence of ptab%pt4d$p prevents parallelization
Loop carried backward dependence of ptab%pt4d$p prevents vectorization
Loop is parallelizable
```
```
12590 !$acc parallel loop gang vector
12591 DO jf = 1, ipf ! number of arrays to be treated
12592 IF( .NOT. cd_nat_temp(jf) == 'F' ) THEN ! do nothing for F point
12593 DO jl = 1, ipl ; DO jk = 1, ipk ; DO jj = 1, ihl ; DO ji = 1, jpi
12594 ptab(jf)%pt4d(ji,jj,jk,jl) = ptab(jf)%pt4d(ji,ihl+1,jk,jl)
12595 END DO ; END DO ; END DO ; END DO
12596 ENDIF
12597 END DO
12598 !$acc end parallel loop
```
### Subroutine mpp_nfd_2d_gpu_dp
- Line lbclnk.f90:17527 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
17527, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(js,jl)
```
```
17525 !$acc parallel loop gang vector
17526 DO jf = 1, ipf ! Loop over the number of arrays to be processed
17527 DO jj = 1, ipj_s(jf)
17528 js = idx_s(jf) + jj
17529 DO jl = 1, ipl
17530 DO jk = 1, ipk
17531 znorthloc(1:jpi,js,jk,jl,1) = ptab(1:jpi,jj_s(jf,jj))
17532 END DO
17533 END DO
17534 END DO
17535 END DO
17536 !$acc end parallel loop
```
### Subroutine mpp_nfd_2d_gpu_sp
- Line lbclnk.f90:15699 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
15699, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(js,jl)
```
```
15697 !$acc parallel loop gang vector
15698 DO jf = 1, ipf ! Loop over the number of arrays to be processed
15699 DO jj = 1, ipj_s(jf)
15700 js = idx_s(jf) + jj
15701 DO jl = 1, ipl
15702 DO jk = 1, ipk
15703 znorthloc(1:jpi,js,jk,jl,1) = ptab(1:jpi,jj_s(jf,jj))
15704 END DO
15705 END DO
15706 END DO
15707 END DO
15708 !$acc end parallel loop
```
### Subroutine mpp_nfd_2d_ptr_gpu_dp
- Line lbclnk.f90:17829 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
17829, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(js,jl)
```
```
17827 !$acc parallel loop gang vector
17828 DO jf = 1, ipf ! Loop over the number of arrays to be processed
17829 DO jj = 1, ipj_s(jf)
17830 js = idx_s(jf) + jj
17831 DO jl = 1, ipl
17832 DO jk = 1, ipk
17833 znorthloc(1:jpi,js,jk,jl,1) = ptab(jf)%pt2d(1:jpi,jj_s(jf,jj))
17834 END DO
17835 END DO
17836 END DO
17837 END DO
17838 !$acc end parallel loop
```
### Subroutine mpp_nfd_2d_ptr_gpu_sp
- Line lbclnk.f90:16001 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
16001, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(js,jl)
```
```
15999 !$acc parallel loop gang vector
16000 DO jf = 1, ipf ! Loop over the number of arrays to be processed
16001 DO jj = 1, ipj_s(jf)
16002 js = idx_s(jf) + jj
16003 DO jl = 1, ipl
16004 DO jk = 1, ipk
16005 znorthloc(1:jpi,js,jk,jl,1) = ptab(jf)%pt2d(1:jpi,jj_s(jf,jj))
16006 END DO
16007 END DO
16008 END DO
16009 END DO
16010 !$acc end parallel loop
```
### Subroutine mpp_nfd_3d_gpu_dp
- Line lbclnk.f90:18135 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
18135, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(jl,js)
```
```
18133 !$acc parallel loop gang vector
18134 DO jf = 1, ipf ! Loop over the number of arrays to be processed
18135 DO jj = 1, ipj_s(jf)
18136 js = idx_s(jf) + jj
18137 DO jl = 1, ipl
18138 DO jk = 1, ipk
18139 znorthloc(1:jpi,js,jk,jl,1) = ptab(1:jpi,jj_s(jf,jj),jk)
18140 END DO
18141 END DO
18142 END DO
18143 END DO
18144 !$acc end parallel loop
```
### Subroutine mpp_nfd_3d_gpu_sp
- Line lbclnk.f90:16307 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
16307, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(jl,js)
```
```
16305 !$acc parallel loop gang vector
16306 DO jf = 1, ipf ! Loop over the number of arrays to be processed
16307 DO jj = 1, ipj_s(jf)
16308 js = idx_s(jf) + jj
16309 DO jl = 1, ipl
16310 DO jk = 1, ipk
16311 znorthloc(1:jpi,js,jk,jl,1) = ptab(1:jpi,jj_s(jf,jj),jk)
16312 END DO
16313 END DO
16314 END DO
16315 END DO
16316 !$acc end parallel loop
```
### Subroutine mpp_nfd_3d_ptr_gpu_dp
- Line lbclnk.f90:18437 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
18437, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(js,jl)
```
```
18435 !$acc parallel loop gang vector
18436 DO jf = 1, ipf ! Loop over the number of arrays to be processed
18437 DO jj = 1, ipj_s(jf)
18438 js = idx_s(jf) + jj
18439 DO jl = 1, ipl
18440 DO jk = 1, ipk
18441 znorthloc(1:jpi,js,jk,jl,1) = ptab(jf)%pt3d(1:jpi,jj_s(jf,jj),jk)
18442 END DO
18443 END DO
18444 END DO
18445 END DO
18446 !$acc end parallel loop
```
### Subroutine mpp_nfd_3d_ptr_gpu_sp
- Line lbclnk.f90:16609 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
16609, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(js,jl)
```
```
16607 !$acc parallel loop gang vector
16608 DO jf = 1, ipf ! Loop over the number of arrays to be processed
16609 DO jj = 1, ipj_s(jf)
16610 js = idx_s(jf) + jj
16611 DO jl = 1, ipl
16612 DO jk = 1, ipk
16613 znorthloc(1:jpi,js,jk,jl,1) = ptab(jf)%pt3d(1:jpi,jj_s(jf,jj),jk)
16614 END DO
16615 END DO
16616 END DO
16617 END DO
16618 !$acc end parallel loop
```
### Subroutine mpp_nfd_4d_gpu_dp
- Line lbclnk.f90:18743 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
18743, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(js,jl)
```
```
18741 !$acc parallel loop gang vector
18742 DO jf = 1, ipf ! Loop over the number of arrays to be processed
18743 DO jj = 1, ipj_s(jf)
18744 js = idx_s(jf) + jj
18745 DO jl = 1, ipl
18746 DO jk = 1, ipk
18747 znorthloc(1:jpi,js,jk,jl,1) = ptab(1:jpi,jj_s(jf,jj),jk,jl)
18748 END DO
18749 END DO
18750 END DO
18751 END DO
18752 !$acc end parallel loop
```
### Subroutine mpp_nfd_4d_gpu_sp
- Line lbclnk.f90:16915 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
16915, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(js,jl)
```
```
16913 !$acc parallel loop gang vector
16914 DO jf = 1, ipf ! Loop over the number of arrays to be processed
16915 DO jj = 1, ipj_s(jf)
16916 js = idx_s(jf) + jj
16917 DO jl = 1, ipl
16918 DO jk = 1, ipk
16919 znorthloc(1:jpi,js,jk,jl,1) = ptab(1:jpi,jj_s(jf,jj),jk,jl)
16920 END DO
16921 END DO
16922 END DO
16923 END DO
16924 !$acc end parallel loop
```
### Subroutine mpp_nfd_4d_ptr_gpu_dp
- Line lbclnk.f90:19045 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
19045, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(jl,js)
```
```
19043 !$acc parallel loop gang vector
19044 DO jf = 1, ipf ! Loop over the number of arrays to be processed
19045 DO jj = 1, ipj_s(jf)
19046 js = idx_s(jf) + jj
19047 DO jl = 1, ipl
19048 DO jk = 1, ipk
19049 znorthloc(1:jpi,js,jk,jl,1) = ptab(jf)%pt4d(1:jpi,jj_s(jf,jj),jk,jl)
19050 END DO
19051 END DO
19052 END DO
19053 END DO
19054 !$acc end parallel loop
```
### Subroutine mpp_nfd_4d_ptr_gpu_sp
- Line lbclnk.f90:17217 (nemo.src/cfgs/ORCA2/BLD/ppsrc/nemo/lbclnk.f90):
```
17217, Loop carried reuse of znorthloc prevents parallelization
Generating implicit firstprivate(jl,js)
```
```
17215 !$acc parallel loop gang vector
17216 DO jf = 1, ipf ! Loop over the number of arrays to be processed
17217 DO jj = 1, ipj_s(jf)
17218 js = idx_s(jf) + jj
17219 DO jl = 1, ipl
17220 DO jk = 1, ipk
17221 znorthloc(1:jpi,js,jk,jl,1) = ptab(jf)%pt4d(1:jpi,jj_s(jf,jj),jk,jl)
17222 END DO
17223 END DO
17224 END DO
17225 END DO
17226 !$acc end parallel loop
```
Sign in with Wallet
Connect another wallet