<p><b>duda</b> 2013-03-04 13:59:06 -0700 (Mon, 04 Mar 2013)</p><p>BRANCH COMMIT<br>
<br>
Fix memory leak in interp_sfc_to_MPAS().<br>
<br>
<br>
M    src/core_init_nhyd_atmos/mpas_init_atm_surface.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_surface.F
===================================================================
--- branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_surface.F        2013-03-04 17:51:20 UTC (rev 2545)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_surface.F        2013-03-04 20:59:06 UTC (rev 2546)
@@ -203,6 +203,8 @@
 !close intermediate file:
  call read_met_close()
 
+ deallocate(maskslab)
+
 !freeze really cold oceans:
  where(fg%sst%array.lt.271.0_RKIND .and. mesh%landmask%array.eq.0) fg%xice%array = 1.0_RKIND
 

</font>
</pre>