Juan 04/11/2022:ZSOLVER/dotprod.f90 Bitrep PB with CCE >= 1402, move JK...

Juan 04/11/2022:ZSOLVER/dotprod.f90 Bitrep PB with CCE >= 1402, move JK scalar/seq loop upper , or cce/14.X will parallelize it !!!

src/ZSOLVER/dotprod.f90

@@ -185,15 +185,17 @@ CALL MNH_MEM_GET(ZDOTPROD, ILBXB,ILBXE ,ILBYB,ILBYE )
 #endif
 !$acc kernels present(ZDOTPROD)
 ZDOTPROD(:,:)    = 0.
-#ifdef MNH_COMPILER_NVHPC   
-   !$acc loop independent collapse(2) 
-#endif
-   DO CONCURRENT (JI=ILBXB:ILBXE,JJ=ILBYB:ILBYE)
-      !$acc loop seq
-      DO JK = IKB-1,IKE+1
+!$acc loop seq
+!dir nextscalar
+DO JK = IKB-1,IKE+1
+   !DO CONCURRENT (JI=ILBXB:ILBXE,JJ=ILBYB:ILBYE)
+   !$acc loop collapse(2) independent
+   DO JJ = ILBYB,ILBYE
+      DO JI = ILBXB,ILBXE  
          ZDOTPROD(JI,JJ) = ZDOTPROD(JI,JJ) + PA(JI,JJ,JK) * PB(JI,JJ,JK)
       END DO
    END DO
+END DO
 !$acc end kernels
 !$acc update host(ZDOTPROD)
 PDOTPROD = SUM_DD_R2_ll(ZDOTPROD)