[Dart-dev] DART/branches Revision: 12237

[dart at ucar.edu]

nancy at ucar.edu
2017-12-22 08:54:57 -0700 (Fri, 22 Dec 2017)
47
use the longer names for the netcdf routines.




Modified: DART/branches/recam/models/lorenz_96/model_mod.f90
===================================================================
--- DART/branches/recam/models/lorenz_96/model_mod.f90	2017-12-22 15:53:36 UTC (rev 12236)
+++ DART/branches/recam/models/lorenz_96/model_mod.f90	2017-12-22 15:54:57 UTC (rev 12237)
@@ -21,8 +21,9 @@
 use location_io_mod,      only :  nc_write_location_atts, nc_get_location_varids, &
                                   nc_write_location
 
-use netcdf_utilities_mod, only : nc_add_global_attribute, nc_sync, &
-                                 nc_add_global_creation_time, nc_redef, nc_enddef
+use netcdf_utilities_mod, only : nc_add_global_attribute, nc_synchronize_file, &
+                                 nc_add_global_creation_time, nc_begin_define_mode, &
+                                 nc_end_define_mode
 
 use         obs_kind_mod,  only : QTY_STATE_VARIABLE
 
@@ -317,7 +318,7 @@
 
 msize = int(model_size, i4)
 
-call nc_redef(ncid)
+call nc_begin_define_mode(ncid)
 
 call nc_add_global_creation_time(ncid)
 
@@ -330,10 +331,10 @@
 call nc_add_global_attribute(ncid, "model_delta_t", delta_t )
 
 call nc_write_location_atts(ncid, msize)
-call nc_enddef(ncid)
+call nc_end_define_mode(ncid)
 call nc_write_location(ncid, state_loc, msize)
 
-call nc_sync(ncid)
+call nc_synchronize_file(ncid)
 
 end subroutine nc_write_model_atts