Merge pull request #189 from fisidi/PR_189

WRF-CMAQ Bugfix for UWIND and VWIND at Grid Cell Centers (mass points)
USEPA · May 4, 2023 · 1a53519 · 1a53519
2 parents 732ff6f + 6ff005f
commit 1a53519
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/CCTM/src/twoway/twoway_aqprep.F90 b/CCTM/src/twoway/twoway_aqprep.F90
@@ -111,6 +111,8 @@ SUBROUTINE aqprep (grid, config_flags, t_phy_wrf, p_phy_wrf, rho_wrf,     &
 !           26 Jul 2022  (David Wong)
 !              -- Added a prefix tw_ for these variables: sc, ec, sr, er sc_d, ec_d,
 !                 sr_d, and er_d to avoid naming conflicts
+!           16 Mar 2023  (David Wong)
+!              -- fixed a bug in creating u and v components
 !===============================================================================
 
   USE module_domain                                ! WRF module
@@ -1206,11 +1208,6 @@ END SUBROUTINE bcldprc_ak
 
         ENDDO
      ENDDO
-
-  metcro3d_data_wrf (:,:,1:nlays,15) = zf (:,:,1:nlays)
-
-  metcro3d_data_wrf (:,:,1:nlays,16) = zf (:,:,1:nlays)
-
   ENDDO
 
   metcro3d_data_wrf (:,:,1:nlays,14) = zf (:,:,1:nlays)