diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90 index 56ee3d7292c4380ae360981d89e8cf24d0a19a20..c045f7a7dcb61bbf6544028246bc29d64c716fbe 100644 --- a/src/MNH/turb_ver_thermo_corr.f90 +++ b/src/MNH/turb_ver_thermo_corr.f90 @@ -1477,7 +1477,9 @@ end if !$acc end data -#ifdef MNH_OPENACC +#ifndef MNH_OPENACC +deallocate( zflxz, zkeff, zf , zdfddtdz , zdfddrdz , zcoeff ) +#else CALL MNH_REL_ZT3D(IZFLXZ,IZKEFF,IZF,IZDFDDTDZ,IZDFDDRDZ,IZCOEFF,& IZTMP1_DEVICE,IZTMP2_DEVICE,IZTMP3_DEVICE,IZTMP4_DEVICE,& IZTMP5_DEVICE,IZTMP6_DEVICE,IZTMP7_DEVICE,IZTMP8_DEVICE ) diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90 index 866cfd40724bc16eea707263cd9532cc6ce82169..a7f75d118067caa156e90eb255d828834dfdd6d9 100644 --- a/src/MNH/turb_ver_thermo_flux.f90 +++ b/src/MNH/turb_ver_thermo_flux.f90 @@ -1513,7 +1513,9 @@ end if !$acc end data -#ifdef MNH_OPENACC +#ifndef MNH_OPENACC +deallocate(za,zflxz,zsource,zkeff,zf,zdfddtdz,zdfddrdz,z3rdmoment) +#else CALL MNH_REL_ZT3D(IZA, IZFLXZ, IZSOURCE, IZKEFF, IZF, IZDFDDTDZ, IZDFDDRDZ, IZ3RDMOMENT, & IZTMP1_DEVICE, IZTMP2_DEVICE, IZTMP3_DEVICE, IZTMP4_DEVICE) #endif