[Dart-dev] DART/branches Revision: 11540

[dart at ucar.edu]

nancy at ucar.edu
2017-04-27 11:06:19 -0600 (Thu, 27 Apr 2017)
46
convert to new interfaces, update quickbuild




Modified: DART/branches/model_mod_changes/models/lorenz_96/model_mod.f90
===================================================================
--- DART/branches/model_mod_changes/models/lorenz_96/model_mod.f90	2017-04-27 17:02:27 UTC (rev 11539)
+++ DART/branches/model_mod_changes/models/lorenz_96/model_mod.f90	2017-04-27 17:06:19 UTC (rev 11540)
@@ -11,14 +11,19 @@
 use time_manager_mod,      only : time_type, set_time
 
 use location_mod,          only : location_type, set_location, get_location,  &
-                                  LocationDims, LocationName, LocationLName,  &
-                                  get_close_maxdist_init, get_close_obs_init, &
-                                  get_close_type, loc_get_close_obs => get_close_obs
+                                  get_close_obs, get_close_state,             &
+                                  convert_vertical_obs, convert_vertical_state
 
 use utilities_mod,         only : register_module, do_nml_file, do_nml_term,    &
                                   nmlfileunit, find_namelist_in_file,           &
                                   check_namelist_read, nc_check
 
+use location_io_mod,      only :  nc_write_location_atts, nc_get_location_varids, &
+                                  nc_write_location
+
+use netcdf_utilities_mod, only : nc_add_global_attribute, nc_sync, &
+                                 nc_add_global_creation_time, nc_redef, nc_enddef
+
 use         obs_kind_mod,  only : RAW_STATE_VARIABLE
 
 use ensemble_manager_mod,  only : ensemble_type
@@ -27,26 +32,35 @@
 
 use state_structure_mod,   only : add_domain
 
+use default_model_mod,     only : end_model, pert_model_copies, nc_write_model_vars
+
 use dart_time_io_mod,      only : read_model_time, write_model_time
 
 implicit none
 private
 
+! these routines must be public and you cannot change the
+! arguments because they will be called *from* other DART code.
+
+!> required routines with code in this module
 public :: get_model_size, &
-          adv_1step, &
-          get_state_meta_data, &
-          get_model_time_step, &
-          end_model, &
+          get_state_meta_data,  &
+          model_interpolate, &
+          shortest_time_between_assimilations, &
           static_init_model, &
+          init_conditions,    &
           init_time, &
-          init_conditions, &
-          nc_write_model_atts, &
+          adv_1step, &
+          nc_write_model_atts
+
+!> required routines where code is in other modules
+public :: pert_model_copies, &
           nc_write_model_vars, &
-          get_close_maxdist_init, get_close_obs_init, get_close_obs, &
-          model_interpolate, &
-          query_vert_localization_coord, &
-          vert_convert, &
-          pert_model_copies, &
+          get_close_obs, &
+          get_close_state, &
+          end_model, &
+          convert_vertical_obs, &
+          convert_vertical_state, &
           read_model_time, &
           write_model_time
 
@@ -57,8 +71,6 @@
 character(len=128), parameter :: revdate  = "$Date$"
 
 
-!---------------------------------------------------------------
-
 ! Namelist with default values
 
 integer(i8) :: model_size = 40
@@ -69,7 +81,6 @@
 
 namelist /model_nml/ model_size, forcing, delta_t, time_step_days, time_step_seconds
 
-!----------------------------------------------------------------
 
 ! module global variables
 
@@ -80,38 +91,8 @@
 
 contains
 
-!==================================================================
 
-! model-specific routines
-
-
 !------------------------------------------------------------------