Skip to content

Commit

Permalink
new fix for add_gusts
Browse files Browse the repository at this point in the history
  • Loading branch information
jedwards4b committed Jun 27, 2024
1 parent 06a825a commit f2af60b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion mediator/med_phases_aofluxes_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1601,7 +1601,7 @@ 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 (associated(aoflux_in%rainc)) then
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
Expand Down

0 comments on commit f2af60b

Please sign in to comment.