<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, &
' 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, "log.%4.4i.err", *id);
         fd_err = open(fname,O_CREAT|O_WRONLY|O_TRUNC,0644);
         if (dup2(fd_err, 2) < 0) {
@@ -33,6 +34,7 @@
                 printf("Error duplicating STDOUT</font>
<font color="gray">");
                 return;
         }
+#endif
} else {
         sprintf(fname, "/dev/null", *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>