Removed the old comment line.

NOAA-PSL · Dec 28, 2020 · 57afa4d · 57afa4d
1 parent a44daed
commit 57afa4d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 8 deletions.
diff --git a/compns_stochy.F90 b/compns_stochy.F90
@@ -294,7 +294,7 @@ subroutine compns_stochy (me,sz_nml,input_nml_file,fn_nml,nlunit,deltim,iret)
             'land perturbations will be applied to selected paramaters, using newer scheme designed for DA ens spread'
                do k =1,n_var_lndp
                    select case (lndp_var_list(k))
-                   case('vgf','smc','stc','alb', 'sal') 
+                   case('vgf','smc','stc','alb', 'sal','emi') 
                        if (me==0) print*, 'land perturbation will be applied to ', lndp_var_list(k)
                    case default
                       print*, 'ERROR: land perturbation requested for new parameter - will need to be coded in lndp_apply_pert', lndp_var_list(k)

diff --git a/lndp_apply_perts.F90 b/lndp_apply_perts.F90
@@ -15,7 +15,6 @@ module lndp_apply_perts_mod
 !====================================================================
 ! Driver for applying perturbations to sprecified land states or parameters
 ! Draper, July 2020. 
-! Note on location: requires access to namelist_soilveg or namelist_soilveg_ruc
 
     subroutine lndp_apply_perts(blksz,lsm, lsoil, lsm_ruc, lsoil_lsm, zs_lsm,         &
                 dtf, n_var_lndp, lndp_var_list,                                       & 
@@ -211,13 +210,13 @@ subroutine lndp_apply_perts(blksz,lsm, lsoil, lsm_ruc, lsoil_lsm, zs_lsm,
                      !endif
                 !case('emi')  ! emissivity
                 !     if (param_update_flag) then
-                !         p =5.
-                !         min_bound=0.
-                !         max_bound=1.
+                         !p =5.
+                         !min_bound=0.
+                         !max_bound=1.
 
-                         ! lndp_prt_list(v) = 0.1 (wrf)
-                !         pert = sfc_wts(nb,i,v)*lndp_prt_list(v)
-                !         call apply_pert ('semis',pert,print_flag, semis(nb,i), ierr,p,min_bound, max_bound)
+                        ! lndp_prt_list(v) = 0.1 (wrf)
+                         !pert = sfc_wts(nb,i,v)*lndp_prt_list(v)
+                         !call apply_pert ('semis',pert,print_flag, semis(nb,i), ierr,p,min_bound, max_bound)
                 !     endif
                 case default 
                     print*, &