<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 "netcdf_read_ids.inc"
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>