diff --git a/schemes/musica/tuvx/musica_ccpp_tuvx_surface_albedo.F90 b/schemes/musica/tuvx/musica_ccpp_tuvx_surface_albedo.F90 index 3761a36f..751d18c6 100644 --- a/schemes/musica/tuvx/musica_ccpp_tuvx_surface_albedo.F90 +++ b/schemes/musica/tuvx/musica_ccpp_tuvx_surface_albedo.F90 @@ -6,9 +6,9 @@ module musica_ccpp_tuvx_surface_albedo surface_albedo_label, surface_albedo_unit !> Label for surface albedo in TUV-x - character(len=*), parameter :: surface_albedo_label = "surface_albedo" + character(len=*), parameter :: surface_albedo_label = "surface albedo" !> Unit for surface albedo in TUV-x - character(len=*), parameter :: surface_albedo_unit = "" ! unitless + character(len=*), parameter :: surface_albedo_unit = "none" !> Default value of number of wavelength bins integer, parameter :: DEFAULT_NUM_WAVELENGTH_BINS = 0 !> Number of wavelength bins diff --git a/test/musica/test_musica_api.F90 b/test/musica/test_musica_api.F90 index 7386de86..6b4d4154 100644 --- a/test/musica/test_musica_api.F90 +++ b/test/musica/test_musica_api.F90 @@ -160,7 +160,7 @@ subroutine test_musica_ccpp_api() geopotential_height_wrt_surface_at_interface(2,:) = (/ 3000.0_kind_phys, 500.0_kind_phys, -1500.0_kind_phys /) surface_temperature = (/ 300.0_kind_phys, 300.0_kind_phys /) surface_geopotential = (/ 100.0_kind_phys, 200.0_kind_phys /) - surface_albedo = 20.0_kind_phys + surface_albedo = 0.10_kind_phys standard_gravitational_acceleration = 10.0_kind_phys temperature(:,1) = (/ 100._kind_phys, 200._kind_phys /) temperature(:,2) = (/ 300._kind_phys, 400._kind_phys /) diff --git a/test/musica/tuvx/configs/ts1_tsmlt.json b/test/musica/tuvx/configs/ts1_tsmlt.json index c85d085d..b2a2f986 100644 --- a/test/musica/tuvx/configs/ts1_tsmlt.json +++ b/test/musica/tuvx/configs/ts1_tsmlt.json @@ -48,16 +48,6 @@ "month": 3, "day": 21 }, - { - "name": "surface albedo", - "type": "from config file", - "units": "none", - "uniform value": 0.10, - "grid": { - "name": "wavelength", - "units": "nm" - } - }, { "name": "extraterrestrial flux", "enable diagnostics" : true,