Merge pull request NOAA-EMC#268 from DusanJovic-NOAA/multiple_domains…

…_quilting_restart

Write BCs restart files from fv_dyn_restart_output

driver/fvGFS/fv_ufs_restart_io.F90

@@ -6,6 +6,7 @@ module fv_ufs_restart_io_mod
   use tracer_manager_mod, only: get_tracer_names
   use field_manager_mod,  only: MODEL_ATMOS
   use atmosphere_mod,     only: atmosphere_resolution
+  use fv_io_mod,          only: fv_io_write_BCs
 
   implicit none
 
@@ -156,7 +157,7 @@ subroutine fv_dyn_restart_output(Atm, timestamp)
 
    implicit none
 
-   type(fv_atmos_type), intent(in) :: Atm
+   type(fv_atmos_type), intent(inout) :: Atm
    character(len=*), intent(in) :: timestamp
 
    integer :: isc, iec, jsc, jec, nx, ny
@@ -222,6 +223,11 @@ subroutine fv_dyn_restart_output(Atm, timestamp)
    ! Instead of creating yet another esmf bundle just to write Atm%ak and Atm%bk, write them here synchronously
    call write_ak_bk(Atm, timestamp)
 
+   ! Write bcs restarts
+   if (Atm%neststruct%nested) then
+     call fv_io_write_BCs(Atm)
+   endif
+
  end subroutine fv_dyn_restart_output
 
  subroutine fv_core_restart_bundle_setup(bundle, grid, rc)

model/fv_regional_bc.F90

@@ -4891,7 +4891,7 @@ subroutine bc_time_interpolation(array                               &
        if (fraction_interval .eq. 0.0 .and. it .gt. 1) then
         fraction_interval=1.0
         if (is_master()) then
-         write(0,*) 'reset of fraction_interval ', trim(bc_vbl_name),it, fcst_time
+         write(*,*) 'reset of fraction_interval ', trim(bc_vbl_name),it, fcst_time
         endif
        endif