Skip to content

Commit 7ec91bb

Browse files
committed
Fix initialisation problem for halo of tempunstag
This solves the problem when restarting from tempunstag input with option temperature=2, where too low temperatures are detected in the halo and lead to a fatal error.
1 parent ff87e8a commit 7ec91bb

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

libglissade/glissade.F90

+1
Original file line numberDiff line numberDiff line change
@@ -310,6 +310,7 @@ subroutine glissade_initialise(model, evolve_ice)
310310
call parallel_halo(model%geometry%thck)
311311
call parallel_halo(model%climate%artm)
312312
call parallel_halo(model%temper%temp)
313+
call parallel_halo(model%temper%tempunstag)
313314

314315
! calculate the lower and upper ice surface
315316
call glide_calclsrf(model%geometry%thck, model%geometry%topg, model%climate%eus, model%geometry%lsrf)

0 commit comments

Comments
 (0)