mom_string_functions module reference¶

Handy functions for manipulating strings.

Functions/Subroutines¶

`lowercase()`	Return a string in which all uppercase letters have been replaced by their lowercase counterparts.
`uppercase()`	Return a string in which all uppercase letters have been replaced by their lowercase counterparts.
`left_int()`	Returns a character string of a left-formatted integer e.g.
`left_ints()`	Returns a character string of a comma-separated, compact formatted, integers e.g.
`left_real()`	Returns a left-justified string with a real formatted like ‘(G)’.
`left_reals()`	Returns a character string of a comma-separated, compact formatted, reals e.g.
`isformattedfloatequalto()`	Returns True if the string can be read/parsed to give the exact value of “val”.
`extractword()`	Returns the string corresponding to the nth word in the argument or “” if the string is not long enough.
`extract_word()`	Returns the string corresponding to the nth word in the argument or “” if the string is not long enough.
`extract_integer()`	Returns the integer corresponding to the nth word in the argument.
`extract_real()`	Returns the real corresponding to the nth word in the argument, in arbitrary units [A].
`remove_spaces()`	Returns string with all spaces removed.
`string_functions_unit_tests()`	Returns true if a unit test of string_functions fails.
`localtests()`	True if str1 does not match str2.
`localtesti()`	True if i1 is not equal to i2.
`localtestr()`	True if r1 is not equal to r2.
`slasher()`	Returns a directory name that is terminated with a “/” or “./” if the argument is an empty string.

Detailed Description¶

By Alistair Adcroft and Robert Hallberg, last updated Sept. 2013.

The functions here perform a set of useful manipulations of character strings. Although they are a part of MOM6, the do not require any other MOM software to be useful.

Function/Subroutine Documentation¶

function mom_string_functions/lowercase(input_string) [character(len=len(input_string))]¶

Return a string in which all uppercase letters have been replaced by their lowercase counterparts.

Parameters:: input_string :: [in] The string to modify
Return:: undefined :: The modified output string
Called from:: basin_builder::basin_builder_topography mom_io::cmor_long_std mom_io::create_mom_file mom_diag_remap::diag_remap_configure_axes mom_io::get_varid mom_oda_driver_mod::init_oda mom_meke::meke_init mom_state_initialization::mom_initialize_obcs mom_tracer_registry::register_tracer mom_tracer_registry::register_tracer_diagnostics mom_restart::restore_state mom_self_attr_load::sal_init mom_is_diag_mediator::set_is_axes_info mom_tidal_mixing::tidal_mixing_init mom_tracer_registry::tracer_name_lookup

function mom_string_functions/uppercase(input_string) [character(len=len(input_string))]¶

Return a string in which all uppercase letters have been replaced by their lowercase counterparts.

Parameters:: input_string :: [in] The string to modify
Return:: undefined :: The modified output string
Called from:: regrid_consts::coordinatemode mom_coriolisadv::coriolisadv_init mom_energetic_pbl::energetic_pbl_init regrid_interp::interpolation_scheme mom6 mom_is_diag_mediator::mom_is_diag_mediator_init ocean_model_mod::ocean_model_init mom_opacity::opacity_init mom_shared_initialization::read_face_length_list mom_tidal_mixing::read_tidal_energy mom_shared_initialization::reset_face_lengths_list mom_open_boundary::scale_factor_from_name mom_remapping::setreconstructiontype mom_surface_forcing_gfdl::surface_forcing_init mom_tidal_mixing::tidal_mixing_init mom_surface_forcing::wind_forcing_from_file

function mom_string_functions/left_int(i) [character(len=19)]¶

Returns a character string of a left-formatted integer e.g. “123 ” (assumes 19 digit maximum)

Parameters:: i :: [in] The integer to convert to a string
Return:: undefined :: The output string
Called from:: left_ints left_reals string_functions_unit_tests

function mom_string_functions/left_ints(i) [character(len=1320)]¶

Returns a character string of a comma-separated, compact formatted, integers e.g. “1, 2, 3, 4”.

Parameters:: i :: [in] The array of integers to convert to a string
Return:: undefined :: The output string
Call to:: left_int
Called from:: string_functions_unit_tests

function mom_string_functions/left_real(val) [character(len=32)]¶

Returns a left-justified string with a real formatted like ‘(G)’.

Parameters:: val :: [in] The real variable to convert to a string, in arbitrary units [A]
Return:: undefined :: The output string
Call to:: isformattedfloatequalto
Called from:: left_reals string_functions_unit_tests

function mom_string_functions/left_reals(r, sep) [character(len=:)]¶

