@@ -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 )
0 commit comments