[Dart-dev] DART/branches Revision: 12236

[dart at ucar.edu]

nancy at ucar.edu
2017-12-22 08:53:36 -0700 (Fri, 22 Dec 2017)
99
using a 'routine' string in an error message but
copied it to a subroutinew without one.  add it.




Modified: DART/branches/recam/assimilation_code/modules/utilities/netcdf_utilities_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2017-12-22 01:52:25 UTC (rev 12235)
+++ DART/branches/recam/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2017-12-22 15:53:36 UTC (rev 12236)
@@ -1222,6 +1222,7 @@
 character(len=*), intent(in), optional :: context
 integer                       :: nc_open_file_readwrite
 
+character(len=*), parameter :: routine = 'nc_open_file_readwrite'
 integer :: ret, ncid, oldmode
 
 ret = nf90_open(filename, NF90_WRITE, ncid)