From e185a2b72814387d86e95cb9dab9e4ae7b65391b Mon Sep 17 00:00:00 2001 From: Robert Pincus Date: Tue, 21 May 2024 11:51:33 -0400 Subject: [PATCH] Initialize SW test atmosphere too --- tests/rte_sw_solver_unit_tests.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/rte_sw_solver_unit_tests.F90 b/tests/rte_sw_solver_unit_tests.F90 index 082831a9c..9c7597ef6 100644 --- a/tests/rte_sw_solver_unit_tests.F90 +++ b/tests/rte_sw_solver_unit_tests.F90 @@ -95,6 +95,7 @@ program rte_sw_solver_unit_tests band_lims_gpt = reshape([1, 1 ], shape = [2, 1]), & name = "Gray atmosphere")) call stop_on_err(atmos%alloc_2str(ncol, nlay)) + call atmos%set_top_at_1(top_at_1) call thin_scattering(tau, ssa, g, nlay, atmos) do imu0 = 1, nmu0