Skip to content

Commit

Permalink
Merge pull request #102 from grantfirl/ufs-dev-PR88
Browse files Browse the repository at this point in the history
UFS-dev PR#88
  • Loading branch information
grantfirl authored Nov 2, 2023
2 parents 8db61ec + 8d7118e commit 170e696
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 1 deletion.
4 changes: 4 additions & 0 deletions ccpp/data/CCPP_typedefs.F90
Original file line number Diff line number Diff line change
Expand Up @@ -929,6 +929,8 @@ subroutine gfs_interstitial_setup_tracers(Interstitial, Model)
if (Model%imp_physics == Model%imp_physics_thompson) then
if (Model%ltaerosol) then
Interstitial%nvdiff = 12
else if (Model%mraerosol) then
Interstitial%nvdiff = 10
else
Interstitial%nvdiff = 9
endif
Expand Down Expand Up @@ -1018,6 +1020,8 @@ subroutine gfs_interstitial_setup_tracers(Interstitial, Model)
elseif (Model%imp_physics == Model%imp_physics_thompson) then
if (Model%ltaerosol) then
Interstitial%nvdiff = 12
else if (Model%mraerosol) then
Interstitial%nvdiff = 10
else
Interstitial%nvdiff = 9
endif
Expand Down
2 changes: 1 addition & 1 deletion ccpp/physics

0 comments on commit 170e696

Please sign in to comment.