<p><b>duda</b> 2011-08-12 11:35:36 -0600 (Fri, 12 Aug 2011)</p><p>BRANCH COMMIT<br>
<br>
Only open and close the sfc_update stream if the update interval<br>
is greater than zero.<br>
<br>
<br>
M    src/core_nhyd_atmos/module_mpas_core.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F        2011-08-10 23:39:55 UTC (rev 934)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_mpas_core.F        2011-08-12 17:35:36 UTC (rev 935)
@@ -43,7 +43,7 @@
       sfc_update_obj % filename = trim(config_sfc_update_name)
       sfc_update_obj % stream = STREAM_SFC
 
-      call io_input_init(sfc_update_obj, domain % dminfo)
+      if (config_sfc_update_interval &gt; 0) call io_input_init(sfc_update_obj, domain % dminfo)
 
    end subroutine mpas_core_init
 
@@ -295,7 +295,7 @@
 
       if (restart_frame &gt; 1) call output_state_finalize(restart_obj, domain % dminfo)
 
-      call io_input_finalize(sfc_update_obj, domain % dminfo)
+      if (config_sfc_update_interval &gt; 0) call io_input_finalize(sfc_update_obj, domain % dminfo)
    
    end subroutine mpas_core_finalize
 

</font>
</pre>