From e9f9a3e3a28be0639f7953503c932fca7150773a Mon Sep 17 00:00:00 2001 From: tangwhiap Date: Thu, 12 Dec 2024 14:01:43 -0600 Subject: [PATCH] Set random code for warning message --- src/env_state.F90 | 4 ++-- src/ice_nucleation.F90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/env_state.F90 b/src/env_state.F90 index a72ab473..ecabb1e2 100644 --- a/src/env_state.F90 +++ b/src/env_state.F90 @@ -657,7 +657,7 @@ real(kind=dp) function env_state_saturated_vapor_pressure_water(T) real(kind=dp) :: tmp - call warn_assert_msg(500123156, (T > 123) .and. (T < 332), & + call warn_assert_msg(571128376, (T > 123) .and. (T < 332), & "The environment temperature is less then 123K or larger than "& "332K, the subroutine env_state_saturated_vapor_pressure_water"& " isn't applicable") @@ -684,7 +684,7 @@ real(kind=dp) function env_state_saturated_vapor_pressure_ice(T) real(kind=dp) :: tmp - call warn_assert_msg(500123157, T > 110, & + call warn_assert_msg(482130832, T > 110, & "The environment temperature is less then 110K, "& "the subroutine env_state_saturated_vapor_pressure_water"& " isn't applicable") diff --git a/src/ice_nucleation.F90 b/src/ice_nucleation.F90 index 9c12efb1..35294a70 100644 --- a/src/ice_nucleation.F90 +++ b/src/ice_nucleation.F90 @@ -253,7 +253,7 @@ subroutine immersion_freezing_time_dependent(aero_state, aero_data, env_state_in if (immersion_freezing_scheme_type .eq. & IMMERSION_FREEZING_SCHEME_ABIFM) then call ABIFM_particle(i_part, p_freeze, aero_state, aero_data, a_w_ice, del_t) - call warn_assert_msg(123456789, p_freeze .le. p_freeze_max,& + call warn_assert_msg(301184565, p_freeze .le. p_freeze_max,& "p_freeze > p_freeze_max.") rand = pmc_random() if (rand < p_freeze / p_freeze_max) then