Skip to content
Snippets Groups Projects
Commit c90c69ca authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 10/09/2021: OpenACC fix: add missing MNH_REL_ZT4D

parent c8c059c0
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/advection_uvw.f90
+ 1
− 0
View file @ c90c69ca
...@@ -490,6 +490,7 @@ if ( lbudget_w ) call Budget_store_end( tbudgets(NBUDGET_W), 'ADV', prws(:, :, : ...@@ -490,6 +490,7 @@ if ( lbudget_w ) call Budget_store_end( tbudgets(NBUDGET_W), 'ADV', prws(:, :, :
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
#ifdef MNH_OPENACC #ifdef MNH_OPENACC
CALL MNH_REL_ZT4D(3, IIBMS )
CALL MNH_REL_ZT4D(ISPL, IZRWSB) CALL MNH_REL_ZT4D(ISPL, IZRWSB)
CALL MNH_REL_ZT4D(ISPL, IZRVSB) CALL MNH_REL_ZT4D(ISPL, IZRVSB)
CALL MNH_REL_ZT4D(ISPL, IZRUSB) CALL MNH_REL_ZT4D(ISPL, IZRUSB)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme