[Dart-dev] [4618] DART/trunk/obs_sequence/obs_seq_coverage.f90: fixing small error in error message

nancy at ucar.edu nancy at ucar.edu
Wed Dec 29 11:56:11 MST 2010


Revision: 4618
Author:   thoar
Date:     2010-12-29 11:56:11 -0700 (Wed, 29 Dec 2010)
Log Message:
-----------
fixing small error in error message

Modified Paths:
--------------
    DART/trunk/obs_sequence/obs_seq_coverage.f90

-------------- next part --------------
Modified: DART/trunk/obs_sequence/obs_seq_coverage.f90
===================================================================
--- DART/trunk/obs_sequence/obs_seq_coverage.f90	2010-12-29 17:24:37 UTC (rev 4617)
+++ DART/trunk/obs_sequence/obs_seq_coverage.f90	2010-12-29 18:56:11 UTC (rev 4618)
@@ -835,7 +835,7 @@
 call nc_check(nf90_create(path = trim(fname), cmode = nf90_share, &
          ncid = ncid), 'obs_seq_coverage:InitNetCDF', 'create '//trim(fname))
 
-write(string1,*)trim(ncName), ' is fortran unit ',ncid
+write(string1,*)trim(fname), ' is fortran unit ',ncid
 call error_handler(E_MSG,'InitNetCDF',string1,source,revision,revdate)
 
 !----------------------------------------------------------------------------


More information about the Dart-dev mailing list