Set random code for warning message

compdyn · Dec 12, 2024 · e9f9a3e · e9f9a3e
1 parent fcedcc6
commit e9f9a3e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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