diff --git a/src/MNH/condensation.f90 b/src/MNH/condensation.f90 index f3fb77c5b68dd3f235902c984080bee3856a0377..771779ed4b2a651279f53c517e288f7cedad15ed 100644 --- a/src/MNH/condensation.f90 +++ b/src/MNH/condensation.f90 @@ -301,15 +301,19 @@ DO JK=IKTB,IKTE END DO END DO END DO +!$acc end kernels !------------------------------------------------------------------------------- ! Preliminary calculations ! latent heat of vaporisation/sublimation IF(GPRESENT_PLV .AND. GPRESENT_PLS) THEN !$acc data present( PLV, PLS ) +!$acc kernels ZLV(:,:,:)=PLV(:,:,:) ZLS(:,:,:)=PLS(:,:,:) +!$acc end kernels !$acc end data ELSE +!$acc kernels DO JK=IKTB,IKTE DO JJ=KJB,KJE DO JI=KIB,KIE @@ -320,12 +324,16 @@ ELSE ENDDO ENDDO ENDDO +!$acc end kernels ENDIF IF(GPRESENT_PCPH) THEN !$acc data present( PCPH ) +!$acc kernels ZCPD(:,:,:)=PCPH(:,:,:) +!$acc end kernels !$acc end data ELSE +!$acc kernels DO JK=IKTB,IKTE DO JJ=KJB,KJE DO JI=KIB,KIE @@ -334,8 +342,10 @@ ELSE ENDDO ENDDO ENDDO +!$acc end kernels ENDIF !------------------------------------------------------------------------------- +!$acc kernels ! Preliminary calculations needed for computing the "turbulent part" of Sigma_s IF ( .NOT. OSIGMAS ) THEN DO JK=IKTB,IKTE