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

Juan 26/08/2024:mode_emoist.f90, For CRAY/GPU Opt, add present_cr(ZRW)

parent f070758f
No related branches found
No related tags found
No related merge requests found
......@@ -134,7 +134,7 @@ ELSE
!$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)
!$acc end kernels
ELSE ! liquid water & ice present
!$acc kernels
!$acc kernels present_cr(ZRW)
ZDELTA = (CST%XRV/CST%XRD) - 1.
ZRW(:,:) = PRM(:,:,1)
!$acc end kernels
......
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