Merge pull request #581 from jvgeiger/fix/jules50_qc_soilmobs

Fix jules50_qc_soilmobs
NASA-LIS · Sep 4, 2020 · 520e5d6 · 520e5d6
2 parents 6a51080 + 2ec9ed8
commit 520e5d6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lis/surfacemodels/land/jules.5.0/da_soilm/jules50_qc_soilmobs.F90 b/lis/surfacemodels/land/jules.5.0/da_soilm/jules50_qc_soilmobs.F90
@@ -405,10 +405,6 @@ subroutine jules50_qc_soilmobs(n,k,OBS_State)
            smobs(t) = LIS_rc%udef
         elseif(vegt_obs(t).eq.9) then !Land-ice
            smobs(t) = LIS_rc%udef
-        elseif(l_aggregate) then
-           if (smcmax_obs(t) == 0) then !glacier grid !Yonghwan Kwon
-              smobs(t) = LIS_rc%udef
-           endif
         elseif(sneqv_obs(t).gt.0.001) then 
            smobs(t) = LIS_rc%udef
         elseif(fsno_obs(t).gt.0) then   
@@ -425,6 +421,10 @@ subroutine jules50_qc_soilmobs(n,k,OBS_State)
         !elseif(smobs(t) - smcwlt_obs(t).lt.0.02) then  ! changed from 0.02 to ... 
         !    smobs(t) = LIS_rc%udef                           !Yonghwan Kwon: Temporary commented out
 
+        elseif(l_aggregate) then
+           if (smcmax_obs(t) == 0) then !glacier grid !Yonghwan Kwon
+              smobs(t) = LIS_rc%udef
+           endif
         endif
      endif
   enddo