diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90 index 9227a238d2095c195a53021dccd9972b42d10ff4..54f42e0a02d6468b04902d037fa4a3f8c95f198c 100644 --- a/src/MNH/turb_ver_thermo_corr.f90 +++ b/src/MNH/turb_ver_thermo_corr.f90 @@ -497,7 +497,7 @@ izdfddtdz = MNH_ALLOCATE_ZT3D( zdfddtdz ,JIU,JJU,JKU ) izdfddrdz = MNH_ALLOCATE_ZT3D( zdfddrdz ,JIU,JJU,JKU ) izcoeff = MNH_ALLOCATE_ZT3DP( zcoeff,JIU,JJU, i1 , i2 ) -!!$allocate( zcoeff(JIU,JJU, i1 : i2 ) ) + #endif #ifdef MNH_OPENACC diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90 index 9d7775365df74257ee170461d5916a0077367aea..1fe74592b32bab50c7ef316cb62255ed9dff23c6 100644 --- a/src/MNH/turb_ver_thermo_flux.f90 +++ b/src/MNH/turb_ver_thermo_flux.f90 @@ -566,10 +566,6 @@ iz3rdmoment = MNH_ALLOCATE_ZT3D( z3rdmoment,JIU,JJU,JKU ) #endif #ifdef MNH_OPENACC -!!$allocate( ztmp1_device(JIU,JJU,JKU ) ) -!!$allocate( ztmp2_device(JIU,JJU,JKU ) ) -!!$allocate( ztmp3_device(JIU,JJU,JKU ) ) -!!$allocate( ztmp4_device(JIU,JJU,JKU ) ) iztmp1_device = MNH_ALLOCATE_ZT3D( ztmp1_device,JIU,JJU,JKU ) iztmp2_device = MNH_ALLOCATE_ZT3D( ztmp2_device,JIU,JJU,JKU ) iztmp3_device = MNH_ALLOCATE_ZT3D( ztmp3_device,JIU,JJU,JKU )