<p><b>duda</b> 2010-05-04 16:56:30 -0600 (Tue, 04 May 2010)</p><p>BRANCH COMMIT<br>
<br>
Update I/O modules with changes from the trunk.<br>
<br>
M    src/framework/module_io_input.F<br>
M    src/framework/module_io_output.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/mpas_cam_coupling/src/framework/module_io_input.F
===================================================================
--- branches/mpas_cam_coupling/src/framework/module_io_input.F        2010-05-04 22:02:51 UTC (rev 244)
+++ branches/mpas_cam_coupling/src/framework/module_io_input.F        2010-05-04 22:56:30 UTC (rev 245)
@@ -994,10 +994,10 @@
 
       integer, dimension(:), pointer :: super_int1d
       integer, dimension(:,:), pointer :: super_int2d
-      real :: super_real0d
-      real, dimension(:), pointer :: super_real1d
-      real, dimension(:,:), pointer :: super_real2d
-      real, dimension(:,:,:), pointer :: super_real3d
+      real (kind=RKIND) :: super_real0d
+      real (kind=RKIND), dimension(:), pointer :: super_real1d
+      real (kind=RKIND), dimension(:,:), pointer :: super_real2d
+      real (kind=RKIND), dimension(:,:,:), pointer :: super_real3d
 
       integer :: k
 
@@ -1032,6 +1032,17 @@
 #else
       nferr = nf_open(trim(input_obj % filename), NF_SHARE, input_obj % rd_ncid)
 #endif
+
+      if (nferr /= NF_NOERR) then
+         write(0,*) ' '
+         if (config_do_restart) then
+            write(0,*) 'Error opening restart file ''', trim(input_obj % filename), ''''
+         else
+            write(0,*) 'Error opening input file ''', trim(input_obj % filename), ''''
+         end if
+         write(0,*) ' '
+         call dmpar_abort(dminfo)
+      end if
  
 #include &quot;netcdf_read_ids.inc&quot;
 

Modified: branches/mpas_cam_coupling/src/framework/module_io_output.F
===================================================================
--- branches/mpas_cam_coupling/src/framework/module_io_output.F        2010-05-04 22:02:51 UTC (rev 244)
+++ branches/mpas_cam_coupling/src/framework/module_io_output.F        2010-05-04 22:56:30 UTC (rev 245)
@@ -127,9 +127,9 @@
       integer, dimension(:), pointer :: super_int1d
       integer, dimension(:,:), pointer :: super_int2d
       real :: super_real0d
-      real, dimension(:), pointer :: super_real1d
-      real, dimension(:,:), pointer :: super_real2d
-      real, dimension(:,:,:), pointer :: super_real3d
+      real (kind=RKIND), dimension(:), pointer :: super_real1d
+      real (kind=RKIND), dimension(:,:), pointer :: super_real2d
+      real (kind=RKIND), dimension(:,:,:), pointer :: super_real3d
 
       output_obj % time = itime
 

</font>
</pre>