Update test/freezing/test_freezing_extract.F90

Co-authored-by: Jeffrey Curtis <[email protected]>
compdyn · Dec 3, 2024 · 5aae4ae · 5aae4ae
1 parent 9c87302
commit 5aae4ae
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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