free memory associated with the sea ice arays

umwm · Feb 8, 2019 · 62637ab · 62637ab
1 parent 58bbcf4
commit 62637ab
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/umwm_util.F90 b/src/umwm_util.F90
@@ -171,6 +171,7 @@ subroutine dealloc
 deallocate(x,y)
 deallocate(rhoa_2d,rhow_2d)
 deallocate(wspd_2d,wdir_2d)
+deallocate(fice_2d,ficef,ficeb,fice)
 deallocate(uwb,vwb,uw,vw,uwf,vwf,ucb,uc_2d,ucf,vcb,vc_2d,vcf)
 deallocate(dom,f,cth,cth2,sth,th)
 deallocate(cth_curv,sth_curv)