Merge pull request #11 from NCAR/hgoelzer/tempunstag_fix

Fix initialisation problem for halo of tempunstag
ESCOMP · Jan 23, 2018 · 80fbe5d · 80fbe5d
2 parents 2437a3f + acbec56
commit 80fbe5d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/libglissade/glissade.F90 b/libglissade/glissade.F90
@@ -310,6 +310,7 @@ subroutine glissade_initialise(model, evolve_ice)
     call parallel_halo(model%geometry%thck)
     call parallel_halo(model%climate%artm)
     call parallel_halo(model%temper%temp)
+    call parallel_halo(model%temper%tempunstag)
 
     ! calculate the lower and upper ice surface
     call glide_calclsrf(model%geometry%thck, model%geometry%topg, model%climate%eus, model%geometry%lsrf)