Merge pull request #8 from junwang-noaa/regfv3_rst

restart reproducibility fix for regional fv3
NOAA-EMC · Nov 15, 2019 · 452333a · 452333a
2 parents 786447c + cc28aa5
commit 452333a
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/model/fv_regional_bc.F90 b/model/fv_regional_bc.F90
@@ -1183,6 +1183,12 @@ subroutine start_regional_restart(Atm &
  endif
 !
 !-----------------------------------------------------------------------
+!*** Get the source of the input data.
+!-----------------------------------------------------------------------
+!
+ call get_data_source(data_source,Atm%flagstruct%regional)
+!
+!-----------------------------------------------------------------------
 !*** Preliminary setup for the forecast.
 !-----------------------------------------------------------------------
 !