diff --git a/science/gungho/source/algorithm/transport/ffsl/ffsl_control_alg_mod.x90 b/science/gungho/source/algorithm/transport/ffsl/ffsl_control_alg_mod.x90 index 521f34dd0..a32eb237e 100644 --- a/science/gungho/source/algorithm/transport/ffsl/ffsl_control_alg_mod.x90 +++ b/science/gungho/source/algorithm/transport/ffsl/ffsl_control_alg_mod.x90 @@ -24,7 +24,7 @@ module ffsl_control_alg_mod use flux_precomputations_alg_mod, only: flux_precomputations_type use split_transport_utils_mod, only: get_num_split_steps, & get_splitting_direction, & - get_splitting_fraction + get_splitting_factor use transport_controller_mod, only: transport_controller_type use transport_counter_mod, only: transport_counter_type use transport_enumerated_types_mod, only: direction_v, & @@ -110,7 +110,7 @@ contains ) ! Get time step - dt_frac = get_splitting_fraction( & + dt_frac = get_splitting_factor( & transport_metadata%get_splitting(), & transport_counter%get_split_step_of_substep_counter() & ) diff --git a/science/gungho/source/algorithm/transport/sl/horizontal_sl_advective_alg_mod.x90 b/science/gungho/source/algorithm/transport/sl/horizontal_sl_advective_alg_mod.x90 index 3b09e0618..106c7ab16 100644 --- a/science/gungho/source/algorithm/transport/sl/horizontal_sl_advective_alg_mod.x90 +++ b/science/gungho/source/algorithm/transport/sl/horizontal_sl_advective_alg_mod.x90 @@ -23,7 +23,7 @@ module horizontal_sl_advective_alg_mod ! Transport control use flux_precomputations_alg_mod, only: flux_precomputations_type - use split_transport_utils_mod, only: get_splitting_fraction, & + use split_transport_utils_mod, only: get_splitting_factor, & get_dry_config use transport_controller_mod, only: transport_controller_type use transport_counter_mod, only: transport_counter_type @@ -150,7 +150,7 @@ module horizontal_sl_advective_alg_mod transport_metadata => transport_controller%get_transport_metadata() ! Get time step - dt_frac = get_splitting_fraction( & + dt_frac = get_splitting_factor( & transport_metadata%get_splitting(), & transport_counter%get_split_step_of_substep_counter() & )