Quentin 26/09/2024: add kernels ice4_warm

src/PHYEX/micro/mode_ice4_warm.f90

@@ -91,6 +91,8 @@ IF (LHOOK) CALL DR_HOOK('ICE4_WARM', 0, ZHOOK_HANDLE)
 !
 !*       4.2    compute the autoconversion of r_c for r_r production: RCAUTR
 !
+!$acc kernels
+!$acc loop independent
 DO JL=1, KSIZE
   IF(PHLC_HRC(JL)>ICED%XRTMIN(2) .AND. PHLC_HCF(JL)>0. .AND. LDCOMPUTE(JL)) THEN
     IF(.NOT. LDSOFT) THEN
@@ -106,12 +108,15 @@ DO JL=1, KSIZE
     PRCAUTR(JL) = 0.
   ENDIF
 ENDDO
+!$acc end kernels
 !
 !
 !*       4.3    compute the accretion of r_c for r_r production: RCACCR
 !
 IF (HSUBG_RC_RR_ACCR=='NONE') THEN
   !CLoud water and rain are diluted over the grid box
+!$acc kernels
+!$acc loop independent
   DO JL=1, KSIZE
     IF(PRCT(JL)>ICED%XRTMIN(2) .AND. PRRT(JL)>ICED%XRTMIN(3) .AND. LDCOMPUTE(JL)) THEN
       IF(.NOT. LDSOFT) THEN
@@ -123,7 +128,7 @@ IF (HSUBG_RC_RR_ACCR=='NONE') THEN
       PRCACCR(JL) = 0.
     ENDIF
   ENDDO
-
+!$acc end kernels
 ELSEIF (HSUBG_RC_RR_ACCR=='PRFR') THEN
   !Cloud water is concentrated over its fraction with possibly to parts with high and low content as set for autoconversion
   !Rain is concentrated over its fraction
@@ -132,6 +137,8 @@ ELSEIF (HSUBG_RC_RR_ACCR=='PRFR') THEN
   ! if PRF<PCF (rain is entirely falling in cloud): PRF-PHLC_HCF
   ! if PRF>PCF (rain is falling in cloud and in clear sky): PCF-PHLC_HCF
   ! => min(PCF, PRF)-PHLC_HCF
+!$acc kernels
+!$acc loop independent
   DO JL=1, KSIZE
     LMASK = PRCT(JL)>ICED%XRTMIN(2) .AND. PRRT(JL)>ICED%XRTMIN(3) .AND. LDCOMPUTE(JL)
     LMASK1 = LMASK .AND. PHLC_HRC(JL)>ICED%XRTMIN(2) .AND. PHLC_HCF(JL)>0.
@@ -170,6 +177,7 @@ ELSEIF (HSUBG_RC_RR_ACCR=='PRFR') THEN
       PRCACCR(JL)=0.
     ENDIF
   ENDDO
+!$acc end kernels
 ELSE
   CALL PRINT_MSG(NVERB_FATAL,'GEN','ICE4_WARM','wrong HSUBG_RC_RR_ACCR case')
 ENDIF
@@ -177,6 +185,8 @@ ENDIF
 !*       4.4    compute the evaporation of r_r: RREVAV
 !
 IF (HSUBG_RR_EVAP=='NONE') THEN
+!$acc kernels
+!$acc loop independent
   DO JL=1, KSIZE
     IF(PRRT(JL)>ICED%XRTMIN(3) .AND. PRCT(JL)<=ICED%XRTMIN(2) .AND. LDCOMPUTE(JL)) THEN
       IF(.NOT. LDSOFT) THEN
@@ -191,6 +201,7 @@ IF (HSUBG_RR_EVAP=='NONE') THEN
       PRREVAV(JL)=0.
     ENDIF
   ENDDO
+!$acc end kernels
 
 ELSEIF (HSUBG_RR_EVAP=='CLFR' .OR. HSUBG_RR_EVAP=='PRFR') THEN
   !ATTENTION
@@ -199,6 +210,8 @@ ELSEIF (HSUBG_RR_EVAP=='CLFR' .OR. HSUBG_RR_EVAP=='PRFR') THEN
   !et plusieurs versions (comme actuellement, en ciel clair, en ciel nuageux) de PKA, PDV, PCJ dans rain_ice
   !On utiliserait la bonne version suivant l'option NONE, CLFR... dans l'évaporation et ailleurs
 
+!$acc kernels
+!$acc loop independent
   DO JL=1, KSIZE
     !Evaporation in clear sky part
     !With CLFR, rain is diluted over the grid box
@@ -241,7 +254,7 @@ ELSEIF (HSUBG_RR_EVAP=='CLFR' .OR. HSUBG_RR_EVAP=='PRFR') THEN
       PRREVAV(JL)=0.
     ENDIF
   ENDDO
-
+!$acc end kernels
 ELSE
   CALL PRINT_MSG(NVERB_FATAL,'GEN','ICE4_WARM','wrong HSUBG_RR_EVAP case')
 END IF