@@ -14,15 +14,14 @@ module sfc_diag_post
14
14
!!
15
15
#endif
16
16
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 , &
18
18
wind10mmax , u10mmax , v10mmax , dpt2m , errmsg , errflg )
19
19
20
20
use machine, only: kind_phys, kind_dbl_prec
21
21
22
22
implicit none
23
23
24
24
integer , intent (in ) :: im, lsm, lsm_noahmp,opt_diag
25
- integer , dimension (:), intent (in ) :: vegtype ! vegetation type (integer index)
26
25
logical , intent (in ) :: lssav
27
26
real (kind= kind_phys), intent (in ) :: dtf, con_eps, con_epsm1
28
27
logical , dimension (:), intent (in ) :: dry
@@ -42,17 +41,6 @@ subroutine sfc_diag_post_run (im, lsm, lsm_noahmp, opt_diag, dry, lssav, dtf, co
42
41
errflg = 0
43
42
44
43
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
-
56
44
if (opt_diag == 2 .or. opt_diag == 3 ) then
57
45
do i= 1 ,im
58
46
if (dry(i)) then
0 commit comments