<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 > 0) call io_input_init(sfc_update_obj, domain % dminfo)
end subroutine mpas_core_init
@@ -295,7 +295,7 @@
if (restart_frame > 1) call output_state_finalize(restart_obj, domain % dminfo)
- call io_input_finalize(sfc_update_obj, domain % dminfo)
+ if (config_sfc_update_interval > 0) call io_input_finalize(sfc_update_obj, domain % dminfo)
end subroutine mpas_core_finalize
</font>
</pre>