Skip to content

Remove direct physcons module dependencies from C3 #4

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
scrasmussen wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Remove direct physcons module dependencies from C3 #4

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 3 additions & 5 deletions CCPP/cu_c3_driver_ccpp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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)
Expand Down Expand Up @@ -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)
Expand Down
2 changes: 1 addition & 1 deletion CCPP/cu_c3_driver_ccpp.meta
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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
########################################################################
Expand Down