From 1824149e7a475064af8150d74b8e98d92dee7684 Mon Sep 17 00:00:00 2001 From: Tao Sun <41139193+mos3r3n@users.noreply.github.com> Date: Tue, 9 Jul 2024 21:40:17 -0600 Subject: [PATCH] Bugfix of duplicated allocation in da_get_innov_vector_radar.inc --- var/da/da_radar/da_get_innov_vector_radar.inc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/var/da/da_radar/da_get_innov_vector_radar.inc b/var/da/da_radar/da_get_innov_vector_radar.inc index bddcda85c3..4b7b1b9fb2 100644 --- a/var/da/da_radar/da_get_innov_vector_radar.inc +++ b/var/da/da_radar/da_get_innov_vector_radar.inc @@ -275,7 +275,6 @@ END IF allocate (avg_qrn(tot_h_index,tot_z_index)) allocate (avg_qds(tot_h_index,tot_z_index)) allocate (avg_qws(tot_h_index,tot_z_index)) - allocate (avg_qws(tot_h_index,tot_z_index)) allocate (avg_qgr(tot_h_index,tot_z_index)) allocate (ave_rho(tot_h_index,tot_z_index)) @@ -379,7 +378,7 @@ END IF end do end do !bottom-top if (rootproc) close(hydro_weight_unit) - if (rootproc) call da_get_unit(hydro_weight_unit) + if (rootproc) call da_free_unit(hydro_weight_unit) end if !! use_radar_rhv .and. radar_rhv_opt == 2 do n=iv%info(radar)%n1,iv%info(radar)%n2