[Dart-dev] DART/branches Revision: 10831

[dart at ucar.edu]

hendric at ucar.edu
2016-12-22 13:26:58 -0700 (Thu, 22 Dec 2016)
44
had attribute for unitless copies swapped.




Modified: DART/branches/rma_fixed_filenames/io/direct_netcdf_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/io/direct_netcdf_mod.f90	2016-12-22 17:54:54 UTC (rev 10830)
+++ DART/branches/rma_fixed_filenames/io/direct_netcdf_mod.f90	2016-12-22 20:26:58 UTC (rev 10831)
@@ -979,10 +979,10 @@
 
 ! attributes for variables without units such as inflation and sd
 if( copy_has_units(name_handle, copy_number) ) then 
-   call nc_check(nf90_put_att(ncFileID,ncVarID,'units','unitless'),&
+   call nc_check(nf90_put_att(ncFileID,ncVarID,'units',get_units(domid, varid)),&
                 'nc_write_attributes','units in :'//trim(filename))
 else if ( get_units(domid, varid) /= ' ' ) then
-   call nc_check(nf90_put_att(ncFileID,ncVarID,'units',get_units(domid, varid)),&
+   call nc_check(nf90_put_att(ncFileID,ncVarID,'units','unitless'),&
                 'nc_write_attributes','units in :'//trim(filename))
 endif