mom_random mom_random::prng real function, public real function, public mom_random::random_01 (CS) random_01 CS CS Returns a random number between 0 and 1. cs Container for pseudo-random number generators random_unit_tests real function, public real function, public mom_random::random_norm (CS) random_norm CS CS Returns an approximately normally distributed random number with mean 0 and variance 1. cs Container for pseudo-random number generators random_unit_tests subroutine, public subroutine, public mom_random::random_2d_01 (CS, HI, rand) random_2d_01 CS CS HI HI rand rand Generates random numbers between 0 and 1 for each cell of the model grid. cs Container for pseudo-random number generators hi Horizontal index structure rand Random numbers between 0 and 1 random_unit_tests subroutine, public subroutine, public mom_random::random_2d_norm (CS, HI, rand) random_2d_norm CS CS HI HI rand rand Returns an approximately normally distributed random number with mean 0 and variance 1 for each cell of the model grid. cs Container for pseudo-random number generators hi Horizontal index structure rand Random numbers between 0 and 1 random_unit_tests subroutine, public subroutine, public mom_random::random_0d_constructor (CS, Time, seed) random_0d_constructor CS CS Time Time seed seed Constructor for scalar PRNG. Can be used to reset the sequence. cs Container for pseudo-random number generators time Current model time seed Seed for PRNG seed_from_time random_unit_tests subroutine, public subroutine, public mom_random::random_2d_constructor (CS, HI, Time, seed) random_2d_constructor CS CS HI HI Time Time seed seed Constructor for gridded PRNG. Can be used to reset the sequence. cs Container for pseudo-random number generators hi Horizontal index structure time Current model time seed Seed for PRNG seed_from_index seed_from_time random_unit_tests integer function integer function mom_random::seed_from_time (Time) seed_from_time Time Time Return a seed derived as hash of values in Time. time Current model time random_0d_constructor random_2d_constructor random_unit_tests integer function integer function mom_random::seed_from_index (HI, i, j) seed_from_index HI HI i i j j Create seed from position index. hi Horizontal index structure i i-index (of h-cell) j j-index (of h-cell) random_2d_constructor random_unit_tests subroutine subroutine mom_random::random_destruct (CS) random_destruct CS CS Destructor for PRNG. cs Container for pseudo-random number generators logical function, public logical function, public mom_random::random_unit_tests (verbose) random_unit_tests verbose verbose Runs some statistical tests on the PRNG. verbose True if results should be written to stdout random_01 random_0d_constructor random_2d_01 random_2d_constructor random_2d_norm random_norm seed_from_index seed_from_time test_fn mom_unit_tests::unit_tests logical function logical function mom_random::test_fn (verbose, good, label, rvalue, ivalue) test_fn verbose verbose good good label label rvalue rvalue ivalue ivalue Convenience function for reporting result of test. verbose Verbosity good True if pass, false otherwise label Label for messages rvalue Result of calculation ivalue Result of calculation random_unit_tests Provides gridded random number capability. Provides MOM6 wrappers to the FMS implementation of the Mersenne twister. Example usage: type(PRNG)::rng real::rn callrandom_0d_constructor(rng,Time,seed)!Callthiseachtime-step rn=random_01(rng) rn=random_norm(rng) type(PRNG)::rng real,dimension(:,:)::rn2d callrandom_2d_constructor(rng,HI,Time,seed)!Callthiseachtime-step callrandom_2d_01(rng,HI,rn2d) callrandom_2d_norm(rng,HI,rn2d) Note:reproducibilityacrossrestartsisimplementedbyusingtime-derived seedstopasstotheMersennetwister.Itisthereforeimportantthatany PRNGtypebere-initializedeachtime-step.