From 3a0eec46b5f8f7a12cfe6034380ca702a2f40aed Mon Sep 17 00:00:00 2001 From: christopherwharrop-noaa Date: Sat, 10 Aug 2024 17:09:24 +0000 Subject: [PATCH] Remove debug option for nvhpc, appears to be a compiler bug --- ref/cmake/compiler_flags_NVHPC_Fortran.cmake | 2 +- ref/src/cu_gf_deep.F90 | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/ref/cmake/compiler_flags_NVHPC_Fortran.cmake b/ref/cmake/compiler_flags_NVHPC_Fortran.cmake index bffb763..1cad5f0 100644 --- a/ref/cmake/compiler_flags_NVHPC_Fortran.cmake +++ b/ref/cmake/compiler_flags_NVHPC_Fortran.cmake @@ -14,7 +14,7 @@ set( CMAKE_Fortran_FLAGS_RELEASE "-fast -mp -Mnovect" ) # DEBUG FLAGS #################################################################### -set( CMAKE_Fortran_FLAGS_DEBUG "${CMAKE_Fortran_FLAGS_DEBUG} -O0 -Mbounds -Mchkptr -Mchkstk -Ktrap=fp" ) +set( CMAKE_Fortran_FLAGS_DEBUG "${CMAKE_Fortran_FLAGS_DEBUG} -O0 -Mbounds -Mchkptr -Mchkstk" ) #################################################################### # FLAGS FOR GPU diff --git a/ref/src/cu_gf_deep.F90 b/ref/src/cu_gf_deep.F90 index be9cf0c..ae11695 100644 --- a/ref/src/cu_gf_deep.F90 +++ b/ref/src/cu_gf_deep.F90 @@ -494,7 +494,6 @@ subroutine cu_gf_deep_run( & !- zws for shallow convection closure (grant 2001) !- height of the pbl zws(i) = max(0.,.001-flux_tun(i)*0.41*buo_flux*zo(i,kpbl(i))*g/t(i,kpbl(i))) - write(*,'(I5,E20.10)') i, zws(i) zws(i) = 1.2*zws(i)**.3333 zws(i) = zws(i)*rho(i,kpbl(i)) !check if zrho is correct enddo