Skip to content

Commit 7e810b6

Browse files
Initialize worka for sifb (#1092)
Minor fix to initialize worka=0 for sifb history variable accumulation (like elsewhere in ice_history) so don't have uninitialized values being accumulated. This is needed to fix out-of-range history values for sifb (in UFS)
1 parent dd53679 commit 7e810b6

1 file changed

Lines changed: 1 addition & 0 deletions

File tree

cicecore/cicedyn/analysis/ice_history.F90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3064,6 +3064,7 @@ subroutine accum_hist (dt)
30643064
endif
30653065

30663066
if (f_sifb(1:1) /= 'x') then
3067+
worka(:,:) = c0
30673068
do j = jlo, jhi
30683069
do i = ilo, ihi
30693070
if (aice(i,j,iblk) > puny) then

0 commit comments

Comments
 (0)