initialize errmsg & errflg in noahmp_tables.f90

ufs-community · Sep 21, 2023 · 7332c8e · 7332c8e
1 parent 7912a19
commit 7332c8e
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/physics/noahmp_tables.f90 b/physics/noahmp_tables.f90
@@ -484,6 +484,9 @@ subroutine read_mp_table_parameters(errmsg, errflg)
                                                       sr2006_psi_e_a, sr2006_psi_e_b, sr2006_psi_e_c, sr2006_smcmax_a,       &
                                                       sr2006_smcmax_b
 
+    errmsg = ''
+    errflg = 0
+
     ! initialize our variables to bad values, so that if the namelist read fails, we come to a screeching halt as soon as we try to use anything.
     ! vegetation parameters
     isurban_table      = -99999