Merge pull request NCAR#6 from climbfuji/dtc_develop_udpate_from_emc_…

…20191127 dtc/develop: update from EMC 2019/11/27
climbfuji · Dec 3, 2019 · 3a4dfd8 · 3a4dfd8
2 parents 0c9ab9e + 68576a6
commit 3a4dfd8
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.
 !-----------------------------------------------------------------------
 !