remove veg-dependent opt_diag used in hr3

physics/SFC_Layer/UFS/sfc_diag_post.F90

@@ -14,15 +14,14 @@ module sfc_diag_post
 !!
 #endif
       subroutine sfc_diag_post_run (im, lsm, lsm_noahmp, opt_diag, dry, lssav, dtf, con_eps, con_epsm1, pgr,&
-                 vegtype,t2mmp,q2mp, t2m, q2m, u10m, v10m, tmpmin, tmpmax, spfhmin, spfhmax,                  &
+                 t2mmp,q2mp, t2m, q2m, u10m, v10m, tmpmin, tmpmax, spfhmin, spfhmax,                  &
                          wind10mmax, u10mmax, v10mmax, dpt2m, errmsg, errflg)
 
         use machine,               only: kind_phys, kind_dbl_prec
 
         implicit none
 
         integer,                             intent(in) :: im, lsm, lsm_noahmp,opt_diag
-        integer,              dimension(:),  intent(in) :: vegtype    !  vegetation type (integer index)
         logical,                             intent(in) :: lssav
         real(kind=kind_phys),                intent(in) :: dtf, con_eps, con_epsm1
         logical             , dimension(:),  intent(in) :: dry
@@ -42,17 +41,6 @@ subroutine sfc_diag_post_run (im, lsm, lsm_noahmp, opt_diag, dry, lssav, dtf, co
         errflg = 0
 
         if (lsm == lsm_noahmp) then
-!     over shrublands use opt_diag=2
-          do i=1, im
-           if(dry(i)) then
-             if (vegtype(i) == 6 .or. vegtype(i) == 7  & 
-                .or. vegtype(i) == 16) then
-              t2m(i) = t2mmp(i)
-              q2m(i) = q2mp(i)
-             endif
-           endif
-          enddo
-
          if (opt_diag == 2 .or. opt_diag == 3) then
           do i=1,im
             if(dry(i)) then

physics/SFC_Layer/UFS/sfc_diag_post.meta

@@ -82,13 +82,6 @@
   type = real
   kind = kind_phys
   intent = in
-[vegtype]
-  standard_name = vegetation_type_classification
-  long_name = vegetation type at each grid cell
-  units = index
-  dimensions = (horizontal_loop_extent)
-  type = integer
-  intent= in
 [t2mmp]
   standard_name = temperature_at_2m_from_noahmp
   long_name = 2 meter temperature from noahmp