[Dart-dev] DART/branches Revision: 11100

[dart at ucar.edu]

hendric at ucar.edu
2017-02-13 11:29:58 -0700 (Mon, 13 Feb 2017)
39
adding a null interface for cm1 time.




Modified: DART/branches/rma_single_file/models/cm1/model_mod.f90
===================================================================
--- DART/branches/rma_single_file/models/cm1/model_mod.f90	2017-02-13 18:05:27 UTC (rev 11099)
+++ DART/branches/rma_single_file/models/cm1/model_mod.f90	2017-02-13 18:29:58 UTC (rev 11100)
@@ -51,8 +51,6 @@
 
 use ensemble_manager_mod, only : ensemble_type, copies_in_window
 
-use dart_time_io_mod, only : write_model_time
-
 use typesizes
 use netcdf 
 
@@ -835,7 +833,7 @@
 integer                            :: ierr          ! return value of function
 
 integer :: VarID
-integer :: TimeDimID, CopyDimID
+integer :: TimeDimID, MemberDimID
 
 character(len=128) :: filename
 
@@ -853,8 +851,7 @@
 
 ! make sure ncFileID refers to an open netCDF file, 
 
-
-call nc_check(nf90_inq_dimid(ncFileID, 'copy', dimid=CopyDimID), &
+call nc_check(nf90_inq_dimid(ncFileID, 'member', dimid=MemberDimID), &
             'nc_write_model_vars', 'inq_dimid copy '//trim(filename))
 
 call nc_check(nf90_inq_dimid(ncFileID, 'time', dimid=TimeDimID), &
@@ -1911,6 +1908,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 cm1 to write model time')
+
+end subroutine write_model_time
+
+
 !==================================================================
 ! FIXME!!!  some things below here are needed; others are NOT.
 ! figure out what's here, and why.