Initialize err variables in set_soilveg.f

SamuelTrahanNOAA · Sep 21, 2023 · 7912a19 · 7912a19
1 parent 3ec61d3
commit 7912a19
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/physics/set_soilveg.f b/physics/set_soilveg.f
@@ -44,6 +44,9 @@ subroutine set_soilveg(me,isot,ivet,nlunit,errmsg,errflg)
      &  DEFINED_SLOPE, FXEXP_DATA, NROOT_DATA, REFKDT_DATA, Z0_DATA,
      &  CZIL_DATA, LAI_DATA, CSOIL_DATA
 
+      errmsg = ''
+      errflg = 0
+
 cmy end locals
       if(ivet.eq.2) then