[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