Merge pull request NOAA-EMC#8 from junwang-noaa/regfv3_rst

DusanJovic-NOAA · web-flow · commit 452333aff37f · 2019-11-15T10:00:51.000-05:00
restart reproducibility fix for regional fv3
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.
 !-----------------------------------------------------------------------
 !

Original file line number	Diff line number	Diff line change
`@@ -1183,6 +1183,12 @@ subroutine start_regional_restart(Atm &`
`1183`	`1183`	`endif`
`1184`	`1184`	`!`
`1185`	`1185`	`!-----------------------------------------------------------------------`
	`1186`	`+!*** Get the source of the input data.`
	`1187`	`+!-----------------------------------------------------------------------`
	`1188`	`+!`
	`1189`	`+ call get_data_source(data_source,Atm%flagstruct%regional)`
	`1190`	`+!`
	`1191`	`+!-----------------------------------------------------------------------`
`1186`	`1192`	`!*** Preliminary setup for the forecast.`
`1187`	`1193`	`!-----------------------------------------------------------------------`
`1188`	`1194`	`!`