Skip to content

Commit d0a8c4d

Browse files
authored
Merge pull request #11 from NCAR/hgoelzer/tempunstag_fix
Fix initialisation problem for halo of tempunstag
2 parents ff87e8a + 7ec91bb commit d0a8c4d

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)