Philippe 06/12/2021: OpenACC: correct status and update of PRTHLS

src/MNH/turb.f90

@@ -496,7 +496,8 @@ INTEGER  :: JLU_ZRM, JLU_TURB, JJU_ORMC01, JKU_CLOUD, JKU_TURB
 ! INOUT variables
 !
 !$acc &    create ( PBL_DEPTH, PSBL_DEPTH, PTHLT, PRT,                                     &
-!$acc &             PRUS, PRVS, PRWS, PRTHLS, PRTKES, PRRS, PRSVS )                        &
+!$acc &             PRUS, PRVS, PRWS, PRTKES, PRRS, PRSVS )                                &
+!$acc &    present( PRTHLS )                                                               &
 !
 ! OUT variables
 !
@@ -1436,10 +1437,11 @@ IF ( KRRL >= 1 ) THEN
   END IF
 END IF
 
-!$acc update self(PRRS,PTHLT,PRTHLS)
 
 ! Remove non-physical negative values (unnecessary in a perfect world) + corresponding budgets
 call Sources_neg_correct( hcloud, 'NETUR', krr, ptstep, ppabst, pthlt, prt, prthls, prrs, prsvs )
+!$acc update self( PTHLT ) !PTHLT not modified in Sources_neg_correct
+!$acc update self( PRTHLS, PRRS )
 
 !----------------------------------------------------------------------------
 !

src/ZSOLVER/turb.f90

@@ -496,7 +496,8 @@ INTEGER  :: JLU_ZRM, JLU_TURB, JJU_ORMC01, JKU_CLOUD, JKU_TURB
 ! INOUT variables
 !
 !$acc &    create ( PBL_DEPTH, PSBL_DEPTH, PTHLT, PRT,                                     &
-!$acc &             PRUS, PRVS, PRWS, PRTHLS, PRTKES, PRRS, PRSVS )                        &
+!$acc &             PRUS, PRVS, PRWS, PRTKES, PRRS, PRSVS )                                &
+!$acc &    present( PRTHLS )                                                               &
 !
 ! OUT variables
 !
@@ -1436,10 +1437,11 @@ IF ( KRRL >= 1 ) THEN
   END IF
 END IF
 
-!$acc update self(PRRS,PTHLT,PRTHLS)
 
 ! Remove non-physical negative values (unnecessary in a perfect world) + corresponding budgets
 call Sources_neg_correct( hcloud, 'NETUR', krr, ptstep, ppabst, pthlt, prt, prthls, prrs, prsvs )
+!$acc update self( PTHLT ) !PTHLT not modified in Sources_neg_correct
+!$acc update self( PRTHLS, PRRS )
 
 !----------------------------------------------------------------------------
 !