From 5aae4ae616c63ef9872d04e663e3654a3f270650 Mon Sep 17 00:00:00 2001 From: Wenhan Tang <81504538+tangwhiap@users.noreply.github.com> Date: Tue, 3 Dec 2024 11:50:07 -0600 Subject: [PATCH] Update test/freezing/test_freezing_extract.F90 Co-authored-by: Jeffrey Curtis --- test/freezing/test_freezing_extract.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/freezing/test_freezing_extract.F90 b/test/freezing/test_freezing_extract.F90 index 28a59f091..781937ed5 100644 --- a/test/freezing/test_freezing_extract.F90 +++ b/test/freezing/test_freezing_extract.F90 @@ -15,7 +15,7 @@ program extract_freezing integer :: xtype, ndims, nAtts character(len=1000) :: tmp_str real(kind=dp), allocatable :: aero_num_conc(:) - integer(kind=dp), allocatable :: aero_frozen(:) + integer, allocatable :: aero_frozen(:) real(kind=dp) :: time real(kind=dp) :: frozen_fraction, frozen_fraction_total real(kind=dp) :: frozen_fraction_mean