[Dart-dev] [5989] DART/branches/development/models/clm/model_mod.f90: There is a bug in netCDF that does not do sensible things when putting large
nancy at ucar.edu
nancy at ucar.edu
Wed Mar 6 16:13:23 MST 2013
Revision: 5989
Author: thoar
Date: 2013-03-06 16:13:22 -0700 (Wed, 06 Mar 2013)
Log Message:
-----------
There is a bug in netCDF that does not do sensible things when putting large
existing netCDF files back into 'redef' mode ... something the dart_to_clm
routines do to mark the variables that have been modified by DART. I have
commented out the lines for now and hope to uncomment them when they fix the
netCDF bug.
Modified Paths:
--------------
DART/branches/development/models/clm/model_mod.f90
-------------- next part --------------
Modified: DART/branches/development/models/clm/model_mod.f90
===================================================================
--- DART/branches/development/models/clm/model_mod.f90 2013-03-05 23:03:36 UTC (rev 5988)
+++ DART/branches/development/models/clm/model_mod.f90 2013-03-06 23:13:22 UTC (rev 5989)
@@ -1997,11 +1997,13 @@
source,revision,revdate)
endif
+ ! TJH FIXME ... this works perfectly if it were not for a bug in netCDF.
+ ! When they fix the bug, this will be a useful thing to restore.
! Make note that the variable has been updated by DART
- call nc_check(nf90_Redef(ncFileID),'sv_to_restart_file', 'redef '//trim(filename))
- call nc_check(nf90_put_att(ncFileID, VarID,'DART','variable modified by DART'),&
- 'sv_to_restart_file', 'modified '//trim(varname))
- call nc_check(nf90_enddef(ncfileID),'sv_to_restart_file','state enddef '//trim(filename))
+! call nc_check(nf90_Redef(ncFileID),'sv_to_restart_file', 'redef '//trim(filename))
+! call nc_check(nf90_put_att(ncFileID, VarID,'DART','variable modified by DART'),&
+! 'sv_to_restart_file', 'modified '//trim(varname))
+! call nc_check(nf90_enddef(ncfileID),'sv_to_restart_file','state enddef '//trim(filename))
enddo UPDATE
More information about the Dart-dev
mailing list