[Dart-dev] DART/branches Revision: 12438

[dart at ucar.edu]

hendric at ucar.edu
2018-03-08 13:32:55 -0700 (Thu, 08 Mar 2018)
112

using template model_mod, instead of local model mod
as the tests are only dependent on the ensemble manager.




Deleted: DART/branches/rma_distrib/developer_tests/mpi_groups/model_mod.f90
===================================================================
--- DART/branches/rma_distrib/developer_tests/mpi_groups/model_mod.f90	2018-03-07 23:35:08 UTC (rev 12437)
+++ DART/branches/rma_distrib/developer_tests/mpi_groups/model_mod.f90	2018-03-08 20:32:55 UTC (rev 12438)
@@ -1,328 +0,0 @@
-! DART software - Copyright UCAR. This open source software is provided
-! by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-!
-! $Id$
-
-module model_mod
-
-! This is a template showing the interfaces required for a model to be compliant
-! with the DART data assimilation infrastructure. The public interfaces listed
-! must all be supported with the argument lists as indicated. Many of the interfaces
-! are not required for minimal implementation (see the discussion of each
-! interface and look for NULL INTERFACE). 
-
-! 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_obs, get_close_state, &
-                             convert_vertical_obs, convert_vertical_state, &
-                             set_location, set_location_missing
-use    utilities_mod, only : register_module, error_handler, &
-                             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
-
-implicit none
-private
-
-! required by DART code - will be called from filter and other
-! DART executables.  interfaces to these routines are fixed and
-! cannot be changed in any way.
-public :: get_model_size,         &
-          adv_1step,              &
-          get_state_meta_data,    &
-          model_interpolate,      &
-          shortest_time_between_assimilations, &
-          end_model,              &
-          static_init_model,      &
-          nc_write_model_atts,    &
-          init_time,              &
-          init_conditions
-
-! public but in another module
-public :: nc_write_model_vars,    &
-          pert_model_copies,      &
-          get_close_obs,          &
-          get_close_state,        &
-          convert_vertical_obs,   &
-          convert_vertical_state, &
-          read_model_time, &
-          write_model_time
-
-
-! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
-   "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
-
-! EXAMPLE: define model parameters here
-integer, parameter               :: model_size = 3
-type(time_type)                  :: time_step
-type(location_type), allocatable :: state_loc(:)
-
-! EXAMPLE: perhaps a namelist here 
-integer  :: time_step_days      = 0
-integer  :: time_step_seconds   = 3600
-namelist /model_nml/ time_step_days, time_step_seconds
-
-contains
-
-!------------------------------------------------------------------
-!
-! Called to do one time initialization of the model. As examples,
-! might define information about the model size or model timestep.
-! In models that require pre-computed static data, for instance
-! 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, dom_id
-!integer  :: iunit, io
-
-! Print module information to log file and stdout.
-call register_module(source, revision, revdate)
-
-! This is where you would read a namelist, for example.