Skip to content

Commit a7e1122

Browse files
committed
remove Zhao-Carr references from GFS_scnv_generic_post
1 parent 9d3bd17 commit a7e1122

2 files changed

Lines changed: 3 additions & 19 deletions

File tree

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_SCNV_generic_post.F90

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ module GFS_SCNV_generic_post
88
!> \section arg_table_GFS_SCNV_generic_post_run Argument Table
99
!! \htmlinclude GFS_SCNV_generic_post_run.html
1010
!!
11-
subroutine GFS_SCNV_generic_post_run (im, levs, tracers_total, otsptflag, imp_physics, imp_physics_gfdl, imp_physics_zhao_carr, imp_physics_zhao_carr_pdf, tend_opt_scnv, lssav, ldiag3d, qdiag3d, &
11+
subroutine GFS_SCNV_generic_post_run (im, levs, tracers_total, otsptflag, imp_physics, imp_physics_gfdl, tend_opt_scnv, lssav, ldiag3d, qdiag3d, &
1212
frain, gu0, gv0, gt0, gq0, dudt, dvdt, dtdt, dqdt, ten_t, ten_u, ten_v, ten_q, delt, &
1313
clw, dclw, shcnvcw, rain1, npdf3d, num_p3d, ncnvcld3d, cnvc, cnvw, nsamftrac, &
1414
rainc, cnvprcp, cnvw_phy_f3d, cnvc_phy_f3d, &
@@ -23,7 +23,7 @@ subroutine GFS_SCNV_generic_post_run (im, levs, tracers_total, otsptflag, imp_ph
2323
implicit none
2424

2525
integer, intent(in) :: im, levs, ntqv, nsamftrac, tracers_total, tend_opt_scnv
26-
integer, intent(in) :: imp_physics, imp_physics_gfdl, imp_physics_zhao_carr, imp_physics_zhao_carr_pdf
26+
integer, intent(in) :: imp_physics, imp_physics_gfdl
2727
integer, intent(in) :: ntcw,ntiw,ntclamt,ntrw,ntsw,ntrnc,ntsnc,ntgl,ntgnc,ntsigma,ntrac
2828
logical, intent(in) :: lssav, ldiag3d, qdiag3d, flag_for_scnv_generic_tend
2929
logical, dimension(:), intent(in) :: otsptflag
@@ -78,9 +78,7 @@ subroutine GFS_SCNV_generic_post_run (im, levs, tracers_total, otsptflag, imp_ph
7878
enddo
7979
endif
8080
if (ntcw > 0) then
81-
if (imp_physics == imp_physics_zhao_carr .or. &
82-
imp_physics == imp_physics_zhao_carr_pdf .or. &
83-
imp_physics == imp_physics_gfdl) then
81+
if (imp_physics == imp_physics_gfdl) then
8482
ten_q(1:im,:,ntcw) = dclw(1:im,:,1) + dclw(1:im,:,2)
8583
elseif (ntiw > 0) then
8684
ten_q(1:im,:,ntiw) = dclw(1:im,:,1)

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_SCNV_generic_post.meta

Lines changed: 0 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -50,20 +50,6 @@
5050
dimensions = ()
5151
type = integer
5252
intent = in
53-
[imp_physics_zhao_carr]
54-
standard_name = identifier_for_zhao_carr_microphysics_scheme
55-
long_name = choice of Zhao-Carr microphysics scheme
56-
units = flag
57-
dimensions = ()
58-
type = integer
59-
intent = in
60-
[imp_physics_zhao_carr_pdf]
61-
standard_name = identifier_for_zhao_carr_pdf_microphysics_scheme
62-
long_name = choice of Zhao-Carr microphysics scheme with PDF clouds
63-
units = flag
64-
dimensions = ()
65-
type = integer
66-
intent = in
6753
[tend_opt_scnv]
6854
standard_name = control_for_application_method_of_shallow_convection_tendencies
6955
long_name = control for application method of shallow convection tendencies

0 commit comments

Comments
 (0)