Skip to content
Draft
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
13 changes: 12 additions & 1 deletion cicecore/cicedyn/general/ice_step_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ module ice_step_mod
use ice_domain_size, only: max_blocks
use ice_exit, only: abort_ice
use ice_fileunits, only: nu_diag
use icepack_intfc, only: icepack_warnings_flush, icepack_warnings_aborted
use icepack_intfc, only: icepack_warnings_flush, icepack_warnings_aborted, icepack_configure
use icepack_intfc, only: icepack_prep_radiation
use icepack_intfc, only: icepack_step_therm1
use icepack_intfc, only: icepack_step_therm2
Expand Down Expand Up @@ -620,6 +620,17 @@ subroutine step_therm1 (dt, iblk)
enddo
endif ! tr_aero

call icepack_warnings_flush(nu_diag)
if (icepack_warnings_aborted()) then
write(nu_diag,*) "iglob, jglob= ", this_block%i_glob(i), ", ", this_block%j_glob(j)
!call abort_ice(error_message=subname, &
!file=__FILE__, line=__LINE__)
!force CICE to try and continue
write(nu_diag,*) "icepack tries to abort, but try to continue"
!call icepack_warnings_setabort(.false.)
call icepack_configure()
endif

enddo ! i
enddo ! j

Expand Down
Loading