From aad50ea87e6436db4c79151dc993eda51400143a Mon Sep 17 00:00:00 2001 From: Juan Escobar <juan.escobar@aero.obs-mip.fr> Date: Tue, 15 Jun 2021 17:37:56 +0200 Subject: [PATCH] Juan 15/06/2021: turb_ver_thermo_corr.f90,turb_ver_thermo_flux.f90, remove comment "allocate" --- src/MNH/turb_ver_thermo_corr.f90 | 2 +- src/MNH/turb_ver_thermo_flux.f90 | 4 ---- 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90 index 9227a238d..54f42e0a0 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 9d7775365..1fe74592b 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 ) -- GitLab