<p><b>laura@ucar.edu</b> 2013-01-30 14:11:54 -0700 (Wed, 30 Jan 2013)</p><p>Commented out a couple of print statements<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-01-23 21:31:39 UTC (rev 2392)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_surface.F        2013-01-30 21:11:54 UTC (rev 2393)
@@ -149,7 +149,7 @@
 
     !sea-surface data:
     if(index(field % field, 'SKINTEMP') /= 0 .or. index(field % field, 'SST') /= 0) then
-       write(0,*) '... Processing SST:'
+!      write(0,*) '... Processing SST:'
        fg % sst % array(1:mesh%nCells) = 0.0_RKIND
        destField1d =&gt; fg % sst % array
 
@@ -171,7 +171,7 @@
 
     !sea-ice data:
     elseif(index(field % field, 'SEAICE') /= 0) then
-       write(0,*) '... Processing SEAICE:'
+!      write(0,*) '... Processing SEAICE:'
        fg % xice % array(1:mesh%nCells) = 0.0_RKIND
        destField1d =&gt; fg % xice % array
 

</font>
</pre>