<p><b>dwj07@fsu.edu</b> 2012-11-14 12:57:12 -0700 (Wed, 14 Nov 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Cleaning up some print statments.<br>
        Also cleaning up some issues with coupled runs.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/cesm_coupling/src/core_ocean/Registry
===================================================================
--- branches/ocean_projects/cesm_coupling/src/core_ocean/Registry        2012-11-14 18:06:45 UTC (rev 2304)
+++ branches/ocean_projects/cesm_coupling/src/core_ocean/Registry        2012-11-14 19:57:12 UTC (rev 2305)
@@ -105,7 +105,7 @@
 dim vertexDegree vertexDegree
 dim nVertLevels nVertLevels
 dim nVertLevelsP1 nVertLevels+1
-%dim nMonths 1
+dim nMonths 1
 
 %
 % var persistence type  name_in_file  ( dims )  time_levs iro-  name_in_code struct super-array array_class

Modified: branches/ocean_projects/cesm_coupling/src/framework/mpas_dmpar.F
===================================================================
--- branches/ocean_projects/cesm_coupling/src/framework/mpas_dmpar.F        2012-11-14 18:06:45 UTC (rev 2304)
+++ branches/ocean_projects/cesm_coupling/src/framework/mpas_dmpar.F        2012-11-14 19:57:12 UTC (rev 2305)
@@ -100,7 +100,7 @@
       write(0,'(a,i5,a,i5,a)') 'task ', mpi_rank, ' of ', mpi_size, &amp;
         ' is running'
 
-!     call open_streams(dminfo % my_proc_id)
+      call open_streams(dminfo % my_proc_id)
 
       dminfo % info = MPI_INFO_NULL
 #else

Modified: branches/ocean_projects/cesm_coupling/src/framework/mpas_io.F
===================================================================
--- branches/ocean_projects/cesm_coupling/src/framework/mpas_io.F        2012-11-14 18:06:45 UTC (rev 2304)
+++ branches/ocean_projects/cesm_coupling/src/framework/mpas_io.F        2012-11-14 19:57:12 UTC (rev 2305)
@@ -518,7 +518,6 @@
       logical :: found
       integer :: pio_ierr
 
-          write(0,*) 'Inq var ', trim(fieldname)
       if (present(ierr)) ierr = MPAS_IO_NOERR
 
       ! Sanity checks

Modified: branches/ocean_projects/cesm_coupling/src/framework/streams.c
===================================================================
--- branches/ocean_projects/cesm_coupling/src/framework/streams.c        2012-11-14 18:06:45 UTC (rev 2304)
+++ branches/ocean_projects/cesm_coupling/src/framework/streams.c        2012-11-14 19:57:12 UTC (rev 2305)
@@ -20,6 +20,7 @@
 
 #ifndef MPAS_DEBUG
    if(*id == 0){
+#ifndef MPAS_CESM
            sprintf(fname, &quot;log.%4.4i.err&quot;, *id);
            fd_err = open(fname,O_CREAT|O_WRONLY|O_TRUNC,0644);
            if (dup2(fd_err, 2) &lt; 0) {
@@ -33,6 +34,7 @@
                    printf(&quot;Error duplicating STDOUT</font>
<font color="gray">&quot;);
                    return;
            }
+#endif
    } else {
            sprintf(fname, &quot;/dev/null&quot;, *id);
            fd_err = open(fname,O_CREAT|O_WRONLY|O_TRUNC,0644);

Modified: branches/ocean_projects/cesm_coupling/src/ocean_cesm_driver/ocn_comp_mct.F
===================================================================
--- branches/ocean_projects/cesm_coupling/src/ocean_cesm_driver/ocn_comp_mct.F        2012-11-14 18:06:45 UTC (rev 2304)
+++ branches/ocean_projects/cesm_coupling/src/ocean_cesm_driver/ocn_comp_mct.F        2012-11-14 19:57:12 UTC (rev 2305)
@@ -842,8 +842,6 @@
     call mct_aVect_zero(dom_o%data)
     allocate(data(lsize))
 
-        write(0,*) 'Lsize == ', lsize
-
 !-------------------------------------------------------------------
 !
 ! Determine global gridpoint number attribute, GlobGridNum, which is set automatically by MCT
@@ -851,7 +849,6 @@
 !-------------------------------------------------------------------
 
     call mct_gsMap_orderedPoints(gsMap_o, my_task, idata)
-        write(0,*) 'size....', size(idata)
     call mct_gGrid_importIAttr(dom_o,'GlobGridNum',idata,lsize)
 
 !-------------------------------------------------------------------

</font>
</pre>