Replaced print* and stop.

NASA-LIS · May 5, 2021 · 5c7b175 · 5c7b175
1 parent c4592b7
commit 5c7b175
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lis/surfacemodels/land/jules.5.3/da_soilm/jules53_qc_soilmobs.F90 b/lis/surfacemodels/land/jules.5.3/da_soilm/jules53_qc_soilmobs.F90
@@ -20,7 +20,7 @@ subroutine jules53_qc_soilmobs(n,k,OBS_State)
 ! !USES:
   use ESMF
   use LIS_coreMod
-  use LIS_logMod,  only : LIS_verify
+  use LIS_logMod,  only : LIS_verify, LIS_logunit, LIS_endrun
   use LIS_constantsMod, only : LIS_CONST_TKFRZ
   use LIS_DAobservationsMod
   use jules53_lsmMod
@@ -199,8 +199,8 @@ subroutine jules53_qc_soilmobs(n,k,OBS_State)
       !MN:fveg is used for 12-month green vegetation fraction (i.e., noah33_struc(n)%noah(:)%shdfac)  
       !print*,'l_aggregate', l_aggregate
       if(.NOT. l_aggregate) then   
-         print*,'Please set the l_aggregate to .true. in the jules_surface.nml ' 
-         stop         
+         write(LIS_logunit,*)'Please set the l_aggregate to .true. in the jules_surface.nml ' 
+         call LIS_endrun()
       else
        do l=1,5 !Broadleaf trees, Needleleaf trees, C3 (temperate) grass, C4 (tropical) grass, Shrubs
          fveg(t) = fveg(t) + jules53_struc(n)%jules53(t)%surft_frac(l)