[Dart-dev] DART/branches Revision: 11588

[dart at ucar.edu]

hendric at ucar.edu
2017-05-02 16:38:34 -0600 (Tue, 02 May 2017)
180
some minor changes to get clm to run.  namely we
needed to define a write_model_time, which currently
is blank.  In this case we do not want to use the 
default write_model_time.




Modified: DART/branches/model_mod_changes/models/clm/model_mod.f90
===================================================================
--- DART/branches/model_mod_changes/models/clm/model_mod.f90	2017-05-02 20:49:22 UTC (rev 11587)
+++ DART/branches/model_mod_changes/models/clm/model_mod.f90	2017-05-02 22:38:34 UTC (rev 11588)
@@ -82,9 +82,6 @@
 
 use    random_seq_mod, only: random_seq_type, init_random_seq, random_gaussian
 
-!> @todo FIXME write a write_model_time for CLM
-use dart_time_io_mod,      only : write_model_time
-
 use default_model_mod,     only : adv_1step, init_time, init_conditions, nc_write_model_vars
 
 use typesizes
@@ -1538,7 +1535,18 @@
 
 end function read_model_time
 
+!-----------------------------------------------------------------------
+!>@todo this routine should write 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 clm write model time')
+
+end subroutine write_model_time
+
 !==================================================================
 ! The remaining PUBLIC interfaces come next
 !==================================================================