[Dart-dev] DART/branches Revision: 11536

[dart at ucar.edu]

thoar at ucar.edu
2017-04-27 10:33:54 -0600 (Thu, 27 Apr 2017)
54
better error message when 'write_variables()' fails.




Modified: DART/branches/rma_output_files/assimilation_code/modules/io/direct_netcdf_mod.f90
===================================================================
--- DART/branches/rma_output_files/assimilation_code/modules/io/direct_netcdf_mod.f90	2017-04-27 16:33:20 UTC (rev 11535)
+++ DART/branches/rma_output_files/assimilation_code/modules/io/direct_netcdf_mod.f90	2017-04-27 16:33:54 UTC (rev 11536)
@@ -881,11 +881,11 @@
 
       dims = get_io_dim_lengths(domain, i)
 
-      ret = nf90_inq_varid(ncid, get_variable_name(domain, i), var_id)
-      call nc_check(ret, 'write_variables', 'getting variable id '//trim(get_variable_name(domain,i)))
+      ret = nf90_inq_varid(ncid, trim(get_variable_name(domain, i)), var_id)
+      call nc_check(ret, 'write_variables:', 'getting variable "'//trim(get_variable_name(domain,i))//'"')
 
       ret = nf90_put_var(ncid, var_id, var_block(istart:iend), count=dims)
-      call nc_check(ret, 'write_variables', 'writing')
+      call nc_check(ret, 'write_variables:', 'writing "'//trim(get_variable_name(domain,i))//'"')
 
       deallocate(dims)
    endif