further fix for condition on grid name

GEOS-ESM · Oct 12, 2022 · ef6fd43 · ef6fd43
1 parent 424f7a4
commit ef6fd43
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/Components/GEOSldas_GridComp/GEOSlandassim_GridComp/clsm_ensupd_upd_routines.F90 b/src/Components/GEOSldas_GridComp/GEOSlandassim_GridComp/clsm_ensupd_upd_routines.F90
@@ -1707,9 +1707,7 @@ subroutine get_obs_pred(                                       &
                 ! for EASE grids *ONLY*: screen for non-land surfaces (e.g., lakes)
                 ! - reichle, 28 Mar 2015
 
-                if   (                                                                 &
-                     (index(tile_grid_g%gridtype, 'EASE_M')  /=0) .or.                 &
-                     (index(tile_grid_g%gridtype, 'EASEv2_M')/=0)       )  then
+                if (index(tile_grid_g%gridtype, 'EASEv')  /=0) then
 
                    ! ASSUMPTIONS: 
                    !  - at most one land tile per grid cell
@@ -3204,8 +3202,7 @@ subroutine get_obs_pert( N_ens, N_obs, N_obs_param,                  &
        pert_grid_lH%ur_lon = pert_grid_lH%ll_lon + delta_lon
        pert_grid_lH%ur_lat = pert_grid_lH%ll_lat + delta_lat
 
-    elseif ( (index(pert_grid_lH%gridtype,'EASE_M')  /=0)     .or.          &
-             (index(pert_grid_lH%gridtype,'EASEv2_M')/=0)          )  then
+    elseif ( index(pert_grid_lH%gridtype,'EASEv')  /=0 ) then
 
        pert_grid_lH%dlon   = pert_grid_f%dlon