diff --git a/CCPP/cu_c3_driver_ccpp.F90 b/CCPP/cu_c3_driver_ccpp.F90 index 7568c6a..996a317 100644 --- a/CCPP/cu_c3_driver_ccpp.F90 +++ b/CCPP/cu_c3_driver_ccpp.F90 @@ -13,7 +13,6 @@ module cu_c3_driver_ccpp - use physcons, only: con_rd, con_fvirt use mod_cu_kinds, only: kind_phys use modNegCheck, only: neg_check use progsigma, only: progsigma_calc @@ -131,7 +130,6 @@ subroutine cu_c3_driver_ccpp_run(mype,ntracer,garea,im,km,dt,flag_init,flag_rest integer, dimension(:), intent(inout), optional :: cactiv, cactiv_m real(kind_phys), dimension(:,:), intent(out) :: ten_t, ten_u, ten_v, dcliw, dclcw real(kind_phys), dimension(:,:,:), intent(out) :: ten_q - character(len=*), intent(out) :: errmsg integer, intent(out) :: errflg @@ -621,7 +619,7 @@ subroutine cu_c3_driver_ccpp_run(mype,ntracer,garea,im,km,dt,flag_init,flag_rest po(i,k) = p2d(i,k) rhoi(i,k) = 100.*p2d(i,k) / & - (con_rd*(temp_new_ADV(i,k)*(1.+con_fvirt*qv_new_ADV(i,k)))) + (r_d*(temp_new_ADV(i,k)*(1.+fv*qv_new_ADV(i,k)))) ! shallow/PBL state tshall(i,k) = temp_new_BL(i,k) @@ -821,8 +819,8 @@ subroutine cu_c3_driver_ccpp_run(mype,ntracer,garea,im,km,dt,flag_init,flag_rest pqen = qv_old(i,1) paph = 100.0_kind_phys * psur(i) - zrho = paph / (con_rd * pten * & - (1.0_kind_phys + con_fvirt*pqen)) + zrho = paph / (r_d * pten * & + (1.0_kind_phys + fv*pqen)) h_sfc_flux(i) = hfx(i) le_sfc_flux(i) = qfx(i) diff --git a/CCPP/cu_c3_driver_ccpp.meta b/CCPP/cu_c3_driver_ccpp.meta index a6f1b49..7f29b6d 100644 --- a/CCPP/cu_c3_driver_ccpp.meta +++ b/CCPP/cu_c3_driver_ccpp.meta @@ -1,7 +1,7 @@ [ccpp-table-properties] name = cu_c3_driver_ccpp type = scheme - dependencies = ../../../hooks/machine.F ../../../hooks/physcons.F90 + dependencies = ../../../hooks/machine.F dependencies = ../modGate.F90,../modConstants.F90,../modHenrysLawCts.F90,../modVector.F90,../module_cu_c3.F90,../mod_cu_kinds.F90, ../modNegCheck.F90 dependencies = ../../progsigma_calc.f90 ########################################################################