Skip to content
Snippets Groups Projects
Commit aad50ea8 authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan
Browse files

Juan 15/06/2021: turb_ver_thermo_corr.f90,turb_ver_thermo_flux.f90, remove comment "allocate"

parent 8ae3f467
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/turb_ver_thermo_corr.f90
+ 1
− 1
View file @ aad50ea8
......@@ -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
......
src/MNH/turb_ver_thermo_flux.f90
+ 0
− 4
View file @ aad50ea8
......@@ -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 )
......
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