From 579eb9725a26b55e2a9afffc7ab507c5eabd249b Mon Sep 17 00:00:00 2001 From: "Michael Kavulich, Jr" Date: Tue, 3 Mar 2026 14:58:49 -0600 Subject: [PATCH] Update for 10m wind option in fire_behavior module --- .../Interstitials/UFS_SCM_NEPTUNE/GFS_surface_generic_post.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_generic_post.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_generic_post.F90 index 648f6bf81..24bc6f86c 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_generic_post.F90 +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_generic_post.F90 @@ -117,7 +117,7 @@ subroutine GFS_surface_generic_post_run (im, cplflx, cplaqm, cplchm, cplwav, cpl v1(i) = vgrs_1(i) enddo - if (cplflx .or. cplchm .or. cplwav) then + if (cplflx .or. cplchm .or. cplwav .or. cpl_fire) then do i=1,im u10mi_cpl(i) = u10m(i) v10mi_cpl(i) = v10m(i)