Returns a character string of a comma-separated, compact formatted, reals e.g. “1., 2., 5*3., 5.E2”.

Parameters:

r :: [in] The array of real variables to convert to a string, in arbitrary units [A]
sep :: [in] The separator between successive values, by default it is ‘, ‘.

Return:

undefined :: The output string

Call to:

left_int left_real

Called from:

string_functions_unit_tests

function mom_string_functions/isformattedfloatequalto(str, val) [logical]¶

Returns True if the string can be read/parsed to give the exact value of “val”.

Parameters:

str :: [in] The string to parse
val :: [in] The real value to compare with, in arbitrary units [A]

Called from:

left_real

function mom_string_functions/extractword(string, n) [character(len=120)]¶

Returns the string corresponding to the nth word in the argument or “” if the string is not long enough. Both spaces and commas are interpreted as separators.

Parameters:

string :: [in] The string to scan
n :: [in] Number of word to extract

Call to:

extract_word

Called from:

mom_diag_remap::diag_remap_init mom_regridding::initialize_regridding mom_int_tide_input::int_tide_input_init string_functions_unit_tests

function mom_string_functions/extract_word(string, separators, n) [character(len=120)]¶

Returns the string corresponding to the nth word in the argument or “” if the string is not long enough. Words are delineated by the mandatory separators argument.

Parameters:

string :: [in] String to scan
separators :: [in] Characters to use for delineation
n :: [in] Number of word to extract

Called from:

extract_integer extract_real extractword mom_open_boundary::parse_segment_data_str mom_open_boundary::parse_segment_manifest_str mom_open_boundary::parse_segment_str string_functions_unit_tests

function mom_string_functions/extract_integer(string, separators, n, missing_value) [integer]¶

Returns the integer corresponding to the nth word in the argument.

Parameters:

string :: [in] String to scan
separators :: [in] Characters to use for delineation
n :: [in] Number of word to extract
missing_value :: [in] Value to assign if word is missing

Call to:

extract_word

Called from:

mom_regridding::initialize_regridding string_functions_unit_tests

function mom_string_functions/extract_real(string, separators, n, missing_value) [real]¶

Returns the real corresponding to the nth word in the argument, in arbitrary units [A].

Parameters:

string :: [in] String to scan
separators :: [in] Characters to use for delineation
n :: [in] Number of word to extract
missing_value :: [in] Value to assign if word is missing, in arbitrary units [A]

Call to:

extract_word

Called from:

mom_regridding::initialize_regridding mom_internal_tides::internal_tides_init string_functions_unit_tests

function mom_string_functions/remove_spaces(string) [character(len=120)]¶

Returns string with all spaces removed.

Parameters:: string :: [in] String to scan
Called from:: mom_open_boundary::open_boundary_config string_functions_unit_tests

function mom_string_functions/string_functions_unit_tests(verbose) [logical]¶

Returns true if a unit test of string_functions fails.

Parameters:: verbose :: [in] If true, write results to stdout
Call to:: extract_integer extract_real extract_word extractword left_int left_ints left_real left_reals localtesti localtestr localtests remove_spaces
Called from:: mom_unit_tests::unit_tests

function mom_string_functions/localtests(verbose, str1, str2) [logical]¶

True if str1 does not match str2. False otherwise.

Parameters:

verbose :: [in] If true, write results to stdout
str1 :: [in] String
str2 :: [in] String

Called from:

string_functions_unit_tests

function mom_string_functions/localtesti(verbose, i1, i2) [logical]¶

True if i1 is not equal to i2. False otherwise.

Parameters:

verbose :: [in] If true, write results to stdout
i1 :: [in] Integer
i2 :: [in] Integer

Called from:

string_functions_unit_tests

function mom_string_functions/localtestr(verbose, r1, r2) [logical]¶

True if r1 is not equal to r2. False otherwise.

Parameters:

verbose :: [in] If true, write results to stdout
r1 :: [in] The first value to compare, in arbitrary units [A]
r2 :: [in] The first value to compare, in arbitrary units [A]

Called from:

string_functions_unit_tests

function mom_string_functions/slasher(dir) [character(len=len(dir)+2)]¶

Returns a directory name that is terminated with a “/” or “./” if the argument is an empty string.

Parameters:: dir :: [in] A directory to be terminated with a “/” or changed to “./” if it is blank.
Called from:: mom_hybgen_regrid::init_hybgen_regrid mom_domains::mom_domains_init mom_is_diag_mediator::mom_is_diag_mediator_init mom_coord_initialization::set_coord_from_file mom_coord_initialization::set_coord_from_ts_profile