Skip to content

Commit 14d0aad

Browse files
committed
remove veg-dependent opt_diag used in hr3
1 parent 53062d6 commit 14d0aad

File tree

2 files changed

+1
-20
lines changed

2 files changed

+1
-20
lines changed

physics/SFC_Layer/UFS/sfc_diag_post.F90

+1-13
Original file line numberDiff line numberDiff line change
@@ -14,15 +14,14 @@ module sfc_diag_post
1414
!!
1515
#endif
1616
subroutine sfc_diag_post_run (im, lsm, lsm_noahmp, opt_diag, dry, lssav, dtf, con_eps, con_epsm1, pgr,&
17-
vegtype,t2mmp,q2mp, t2m, q2m, u10m, v10m, tmpmin, tmpmax, spfhmin, spfhmax, &
17+
t2mmp,q2mp, t2m, q2m, u10m, v10m, tmpmin, tmpmax, spfhmin, spfhmax, &
1818
wind10mmax, u10mmax, v10mmax, dpt2m, errmsg, errflg)
1919

2020
use machine, only: kind_phys, kind_dbl_prec
2121

2222
implicit none
2323

2424
integer, intent(in) :: im, lsm, lsm_noahmp,opt_diag
25-
integer, dimension(:), intent(in) :: vegtype ! vegetation type (integer index)
2625
logical, intent(in) :: lssav
2726
real(kind=kind_phys), intent(in) :: dtf, con_eps, con_epsm1
2827
logical , dimension(:), intent(in) :: dry
@@ -42,17 +41,6 @@ subroutine sfc_diag_post_run (im, lsm, lsm_noahmp, opt_diag, dry, lssav, dtf, co
4241
errflg = 0
4342

4443
if (lsm == lsm_noahmp) then
45-
! over shrublands use opt_diag=2
46-
do i=1, im
47-
if(dry(i)) then
48-
if (vegtype(i) == 6 .or. vegtype(i) == 7 &
49-
.or. vegtype(i) == 16) then
50-
t2m(i) = t2mmp(i)
51-
q2m(i) = q2mp(i)
52-
endif
53-
endif
54-
enddo
55-
5644
if (opt_diag == 2 .or. opt_diag == 3) then
5745
do i=1,im
5846
if(dry(i)) then

physics/SFC_Layer/UFS/sfc_diag_post.meta

-7
Original file line numberDiff line numberDiff line change
@@ -82,13 +82,6 @@
8282
type = real
8383
kind = kind_phys
8484
intent = in
85-
[vegtype]
86-
standard_name = vegetation_type_classification
87-
long_name = vegetation type at each grid cell
88-
units = index
89-
dimensions = (horizontal_loop_extent)
90-
type = integer
91-
intent= in
9285
[t2mmp]
9386
standard_name = temperature_at_2m_from_noahmp
9487
long_name = 2 meter temperature from noahmp

0 commit comments

Comments
 (0)