From 3850230993a980d9e95d309cd7f70f49d47461c7 Mon Sep 17 00:00:00 2001 From: kieranricardo Date: Mon, 10 Feb 2025 12:46:22 +1100 Subject: [PATCH] fix sfc_flux argument order in therm_vertical --- columnphysics/icepack_therm_vertical.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/columnphysics/icepack_therm_vertical.F90 b/columnphysics/icepack_therm_vertical.F90 index e931629c..a8eab331 100644 --- a/columnphysics/icepack_therm_vertical.F90 +++ b/columnphysics/icepack_therm_vertical.F90 @@ -2697,8 +2697,8 @@ subroutine icepack_step_therm1(dt, & ! hadgem routine sets fluxes to default values in ice-only mode call set_sfcflux(aicen (n), & flatn_f (n), fsensn_f (n), & - fcondtopn_f(n), & fsurfn_f (n), & + fcondtopn_f(n), & flatn (n), fsensn (n), & fsurfn (n), & fcondtopn (n))