diff --git a/src/MNH/advection_uvw.f90 b/src/MNH/advection_uvw.f90 index 591497a744c8fd36243b5588aad37828877a8e6a..d005a36253abda9e818988769e609c91e7d85763 100644 --- a/src/MNH/advection_uvw.f90 +++ b/src/MNH/advection_uvw.f90 @@ -490,6 +490,7 @@ if ( lbudget_w ) call Budget_store_end( tbudgets(NBUDGET_W), 'ADV', prws(:, :, : !------------------------------------------------------------------------------- ! #ifdef MNH_OPENACC +CALL MNH_REL_ZT4D(3, IIBMS ) CALL MNH_REL_ZT4D(ISPL, IZRWSB) CALL MNH_REL_ZT4D(ISPL, IZRVSB) CALL MNH_REL_ZT4D(ISPL, IZRUSB)