Skip to content

Commit 619d06d

Browse files
fix sfc_flux argument order in therm_vertical (CICE-Consortium#513)
The call to set_sfcflux in icepack_therm_vertical.F90 has the fsurfn_f and fcondtopn_f arguments switched, causing issues for models using calc_Tsfc = .false.. This PR fixes these.
1 parent 352e6bc commit 619d06d

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

columnphysics/icepack_therm_vertical.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2697,8 +2697,8 @@ subroutine icepack_step_therm1(dt, &
26972697
! hadgem routine sets fluxes to default values in ice-only mode
26982698
call set_sfcflux(aicen (n), &
26992699
flatn_f (n), fsensn_f (n), &
2700-
fcondtopn_f(n), &
27012700
fsurfn_f (n), &
2701+
fcondtopn_f(n), &
27022702
flatn (n), fsensn (n), &
27032703
fsurfn (n), &
27042704
fcondtopn (n))

0 commit comments

Comments
 (0)