From d203a62cbd4d638f76279ddf1f10ba75096d5127 Mon Sep 17 00:00:00 2001 From: Wolfgang Langhans Date: Fri, 24 Oct 2025 14:18:35 -0700 Subject: [PATCH] added a config parameter iau_on_cubed_sphere --- GFS_layer/GFS_typedefs.F90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/GFS_layer/GFS_typedefs.F90 b/GFS_layer/GFS_typedefs.F90 index 58cbf984..87103185 100644 --- a/GFS_layer/GFS_typedefs.F90 +++ b/GFS_layer/GFS_typedefs.F90 @@ -938,6 +938,7 @@ module GFS_typedefs integer :: iau_offset real(kind=kind_phys) :: iau_delthrs ! iau time interval (to scale increments) in hours character(len=240) :: iau_inc_files(7)! list of increment files + logical :: iau_on_cubed_sphere ! True, if IAU files are on CS tiles; false, for Gausssian Grid IAU files character(len=32) :: iau_forcing_var(20) ! list of tracers with IAU forcing real(kind=kind_phys) :: iaufhrs(7) ! forecast hours associated with increment files logical :: iau_filter_increments, iau_drymassfixer @@ -2606,6 +2607,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & !--- IAU options real(kind=kind_phys) :: iau_delthrs = 0 !< iau time interval (to scale increments) character(len=240) :: iau_inc_files(7) = '' !< list of increment files + logical :: iau_on_cubed_sphere = .false. ! True, if IAU files are on CS tiles; false, for Gausssian Grid IAU files character(len=32) :: iau_forcing_var(20) = '' !< list of tracers with IAU forcing real(kind=kind_phys) :: iaufhrs(7) = -1 !< forecast hours associated with increment files logical :: iau_filter_increments = .false. !< filter IAU increments @@ -2692,7 +2694,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & do_sppt, do_shum, do_skeb, do_sfcperts, & !--- IAU iau_delthrs,iaufhrs,iau_inc_files,iau_forcing_var, & - iau_filter_increments,iau_drymassfixer, & + iau_filter_increments,iau_drymassfixer,iau_on_cubed_sphere, & !--- debug options debug, pre_rad, do_ocean, use_ifs_ini_sst, use_ext_sst, lprnt, & !--- aerosol scavenging factors ('name:value' string array) @@ -3048,6 +3050,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & !--- iau parameters Model%iaufhrs = iaufhrs Model%iau_inc_files = iau_inc_files + Model%iau_on_cubed_sphere = iau_on_cubed_sphere Model%iau_forcing_var = iau_forcing_var Model%iau_delthrs = iau_delthrs Model%iau_filter_increments = iau_filter_increments