Skip to content

Commit b334a18

Browse files
Merge branch 'ufs/dev' into fix/stc_check
2 parents 16c6886 + e3d5f64 commit b334a18

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_generic_post.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -117,7 +117,7 @@ subroutine GFS_surface_generic_post_run (im, cplflx, cplaqm, cplchm, cplwav, cpl
117117
v1(i) = vgrs_1(i)
118118
enddo
119119

120-
if (cplflx .or. cplchm .or. cplwav) then
120+
if (cplflx .or. cplchm .or. cplwav .or. cpl_fire) then
121121
do i=1,im
122122
u10mi_cpl(i) = u10m(i)
123123
v10mi_cpl(i) = v10m(i)

0 commit comments

Comments
 (0)