Merge pull request #743 from amametjanov/azamat/ibm-xl/init-th-sat

Add initialization of th_sat
NGEET · May 15, 2021 · 516c184 · 516c184
2 parents 4430987 + 6c3e30e
commit 516c184
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/biogeophys/FatesHydroWTFMod.F90 b/biogeophys/FatesHydroWTFMod.F90
@@ -304,6 +304,7 @@ end subroutine set_wrf_param_base
   function get_thsat_base(this) result(th_sat)
     class(wrf_type)     :: this
     real(r8)            :: th_sat
+    th_sat = 0._r8
     write(fates_log(),*) 'The base thsat call'
     write(fates_log(),*) 'should never be actualized'
     write(fates_log(),*) 'check how the class pointer was setup'