Juan 16/06/2023:ZSOLVER/* , For Nvhpc , remove duplicate "!$acc loop"...

Juan 16/06/2023:ZSOLVER/* , For Nvhpc , remove duplicate "!$acc loop" introduced by use of mnh_do_conncurrent

src/ZSOLVER/gdiv.f90

@@ -223,28 +223,16 @@ CALL CONTRAV_DEVICE(HLBCX,HLBCY,PU,PV,PW,PDXX,PDYY,PDZZ,PDZX,PDZY,ZUC,ZVC,ZWC,4,
 !              ----------------------
 !
 !$acc kernels
-#ifdef MNH_COMPILER_NVHPC
-!$acc loop independent collapse(3)
-#endif
 !$mnh_do_concurrent (JI=1:IIU,JJ=1:IJU,JK=1:IKU)
    PGDIV(JI,JJ,JK)=0. !usefull for the four corners and halo zones
 !$mnh_end_do()
 !
-#ifdef MNH_COMPILER_NVHPC
-!$acc loop independent collapse(3) 
-#endif
 !$mnh_do_concurrent (JI=IIB:IIE,JJ=1:IJU,JK=1:IKU)
    Z1(JI,JJ,JK)=ZUC(JI+IIB+1-(IIB) ,JJ,JK)-ZUC(JI,JJ,JK)
 !$mnh_end_do()
-#ifdef MNH_COMPILER_NVHPC
-!$acc loop independent collapse(3) 
-#endif
 !$mnh_do_concurrent (JI=1:IIU,JJ=IJB:IJE,JK=1:IKU)
    Z2(JI,JJ,JK)=ZVC(JI,JJ+IJB+1-(IJB) ,JK)-ZVC(JI,JJ,JK)
 !$mnh_end_do()
-#ifdef MNH_COMPILER_NVHPC
-!$acc loop independent collapse(3) 
-#endif
 !$mnh_do_concurrent (JI=1:IIU,JJ=1:IJU,JK=IKB:IKE)
    Z3(JI,JJ,JK)=ZWC(JI,JJ,JK+IKB+1-(IKB) )-ZWC(JI,JJ,JK)
 !$mnh_end_do()

src/ZSOLVER/rain_ice_red.f90

@@ -1476,7 +1476,6 @@ IF(HSUBG_AUCV_RC=='PDF ' .AND. CSUBG_PR_PDF=='SIGM') GTEST=.true.
 #endif
 
 IF(IMICRO>0) THEN
-!acc loop independent
   !$mnh_do_concurrent(JL=1:IMICRO)
     ZRVT(JL) = PRVT(I1(JL),I2(JL),I3(JL))
     ZRCT(JL) = PRCT(I1(JL),I2(JL),I3(JL))
@@ -2114,7 +2113,6 @@ end if
 IF(GEXT_TEND) THEN
 !$acc kernels
   !Z..T variables contain the exeternal tendency, we substract it
-!$acc loop independent
   !$mnh_do_concurrent ( JL = 1 : IMICRO )
     ZRVT(JL) = ZRVT(JL) - ZEXT_RV(JL) * PTSTEP
     ZRCT(JL) = ZRCT(JL) - ZEXT_RC(JL) * PTSTEP
@@ -2127,7 +2125,6 @@ IF(GEXT_TEND) THEN
 !$acc end kernels
   IF (KRR==7) THEN
 !$acc kernels
-!$acc loop independent
     !$mnh_do_concurrent ( JL = 1 : IMICRO )
       ZRHT(JL) = ZRHT(JL) - ZEXT_RH(JL) * PTSTEP
     !$mnh_end_do()