Skip to content

Minor bug fixes to unified_ugwp.F90 and drag_suite.F90 #532

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

Merged
climbfuji merged 3 commits into from
Dec 18, 2020
Merged

Minor bug fixes to unified_ugwp.F90 and drag_suite.F90 #532

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
e630831
Minor bug fixes to unified_ugwp.F90 and drag_suite.F90
mdtoyNOAA Dec 15, 2020
ea6858b
Added Apache license statement in README.md
mdtoyNOAA Dec 16, 2020
8c2323d
Merge branch 'master' of https://github.com/NCAR/ccpp-physics into un…
mdtoyNOAA Dec 17, 2020
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
2 changes: 1 addition & 1 deletion physics/drag_suite.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1260,7 +1260,7 @@ subroutine drag_suite_run( &
eng1 = 0.5*( (rcs*(u1(i,k)+(dtaux+dtauxb)*deltim))**2 + &
(rcs*(v1(i,k)+(dtauy+dtauyb)*deltim))**2 )
! Modify theta tendency
dtdt(i,k) = dtdt(i,k) + max((eng0-eng1),0.0)/cp/deltim/prslk(i,k)
dtdt(i,k) = dtdt(i,k) + max((eng0-eng1),0.0)/cp/deltim
end if

dusfc(i) = dusfc(i) + taud_ls(i,k)*xn(i)*del(i,k) + taud_bl(i,k)*xn(i)*del(i,k)
Expand Down
3 changes: 2 additions & 1 deletion physics/unified_ugwp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -244,7 +244,8 @@ subroutine unified_ugwp_run(me, master, im, levs, ntrac, dtp, fhzero, kdt,
integer, intent(in) :: gwd_opt
integer, intent(in), dimension(im) :: kpbl
real(kind=kind_phys), intent(in), dimension(im) :: oro, oro_uf, hprime, oc, theta, sigma, gamma
real(kind=kind_phys), intent(in), dimension(im) :: varss,oc1ss,oa4ss,ol4ss,dx
real(kind=kind_phys), intent(in), dimension(im) :: varss,oc1ss,dx
real(kind=kind_phys), intent(in), dimension(im,4) :: oa4ss,ol4ss
logical, intent(in) :: flag_for_gwd_generic_tend
! elvmax is intent(in) for CIRES UGWP, but intent(inout) for GFS GWDPS
real(kind=kind_phys), intent(inout), dimension(im) :: elvmax
Expand Down