Skip to content

Commit

Permalink
fix Faxa_rainc issue when add_gusts is turned on
Browse files Browse the repository at this point in the history
  • Loading branch information
uturuncoglu committed Jan 29, 2024
1 parent ea995f6 commit 64e1c27
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions mediator/med_phases_aofluxes_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1597,6 +1597,10 @@ subroutine set_aoflux_in_pointers(fldbun_a, fldbun_o, aoflux_in, lsize, xgrid, r
if (chkerr(rc,__LINE__,u_FILE_u)) return
call fldbun_getfldptr(fldbun_a, 'Sa_shum', aoflux_in%shum, xgrid=xgrid, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return
if (add_gusts) then
call fldbun_getfldptr(fldbun_a, 'Faxa_rainc', aoflux_in%rainc, xgrid=xgrid, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return
end if
end if

! extra fields for ufs.frac.aoflux
Expand Down

0 comments on commit 64e1c27

Please sign in to comment.