From 99bba0ee95a7b2f76189a86a857a44e82d5f27b9 Mon Sep 17 00:00:00 2001 From: "Christina.Holt" Date: Thu, 10 Jun 2021 18:54:16 +0000 Subject: [PATCH] Changes from Jim --- model/fv_regional_bc.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/model/fv_regional_bc.F90 b/model/fv_regional_bc.F90 index 949193055..f393195bc 100644 --- a/model/fv_regional_bc.F90 +++ b/model/fv_regional_bc.F90 @@ -1631,10 +1631,10 @@ subroutine regional_bc_data(Atm,bc_hour & file_name='INPUT/gfs_bndy.tile7.'//int_to_char//'_gsi.nc' !<-- The DA-updated BC file. endif ! - if (is_master()) then +!jaa if (is_master()) then write(*,22211)trim(file_name) 22211 format(' regional_bc_data file_name=',a) - endif +!jaa endif !----------------------------------------------------------------------- !*** Open the regional BC file. !*** Find the # of layers (klev_in) in the BC input. @@ -6698,6 +6698,7 @@ subroutine get_data_source(source,regional) if (mpp_pe() == 0) write(0,*) 'INPUT source not found ',lstatus,' set source=No Source Attribute' source='No Source Attribute' endif + source='FV3GFS GAUSSIAN NEMSIO FILE' end subroutine get_data_source !---------------------------------------------------------------------