Skip to content
Snippets Groups Projects
Commit ad9ff3b9 authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

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
parent 2131efd0
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment