[Dart-dev] DART/branches Revision: 11761

[dart at ucar.edu]

hendric at ucar.edu
2017-06-22 17:12:02 -0600 (Thu, 22 Jun 2017)
52

merging in the latest changes from the rma_trunk.




Index: DART/branches/rma_file_list_nml
===================================================================
--- DART/branches/rma_file_list_nml	2017-06-22 23:11:04 UTC (rev 11760)
+++ DART/branches/rma_file_list_nml	2017-06-22 23:12:02 UTC (rev 11761)

Property changes on: DART/branches/rma_file_list_nml
___________________________________________________________________
Modified: svn:mergeinfo
## -14,6 +14,7 ##
 /DART/branches/rma_fixed_filenames:10708-10901
 /DART/branches/rma_kinds_to_state_structure:8958-9437
 /DART/branches/rma_kinds_to_state_strucutre:8909-8957
+/DART/branches/rma_mmc:11731-11755
 /DART/branches/rma_model_mod_check:8965-9178
 /DART/branches/rma_mpas_fold_mean_fwd:9348-9458
 /DART/branches/rma_mpas_get_state_meta_data:8871-8890
## -30,6 +31,7 ##
 /DART/branches/rma_sprint:8101-8172
 /DART/branches/rma_state_structure_test_dir:9478-9682
 /DART/branches/rma_state_structure_unit_test:9697-10274
+/DART/branches/rma_trunk:11729-11760
 /DART/branches/rma_trunk_clamping:8792-8807
 /DART/branches/rma_trunk_filename:8017-8163
 /DART/branches/rma_trunk_get_state_fun:8574-8602
\ No newline at end of property
Modified: DART/branches/rma_file_list_nml/assimilation_code/location/column/location_mod.f90
===================================================================
--- DART/branches/rma_file_list_nml/assimilation_code/location/column/location_mod.f90	2017-06-22 23:11:04 UTC (rev 11760)
+++ DART/branches/rma_file_list_nml/assimilation_code/location/column/location_mod.f90	2017-06-22 23:12:02 UTC (rev 11761)
@@ -8,9 +8,10 @@
 
 ! Implements location interfaces for a one dimensional column domain
 
-use      types_mod, only : r8, MISSING_R8, MISSING_I
-use  utilities_mod, only : register_module, error_handler, E_ERR, ascii_file_format, &
-                           nc_check
+use            types_mod, only : i8, r8, MISSING_R8, MISSING_I
+use ensemble_manager_mod, only : ensemble_type
+use        utilities_mod, only : register_module, error_handler, E_ERR, ascii_file_format, &
+                                 nc_check
 
 implicit none
 private

Modified: DART/branches/rma_file_list_nml/assimilation_code/modules/io/dart_time_io_mod.f90
===================================================================
--- DART/branches/rma_file_list_nml/assimilation_code/modules/io/dart_time_io_mod.f90	2017-06-22 23:11:04 UTC (rev 11760)
+++ DART/branches/rma_file_list_nml/assimilation_code/modules/io/dart_time_io_mod.f90	2017-06-22 23:12:02 UTC (rev 11761)
@@ -57,7 +57,6 @@
 real(digits12) :: model_time, time_array(1)
 
 integer, dimension(NF90_MAX_VAR_DIMS) :: dimIDs
-character(len=NF90_MAX_NAME)          :: varname,dimname
 character(len=256) :: file_calendar, dart_calendar
 character(len=256) :: unitstring
 
@@ -163,7 +162,7 @@
       endif
    
       ! This is the start of their calendar
-      base_time = set_date(year, month, day, hour, minute, second)
+      base_time  = set_date(year, month, day, hour, minute, second)
       delta_time = set_time(seconds)
 
       read_model_time = base_time + delta_time
@@ -208,8 +207,7 @@
 real(digits12) :: model_time
 
 integer, dimension(NF90_MAX_VAR_DIMS) :: dimIDs
-character(len=NF90_MAX_NAME)          :: varname,dimname
-character(len=NF90_MAX_NAME)          :: dart_calendar, file_calendar
+character     (len=NF90_MAX_NAME)     :: dart_calendar, file_calendar
 
 ! this is used in many error messages below.  set it here, and
 ! don't reuse string3 here, please.
@@ -227,6 +225,15 @@
    ios = nf90_Redef(ncid)
    call nc_check(ios, "write_model_time", "redef")
 
+   ! check to see if there is a time dimension
+   ios = nf90_inq_dimid(ncid, "time", dimIds(1))
+
+   ! if time dimension does not exist create it
+   if (ios /= NF90_NOERR) then
+      call nc_check(nf90_def_dim(ncid, "time", nf90_unlimited, dimIds(1)), &
+        "write_model_time def_var dimension time")
+   endif
+
    !>@todo NF90_UNLIMITED
    ios = nf90_def_var(ncid, name="time", xtype=nf90_int, varid=VarID)
    call nc_check(ios, "write_model_time", "time def_var")
@@ -295,7 +302,7 @@
 
 ! Since the time variable is known to have only 1 dimension, we know it is the first one.
 
-ios = nf90_inquire_dimension(ncid, dimids(1), len=ntimes)
+ios = nf90_inquire_dimension(ncid, dimIds(1), len=ntimes)
 call nc_check(ios, 'write_model_time', 'inquire_dimension for time dimension')
 
 ! convert time to something that netCDF can store, fractional days