Bugfix for duplicated allocation and file closing for radar_rhv_opt = 2 (#2078)

mos3r3n · web-flow · commit 684f58302f2f · 2024-08-01T17:36:12.000-06:00
TYPE: bug fix KEYWORDS: radar DA DESCRIPTION OF CHANGES: Problem: Duplicated allocation of avg_qws when choosing radar_rhv_opt = 2. da_free_unit instead of da_get_unit for closing a file when radar_rhv_opt is equal to 2. ISSUE: #2077 LIST OF MODIFIED FILES: var/da/da_radar/da_get_innov_vector_radar.inc
diff --git 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
