[Dart-dev] DART/branches Revision: 11569

[dart at ucar.edu]

nancy at ucar.edu
2017-05-01 16:17:42 -0600 (Mon, 01 May 2017)
143
this is used by several model-independent programs (e.g. many
obs converters) to satisfy the model interfaces even though
they aren't called.




Modified: DART/branches/model_mod_changes/models/template/model_mod.f90
===================================================================
--- DART/branches/model_mod_changes/models/template/model_mod.f90	2017-05-01 21:26:58 UTC (rev 11568)
+++ DART/branches/model_mod_changes/models/template/model_mod.f90	2017-05-01 22:17:42 UTC (rev 11569)
@@ -15,18 +15,21 @@
 ! Modules that are absolutely required for use are listed
 use        types_mod, only : r8, i8, MISSING_R8
 use time_manager_mod, only : time_type, set_time, set_time_missing
-use     location_mod, only : location_type, get_close_type, get_close_maxdist_init, &
-                             get_close_obs_init, loc_get_close_obs => get_close_obs, &
+use     location_mod, only : location_type, get_close_type, &
+                             get_close_obs, get_close_state, &
+                             convert_vertical_obs, convert_vertical_state, &
                              set_location, set_location_missing
 use    utilities_mod, only : register_module, error_handler, nc_check, &
                              E_ERR, E_MSG
                              ! nmlfileunit, do_output, do_nml_file, do_nml_term,  &
                              ! find_namelist_in_file, check_namelist_read
+use netcdf_utilities_mod, only : nc_add_global_attribute, nc_sync, &
+                                 nc_add_global_creation_time, nc_redef, nc_enddef
+use state_structure_mod, only : add_domain
+use ensemble_manager_mod, only : ensemble_type
+use dart_time_io_mod, only  : read_model_time, write_model_time
+use default_model_mod, only : pert_model_copies, nc_write_model_vars
 
-use ensemble_manager_mod,  only : ensemble_type
-
-use dart_time_io_mod, only : write_model_time
-
 implicit none
 private
 
@@ -37,7 +40,7 @@
           adv_1step,              &
           get_state_meta_data,    &
           model_interpolate,      &
-          get_model_time_step,    &
+          shortest_time_between_assimilations, &
           end_model,              &
           static_init_model,      &
           init_time,              &
@@ -45,21 +48,14 @@
           nc_write_model_atts,    &
           nc_write_model_vars,    &
           pert_model_copies,      &
-          get_close_maxdist_init, &
-          get_close_obs_init,     &
           get_close_obs,          &
-          query_vert_localization_coord, &
-          vert_convert, &
+          get_close_state,        &
+          convert_vertical_obs,   &
+          convert_vertical_state, &
           read_model_time, &
           write_model_time
 
-! not required by DART but for larger models can be useful for
-! utility programs that are tightly tied to the other parts of
-! the model_mod code.
-public :: model_file_to_dart_vector, &
-          dart_vector_to_model_file
 
-
 ! version controlled file description for error handling, do not edit
 character(len=256), parameter :: source   = &
    "$URL$"
@@ -78,11 +74,6 @@
 
 contains
 
-!==================================================================
-
-
-
-subroutine static_init_model()
 !------------------------------------------------------------------
 !
 ! Called to do one time initialization of the model. As examples,
@@ -91,8 +82,10 @@
 ! spherical harmonic weights, these would also be computed here.
 ! Can be a NULL INTERFACE for the simplest models.
 
+subroutine static_init_model()
+
  real(r8) :: x_loc
- integer  :: i
+ integer  :: i, dom_id
 !integer  :: iunit, io
 
 ! Print module information to log file and stdout.
@@ -124,15 +117,15 @@
 ! The time_step in terms of a time type must also be initialized.
 time_step = set_time(time_step_seconds, time_step_days)
 
+! tell dart the size of the model
+dom_id = add_domain(int(model_size,i8))
+
 end subroutine static_init_model