Juan 16/11/2022:MNH/rain_ice_nucleation.f90,Nvhpc 22.X Bug Bypass ,...

Juan 16/11/2022:MNH/rain_ice_nucleation.f90,Nvhpc 22.X Bug Bypass , "ZZWMAX=MAXVAL()" dont parallelize any-more in GPU -> replace by "!$acc ... reduction(max:ZZWMAX)"

src/MNH/rain_ice_nucleation.f90

@@ -291,8 +291,19 @@ END DO
  DO CONCURRENT ( JL=1:INEGT )
     ZZW(JL) = ZZW(JL) - ZCIT(JL)
  END DO
-  ZZWMAX = MAXVAL(ZZW(1:INEGT))
+#ifndef MNH_COMPILER_NVHPC
+ ZZWMAX = MAXVAL(ZZW(1:INEGT))
 !$acc end kernels
+#else
+!$acc end kernels
+ ZZWMAX = 0.0
+!$acc parallel reduction(max:ZZWMAX)
+ !$mnh_do_concurrent( JL=1:INEGT)
+  ZZWMAX = MAX(ZZWMAX,ZZW(JL))
+ !$mnh_end_do()
+!$acc end parallel 
+#endif 
+
 
   IF( ZZWMAX > 0.0 ) THEN
   !$acc kernels