diff --git a/driver/fvGFS/fv_ufs_restart_io.F90 b/driver/fvGFS/fv_ufs_restart_io.F90 index fb554b832..b114d47f9 100644 --- a/driver/fvGFS/fv_ufs_restart_io.F90 +++ b/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) diff --git a/model/fv_regional_bc.F90 b/model/fv_regional_bc.F90 index 653c62fa0..8b672e1fa 100644 --- a/model/fv_regional_bc.F90 +++ b/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