Merge pull request NCAR#8 from junwang-noaa/regfv3_rst

restart reproducibility fix for regional fv3
climbfuji · 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.
 !-----------------------------------------------------------------------
 !