Juan 19/04/2024:turb.f90, Pb with nvhpc/23.11 & GPU Memory -> add...

Juan 19/04/2024:turb.f90, Pb with nvhpc/23.11 & GPU Memory -> add mnh_expand_array to bypass compiler bug

src/MNH/turb.f90

@@ -767,12 +767,14 @@ END IF
 !
 !*      2.3 dissipative heating coeff a t
 !
-ZCOEF_DISS(:,:,:) = 1/(ZCP(:,:,:) * ZEXN(:,:,:)) 
+!$mnh_expand_array(JI=1:JIU,JJ=1:JJU,JK=1:JKU)
+ZCOEF_DISS(:,:,:) = 1.0/(ZCP(:,:,:) * ZEXN(:,:,:)) 
 !
 !
 ZFRAC_ICE(:,:,:) = 0.0
 ZATHETA(:,:,:) = 0.0
 ZAMOIST(:,:,:) = 0.0
+!$mnh_end_expand_array()
 !$acc end kernels
 !
 IF (KRRL >=1) THEN
@@ -1100,6 +1102,7 @@ ENDIF
 !*       4.6 compute the surface tangential fluxes
 !
 !$acc kernels present_cr(ZTAU22M,ZTAU33M)
+!$mnh_expand_array(JI=1:JIU,JJ=1:JJU)     
 ZTAU11M(:,:) =2./3.*(  (1.+ (PZZ (:,:,IKB+KKL)-PZZ (:,:,IKB))  &
                            /(PDZZ(:,:,IKB+KKL)+PDZZ(:,:,IKB))  &
                        )   *PTKET(:,:,IKB)                   &
@@ -1108,6 +1111,7 @@ ZTAU11M(:,:) =2./3.*(  (1.+ (PZZ (:,:,IKB+KKL)-PZZ (:,:,IKB))  &
 ZTAU12M(:,:) =0.0
 ZTAU22M(:,:) =ZTAU11M(:,:)
 ZTAU33M(:,:) =ZTAU11M(:,:)
+!$mnh_end_expand_array()
 !
 !*       4.7 third order terms in temperature and water fluxes and correlations
 !            ------------------------------------------------------------------
@@ -1904,6 +1908,7 @@ CALL MNH_MEM_GET( zdrvsatdt, jiu, jju, jku )
 #endif
 !$acc end kernels
 !$acc kernels present_cr(ZRVSAT,ZDRVSATDT)
+!$mnh_expand_array(JI=1:JIU,JJ=1:JJU,JK=1:JKU)
 !
 !*      1.3 saturation  mixing ratio at t
 !
@@ -1918,6 +1923,7 @@ CALL MNH_MEM_GET( zdrvsatdt, jiu, jju, jku )
 !
   PAMOIST(:,:,:)=  0.5 / ( 1.0 + ZDRVSATDT(:,:,:) * PLOCPEXN(:,:,:) )
 !
+!$mnh_end_expand_array()  
 !$acc end kernels  
 !$acc kernels  
 !*      1.6 compute Atheta