[Dart-dev] DART/branches Revision: 11257

[dart at ucar.edu]

nancy at ucar.edu
2017-03-09 08:34:47 -0700 (Thu, 09 Mar 2017)
36
better name for the functionality.




Copied: DART/branches/rma_trunk/models/template/default_model_mod.f90 (from rev 11256, DART/branches/rma_trunk/models/template/dummy_model_mod.f90)
===================================================================
--- DART/branches/rma_trunk/models/template/default_model_mod.f90	                        (rev 0)
+++ DART/branches/rma_trunk/models/template/default_model_mod.f90	2017-03-09 15:34:47 UTC (rev 11257)
@@ -0,0 +1,252 @@
+! 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 default_model_mod
+
+! bypass routines for all required entry points.
+! if a model has no need of a routine, use these instead.
+
+use        types_mod,      only : r8, i8, i4, MISSING_R8
+
+use time_manager_mod,      only : time_type, set_time
+
+use     location_mod,      only : location_type, set_location, set_location_missing, &
+                                  get_close_maxdist_init, get_close_obs_init, &
+                                  loc_get_close_obs => get_close_obs, get_close_type
+
+use    utilities_mod,      only : register_module, error_handler, E_ERR, E_MSG, nmlfileunit, &
+                                  do_output, find_namelist_in_file, check_namelist_read,     &
+                                  do_nml_file, do_nml_term, nc_check
+
+use         obs_kind_mod,  only : RAW_STATE_VARIABLE
+
+use ensemble_manager_mod,  only : ensemble_type
+
+use dart_time_io_mod,      only : read_model_time, write_model_time
+
+implicit none
+private
+
+public :: get_model_size, &
+          adv_1step, &
+          get_state_meta_data, &
+          model_interpolate, &
+          get_model_time_step, &
+          end_model, &
+          static_init_model, &
+          init_time, &
+          init_conditions, &
+          nc_write_model_atts, &
+          nc_write_model_vars, &
+          pert_model_copies, &
+          get_close_maxdist_init, &
+          get_close_obs_init, &
+          get_close_obs, &
+          get_close_type, &
+          vert_convert, &
+          query_vert_localization_coord, &
+          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$"
+
+contains
+
+!==================================================================
+
+subroutine static_init_model()
+
+end subroutine static_init_model
+
+!------------------------------------------------------------------
+
+subroutine init_conditions(x)
+real(r8), intent(out) :: x(:)
+
+! default
+x = 0.0_r8
+
+end subroutine init_conditions
+
+!------------------------------------------------------------------
+
+subroutine adv_1step(x, time)
+real(r8), intent(inout) :: x(:)
+type(time_type), intent(in) :: time
+
+call error_handler(E_ERR, 'adv_1step', 'unable to advance model', &
+                   source, revision, revdate)
+
+end  subroutine adv_1step
+
+!------------------------------------------------------------------
+
+function get_model_size()
+integer :: get_model_size
+
+get_model_size = 1
+