From 24cea98e981129bc151a7a2aa720e4a199f9b555 Mon Sep 17 00:00:00 2001 From: Jeffrey Curtis Date: Fri, 12 Apr 2024 13:58:22 -0500 Subject: [PATCH] bug fix for aero_particle least_create_time --- src/aero_particle.F90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/aero_particle.F90 b/src/aero_particle.F90 index c2f1011c0..acd60af9f 100644 --- a/src/aero_particle.F90 +++ b/src/aero_particle.F90 @@ -159,6 +159,7 @@ subroutine aero_particle_set_create_time(aero_particle, create_time) real(kind=dp), intent(in) :: create_time aero_particle%component(1)%create_time = create_time + aero_particle%least_create_time = create_time aero_particle%greatest_create_time = create_time end subroutine aero_particle_set_create_time @@ -970,6 +971,9 @@ subroutine aero_particle_coagulate(aero_particle_1, & aero_particle_2%component] call move_alloc(new_aero_component, aero_particle_new%component) end if + aero_particle_new%least_create_time = & + min(aero_particle_1%least_create_time, & + aero_particle_2%least_create_time) aero_particle_new%greatest_create_time = & max(aero_particle_1%greatest_create_time, & aero_particle_2%greatest_create_time)