[Dart-dev] DART/branches Revision: 12259

[dart at ucar.edu]

thoar at ucar.edu
2018-01-03 11:59:10 -0700 (Wed, 03 Jan 2018)
253
Added a missing set_location to the USE statement of model_check_utilities_mod.f90.
Not running the exhaustive test_interpolate for ROMS since this model_mod does not support interpolation yet.
Pruning a couple unused variables from the other modules.




Modified: DART/branches/mmc/assimilation_code/modules/utilities/netcdf_utilities_mod.f90
===================================================================
--- DART/branches/mmc/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2018-01-03 18:15:32 UTC (rev 12258)
+++ DART/branches/mmc/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2018-01-03 18:59:10 UTC (rev 12259)
@@ -105,7 +105,7 @@
 character(len=32 ), parameter :: revision = "$Revision$"
 character(len=128), parameter :: revdate  = "$Date$"
 
-character(len=512) :: msgstring1, msgstring2, msgstring3
+character(len=512) :: msgstring1
 
 ! do we need one of these?
 !namelist /netcdf_utilities_nml/ 

Modified: DART/branches/mmc/assimilation_code/programs/model_mod_check/model_mod_check.f90
===================================================================
--- DART/branches/mmc/assimilation_code/programs/model_mod_check/model_mod_check.f90	2018-01-03 18:15:32 UTC (rev 12258)
+++ DART/branches/mmc/assimilation_code/programs/model_mod_check/model_mod_check.f90	2018-01-03 18:59:10 UTC (rev 12259)
@@ -124,9 +124,7 @@
 
 ! misc. variables
 integer :: idom, imem, num_passed, num_failed, num_domains, idomain
-integer :: quantity_index
 logical :: cartesian = .false.
-type(location_type) :: location
 
 ! message strings
 character(len=512) :: my_base, my_desc

Modified: DART/branches/mmc/models/ROMS/work/input.nml
===================================================================
--- DART/branches/mmc/models/ROMS/work/input.nml	2018-01-03 18:15:32 UTC (rev 12258)
+++ DART/branches/mmc/models/ROMS/work/input.nml	2018-01-03 18:59:10 UTC (rev 12259)
@@ -336,7 +336,7 @@
    input_state_files     = 'roms_input.nc'
    output_state_files    = 'mmc_output.nc'
    test1thru             = 0
-   run_tests             = 1,2,3,4,5,7
+   run_tests             = 1,2,3,4
    x_ind                 = 87370
    loc_of_interest       = 231.0, 40.0, 10.0
    quantity_of_interest  = 'QTY_U_CURRENT_COMPONENT'

Modified: DART/branches/mmc/models/model_mod_tools/model_check_utilities_mod.f90
===================================================================
--- DART/branches/mmc/models/model_mod_tools/model_check_utilities_mod.f90	2018-01-03 18:15:32 UTC (rev 12258)
+++ DART/branches/mmc/models/model_mod_tools/model_check_utilities_mod.f90	2018-01-03 18:59:10 UTC (rev 12259)
@@ -14,9 +14,13 @@
 
 use         utilities_mod, only : error_handler, E_MSG, do_output
 
-use          location_mod, only : location_type, write_location, get_dist
+use          location_mod, only : location_type, &
+                                  write_location, &
+                                  get_dist, &
+                                  set_location
 
-use          obs_kind_mod, only : get_name_for_quantity, get_index_for_quantity
+use          obs_kind_mod, only : get_name_for_quantity, &
+                                  get_index_for_quantity
 
 use  ensemble_manager_mod, only : ensemble_type
 

Modified: DART/branches/mmc/models/model_mod_tools/test_interpolate_threed_cartesian.f90
===================================================================
--- DART/branches/mmc/models/model_mod_tools/test_interpolate_threed_cartesian.f90	2018-01-03 18:15:32 UTC (rev 12258)
+++ DART/branches/mmc/models/model_mod_tools/test_interpolate_threed_cartesian.f90	2018-01-03 18:59:10 UTC (rev 12259)
@@ -48,7 +48,7 @@
 character(len=128), parameter :: revdate  = "$Date$"
 
 ! for messages
-character(len=512) :: string1, string2, string3
+character(len=512) :: string1, string2
 
 contains