diff --git a/field_manager/field_manager.F90 b/field_manager/field_manager.F90 index f605447818..4bd0b7fd16 100644 --- a/field_manager/field_manager.F90 +++ b/field_manager/field_manager.F90 @@ -204,8 +204,6 @@ module field_manager_mod public :: field_manager_init !< (nfields, [table_name]) returns number of fields public :: field_manager_end !< () public :: find_field_index !< (model, field_name) or (list_path) -public :: find_field_index_old !< (model, field_name) returns index of field_name in -public :: find_field_index_new public :: get_field_info !< (n,fld_type,fld_name,model,num_methods) !! Returns parameters relating to field n. public :: get_field_method !< (n, m, method) Returns the m-th method of field n @@ -222,19 +220,11 @@ module field_manager_mod public :: fm_get_length !< (list) return length public :: fm_get_type !< (field) return string public :: fm_get_value !< (entry, value [, index]) return success !! generic -public :: fm_get_value_integer !< as above (overloaded function) -public :: fm_get_value_logical !< as above (overloaded function) -public :: fm_get_value_real !< as above (overloaded function) -public :: fm_get_value_string !< as above (overloaded function) public :: fm_init_loop !< (list, iter) public :: fm_loop_over_list !< (list, name, type, index) return success !! (iter, name, type, index) return success public :: fm_new_list !< (list [, create] [, keep]) return index public :: fm_new_value !< (entry, value [, create] [, index]) return index !! generic -public :: fm_new_value_integer !< as above (overloaded function) -public :: fm_new_value_logical !< as above (overloaded function) -public :: fm_new_value_real !< as above (overloaded function) -public :: fm_new_value_string !< as above (overloaded function) public :: fm_reset_loop !< () public :: fm_return_root !< () return success public :: fm_modify_name !< (oldname, newname) return success diff --git a/field_manager/fm_util.F90 b/field_manager/fm_util.F90 index 994b6cdbf0..07613b4945 100644 --- a/field_manager/fm_util.F90 +++ b/field_manager/fm_util.F90 @@ -59,14 +59,6 @@ module fm_util_mod !{ public fm_util_get_real_array public fm_util_get_string_array public fm_util_set_value -public fm_util_set_value_integer_array -public fm_util_set_value_logical_array -public fm_util_set_value_real_array -public fm_util_set_value_string_array -public fm_util_set_value_integer -public fm_util_set_value_logical -public fm_util_set_value_real -public fm_util_set_value_string !public fm_util_get_index public fm_util_get_index_list public fm_util_get_index_string @@ -102,17 +94,6 @@ module fm_util_mod !{ ! Interface definitions for overloaded routines ! -!interface fm_util_get_value !{ - !module procedure fm_util_get_value_integer - !module procedure fm_util_get_value_logical - !module procedure fm_util_get_value_real - !module procedure fm_util_get_value_string - !module procedure fm_util_get_value_integer_array - !module procedure fm_util_get_value_logical_array - !module procedure fm_util_get_value_real_array - !module procedure fm_util_get_value_string_array -!end interface !} - !> @} !> @ingroup fm_util_mod diff --git a/libFMS.F90 b/libFMS.F90 index 02b54df82a..e7609cc896 100644 --- a/libFMS.F90 +++ b/libFMS.F90 @@ -315,14 +315,6 @@ module fms fms_fm_util_get_real_array => fm_util_get_real_array, & fms_fm_util_get_string_array => fm_util_get_string_array, & fms_fm_util_set_value => fm_util_set_value, & - fms_fm_util_set_value_integer_array => fm_util_set_value_integer_array, & - fms_fm_util_set_value_logical_array => fm_util_set_value_logical_array, & - fms_fm_util_set_value_real_array => fm_util_set_value_real_array, & - fms_fm_util_set_value_string_array => fm_util_set_value_string_array, & - fms_fm_util_set_value_integer => fm_util_set_value_integer, & - fms_fm_util_set_value_logical => fm_util_set_value_logical, & - fms_fm_util_set_value_real => fm_util_set_value_real, & - fms_fm_util_set_value_string => fm_util_set_value_string, & fms_fm_util_get_index_list => fm_util_get_index_list, & fms_fm_util_get_index_string => fm_util_get_index_string, & fms_fm_util_default_caller => fm_util_default_caller