[Dart-dev] DART/branches Revision: 11096

[dart at ucar.edu]

hendric at ucar.edu
2017-02-10 15:14:36 -0700 (Fri, 10 Feb 2017)
103
providing a null interface to write model time.  this
is only called when writing files from scratch.




Modified: DART/branches/rma_single_file/models/cam-fv/model_mod.f90
===================================================================
--- DART/branches/rma_single_file/models/cam-fv/model_mod.f90	2017-02-10 21:41:20 UTC (rev 11095)
+++ DART/branches/rma_single_file/models/cam-fv/model_mod.f90	2017-02-10 22:14:36 UTC (rev 11096)
@@ -226,8 +226,6 @@
 
 use ensemble_manager_mod, only : ensemble_type
 
-use dart_time_io_mod,      only : write_model_time
-
 use distributed_state_mod, only : get_state, get_state_array
 
 use state_structure_mod,   only : add_domain, get_model_variable_indices, get_dim_name, &
@@ -5359,6 +5357,19 @@
 
 end function read_model_time
 
+!-----------------------------------------------------------------------
+!>@todo this routine should print the model time when 
+!>      creating files from scratch
+subroutine write_model_time(ncid, dart_time)
+
+integer,             intent(in) :: ncid !< netcdf file handle
+type(time_type),     intent(in) :: dart_time
+
+call error_handler(E_MSG, 'write_model_time', 'no routine for cam-fv write model time')
+
+end subroutine write_model_time
+
+
 !--------------------------------------------------------------------
 !> Construct an arry to pass to add_domain that contains the clamping info
 !> for each variable. Note for non-netcdf read this is done in write_cam_init